Fix crash in kamikaze 0.9.18
authorunc0rr
Sun, 18 Nov 2012 23:09:29 +0400
branch0.9.18
changeset 7958 c031c3e2eb2a
parent 7954 a5f0a6d46c52
child 7962 713d9eff2ce3
child 8061 c08e9c3e0737
Fix crash in kamikaze
hedgewars/GSHandlers.inc
--- 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);