Changeset 465 for branches/highdpi/AI/StdAI/StdAI.lpr

Timestamp:

Nov 30, 2023, 10:16:14 PM (12 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

• branches/highdpi/AI/StdAI/StdAI.lpr (modified) (2 diffs)

branches/highdpi/AI/StdAI/StdAI.lpr

@@ -12 +12 @@
 var
   AIList: array[0..nPl - 1] of TCustomAI;
-  Defender: integer;
+  Defender: Integer;
 
 
-  procedure Client(Command, Player: integer; var Data); stdcall;
+  procedure Client(Command, Player: Integer; var Data); stdcall;
   var
-    p, y0, ToLoc: integer;
+    P, y0, ToLoc: Integer;
     UnitInfo: TUnitInfo;
   begin
@@ -32 +32 @@
 {$ENDIF}
         CustomAI.Init(TNewGameData(Data));
-        for p := nPl - 1 downto 0 do
-          if G.RO[p] <> nil then
+        for P := nPl - 1 downto 0 do
+          if G.RO[P] <> nil then
           begin
-            AIList[p] := TAI.Create(p);
-            AIList[p].SetDataDefaults;
+            AIList[P] := TAI.Create(P);
+            AIList[P].SetDataDefaults;
           end
           else
-            AIList[p] := nil;
+            AIList[P] := nil;
         Defender := -1;
       end;
       cGetReady:
-        for p := nPl - 1 downto 0 do
-          if AIList[p] <> nil then
-            AIList[p].SetDataRandom;
+        for P := nPl - 1 downto 0 do
+          if AIList[P] <> nil then
+            AIList[P].SetDataRandom;
       cBreakGame:
-        for p := 0 to nPl - 1 do
-          if AIList[p] <> nil then
-            AIList[p].Free;
+        for P := 0 to nPl - 1 do
+          if AIList[P] <> nil then
+            AIList[P].Free;
 
       cTurn, cContinue, scContact..scDipBreak, cShowEndContact: