hedgewars/uAIMisc.pas
changeset 3697 d5b30d6373fc
parent 3407 dcc129c4352e
child 3894 9abce5468583
--- a/hedgewars/uAIMisc.pas	Sat Jul 31 10:52:43 2010 +0200
+++ b/hedgewars/uAIMisc.pas	Sat Jul 31 11:24:53 2010 +0200
@@ -76,7 +76,7 @@
 var friendlyfactor: LongInt = 300;
     KnownExplosion: record
                     X, Y, Radius: LongInt
-                    end = (X: 0; Y: 0; Radius: 0); 
+                    end = (X: 0; Y: 0; Radius: 0);
 
 procedure FillTargets;
 var i, t: Longword;
@@ -195,7 +195,7 @@
         MeX:= hwRound(Me^.X);
         MeY:= hwRound(Me^.Y);
         // We are still inside the hog. Skip radius test
-        if ((((x-MeX)*(x-MeX)) + ((y-MeY)*(y-MeY))) < 256) and 
+        if ((((x-MeX)*(x-MeX)) + ((y-MeY)*(y-MeY))) < 256) and
            ((Land[y, x] and $FF00) = 0) then exit(false);
         end;
     exit(TestColl(x, y, r))