equal
deleted
inserted
replaced
643 if (Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, -1) <> 0) then |
643 if (Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, -1) <> 0) then |
644 Gear^.dY:= _0; |
644 Gear^.dY:= _0; |
645 Gear^.Y:= Gear^.Y + Gear^.dY; |
645 Gear^.Y:= Gear^.Y + Gear^.dY; |
646 if (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) <> 0) then |
646 if (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) <> 0) then |
647 begin |
647 begin |
648 Gear^.State:= Gear^.State and not (gstMoving or gstHHJumping); |
648 Gear^.State:= Gear^.State and (not (gstMoving or gstHHJumping)); |
649 Gear^.dY:= _0; |
649 Gear^.dY:= _0; |
650 case JumpType of |
650 case JumpType of |
651 jmpHJump: |
651 jmpHJump: |
652 if bY - hwRound(Gear^.Y) > 5 then |
652 if bY - hwRound(Gear^.Y) > 5 then |
653 begin |
653 begin |
707 if hwRound(Gear^.Y) > pY then |
707 if hwRound(Gear^.Y) > pY then |
708 inc(GoInfo.FallPix); |
708 inc(GoInfo.FallPix); |
709 if TestCollisionYwithGear(Gear, 1) <> 0 then |
709 if TestCollisionYwithGear(Gear, 1) <> 0 then |
710 begin |
710 begin |
711 inc(GoInfo.Ticks, 410); |
711 inc(GoInfo.Ticks, 410); |
712 Gear^.State:= Gear^.State and not (gstMoving or gstHHJumping); |
712 Gear^.State:= Gear^.State and (not (gstMoving or gstHHJumping)); |
713 Gear^.dY:= _0; |
713 Gear^.dY:= _0; |
714 // try ljump instead of fall |
714 // try ljump instead of fall |
715 HHJump(AltGear, jmpLJump, GoInfo); |
715 HHJump(AltGear, jmpLJump, GoInfo); |
716 exit(true) |
716 exit(true) |
717 end; |
717 end; |