--- a/hedgewars/uAIAmmoTests.pas	Tue Apr 27 21:49:52 2010 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Wed Apr 28 05:58:14 2010 +0000
@@ -642,8 +642,15 @@
   i, failNum: longword;
 begin
   FillBonuses(true, [gtCase]);
-  if bonuses.Count = 0 then
-    TestTeleport := BadTurn
+  if bonuses.Count = 0 then begin
+    if Me^.Health <= 100  then begin
+      ap.AttackPutX := Targ.X;
+      ap.AttackPutY := topY + cHHRadius*2;
+      TestTeleport := Targ.Y - topY;
+    end
+    else
+      TestTeleport := BadTurn;
+  end
   else begin
 	failNum := 0;
     repeat