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

trunk/AI/StdAI/CustomAI.pas

@@ -246 +246 @@
 procedure ab_to_V8(A, B: Integer; var V8: Integer);
 begin
-  Assert((abs(A) <= 1) and (abs(B) <= 1) and ((A <> 0) or (B <> 0)));
+  Assert((Abs(A) <= 1) and (Abs(B) <= 1) and ((A <> 0) or (B <> 0)));
   V8 := ab_v8[2 * B + B + A];
 end;
@@ -373 +373 @@
 begin
   Loc_to_ab(Loc0, Loc1, A, B);
-  dx := abs(A - B);
-  dy := abs(A + B);
-  Result := dx + dy + abs(dx - dy) shr 1;
-end;
-
+  dx := Abs(A - B);
+  dy := Abs(A + B);
+  Result := dx + dy + Abs(dx - dy) shr 1;
+end;
 
 procedure Init(NewGameData: TNewGameData);
@@ -392 +391 @@
 {$ENDIF}
 end;
-
 
 constructor TCustomAI.Create(Nation: Integer);
@@ -410 +408 @@
   Server(sSetDebugMap, Me, 0, nodata^);
 end;
-
 
 procedure TCustomAI.Process(Command: Integer; var Data);
@@ -495 +492 @@
             begin
               Inc(Count);
-              if random(Count) = 0 then
+              if Random(Count) = 0 then
                 NewResearch := ad;
             end;
@@ -623 +620 @@
       begin
         Inc(Count);
-        if random(Count) = 0 then
+        if Random(Count) = 0 then
           Steal := ad;
       end;
@@ -1109 +1106 @@
 end;
 
-
 // negotiation
 function TCustomAI.Nego_CheckMyAction: Integer;
@@ -1122 +1118 @@
 end;
 
-
 initialization
   nodata := Pointer(0);