Changeset 60 for trunk/Protocol.pas
- Timestamp:
- Jan 13, 2017, 6:51:27 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Protocol.pas
r59 r60 1196 1196 mcLine = 26; 1197 1197 mcFirstNonCap = mcNav; 1198 AutoFeature: 1199 Set of mcFirstNonCap .. nFeature - 1 = [mcNav, mcSE, mcNP, mcJet,mcAcademy];1198 AutoFeature: set of mcFirstNonCap .. nFeature - 1 = [mcNav, mcSE, mcNP, mcJet, 1199 mcAcademy]; 1200 1200 // unit class advances, automatically applied if available 1201 1201 1202 Feature: 1203 array [0 .. nFeature - 1] of { unit model features } 1202 Feature: array [0 .. nFeature - 1] of { unit model features } 1204 1203 record Domains, Preq, Weight, Cost: integer; 1205 1204 end … … 1232 1231 (Domains: 7; Preq: adMassProduction; Weight: 0; Cost: 0)); { mcLine } 1233 1232 1234 WeightPreq7: 1235 array [0 .. nDomains - 1] of integer = (adHorsebackRiding, adSeafaring, 1233 WeightPreq7: array [0 .. nDomains - 1] of integer = (adHorsebackRiding, adSeafaring, 1236 1234 adAdvancedFlight); 1237 WeightPreq10: 1238 array [0 .. nDomains - 1] of integer = (adAutomobile, adSteel, preNA); 1235 WeightPreq10: array [0 .. nDomains - 1] of integer = (adAutomobile, adSteel, preNA); 1239 1236 1240 1237 INFIN = 999999; … … 1333 1330 Exp, { micro experience, the level is Exp div ExpCost } 1334 1331 Load: Byte; { number of transported units } 1335 Flags: word end; 1336 1337 TCityInfo = packed record Loc, Status, // free for AI use 1332 Flags: word; 1333 end; 1334 1335 TCityInfo = packed record 1336 Loc, Status, // free for AI use 1338 1337 SavedStatus: LongInt; // for server internal use only 1339 1338 Owner, // last known owner, even if not alive anymore! … … 1398 1397 1399 1398 TTileInfo = record 1400 Food, Prod, Trade, ExplCity: integer end; 1401 TCityReport = record HypoTiles, HypoTax, HypoLux, Working, Happy, FoodRep, 1399 Food, Prod, Trade, ExplCity: integer; 1400 end; 1401 1402 TCityReport = record 1403 HypoTiles, HypoTax, HypoLux, Working, Happy, FoodRep, 1402 1404 ProdRep, Trade, PollRep, Corruption, Tax, Lux, Science, Support, Eaten, 1403 1405 ProdCost, Storage, Deployed: integer; … … 1432 1434 TGetCityData = record 1433 1435 Owner: integer; 1434 c: TCity end; 1435 TCityAreaInfo = record Available: array [0 .. 26] of integer; 1436 c: TCity; 1437 end; 1438 1439 TCityAreaInfo = record 1440 Available: array [0 .. 26] of integer; 1436 1441 end; 1437 1442 … … 1461 1466 Ship1Change, Ship2Change: array [0 .. nShipPart - 1] of integer; 1462 1467 end; 1463 TOffer = record nDeliver, nCost: integer; 1468 TOffer = record 1469 nDeliver, nCost: integer; 1464 1470 Price: array [0 .. 11] of Cardinal; 1465 1471 end; … … 1627 1633 1628 1634 procedure MakeUnitInfo(p: integer; const u: TUn; var ui: TUnitInfo); 1629 1630 1631 1635 procedure MakeModelInfo(p, mix: integer; const m: TModel; var mi: TModelInfo); 1636 function IsSameModel(const mi1, mi2: TModelInfo): boolean; 1637 function SpecialTile(Loc, TerrType, lx: integer): integer; 1632 1638 1633 1639 implementation
Note:
See TracChangeset
for help on using the changeset viewer.