Changeset 328 for trunk/AI/StdAI/Protocol.pas

Timestamp:

Mar 25, 2021, 3:02:29 PM (3 years ago)

Author:

chronos

Message:

• Modified: Use nWonder constant as number of wonders instead of numeric value.
• Modified: Code cleanup.

File:

• trunk/AI/StdAI/Protocol.pas (modified) (7 diffs)

trunk/AI/StdAI/Protocol.pas

@@ -11 +11 @@
   nImp = 70; { number of improvements }
   nPl = 15; { max number of players, don't change! }
+  nWonder = 28; { max number of wonders }
   nUmax = 4096; { max units/player, don't set above 4096 }
   nCmax = 1024; { max cities/player, don't set above 4096 }
@@ -1291 +1292 @@
     Flags: Cardinal;
   end;
+  PUn = ^TUn;
 
   { TCity }
@@ -1314 +1316 @@
     // array value =1 indicates built improvement
   end;
+  PCity = ^TCity;
 
   TModel = packed record
@@ -1352 +1355 @@
     Flags: Word;
   end;
+  PUnitInfo = ^TUnitInfo;
 
   TCityInfo = packed record
@@ -1362 +1366 @@
     Flags: Word;
   end;
+  PCityInfo = ^TCityInfo;
 
   TModelInfo = packed record
@@ -1591 +1596 @@
 
   TTileList = array [0 .. INFIN] of Cardinal;
+  PTileList = ^TTileList;
   TTileObservedLastList = array [0 .. INFIN] of SmallInt;
   TOwnerList = array [0 .. INFIN] of ShortInt;
@@ -1645 +1651 @@
     Tribute: array [0 .. nPl - 1] of Integer; // no longer in use
     TributePaid: array [0 .. nPl - 1] of Integer; // no longer in use
-    Wonder: array [0 .. 27] of TWonderInfo;
+    Wonder: array [0 .. nWonder - 1] of TWonderInfo;
     Ship: array [0 .. nPl - 1] of TShipInfo;
-    NatBuilt: array [28 .. (nImp + 3) div 4 * 4 - 1] of ShortInt;
+    NatBuilt: array [nWonder .. (nImp + 3) div 4 * 4 - 1] of ShortInt;
     nBattleHistory: Integer;
     BattleHistory: ^TBattleList; // complete list of all my battles in the whole game