Changeset 22

Timestamp:

Sep 28, 2011, 3:10:01 PM (13 years ago)

Author:

george

Message:

• Added: Definition class for surface matter types.

Location:

trunk

Files:

• Forms/UMainForm.pas (modified) (4 diffs)
• Forms/UNewGameForm.lfm (modified) (2 diffs)
• Forms/UNewGameForm.pas (modified) (3 diffs)
• Languages (modified) (1 prop)
• Languages/tunneler.cs.po (added)
• Languages/tunneler.po (added)
• UCore.pas (modified) (28 diffs)
• tunneler.lpi (modified) (62 diffs)

trunk/Forms/UMainForm.pas

@@ -115 +115 @@
     PlayerCount := 4;
     with TPlayer(Players[0]) do begin
+      Name := 'Player 1';
       Keys.Left := 65;
       Keys.Down := 83;
@@ -122 +123 @@
     end;
     with TPlayer(Players[1]) do begin
+      Name := 'Player 2';
       Keys.Left := 37;
       Keys.Down := 40;
@@ -129 +131 @@
     end;
     with TPlayer(Players[2]) do begin
+      Name := 'Player 3';
       Keys.Left := 76;
       Keys.Down := 186;
@@ -136 +139 @@
     end;
     with TPlayer(Players[3]) do begin
+      Name := 'Player 4';
       Keys.Left := 100;
       Keys.Down := 98;

trunk/Forms/UNewGameForm.lfm

@@ -17 +17 @@
     Caption = 'Start'
     ModalResult = 1
+    OnClick = ButtonStartClick
     TabOrder = 0
   end
@@ -59 +60 @@
     TabOrder = 2
     ViewStyle = vsReport
+    OnChange = ListView1Change
   end
 end

trunk/Forms/UNewGameForm.pas

@@ -18 +18 @@
     Label1: TLabel;
     ListView1: TListView;
+    procedure ButtonStartClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure ListView1Change(Sender: TObject; Item: TListItem;
+      Change: TItemChange);
   private
     { private declarations }
@@ -52 +55 @@
       NewItem.SubItems.Add('');
       NewItem.Checked := Enabled;
+      NewItem.Data := Pointer(Engine.Players[I]);
     end;
   finally
@@ -58 +62 @@
 end;
 
+procedure TNewGameForm.ListView1Change(Sender: TObject; Item: TListItem;
+  Change: TItemChange);
+begin
+  if Change = ctState then
+    TPlayer(Item.Data).Enabled := Item.Checked;
+end;
+
+procedure TNewGameForm.ButtonStartClick(Sender: TObject);
+begin
+
+end;
+
 end.
 

trunk/UCore.pas

@@ -24 +24 @@
   TPlayer = class;
 
-  TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock, smCannon,
-    smBullet1, smBullet2,
-    smPlayer1H, smPlayer1L, smPlayer2H, smPlayer2L,
-    smPlayer3H, smPlayer3L, smPlayer4H, smPlayer4L);
-
   TRealPoint = record
     X, Y: Real;
@@ -61 +56 @@
     destructor Destroy; override;
   end;
+
+  TMatterIndex = (miSpace, miDirt1, miDirt2, miRock, miBullet1, miBullet2,
+    miPlayer1Cannon, miPlayer1Home, miPlayer1TankBody, miPlayer1TankBody2,
+    miPlayer2Cannon, miPlayer2Home, miPlayer2TankBody, miPlayer2TankBody2,
+    miPlayer3Cannon, miPlayer3Home, miPlayer3TankBody, miPlayer3TankBody2,
+    miPlayer4Cannon, miPlayer4Home, miPlayer4TankBody, miPlayer4TankBody2,
+    miPlayer5Cannon, miPlayer5Home, miPlayer5TankBody, miPlayer5TankBody2,
+    miPlayer6Cannon, miPlayer6Home, miPlayer6TankBody, miPlayer6TankBody2,
+    miPlayer7Cannon, miPlayer7Home, miPlayer7TankBody, miPlayer7TankBody2,
+    miPlayer8Cannon, miPlayer8Home, miPlayer8TankBody, miPlayer8TankBody2);
+
+  TMatterKind = (mkSpace, mkDirt, mkRock, mkCannon, mkBullet, mkTankBody,
+    mkHome);
 
   { TPlayer }
@@ -96 +104 @@
     procedure Paint;
     procedure PlaceHouse;
-    function CheckColision: TSurfaceMatter;
+    function CheckColision: TMatterIndex;
     procedure ShowTank;
     procedure HideTank;
@@ -105 +113 @@
   end;
 
+  { TMatter }
+
+  TMatter = class
+    Kind: TMatterKind;
+    Player: Integer;
+    Color: TColor;
+  end;
+
   { TWorld }
 
@@ -111 +127 @@
     function GetSize: TMatrixByteIndex;
     procedure SetSize(const AValue: TMatrixByteIndex);
