Changeset 442 for trunk/AI

Timestamp:

May 18, 2022, 10:43:27 PM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/AI/StdAI

Files:

• AI.pas (modified) (17 diffs)
• Barbarina.pas (modified) (2 diffs)
• ToolAI.pas (modified) (14 diffs)

trunk/AI/StdAI/AI.pas

@@ -176 +176 @@
   LeaveOutValue: array[0..nAdv - 1] of integer;
 
-
 constructor TAI.Create(Nation: integer);
 begin
@@ -209 +208 @@
   Result := Data.BehaviorFlags and bBarbarina <> 0;
 end;
-
 
 //-------------------------------
@@ -653 +651 @@
       Result := ad;
 end;
-
 
 //-------------------------------
@@ -1145 +1142 @@
         end;
       end;
-end; // ProcessSettlers
-
+end;
 
 //-------------------------------
@@ -1350 +1346 @@
   SetAdvanceValues;
 
-
 {$IFDEF DEBUG}
 (*for p1:=0 to nPl-1 do
@@ -1380 +1375 @@
     end;
 end;
-
 {$ENDIF}
-
 
 procedure TAI.CheckGender;
@@ -1416 +1409 @@
   end;
 end;
-
 
 procedure TAI.SetAdvanceValues;
@@ -1785 +1777 @@
 end;
 
-
 procedure TAI.MoveUnitsHome;
 const
@@ -2055 +2046 @@
             Dec(UnitLack[District[Loc], ModelCat[mix]])
         end;
-end; // MoveUnitsHome
-
+end;
 
 procedure TAI.CheckAttack(uix: integer);
@@ -2176 +2166 @@
     until Exhausted;
   end;
-end; // CheckAttack
-
+end;
 
 procedure TAI.Patrol(uix: integer);
@@ -2282 +2271 @@
     until Exhausted;
   end;
-end; // Patrol
+end;
 
 procedure TAI.AttackAndPatrol;
@@ -2342 +2331 @@
           Patrol(uix);
       end;
-end; // AttackAndPatrol
-
+end;
 
 function TAI.HavePort: boolean;
@@ -2369 +2357 @@
       end;
 end;
-
 
 procedure TAI.SetCityProduction;
@@ -2836 +2823 @@
 
   ChangeHomeCities;
-end; // SetCityProduction
-
+end;
 
 function TAI.ChooseGovernment: integer;
@@ -2855 +2841 @@
     Result := gDespotism;
 end;
-
 
 //-------------------------------
@@ -2927 +2912 @@
     end;
 end;
-
 
 function TAI.WantNegotiation(Nation: integer; NegoTime: TNegoTime): boolean;
@@ -3153 +3137 @@
     end;
   end;
-end; // Negotiation
-
+end;
 
 procedure SetLeaveOutValue;

trunk/AI/StdAI/Barbarina.pas

@@ -833 +833 @@
   if Result then
     Moved[uix] := True;
-end; // ProcessMove
+end;
 
 procedure TBarbarina.AttackAndPatrol;
@@ -1205 +1205 @@
             end
   until not BackToStart;
-end; // AttackAndPatrol
+end;
 
 procedure TBarbarina.Barbarina_SetCityProduction;

trunk/AI/StdAI/ToolAI.pas

@@ -106 +106 @@
   end;
 
-
 const
   // no-formations
@@ -132 +131 @@
   mxAdjacent = $00000001;
 
-
 var
   nContinent, nOcean, nDistrict: integer;
@@ -145 +143 @@
 // total number of prerequisites for each advance
 
-
 implementation
 
@@ -166 +163 @@
   TurnsAfterLoad: array[0..lxmax * lymax - 1] of shortint;
 
-
 procedure ReplaceD(Start, Stop: pinteger; Raider, Twix: integer);
 begin
@@ -183 +179 @@
   Result := Start;
 end;
-
 
 function TToolAI.CenterOfEmpire: integer;
@@ -263 +258 @@
 end;
 
-
 //------------------------------------------------------------------------------
 // City Tiles Processing
@@ -311 +305 @@
       end;
 end;
-
 
 //------------------------------------------------------------------------------
@@ -469 +462 @@
           Unit_StartJob(uix, TileJob[JobLocOfSettler[uix]]);
       end;
-end; // JobAssignment_Go
-
+end;
 
 //------------------------------------------------------------------------------
@@ -594 +586 @@
   end;
 end;
-
 
 //------------------------------------------------------------------------------
@@ -898 +889 @@
       Result := csForbiddenTile;
   end;
-end; // CheckStep
+end;
 
 (*
@@ -1020 +1011 @@
 end;
 
-
 //------------------------------------------------------------------------------
 // Oversea Transport
@@ -1108 +1098 @@
   Pile.Free;
 end;
-
 
 function TToolAI.SeaTransport_MakeGroupPlan(
@@ -1472 +1461 @@
 end;
 
-
 //------------------------------------------------------------------------------
 // Misc
@@ -1493 +1481 @@
       end;
 end;
-
 
 //------------------------------------------------------------------------------