Changeset 531 for trunk/AI/StdAI/AI.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/AI/StdAI/AI.pas (modified) (6 diffs)

trunk/AI/StdAI/AI.pas

@@ -93 +93 @@
   TPersistentData = record
     LastResearchTech, BehaviorFlags, TheologyPartner: Integer;
-    RejectTurn: array[Suggestion, 0..15] of smallint;
+    RejectTurn: array[Suggestion, 0..15] of SmallInt;
     RequestedTechs: array[0..nRequestedTechs - 1] of Integer;
     // ad + p shl 8 + Turn shl 16
@@ -196 +196 @@
     else
       BehaviorFlags := bMale;
-    DebugMessage(1, 'Gender:=' + char(48 + BehaviorFlags and bGender));
+    DebugMessage(1, 'Gender:=' + Char(48 + BehaviorFlags and bGender));
     TheologyPartner := -1;
     FillChar(RejectTurn, SizeOf(RejectTurn), $FF);
-    Fillchar(RequestedTechs, SizeOf(RequestedTechs), $FF);
+    FillChar(RequestedTechs, SizeOf(RequestedTechs), $FF);
   end;
 end;
@@ -324 +324 @@
   mi: TModelInfo;
   Entry: array[0..nAdv - 1] of Boolean;
-  ok: Boolean;
+  Ok: Boolean;
 
   function MarkEntry(ad: Integer): Boolean;
@@ -540 +540 @@
       ((EarliestNeeded < 0) or (Advancedness[ad] < Advancedness[EarliestNeeded])) then
     begin
-      ok := False;
+      Ok := False;
       for iad := 0 to nResearchOrder - 1 do
         if ResearchOrder[Data.BehaviorFlags and bGender, iad] = ad then
         begin
-          ok := True;
+          Ok := True;
           Break;
         end;
-      if not ok then
+      if not Ok then
       begin
         EarliestNeeded := ad;
@@ -1406 +1406 @@
   begin
     Data.BehaviorFlags := Data.BehaviorFlags and not bGender or NewGender;
-    DebugMessage(1, 'Gender:=' + char(48 + NewGender));
+    DebugMessage(1, 'Gender:=' + Char(48 + NewGender));
   end;
 end;
@@ -2427 +2427 @@
             Total := Total + CityResult[cix];
       if Total = 0 then
-        continue; // district does not exist
+        Continue; // district does not exist
 
       Share := 0;