hedgewars/uAIMisc.pas
changeset 82 2f4f3236cccc
parent 80 3c3dc6a148ca
child 95 1ef5e2c41115
--- a/hedgewars/uAIMisc.pas	Fri Jul 21 20:37:44 2006 +0000
+++ b/hedgewars/uAIMisc.pas	Sun Jul 23 21:22:44 2006 +0000
@@ -269,7 +269,7 @@
                  Gear.dY:= -0.15;
                  Gear.dX:= Sign(Gear.dX) * 0.15;
                  Gear.State:= Gear.State or gstFalling or gstHHJumping
-                 end
+                 end else exit
               end
     end;
     
@@ -334,7 +334,7 @@
    if Gear.dY > 0.40 then
       begin
       Goinfo.FallPix:= 0;
-      HHJump(AltGear, jmpLJump, GoInfo);
+      HHJump(AltGear, jmpLJump, GoInfo); // try ljump enstead of fall with damage
       exit
       end;
    Gear.Y:= Gear.Y + Gear.dY;
@@ -345,7 +345,7 @@
       Gear.State:= Gear.State and not (gstFalling or gstHHJumping);
       Gear.dY:= 0;
       Result:= true;
-      HHJump(AltGear, jmpLJump, GoInfo);
+      HHJump(AltGear, jmpLJump, GoInfo); // try ljump instead of fall
       exit
       end;
    continue