+    procedure InitMatter;
   public
     Engine: TEngine;
     Surface: TMatrixByte;
+    Matter: TListObject; // TListObject<TMatter>
     procedure Generate;
     constructor Create;
@@ -183 +201 @@
 
 const
-  SurfaceMatterColors: array[TSurfaceMatter] of TColor = (clBlack, $0756b0,
-    $2170c3, TColor($9a9a9a), clYellow, clRed, clRed,
-    TColor($00ff00), TColor($00a000), TColor($ff2c2c), TColor($b60000),
-    TColor($0000ff), TColor($0000a0), TColor($ff2cff), TColor($b600b6));
   DirectionToDelta: array[0..7] of TPoint =
     ((X: 0; Y: -1), (X: 1; Y: -1), (X: 1; Y: 0), (X: 1; Y: 1),
@@ -273 +287 @@
 end;
 
+procedure TWorld.InitMatter;
+begin
+  // Space
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkSpace;
+    Color := clBlack;
+    Player := -1;
+  end;
+  // Dirt1
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkDirt;
+    Color := $0756b0;
+    Player := -1;
+  end;
+  // Dirt2
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkDirt;
+    Color := $2170c3;
+    Player := -1;
+  end;
+  // Rock
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkRock;
+    Color := TColor($9a9a9a);
+    Player := -1;
+  end;
+  // Bullet1
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkBullet;
+    Color := clRed;
+    Player := -1;
+  end;
+  // Bullet2
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkBullet;
+    Color := clRed;
+    Player := -1;
+  end;
+
+  // Player 1 cannon
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkCannon;
+    Color := clYellow;
+    Player := 0;
+  end;
+  // Player 1 home
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkHome;
+    Color := TColor($00ff00);
+    Player := 0;
+  end;
+  // Player 1 body1
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($00ff00);
+    Player := 0;
+  end;
+  // Player 1 body2
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($00a000);
+    Player := 0;
+  end;
+
+  // Player 2 cannon
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkCannon;
+    Color := clYellow;
+    Player := 1;
+  end;
+  // Player 2 home
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkHome;
+    Color :=  TColor($ff2c2c);
+    Player := 1;
+  end;
+  // Player 2 body1
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($ff2c2c);
+    Player := 1;
+  end;
+  // Player 2 body2
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($b60000);
+    Player := 1;
+  end;
+
+  // Player 3 cannon
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkCannon;
+    Color := clYellow;
+    Player := 2;
+  end;
+  // Player 3 home
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkHome;
+    Color :=  TColor($0000ff);
+    Player := 2;
+  end;
+  // Player 3 body1
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($0000ff);
+    Player := 2;
+  end;
+  // Player 3 body2
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($0000a0);
+    Player := 2;
+  end;
+
+  // Player 4 cannon
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkCannon;
+    Color := clYellow;
+    Player := 3;
+  end;
+  // Player 4 home
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkHome;
+    Color :=  TColor($ff2cff);
+    Player := 3;
+  end;
+  // Player 4 body1
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($ff2cff);
+    Player := 3;
+  end;
+  // Player 4 body2
+  with TMatter(Matter.AddNew(TMatter.Create)) do begin
+    Kind := mkTankBody;
+    Color := TColor($b600b6);
+    Player := 3;
+  end;
+end;
+
 procedure TWorld.Generate;
 var
@@ -282 +436 @@
     for X := 0 to Surface.Count.X - 1 do begin
       if Random < 0.5 then
-        Surface.ItemsXY[X, Y] := Byte(smDirt1) else
-        Surface.ItemsXY[X, Y] := Byte(smDirt2);
+        Surface.ItemsXY[X, Y] := Byte(miDirt1) else
+        Surface.ItemsXY[X, Y] := Byte(miDirt2);
     end;
 
@@ -290 +444 @@
   for Y := 0 to Surface.Count.Y - 1 do begin
     for X := 0 to Round(Distance) - 1 do begin
-      Surface.ItemsXY[X, Y] := Byte(smRock);
+      Surface.ItemsXY[X, Y] := Byte(miRock);
     end;
     Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.X) * 2 - 1);
@@ -300 +454 @@
   for Y := 0 to Surface.Count.Y - 1 do begin
     for X := 0 to Round(Distance) - 1 do begin
-      Surface.ItemsXY[Surface.Count.X - 1 - X, Y] := Byte(smRock);
+      Surface.ItemsXY[Surface.Count.X - 1 - X, Y] := Byte(miRock);
     end;
     Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.X) * 2 - 1);
@@ -310 +464 @@
   for X := 0 to Surface.Count.X - 1 do begin
     for Y := 0 to Round(Distance) - 1 do begin
-      Surface.ItemsXY[X, Y] := Byte(smRock);
+      Surface.ItemsXY[X, Y] := Byte(miRock);
     end;
     Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.Y) * 2 - 1);
@@ -320 +474 @@
   for X := 0 to Surface.Count.X - 1 do begin
     for Y := 0 to Round(Distance) - 1 do begin
