hedgewars/GSHandlers.inc
changeset 505 fcba7d7aea0d
parent 503 2cfdc4bfc2be
child 506 0889d833d47e
--- a/hedgewars/GSHandlers.inc	Wed May 02 21:37:08 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Fri May 04 19:59:51 2007 +0000
@@ -758,6 +758,7 @@
       if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false);
       if Gear^.Timer = 0 then
          begin
+         DeleteCI(Gear);
          doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
          DeleteGear(Gear)
          end;