hedgewars/HHHandlers.inc
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