-      Surface.ItemsXY[X, Surface.Count.Y - 1 - Y] := Byte(smRock);
+      Surface.ItemsXY[X, Surface.Count.Y - 1 - Y] := Byte(miRock);
     end;
     Delta := (Random * 2 - 1) * 3 - (Distance / (0.1 * Surface.Count.Y) * 2 - 1);
@@ -331 +485 @@
   NewSize: TMatrixByteIndex;
 begin
+  Matter := TListObject.Create;
+  InitMatter;
   Surface := TMatrixByte.Create;
   NewSize.X := 800;
@@ -340 +496 @@
 begin
   Surface.Free;
+  Matter.Free;
   inherited Destroy;
 end;
@@ -360 +517 @@
       PixelPtr := PixelRowPtr;
       for X := 0 to Bitmap.Width - 1 do begin
-        P := SurfaceMatterColors[TSurfaceMatter(
-          Surface.ItemsXY[Trunc(X / Bitmap.Width * Surface.Count.X),
-            Trunc(Y / Bitmap.Height * Surface.Count.Y)])];
+        P := TMatter(Matter[Surface.ItemsXY[Trunc(X / Bitmap.Width * Surface.Count.X),
+            Trunc(Y / Bitmap.Height * Surface.Count.Y)]]).Color;
         PixelPtr^ := SwapBRComponent(P);
         Inc(PByte(PixelPtr), BytePerPixel);
@@ -378 +534 @@
 var
   Delta: TPoint;
-  Matter: TSurfaceMatter;
+  Matter: TMatterIndex;
   NewBullet: TBullet;
   I: Integer;
@@ -408 +564 @@
     HideTank;
     Matter := CheckColision;
-    if (Matter = smDirt1) then Dig := not Dig;
-    if (Matter = smNothing) or ((Matter = smDirt1) and (not Dig)) then begin
+    if (Matter = miDirt1) then Dig := not Dig;
+    if (Matter = miSpace) or ((Matter = miDirt1) and (not Dig)) then begin
       Position := NewPosition;
       Direction := NewDirection;
@@ -474 +630 @@
   with TBullet(Bullets[I]), Engine.World.Surface do begin
     Pos := Point(Trunc(Position.X), Trunc(Position.Y));
-    if (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet1)) or
-      (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet2)) then
-      ItemsXY[LastPos.X, LastPos.Y] := Byte(smNothing);
+    if (ItemsXY[LastPos.X, LastPos.Y] = Byte(miBullet1)) or
+      (ItemsXY[LastPos.X, LastPos.Y] = Byte(miBullet2)) then
+      ItemsXY[LastPos.X, LastPos.Y] := Byte(miSpace);
     LastPos := Pos;
 
@@ -491 +647 @@
     Pos := Point(Trunc(Position.X), Trunc(Position.Y));
 
-    if (ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing)) and
-    (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet1)) and
-    (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet2)) then begin
-      if (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt1)) or
-        (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt2)) then begin
-          ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
+    if (ItemsXY[Pos.X, Pos.Y] <> Byte(miSpace)) and
+    (ItemsXY[Pos.X, Pos.Y] <> Byte(miBullet1)) and
+    (ItemsXY[Pos.X, Pos.Y] <> Byte(miBullet2)) then begin
+      if (ItemsXY[Pos.X, Pos.Y] = Byte(miDirt1)) or
+        (ItemsXY[Pos.X, Pos.Y] = Byte(miDirt2)) then begin
+          ItemsXY[Pos.X, Pos.Y] := Byte(miSpace);
           if StopByDirt then begin
             Explosion(LastPos, BulletExplosionRange);
@@ -504 +660 @@
           end;
         end else begin
-          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1H)) then
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer1TankBody)) or
+          (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer1TankBody2)) then
             with TPlayer(Engine.Players[0]) do begin
               Shield := Shield - 1 / ShieldSteps;
             end;
-          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2H)) then
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer2Tankbody)) or
+          (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer2TankBody2)) then
             with TPlayer(Engine.Players[1]) do begin
               Shield := Shield - 1 / ShieldSteps;
             end;
-          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3H)) then
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer3TankBody)) or
+          (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer3TankBody2)) then
             with TPlayer(Engine.Players[2]) do begin
               Shield := Shield - 1 / ShieldSteps;
             end;
-          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4H)) then
+          if (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer4TankBody)) or
+          (ItemsXY[Pos.X, Pos.Y] = Byte(miPlayer4TankBody2)) then
             with TPlayer(Engine.Players[3]) do begin
               Shield := Shield - 1 / ShieldSteps;
@@ -534 +694 @@
         Continue;
       end;
-    ItemsXY[Pos.X, Pos.Y] := Byte(smBullet1);
+    ItemsXY[Pos.X, Pos.Y] := Byte(miBullet1);
     //Engine.World.Surface.ItemsXY[LastPos.X, LastPos.Y] := Byte(smBullet2);
     Engine.Redraw;
