Compatibility
authorunc0rr
Mon, 12 Mar 2012 16:08:40 +0400
changeset 6776 7a05f48bfa43
parent 6775 22b5fb7217db
child 6777 fb71556205f4
Compatibility
hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Mon Mar 12 01:00:17 2012 -0400
+++ b/hedgewars/uAIMisc.pas	Mon Mar 12 16:08:40 2012 +0400
@@ -258,8 +258,8 @@
     rCorner: real;
 begin
     skipLandCheck:= true;
-    if x - eX < 0 then dX*=-1;
-    if y - eY < 0 then dY*=-1;
+    if x - eX < 0 then dX:= -dX;
+    if y - eY < 0 then dY:= -dY;
     // ok. attempt approximate search for an unbroken trajectory into water.  if it continues far enough, assume out of map
     rCorner:= r * 0.75;
     while true do
@@ -385,8 +385,8 @@
 begin
 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
 rate:= 0;
-gdX*=0.01;
-gdY*=0.01;
+gdX:= gdX * 0.01;
+gdY:= gdX * 0.01;
 // add our virtual position
 with Targets.ar[Targets.Count] do
     begin