--- a/hedgewars/GSHandlers.inc	Tue May 13 20:00:48 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Wed May 14 14:13:18 2008 +0000
@@ -1135,7 +1135,6 @@
 
 procedure doStepParachute(Gear: PGear);
 var HHGear: PGear;
-    Timer: Longword;
 begin
 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
 
@@ -1144,7 +1143,7 @@
 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
 
-HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked);
+HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked or gstMoving);
 HHGear^.Message:= HHGear^.Message and not gm_Attack;
 
 Gear^.doStep:= @doStepParachuteWork;