hedgewars/GSHandlers.inc
branch0.9.18
changeset 7958 c031c3e2eb2a
parent 7874 c8aba48f38dc
child 8061 c08e9c3e0737
--- a/hedgewars/GSHandlers.inc	Wed Nov 07 05:17:07 2012 +0100
+++ b/hedgewars/GSHandlers.inc	Sun Nov 18 23:09:29 2012 +0400
@@ -2456,6 +2456,12 @@
         Gear^.AdvBounce:= 1;
 
     HHGear := Gear^.Hedgehog^.Gear;
+    if HHGear = nil then
+        begin
+        DeleteGear(Gear);
+        exit
+        end;
+
     HHGear^.State := HHGear^.State or gstNoDamage;
     DeleteCI(HHGear);