Ignore:
Timestamp:
May 18, 2022, 10:43:27 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/AI/StdAI/ToolAI.pas

    r328 r442  
    106106  end;
    107107
    108 
    109108const
    110109  // no-formations
     
    132131  mxAdjacent = $00000001;
    133132
    134 
    135133var
    136134  nContinent, nOcean, nDistrict: integer;
     
    145143// total number of prerequisites for each advance
    146144
    147 
    148145implementation
    149146
     
    166163  TurnsAfterLoad: array[0..lxmax * lymax - 1] of shortint;
    167164
    168 
    169165procedure ReplaceD(Start, Stop: pinteger; Raider, Twix: integer);
    170166begin
     
    183179  Result := Start;
    184180end;
    185 
    186181
    187182function TToolAI.CenterOfEmpire: integer;
     
    263258end;
    264259
    265 
    266260//------------------------------------------------------------------------------
    267261// City Tiles Processing
     
    311305      end;
    312306end;
    313 
    314307
    315308//------------------------------------------------------------------------------
     
    469462          Unit_StartJob(uix, TileJob[JobLocOfSettler[uix]]);
    470463      end;
    471 end; // JobAssignment_Go
    472 
     464end;
    473465
    474466//------------------------------------------------------------------------------
     
    594586  end;
    595587end;
    596 
    597588
    598589//------------------------------------------------------------------------------
     
    898889      Result := csForbiddenTile;
    899890  end;
    900 end; // CheckStep
     891end;
    901892
    902893(*
     
    10201011end;
    10211012
    1022 
    10231013//------------------------------------------------------------------------------
    10241014// Oversea Transport
     
    11081098  Pile.Free;
    11091099end;
    1110 
    11111100
    11121101function TToolAI.SeaTransport_MakeGroupPlan(
     
    14721461end;
    14731462
    1474 
    14751463//------------------------------------------------------------------------------
    14761464// Misc
     
    14931481      end;
    14941482end;
    1495 
    14961483
    14971484//------------------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.