Changeset 328 for trunk/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/Protocol.pas (modified) (2 diffs)

trunk/Protocol.pas

@@ -11 +11 @@
   nImp = 70; { number of improvements }
   nPl = 15; { max number of players, don't change! }
+  nWonder = 28; { number of wonders }
   nUmax = 4096; { max units/player, don't set above 4096 }
   nCmax = 1024; { max cities/player, don't set above 4096 }
@@ -1650 +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