hedgewars/uAIMisc.pas
changeset 6785 a8aa5984185f
parent 6783 8d9160b85bdb
child 6888 32a54322d262
--- a/hedgewars/uAIMisc.pas	Wed Mar 14 11:07:22 2012 +0400
+++ b/hedgewars/uAIMisc.pas	Wed Mar 14 21:12:04 2012 -0400
@@ -358,8 +358,7 @@
             else
                 if Score > 0 then
                     inc(rate, dmg+fallDmg)
-            else
-                dec(rate, (dmg+fallDmg) * friendlyfactor div 100)
+                else dec(rate, (dmg+fallDmg) * friendlyfactor div 100)
             end;
         end;
 RateExplosion:= rate * 1024;
@@ -475,7 +474,7 @@
         begin
          // hammer hit radius is 8, shift is 10
         if abs(Point.x - x) + abs(Point.y - y) < 18 then
-        r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y)));
+            r:= trunc(sqrt(sqr(Point.x - x)+sqr(Point.y - y)));
 
         if r <= 18 then
             if Score > 0 then