hedgewars/uTeams.pas
changeset 2763 f21d3ca74ef2
parent 2762 2fbc8d35eb52
child 2768 b7e0b0751179
--- a/hedgewars/uTeams.pas	Mon Feb 08 03:03:18 2010 +0000
+++ b/hedgewars/uTeams.pas	Mon Feb 08 05:17:59 2010 +0000
@@ -175,7 +175,7 @@
         Unplaced:= false;
 	    if Gear <> nil then 
            begin
-           Gear^.CollisionIndex:= -1;
+           DeleteCI(Gear);
            FindPlace(Gear, false, 0, LAND_WIDTH);
            if Gear <> nil then AddGearCI(Gear)
            end