hedgewars/uAIAmmoTests.pas
changeset 2616 6e2b341dc408
parent 2457 ecf0c7e7995b
child 2630 079ef82eac75
--- a/hedgewars/uAIAmmoTests.pas	Wed Nov 11 19:48:16 2009 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Wed Nov 11 21:54:28 2009 +0000
@@ -120,7 +120,7 @@
       dX:= dX + cWindSpeed;
       dY:= dY + cGravity;
       dec(t)
-    until TestColl(hwRound(x), hwRound(y), 5) or (t <= 0);
+    until TestCollExcludingMe(Me, hwRound(x), hwRound(y), 5) or (t <= 0);
     EX:= hwRound(x);
     EY:= hwRound(y);
     Result:= RateExplosion(Me, EX, EY, 101);
@@ -174,7 +174,7 @@
       y:= y + dY;
       dY:= dY + cGravity;
       dec(t)
-    until TestColl(hwRound(x), hwRound(y), 5) or (t = 0);
+    until TestCollExcludingMe(Me, hwRound(x), hwRound(y), 5) or (t = 0);
     EX:= hwRound(x);
     EY:= hwRound(y);
     if t < 50 then CheckTrace:= RateExplosion(Me, EX, EY, 101)
@@ -228,7 +228,7 @@
 			dY:= dY + cGravity;
 			EX:= hwRound(x);
 			EY:= hwRound(y);
-		until TestColl(EX, EY, 5) or (EY > 1000);
+		until TestCollExcludingMe(Me, EX, EY, 5) or (EY > 1000);
 
 		if (EY < 1000) and not dY.isNegative then
 			begin
@@ -315,7 +315,7 @@
   y:= y + vY;
   rx:= hwRound(x);
   ry:= hwRound(y);
-  if TestColl(rx, ry, 2) then
+  if TestCollExcludingMe(Me, rx, ry, 2) then
      begin
      x:= x + vX * 8;
      y:= y + vY * 8;