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;