Changeset 522 for trunk/AI/StdAI/AI.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/AI.pas (modified) (5 diffs)

trunk/AI/StdAI/AI.pas

@@ -624 +624 @@
         begin
           Inc(I);
-          if random(I) = 0 then
+          if Random(I) = 0 then
             Result := ad;
         end;
@@ -1188 +1188 @@
   begin
     if (Data.LastResearchTech = adHorsebackRiding) and (RO.ResearchTech < 0) and
-      (random(6) = 0) and (HavePort or (ContinentPresence[0] and not
+      (Random(6) = 0) and (HavePort or (ContinentPresence[0] and not
       (1 shl Me or PresenceUnknown) <> 0)) then
     begin
@@ -2109 +2109 @@
                 begin
                   Inc(BestCount);
-                  if random(BestCount) = 0 then
+                  if Random(BestCount) = 0 then
                   begin
                     AttackScore := TestScore;
@@ -2250 +2250 @@
           begin
             Inc(BestCount);
-            if random(BestCount) = 0 then
+            if Random(BestCount) = 0 then
             begin
               PatrolScore := TestScore;
@@ -2406 +2406 @@
       begin
         Inc(Count);
-        if random(Count) = 0 then
+        if Random(Count) = 0 then
           Result := mix;
       end;