hedgewars/GSHandlers.inc
changeset 980 20128e98988b
parent 979 edb8f208c1d9
child 984 dd5f16f69926
--- a/hedgewars/GSHandlers.inc	Mon Jun 09 14:57:54 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Jun 09 15:02:49 2008 +0000
@@ -986,7 +986,10 @@
 begin
 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
 HHGear^.State:= HHGear^.State or gstNoDamage;
+DeleteCI(HHGear);
+
 AmmoShove(Gear, 30, 115);
+
 HHGear^.State:= HHGear^.State and not gstNoDamage;
 Gear^.Timer:= 250;
 Gear^.doStep:= @doStepIdle
@@ -999,6 +1002,7 @@
 begin
 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
 HHGear^.State:= HHGear^.State or gstNoDamage;
+DeleteCI(HHGear);
 
 for i:= 0 to 3 do
 	begin