Changeset 522 for trunk/AI/StdAI/Barbarina.pas

Timestamp:

Jan 7, 2024, 10:24:51 PM (4 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Added: High DPI aware SetWindowPos function.

File:

• trunk/AI/StdAI/Barbarina.pas (modified) (8 diffs)

trunk/AI/StdAI/Barbarina.pas

@@ -762 +762 @@
           begin
             Inc(BestCount);
-            if random(BestCount) = 0 then
+            if Random(BestCount) = 0 then
             begin
               PatrolScore := TestScore;
@@ -888 +888 @@
   var
     I, F, uix, Loc1, A, B: Integer;
-    ready, go: Boolean;
+    Ready, Go: Boolean;
     TransportPlan: TGroupTransportPlan;
   begin
-    go := False;
+    Go := False;
     for F := 0 to maxCOD - 1 do
       if (F < nContinent) and (ContinentPresence[F] and not
         (1 shl Me or PresenceUnknown) <> 0) then
-        go := True; // any enemy island known?
-    if not go then
+        Go := True; // any enemy island known?
+    if not Go then
       Exit;
 
     SeaTransport_BeginInitialize;
-    go := False;
+    Go := False;
     for uix := 0 to RO.nUn - 1 do
       if not Moved[uix] then
@@ -915 +915 @@
             end;
           end;
-    if go then
+    if Go then
     begin
-      go := False;
+      Go := False;
       for uix := 0 to RO.nUn - 1 do
         if not Moved[uix] then
@@ -928 +928 @@
             end;
     end;
-    if go then
+    if Go then
       for Loc1 := 0 to MapSize - 1 do
         if Map[Loc1] and fTerrain >= fGrass then
@@ -941 +941 @@
     begin
       Moved[TransportPlan.uixTransport] := True;
-      ready := MyUnit[TransportPlan.uixTransport].Loc = TransportPlan.LoadLoc;
-      if not ready then
+      Ready := MyUnit[TransportPlan.uixTransport].Loc = TransportPlan.LoadLoc;
+      if not Ready then
       begin
         Unit_MoveEx(TransportPlan.uixTransport, TransportPlan.LoadLoc);
-        ready := MyUnit[TransportPlan.uixTransport].Loc = TransportPlan.LoadLoc;
-      end;
-      if ready then
+        Ready := MyUnit[TransportPlan.uixTransport].Loc = TransportPlan.LoadLoc;
+      end;
+      if Ready then
         for I := 0 to TransportPlan.nLoad - 1 do
         begin
           Loc_to_ab(TransportPlan.LoadLoc,
             MyUnit[TransportPlan.uixLoad[I]].Loc, A, B);
-          ready := ready and (abs(A) <= 1) and (abs(B) <= 1);
-        end;
-      if ready then
+          Ready := Ready and (Abs(A) <= 1) and (Abs(B) <= 1);
+        end;
+      if Ready then
       begin
         for I := 0 to TransportPlan.nLoad - 1 do
@@ -1646 +1646 @@
       begin
         Inc(nPreq);
-        if random(nPreq) = 0 then
+        if Random(nPreq) = 0 then
           ChosenPreq := ad;
       end;
@@ -1736 +1736 @@
   I := 0;
   while (I < nResearchOrder) and (not NeedSeaUnits and (ResearchOrder[I] < 0) or
-      IsResearched(abs(ResearchOrder[I]))) do
+      IsResearched(Abs(ResearchOrder[I]))) do
     Inc(I);
   if I >= nResearchOrder then // list done, continue with future tech
   begin
-    if random(2) = 1 then
+    if Random(2) = 1 then
       Result := futArtificialIntelligence
     else
@@ -1750 +1750 @@
     nPreq := 0;
     ChosenPreq := -1;
-    ChoosePreq(abs(ResearchOrder[I]));
+    ChoosePreq(Abs(ResearchOrder[I]));
     Assert(nPreq > 0);
     Result := ChosenPreq;