@@ -552 +712 @@
 //    FillRect(ScreenFrame);
     Fill(CreateIndex(ScreenFrame.Left, ScreenFrame.Top),
-      CreateIndex(ScreenFrame.Right - 1, ScreenFrame.Bottom - 1), SurfaceMatterColors[smRock]);
+      CreateIndex(ScreenFrame.Right - 1, ScreenFrame.Bottom - 1),
+      TMatter(Engine.World.Matter[Integer(miRock)]).Color);
 
     with Engine.World do
@@ -560 +721 @@
         YY := Y - ScreenFrame.Top - ((ScreenFrame.Bottom - ScreenFrame.Top) div 2) + Position.Y;
         if (YY >= 0) and (YY < Surface.Count.Y) and (XX >= 0) and (XX < Surface.Count.X) then
-          ItemsXY[X, Y] := SurfaceMatterColors[TSurfaceMatter(Surface.ItemsXY[XX, YY])];
+          ItemsXY[X, Y] := TMatter(Engine.World.Matter[Surface.ItemsXY[XX, YY]]).Color;
       end;
 
@@ -592 +753 @@
       not (((Y = 0) or (Y = (HouseSize - 1))) and (X > ((HouseSize - DoorSize) div 2)) and
       (X < ((HouseSize - 1 + DoorSize) div 2)))
-      then Matter := Byte(smPlayer1H) + Id * 2
-        else Matter := Byte(smNothing);
+      then Matter := Byte(miPlayer1Cannon) + Id * 4
+        else Matter := Byte(miSpace);
       Engine.World.Surface.ItemsXY[House.Left + X,
         House.Top + Y] := Matter;
@@ -599 +760 @@
 end;
 
-function TPlayer.CheckColision: TSurfaceMatter;
+function TPlayer.CheckColision: TMatterIndex;
 var
   X, Y: Integer;
   XX, YY: Integer;
 begin
-  Result := smNothing;
+  Result := miSpace;
   with Engine.World, TTank(Tanks[NewDirection]) do
   for Y := 0 to Image.Count.Y - 1 do
@@ -611 +772 @@
     YY := Y + NewPosition.Y - Image.Count.Y div 2;
     if (Image.ItemsXY[X, Y] > 0) and
-    (Surface.ItemsXY[XX, YY] <> Byte(smNothing)) then
+    (Surface.ItemsXY[XX, YY] <> Byte(miSpace)) then
     begin
-      Result := smDirt1;
-      if (Surface.ItemsXY[XX, YY] <> Byte(smDirt1)) and
-      (Surface.ItemsXY[XX, YY] <> Byte(smDirt2)) then
+      Result := miDirt1;
+      if (Surface.ItemsXY[XX, YY] <> Byte(miDirt1)) and
+      (Surface.ItemsXY[XX, YY] <> Byte(miDirt2)) then
       begin
-        Result := TSurfaceMatter(Surface.ItemsXY[XX, YY]);
+        Result := TMatterIndex(Surface.ItemsXY[XX, YY]);
         Exit;
       end;
@@ -709 +870 @@
     Image.Count := Image.CreateIndex(7, 7);
     for I := 0 to 3 do
-      Image[3, I] := Byte(smCannon);
+      Image[3, I] := Byte(miPlayer1Cannon) + Id * 4;
     for I := 1 to 6 do begin
-      Image[1, I] := Byte(smPlayer1H) + Id * 2;
-      Image[5, I] := Byte(smPlayer1H) + Id * 2;
+      Image[1, I] := Byte(miPlayer1TankBody) + Id * 4;
+      Image[5, I] := Byte(miPlayer1TankBody) + Id * 4;
     end;
     for I := 2 to 5 do begin
-      Image[2, I] := Byte(smPlayer1H) + Id * 2 + 1;
-      Image[4, I] := Byte(smPlayer1H) + Id * 2 + 1;
-    end;
-    Image[3, 4] := Byte(smPlayer1H) + Id * 2 + 1;
-    Image[3, 5] := Byte(smPlayer1H) + Id * 2 + 1;
+      Image[2, I] := Byte(miPlayer1TankBody2) + Id * 4;
+      Image[4, I] := Byte(miPlayer1TankBody2) + Id * 4;
+    end;
+    Image[3, 4] := Byte(miPlayer1TankBody2) + Id * 4;
+    Image[3, 5] := Byte(miPlayer1TankBody2) + Id * 4;
   end;
   Tanks.Add(NewTank);
@@ -727 +888 @@
     Image.Count := Image.CreateIndex(7, 7);
     for I := 0 to 2 do
-      Image[3 + I, 3 - I] := Byte(smCannon);
+      Image[3 + I, 3 - I] := Byte(miPlayer1Cannon) + Id * 4;
     for I := 0 to 3 do begin
