Changeset 442 for trunk/AI/StdAI/ToolAI.pas
- Timestamp:
- May 18, 2022, 10:43:27 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AI/StdAI/ToolAI.pas
r328 r442 106 106 end; 107 107 108 109 108 const 110 109 // no-formations … … 132 131 mxAdjacent = $00000001; 133 132 134 135 133 var 136 134 nContinent, nOcean, nDistrict: integer; … … 145 143 // total number of prerequisites for each advance 146 144 147 148 145 implementation 149 146 … … 166 163 TurnsAfterLoad: array[0..lxmax * lymax - 1] of shortint; 167 164 168 169 165 procedure ReplaceD(Start, Stop: pinteger; Raider, Twix: integer); 170 166 begin … … 183 179 Result := Start; 184 180 end; 185 186 181 187 182 function TToolAI.CenterOfEmpire: integer; … … 263 258 end; 264 259 265 266 260 //------------------------------------------------------------------------------ 267 261 // City Tiles Processing … … 311 305 end; 312 306 end; 313 314 307 315 308 //------------------------------------------------------------------------------ … … 469 462 Unit_StartJob(uix, TileJob[JobLocOfSettler[uix]]); 470 463 end; 471 end; // JobAssignment_Go 472 464 end; 473 465 474 466 //------------------------------------------------------------------------------ … … 594 586 end; 595 587 end; 596 597 588 598 589 //------------------------------------------------------------------------------ … … 898 889 Result := csForbiddenTile; 899 890 end; 900 end; // CheckStep891 end; 901 892 902 893 (* … … 1020 1011 end; 1021 1012 1022 1023 1013 //------------------------------------------------------------------------------ 1024 1014 // Oversea Transport … … 1108 1098 Pile.Free; 1109 1099 end; 1110 1111 1100 1112 1101 function TToolAI.SeaTransport_MakeGroupPlan( … … 1472 1461 end; 1473 1462 1474 1475 1463 //------------------------------------------------------------------------------ 1476 1464 // Misc … … 1493 1481 end; 1494 1482 end; 1495 1496 1483 1497 1484 //------------------------------------------------------------------------------
Note:
See TracChangeset
for help on using the changeset viewer.