Changeset 328 for trunk/AI/StdAI/Protocol.pas
- Timestamp:
- Mar 25, 2021, 3:02:29 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AI/StdAI/Protocol.pas
r319 r328 11 11 nImp = 70; { number of improvements } 12 12 nPl = 15; { max number of players, don't change! } 13 nWonder = 28; { max number of wonders } 13 14 nUmax = 4096; { max units/player, don't set above 4096 } 14 15 nCmax = 1024; { max cities/player, don't set above 4096 } … … 1291 1292 Flags: Cardinal; 1292 1293 end; 1294 PUn = ^TUn; 1293 1295 1294 1296 { TCity } … … 1314 1316 // array value =1 indicates built improvement 1315 1317 end; 1318 PCity = ^TCity; 1316 1319 1317 1320 TModel = packed record … … 1352 1355 Flags: Word; 1353 1356 end; 1357 PUnitInfo = ^TUnitInfo; 1354 1358 1355 1359 TCityInfo = packed record … … 1362 1366 Flags: Word; 1363 1367 end; 1368 PCityInfo = ^TCityInfo; 1364 1369 1365 1370 TModelInfo = packed record … … 1591 1596 1592 1597 TTileList = array [0 .. INFIN] of Cardinal; 1598 PTileList = ^TTileList; 1593 1599 TTileObservedLastList = array [0 .. INFIN] of SmallInt; 1594 1600 TOwnerList = array [0 .. INFIN] of ShortInt; … … 1645 1651 Tribute: array [0 .. nPl - 1] of Integer; // no longer in use 1646 1652 TributePaid: array [0 .. nPl - 1] of Integer; // no longer in use 1647 Wonder: array [0 .. 27] of TWonderInfo;1653 Wonder: array [0 .. nWonder - 1] of TWonderInfo; 1648 1654 Ship: array [0 .. nPl - 1] of TShipInfo; 1649 NatBuilt: array [ 28.. (nImp + 3) div 4 * 4 - 1] of ShortInt;1655 NatBuilt: array [nWonder .. (nImp + 3) div 4 * 4 - 1] of ShortInt; 1650 1656 nBattleHistory: Integer; 1651 1657 BattleHistory: ^TBattleList; // complete list of all my battles in the whole game
Note:
See TracChangeset
for help on using the changeset viewer.