-      Image[I, 3 - I] := Byte(smPlayer1H) + Id * 2;
-      Image[3 + I, 6 - I] := Byte(smPlayer1H) + Id * 2;
+      Image[I, 3 - I] := Byte(miPlayer1TankBody) + Id * 4;
+      Image[3 + I, 6 - I] := Byte(miPlayer1TankBody) + Id * 4;
     end;
     for I := 0 to 2 do begin
-      Image[1 + I, 3 - I] := Byte(smPlayer1H) + Id * 2 + 1;
-      Image[3 + I, 5 - I] := Byte(smPlayer1H) + Id * 2 + 1;
-    end;
-    Image[3, 2] := Byte(smPlayer1H) + Id * 2 + 1;
-    Image[2, 3] := Byte(smPlayer1H) + Id * 2 + 1;
-    Image[2, 4] := Byte(smPlayer1H) + Id * 2 + 1;
-    Image[3, 4] := Byte(smPlayer1H) + Id * 2 + 1;
-    Image[4, 3] := Byte(smPlayer1H) + Id * 2 + 1;
+      Image[1 + I, 3 - I] := Byte(miPlayer1TankBody2) + Id * 4;
+      Image[3 + I, 5 - I] := Byte(miPlayer1TankBody2) + Id * 4;
+    end;
+    Image[3, 2] := Byte(miPlayer1TankBody2) + Id * 4;
+    Image[2, 3] := Byte(miPlayer1TankBody2) + Id * 4;
+    Image[2, 4] := Byte(miPlayer1TankBody2) + Id * 4;
+    Image[3, 4] := Byte(miPlayer1TankBody2) + Id * 4;
+    Image[4, 3] := Byte(miPlayer1TankBody2) + Id * 4;
   end;
   Tanks.Add(NewTank);

trunk/tunneler.lpi

@@ -46 +46 @@
       </Item4>
     </RequiredPackages>
-    <Units Count="64">
+    <Units Count="67">
       <Unit0>
         <Filename Value="tunneler.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="tunneler"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="61" Y="10"/>
-        <UsageCount Value="93"/>
+        <UsageCount Value="103"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -66 +66 @@
         <TopLine Value="203"/>
         <CursorPos X="68" Y="209"/>
-        <UsageCount Value="93"/>
+        <UsageCount Value="92"/>
       </Unit1>
       <Unit2>
@@ -72 +72 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="UCore"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="77"/>
-        <CursorPos X="20" Y="86"/>
-        <UsageCount Value="93"/>
+        <TopLine Value="208"/>
+        <CursorPos X="3" Y="68"/>
+        <UsageCount Value="103"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -85 +86 @@
         <TopLine Value="35"/>
         <CursorPos X="20" Y="51"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit3>
       <Unit4>
@@ -93 +94 @@
         <TopLine Value="52"/>
         <CursorPos X="18" Y="57"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit4>
       <Unit5>
@@ -101 +102 @@
         <TopLine Value="1"/>
         <CursorPos X="61" Y="11"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="20"/>
       </Unit5>
       <Unit6>
@@ -108 +109 @@
         <TopLine Value="19"/>
         <CursorPos X="4" Y="36"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="12"/>
       </Unit6>
       <Unit7>
@@ -116 +117 @@
         <TopLine Value="2417"/>
         <CursorPos X="3" Y="2459"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit7>
       <Unit8>
@@ -123 +124 @@
         <TopLine Value="548"/>
         <CursorPos X="22" Y="552"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit8>
       <Unit9>
@@ -130 +131 @@
         <TopLine Value="34"/>
         <CursorPos X="1" Y="54"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
       </Unit9>
       <Unit10>
@@ -138 +139 @@
         <TopLine Value="1314"/>
         <CursorPos X="42" Y="1327"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit10>
       <Unit11>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="10"/>
         <WindowIndex Value="0"/>
         <TopLine Value="154"/>
         <CursorPos X="3" Y="156"/>
-        <UsageCount Value="38"/>
+        <UsageCount Value="43"/>
         <Loaded Value="True"/>
       </Unit11>
@@ -155 +156 @@
         <TopLine Value="16"/>
         <CursorPos X="22" Y="33"/>
-        <UsageCount Value="19"/>
+        <UsageCount Value="18"/>
       </Unit12>
       <Unit13>
@@ -162 +163 @@
         <TopLine Value="16"/>
         <CursorPos X="19" Y="32"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit13>
       <Unit14>
@@ -170 +171 @@
         <TopLine Value="54"/>
         <CursorPos X="3" Y="70"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit14>
       <Unit15>
@@ -177 +178 @@
         <TopLine Value="10"/>
         <CursorPos X="21" Y="13"/>
-        <UsageCount Value="22"/>
+        <UsageCount Value="21"/>
       </Unit15>
       <Unit16>
@@ -184 +185 @@
         <TopLine Value="783"/>
         <CursorPos X="3" Y="785"/>
-        <UsageCount Value="4"/>
+        <UsageCount Value="3"/>
       </Unit16>
       <Unit17>
