hedgewars/uAIMisc.pas
changeset 568 d0690b7aa808
parent 549 4278a80140a8
child 883 07a568ba44e0
equal deleted inserted replaced
567:b6de36975a3c 568:d0690b7aa808
   336    inc(GoInfo.Ticks);
   336    inc(GoInfo.Ticks);
   337    Gear^.dY:= Gear^.dY + cGravity;
   337    Gear^.dY:= Gear^.dY + cGravity;
   338    if Gear^.dY > _0_4 then
   338    if Gear^.dY > _0_4 then
   339       begin
   339       begin
   340       Goinfo.FallPix:= 0;
   340       Goinfo.FallPix:= 0;
   341       HHJump(AltGear, jmpLJump, GoInfo); // try ljump enstead of fall with damage
   341       HHJump(AltGear, jmpLJump, GoInfo); // try ljump instead of fall with damage
   342       exit(Result)
   342       exit(Result)
   343       end;
   343       end;
   344    Gear^.Y:= Gear^.Y + Gear^.dY;
   344    Gear^.Y:= Gear^.Y + Gear^.dY;
   345    if hwRound(Gear^.Y) > pY then inc(GoInfo.FallPix);
   345    if hwRound(Gear^.Y) > pY then inc(GoInfo.FallPix);
   346    if TestCollisionYwithGear(Gear, 1) then
   346    if TestCollisionYwithGear(Gear, 1) then