equal
deleted
inserted
replaced
478 procedure doStepHedgehog(Gear: PGear); forward; |
478 procedure doStepHedgehog(Gear: PGear); forward; |
479 //////////////////////////////////////////////////////////////////////////////// |
479 //////////////////////////////////////////////////////////////////////////////// |
480 procedure doStepHedgehogMoving(Gear: PGear); |
480 procedure doStepHedgehogMoving(Gear: PGear); |
481 var isFalling: boolean; |
481 var isFalling: boolean; |
482 begin |
482 begin |
|
483 if PHedgehog(Gear^.Hedgehog)^.Unplaced then |
|
484 begin |
|
485 Gear^.dY:= _0; |
|
486 Gear^.dX:= _0; |
|
487 Gear^.State:= Gear^.State and not gstMoving; |
|
488 exit |
|
489 end; |
483 isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1); |
490 isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1); |
484 if isFalling then |
491 if isFalling then |
485 begin |
492 begin |
486 if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then Gear^.dY:= _0; |
493 if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then Gear^.dY:= _0; |
487 Gear^.State:= Gear^.State or gstMoving; |
494 Gear^.State:= Gear^.State or gstMoving; |