@@ -191 +192 @@
         <TopLine Value="498"/>
         <CursorPos X="11" Y="515"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
       </Unit17>
       <Unit18>
@@ -199 +200 @@
         <TopLine Value="665"/>
         <CursorPos X="27" Y="682"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit18>
       <Unit19>
@@ -206 +207 @@
         <TopLine Value="112"/>
         <CursorPos X="10" Y="114"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit19>
       <Unit20>
@@ -214 +215 @@
         <TopLine Value="1035"/>
         <CursorPos X="15" Y="1052"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
       </Unit20>
       <Unit21>
@@ -221 +222 @@
         <TopLine Value="3003"/>
         <CursorPos X="3" Y="3010"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
       </Unit21>
       <Unit22>
@@ -228 +229 @@
         <TopLine Value="392"/>
         <CursorPos X="1" Y="411"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
       </Unit22>
       <Unit23>
@@ -235 +236 @@
         <TopLine Value="85"/>
         <CursorPos X="10" Y="102"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit23>
       <Unit24>
@@ -242 +243 @@
         <TopLine Value="157"/>
         <CursorPos X="3" Y="159"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit24>
       <Unit25>
@@ -249 +250 @@
         <TopLine Value="4360"/>
         <CursorPos X="19" Y="4365"/>
-        <UsageCount Value="13"/>
+        <UsageCount Value="12"/>
       </Unit25>
       <Unit26>
@@ -256 +257 @@
         <TopLine Value="4226"/>
         <CursorPos X="1" Y="4254"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
       </Unit26>
       <Unit27>
@@ -266 +267 @@
         <TopLine Value="15"/>
         <CursorPos X="39" Y="45"/>
-        <UsageCount Value="72"/>
+        <UsageCount Value="71"/>
       </Unit27>
       <Unit28>
@@ -273 +274 @@
         <TopLine Value="858"/>
         <CursorPos X="1" Y="875"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit28>
       <Unit29>
@@ -280 +281 @@
         <TopLine Value="2102"/>
         <CursorPos X="1" Y="2119"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit29>
       <Unit30>
@@ -287 +288 @@
         <TopLine Value="58"/>
         <CursorPos X="14" Y="75"/>
-        <UsageCount Value="15"/>
+        <UsageCount Value="14"/>
       </Unit30>
       <Unit31>
@@ -294 +295 @@
         <TopLine Value="1"/>
         <CursorPos X="34" Y="12"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="10"/>
       </Unit31>
       <Unit32>
@@ -302 +303 @@
         <TopLine Value="3131"/>
         <CursorPos X="42" Y="3148"/>
-        <UsageCount Value="16"/>
+        <UsageCount Value="15"/>
       </Unit32>
       <Unit33>
@@ -310 +311 @@
         <TopLine Value="104"/>
         <CursorPos X="3" Y="91"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit33>
       <Unit34>
@@ -317 +318 @@
         <TopLine Value="325"/>
         <CursorPos X="3" Y="327"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit34>
       <Unit35>
@@ -325 +326 @@
         <TopLine Value="173"/>
         <CursorPos X="5" Y="190"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
       </Unit35>
       <Unit36>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericBitmap.inc"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="20" Y="26"/>
-        <UsageCount Value="25"/>
+        <UsageCount Value="30"/>
         <Loaded Value="True"/>
       </Unit36>
@@ -339 +340 @@
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas"/>
         <UnitName Value="SpecializedBitmap"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <TopLine Value="47"/>
         <CursorPos X="22" Y="21"/>
-        <UsageCount Value="14"/>
+        <UsageCount Value="19"/>
         <Loaded Value="True"/>
       </Unit37>
@@ -352 +353 @@
         <TopLine Value="91"/>
         <CursorPos X="19" Y="107"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit38>
       <Unit39>
@@ -359 +360 @@
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
       </Unit39>
       <Unit40>
@@ -366 +367 @@
         <TopLine Value="158"/>
         <CursorPos X="23" Y="175"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit40>
       <Unit41>
@@ -374 +375 @@
         <TopLine Value="1"/>
         <CursorPos X="9" Y="69"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit41>
       <Unit42>
@@ -382 +383 @@
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit42>
       <Unit43>
@@ -390 +391 @@
         <TopLine Value="1"/>
         <CursorPos X="14" Y="20"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit43>
       <Unit44>
@@ -396 +397 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="UPlatform"/>
-        <UsageCount Value="52"/>
+        <UsageCount Value="62"/>
       </Unit44>
       <Unit45>
@@ -404 +405 @@
         <TopLine Value="929"/>
         <CursorPos X="5" Y="932"/>
-        <UsageCount Value="12"/>
+        <UsageCount Value="11"/>
       </Unit45>
       <Unit46>
@@ -412 +413 @@
         <TopLine Value="1"/>
         <CursorPos X="50" Y="5"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="10"/>
       </Unit46>
       <Unit47>
