changeset 2762 | 2fbc8d35eb52 |
parent 2745 | 11fce231f24a |
child 2769 | 82bfcc006afb |
--- a/hedgewars/HHHandlers.inc Fri Feb 05 13:47:25 2010 +0000 +++ b/hedgewars/HHHandlers.inc Mon Feb 08 03:03:18 2010 +0000 @@ -480,6 +480,13 @@ procedure doStepHedgehogMoving(Gear: PGear); var isFalling: boolean; begin +if PHedgehog(Gear^.Hedgehog)^.Unplaced then + begin + Gear^.dY:= _0; + Gear^.dX:= _0; + Gear^.State:= Gear^.State and not gstMoving; + exit + end; isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1); if isFalling then begin