# HG changeset patch
# User nemo
# Date 1385151808 18000
# Node ID 7d146637cb8132d49f8cd67e550c064549b99a8b
# Parent  5178d22635216190b4c8fc9ba3c9ddd773d6303a
gear deletion called inappropriately.

diff -r 5178d2263521 -r 7d146637cb81 hedgewars/uCollisions.pas
--- a/hedgewars/uCollisions.pas	Tue Nov 19 22:15:40 2013 -0500
+++ b/hedgewars/uCollisions.pas	Fri Nov 22 15:23:28 2013 -0500
@@ -95,7 +95,7 @@
     while (t <> nil) and (t^.Kind <> gtMine) do 
         t:= t^.NextGear;
     if (t <> nil) then
-        DeleteGear(t)
+        t^.State:= t^.State or gmDelete
     end;
 end;