@@ -420 +421 @@
         <TopLine Value="1"/>
         <CursorPos X="36" Y="15"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
       </Unit47>
       <Unit48>
@@ -427 +428 @@
         <TopLine Value="330"/>
         <CursorPos X="35" Y="338"/>
-        <UsageCount Value="16"/>
+        <UsageCount Value="15"/>
       </Unit48>
       <Unit49>
@@ -435 +436 @@
         <TopLine Value="58"/>
         <CursorPos X="5" Y="75"/>
-        <UsageCount Value="8"/>
+        <UsageCount Value="7"/>
       </Unit49>
       <Unit50>
@@ -441 +442 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="URectangle"/>
-        <EditorIndex Value="11"/>
+        <EditorIndex Value="13"/>
         <WindowIndex Value="0"/>
         <TopLine Value="120"/>
         <CursorPos X="44" Y="150"/>
-        <UsageCount Value="37"/>
+        <UsageCount Value="47"/>
         <Loaded Value="True"/>
       </Unit50>
@@ -453 +454 @@
         <TopLine Value="147"/>
         <CursorPos X="10" Y="84"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="10"/>
       </Unit51>
       <Unit52>
@@ -461 +462 @@
         <TopLine Value="520"/>
         <CursorPos X="35" Y="531"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="9"/>
       </Unit52>
       <Unit53>
@@ -467 +468 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="UPersistentForm"/>
-        <EditorIndex Value="9"/>
+        <EditorIndex Value="11"/>
         <WindowIndex Value="0"/>
         <TopLine Value="69"/>
         <CursorPos X="3" Y="90"/>
-        <UsageCount Value="30"/>
+        <UsageCount Value="40"/>
         <Loaded Value="True"/>
       </Unit53>
@@ -478 +479 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="UApplicationInfo"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="12"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="70" Y="42"/>
-        <UsageCount Value="30"/>
+        <UsageCount Value="40"/>
         <Loaded Value="True"/>
       </Unit54>
@@ -489 +490 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="URegistry"/>
-        <UsageCount Value="29"/>
+        <UsageCount Value="39"/>
       </Unit55>
       <Unit56>
@@ -496 +497 @@
         <TopLine Value="71"/>
         <CursorPos X="10" Y="84"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit56>
       <Unit57>
@@ -503 +504 @@
         <TopLine Value="167"/>
         <CursorPos X="3" Y="169"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit57>
       <Unit58>
@@ -510 +511 @@
         <TopLine Value="466"/>
         <CursorPos X="17" Y="470"/>
-        <UsageCount Value="9"/>
+        <UsageCount Value="8"/>
       </Unit58>
       <Unit59>
@@ -516 +517 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="UThreading"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
         <TopLine Value="79"/>
         <CursorPos X="13" Y="95"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="31"/>
         <Loaded Value="True"/>
       </Unit59>
@@ -526 +527 @@
         <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-base/src/contnrs.pp"/>
         <UnitName Value="contnrs"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
         <TopLine Value="55"/>
         <CursorPos X="3" Y="72"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="15"/>
         <Loaded Value="True"/>
       </Unit60>
@@ -541 +542 @@
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="27"/>
-        <CursorPos X="51" Y="42"/>
-        <UsageCount Value="21"/>
+        <TopLine Value="43"/>
+        <CursorPos X="47" Y="68"/>
+        <UsageCount Value="31"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -554 +555 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UMainForm"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="204"/>
-        <CursorPos X="74" Y="228"/>
-        <UsageCount Value="21"/>
+        <TopLine Value="112"/>
+        <CursorPos X="54" Y="140"/>
+        <UsageCount Value="31"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -570 +570 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UMapForm"/>
-        <EditorIndex Value="12"/>
+        <EditorIndex Value="14"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="10" Y="5"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="31"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit63>
+      <Unit64>
+        <Filename Value="../../PascalClassLibrary/CoolTranslator/ULanguages.pas"/>
+        <UnitName Value="ULanguages"/>
+        <EditorIndex Value="4"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="3"/>
+        <CursorPos X="14" Y="20"/>
+        <UsageCount Value="15"/>
+        <Loaded Value="True"/>
+      </Unit64>
+      <Unit65>
+        <Filename Value="../../PascalClassLibrary/CoolTranslator/UCoolTranslator.pas"/>
+        <UnitName Value="UCoolTranslator"/>
+        <EditorIndex Value="3"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="31"/>
+        <CursorPos X="39" Y="33"/>
+        <UsageCount Value="15"/>
+        <Loaded Value="True"/>
+      </Unit65>
+      <Unit66>
+        <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
+        <UnitName Value="ComCtrls"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1206"/>
+        <CursorPos X="3" Y="1223"/>
+        <UsageCount Value="9"/>
+      </Unit66>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1006" Column="1" TopLine="987"/>
+        <Caret Line="110" Column="74" TopLine="94"/>
       </Position1>
       <Position2>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1007" Column="1" TopLine="987"/>
