hedgewars/GSHandlers.inc
changeset 3417 27ff4a6375dd
parent 3416 310fda7c1dc5
child 3419 b66a1b597f88
--- a/hedgewars/GSHandlers.inc	Tue May 04 02:46:23 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Tue May 04 03:04:07 2010 +0000
@@ -3047,6 +3047,7 @@
 begin
     if (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0 then
         begin
+        if Gear^.IntersectGear <> nil then Gear^.IntersectGear^.IntersectGear:= nil;
         DeleteGear(Gear);
         EXIT;
         end;