Changeset 486 for trunk/AI/StdAI

Timestamp:

Dec 8, 2023, 8:25:31 PM (12 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/AI/StdAI

Files:

• AI.pas (modified) (1 diff)
• Barbarina.pas (modified) (1 diff)
• Pile.pas (modified) (5 diffs)

trunk/AI/StdAI/AI.pas

@@ -2566 +2566 @@
       if (Loc >= 0) and (Flags and chCaptured = 0) and (District[Loc] >= 0) then
       begin
-        if size < 4 then
+        if Size < 4 then
           City_OptimizeTiles(cix, rwMaxGrowth)
         else

trunk/AI/StdAI/Barbarina.pas

@@ -1431 +1431 @@
             (iix = imShipComp) or (iix = imShipPow) or (iix = imShipHab) then
             City_OptimizeTiles(cix, rwMaxProd)
-          else if size < 8 then
+          else if Size < 8 then
             City_OptimizeTiles(cix, rwMaxGrowth)
           else

trunk/AI/StdAI/Pile.pas

@@ -43 +43 @@
   if (N <> 0) or (Size > CurrentSize) then
   begin
-    FillChar(Ix, Size * sizeOf(Integer), 255);
+    FillChar(Ix, Size * SizeOf(Integer), 255);
     N := 0;
   end;
   CurrentSize := Size;
-        {$IFDEF DEBUG}
+{$IFDEF DEBUG}
   InUse := True;
 {$ENDIF}
@@ -54 +54 @@
 procedure Free;
 begin
-        {$IFDEF DEBUG}
+{$IFDEF DEBUG}
   Assert(InUse);
   InUse := False;
@@ -64 +64 @@
   if N <> 0 then
   begin
-    FillChar(Ix, CurrentSize * sizeOf(Integer), 255);
+    FillChar(Ix, CurrentSize * SizeOf(Integer), 255);
     N := 0;
   end;
 end;
 
-//Parent(i) = (i-1)/2.
-function Put(Item, Value: Integer): Boolean; //O(lg(n))
+// Parent(i) = (i-1)/2.
+function Put(Item, Value: Integer): Boolean; // O(lg(n))
 var
   I, J: Integer;
@@ -92 +92 @@
   while I > 0 do
   begin
-    J := (I - 1) shr 1;  //Parent(i) = (i-1)/2
+    J := (I - 1) shr 1;  // Parent(i) = (i-1)/2
     if Value >= bh[J].Value then
       Break;
@@ -99 +99 @@
     I := J;
   end;
-  //  Insert the new Item at the insertion point found.
+  // Insert the new Item at the insertion point found.
   bh[I].Value := Value;
   bh[I].Item := Item;