hedgewars/GSHandlers.inc
changeset 8061 c08e9c3e0737
parent 8030 165aeaaaf445
parent 7958 c031c3e2eb2a
child 8096 453917e94e55
child 8204 9a6030d96273
--- a/hedgewars/GSHandlers.inc	Sun Nov 18 18:58:46 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Sun Nov 18 23:10:26 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);