hedgewars/uAIAmmoTests.pas
changeset 108 08f1fe6f21f8
parent 107 b08ce0293a51
child 136 89970b70b076
--- a/hedgewars/uAIAmmoTests.pas	Fri Aug 11 16:17:50 2006 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Fri Aug 11 20:00:29 2006 +0000
@@ -244,8 +244,8 @@
    end;
 Time:= 0;
 Power:= 1;
-Angle:= DxDy2AttackAngle(Sign(Targ.X - Me.X), 1);
-Result:= RateShove(Me, round(Me.X) + 10 * Sign(Targ.X - Me.X), round(Me.Y), 15, 30)
+Angle:= DxDy2AttackAngle(hwSign(Targ.X - Me.X), 1);
+Result:= RateShove(Me, round(Me.X) + 10 * hwSign(Targ.X - Me.X), round(Me.Y), 15, 30)
 end;
 
 function TestFirePunch(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
@@ -259,10 +259,10 @@
    end;
 Time:= 0;
 Power:= 1;
-Angle:= DxDy2AttackAngle(Sign(Targ.X - Me.X), 1);
+Angle:= DxDy2AttackAngle(hwSign(Targ.X - Me.X), 1);
 Result:= 0;
 for i:= 0 to 4 do
-    Result:= Result + RateShove(Me, round(Me.X) + 10 * Sign(Targ.X - Me.X), round(Me.Y) - 20 * i - 5, 10, 30)
+    Result:= Result + RateShove(Me, round(Me.X) + 10 * hwSign(Targ.X - Me.X), round(Me.Y) - 20 * i - 5, 10, 30)
 end;
 
 end.