# HG changeset patch
# User sheepluva
# Date 1272942247 0
# Node ID 27ff4a6375dd50b6da96fda67fa930dcaa62888d
# Parent  310fda7c1dc5681b2767e6c070e2471507f336d9
on portal death: make sure that the linked portal know it has been unlinked

diff -r 310fda7c1dc5 -r 27ff4a6375dd hedgewars/GSHandlers.inc
--- 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;