+        <Caret Line="311" Column="30" TopLine="295"/>
       </Position2>
       <Position3>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1008" Column="1" TopLine="987"/>
+        <Caret Line="348" Column="30" TopLine="332"/>
       </Position3>
       <Position4>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1009" Column="1" TopLine="987"/>
+        <Caret Line="438" Column="41" TopLine="420"/>
       </Position4>
       <Position5>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1010" Column="1" TopLine="987"/>
+        <Caret Line="445" Column="39" TopLine="428"/>
       </Position5>
       <Position6>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1011" Column="1" TopLine="987"/>
+        <Caret Line="475" Column="61" TopLine="455"/>
       </Position6>
       <Position7>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1012" Column="1" TopLine="987"/>
+        <Caret Line="519" Column="64" TopLine="501"/>
       </Position7>
       <Position8>
         <Filename Value="UCore.pas"/>
-        <Caret Line="1068" Column="1" TopLine="1038"/>
+        <Caret Line="535" Column="23" TopLine="518"/>
       </Position8>
       <Position9>
         <Filename Value="UCore.pas"/>
-        <Caret Line="170" Column="15" TopLine="153"/>
+        <Caret Line="564" Column="18" TopLine="547"/>
       </Position9>
       <Position10>
         <Filename Value="UCore.pas"/>
-        <Caret Line="826" Column="1" TopLine="809"/>
+        <Caret Line="93" Column="41" TopLine="76"/>
       </Position10>
       <Position11>
         <Filename Value="UCore.pas"/>
-        <Caret Line="827" Column="1" TopLine="809"/>
+        <Caret Line="756" Column="45" TopLine="756"/>
       </Position11>
       <Position12>
         <Filename Value="UCore.pas"/>
-        <Caret Line="166" Column="23" TopLine="140"/>
+        <Caret Line="71" Column="3" TopLine="52"/>
       </Position12>
       <Position13>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="12" Column="31" TopLine="1"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="567" Column="55" TopLine="548"/>
       </Position13>
       <Position14>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="16" Column="31" TopLine="1"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="641" Column="47" TopLine="614"/>
       </Position14>
       <Position15>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="17" Column="31" TopLine="1"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="59" Column="75" TopLine="52"/>
       </Position15>
       <Position16>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="18" Column="31" TopLine="1"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="633" Column="52" TopLine="616"/>
       </Position16>
       <Position17>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="21" Column="31" TopLine="1"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="691" Column="37" TopLine="675"/>
       </Position17>
       <Position18>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="49" Column="28" TopLine="19"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="653" Column="48" TopLine="636"/>
       </Position18>
       <Position19>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="52" Column="29" TopLine="21"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="685" Column="59" TopLine="652"/>
       </Position19>
       <Position20>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="51" Column="30" TopLine="21"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="677" Column="43" TopLine="650"/>
       </Position20>
       <Position21>
         <Filename Value="UCore.pas"/>
-        <Caret Line="84" Column="18" TopLine="67"/>
+        <Caret Line="713" Column="89" TopLine="696"/>
       </Position21>
       <Position22>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="50" Column="30" TopLine="21"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="714" Column="58" TopLine="697"/>
       </Position22>
       <Position23>
-        <Filename Value="Forms/UNewGameForm.pas"/>
-        <Caret Line="42" Column="14" TopLine="28"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="722" Column="88" TopLine="705"/>
       </Position23>
       <Position24>
-        <Filename Value="Forms/UMainForm.pas"/>
-        <Caret Line="5" Column="32" TopLine="1"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="754" Column="36" TopLine="737"/>
       </Position24>
       <Position25>
-        <Filename Value="Forms/UMainForm.pas"/>
-        <Caret Line="72" Column="26" TopLine="56"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="755" Column="36" TopLine="737"/>
       </Position25>
       <Position26>
-        <Filename Value="Forms/UMainForm.pas"/>
-        <Caret Line="189" Column="3" TopLine="187"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="778" Column="42" TopLine="749"/>
       </Position26>
       <Position27>
-        <Filename Value="Forms/UMainForm.pas"/>
-        <Caret Line="235" Column="1" TopLine="204"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="775" Column="19" TopLine="758"/>
       </Position27>
       <Position28>
-        <Filename Value="Forms/UMainForm.pas"/>
-        <Caret Line="202" Column="53" TopLine="187"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="779" Column="31" TopLine="752"/>
       </Position28>
       <Position29>
-        <Filename Value="Forms/UMainForm.pas"/>
-        <Caret Line="50" Column="1" TopLine="33"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="902" Column="40" TopLine="891"/>
       </Position29>
       <Position30>
-        <Filename Value="Forms/UMainForm.pas"/>
-        <Caret Line="181" Column="17" TopLine="171"/>
+        <Filename Value="UCore.pas"/>
+        <Caret Line="913" Column="63" TopLine="890"/>
       </Position30>
     </JumpHistory>