equal
deleted
inserted
replaced
454 end |
454 end |
455 else begin |
455 else begin |
456 Gear^.State:= Gear^.State and not gstMoving; |
456 Gear^.State:= Gear^.State and not gstMoving; |
457 SetLittle(Gear^.dX) |
457 SetLittle(Gear^.dX) |
458 end |
458 end |
459 else if hwAbs(Gear^.dX) > cLittle then Gear^.dX:= -Gear^.Elasticity * Gear^.dX |
459 else if (hwAbs(Gear^.dX) > cLittle) |
460 else SetLittle(Gear^.dX); |
460 and ((Gear^.State and gstHHJumping) = 0) |
|
461 then Gear^.dX:= -Gear^.Elasticity * Gear^.dX |
|
462 else SetLittle(Gear^.dX); |
461 |
463 |
462 if (not isFalling) and |
464 if (not isFalling) and |
463 (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then |
465 (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then |
464 begin |
466 begin |
465 Gear^.State:= Gear^.State and not gstMoving; |
467 Gear^.State:= Gear^.State and not gstMoving; |