equal
deleted
inserted
replaced
364 end; |
364 end; |
365 Gear^.Y:= Gear^.Y + Gear^.dY; |
365 Gear^.Y:= Gear^.Y + Gear^.dY; |
366 if hwRound(Gear^.Y) > pY then inc(GoInfo.FallPix); |
366 if hwRound(Gear^.Y) > pY then inc(GoInfo.FallPix); |
367 if TestCollisionYwithGear(Gear, 1) then |
367 if TestCollisionYwithGear(Gear, 1) then |
368 begin |
368 begin |
369 inc(GoInfo.Ticks, 300); |
369 inc(GoInfo.Ticks, 410); |
370 Gear^.State:= Gear^.State and not (gstMoving or gstHHJumping); |
370 Gear^.State:= Gear^.State and not (gstMoving or gstHHJumping); |
371 Gear^.dY:= _0; |
371 Gear^.dY:= _0; |
372 Result:= true; |
372 Result:= true; |
373 HHJump(AltGear, jmpLJump, GoInfo); // try ljump instead of fall |
373 HHJump(AltGear, jmpLJump, GoInfo); // try ljump instead of fall |
374 exit(Result) |
374 exit(Result) |