Changeset 522 for trunk/LocalPlayer/ClientTools.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/LocalPlayer/ClientTools.pas (modified) (2 diffs)

trunk/LocalPlayer/ClientTools.pas

@@ -100 +100 @@
   Inc(Loc0, G.lx * 1024);
   Inc(Loc1, G.lx * 1024);
-  dx := abs(((Loc1 mod G.lx * 2 + Loc1 div G.lx and 1) -
+  dx := Abs(((Loc1 mod G.lx * 2 + Loc1 div G.lx and 1) -
     (Loc0 mod G.lx * 2 + Loc0 div G.lx and 1) + 3 * G.lx) mod (2 * G.lx) - G.lx);
-  dy := abs(Loc1 div G.lx - Loc0 div G.lx);
-  Result := dx + dy + abs(dx - dy) shr 1;
+  dy := Abs(Loc1 div G.lx - Loc0 div G.lx);
+  Result := dx + dy + Abs(dx - dy) shr 1;
 end;
 
@@ -371 +371 @@
       for dx := -2 to 2 do
         for dy := -2 to 2 do
-          if abs(dx) + abs(dy) = 2 then
+          if Abs(dx) + Abs(dy) = 2 then
             if Server(sMoveUnit - sExecute + dx and 7 shl 4 + dy and
               7 shl 7, Me, uix, nil^) >= rExecuted then