Changeset 349 for branches/highdpi/Protocol.pas

Timestamp:

Apr 6, 2021, 8:11:02 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged trunk branch version r348 into highdpi branch.

File:

• branches/highdpi/Protocol.pas (modified) (10 diffs)

branches/highdpi/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 }
@@ -1265 +1266 @@
 mcHospital = mcSupplyShip;
 
+// Wonders CityID constants
+WonderNotBuiltYet = -1;
+WonderDestroyed = -2;
+
 type
   TServerCall = function (Command, Player, Subject: Integer; var Data)
@@ -1287 +1292 @@
     Flags: Cardinal;
   end;
+  PUn = ^TUn;
 
   { TCity }
@@ -1310 +1316 @@
     // array value =1 indicates built improvement
   end;
+  PCity = ^TCity;
 
   TModel = packed record
@@ -1348 +1355 @@
     Flags: Word;
   end;
+  PUnitInfo = ^TUnitInfo;
 
   TCityInfo = packed record
@@ -1358 +1366 @@
     Flags: Word;
   end;
+  PCityInfo = ^TCityInfo;
 
   TModelInfo = packed record
@@ -1587 +1596 @@
 
   TTileList = array [0 .. INFIN] of Cardinal;
+  PTileList = ^TTileList;
   TTileObservedLastList = array [0 .. INFIN] of SmallInt;
   TOwnerList = array [0 .. INFIN] of ShortInt;
@@ -1641 +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
@@ -1661 +1671 @@
 
   TNewGameData = record
-    lx: Integer;
-    ly: Integer;
+    lx: Integer; // Map width
+    ly: Integer; // Map height
     LandMass: Integer;
     MaxTurn: Integer;
@@ -1768 +1778 @@
 procedure DelphiRandomize;
 
+
 implementation