# HG changeset patch
# User nemo
# Date 1265606279 0
# Node ID f21d3ca74ef200df3fb41e9b07cdaf06eb4d59e3
# Parent  2fbc8d35eb52625a1b45bf7db9e4b4f9bd954505
Do CI correctly.  Still need to allow for mode in case of no teleports in ammo

diff -r 2fbc8d35eb52 -r f21d3ca74ef2 hedgewars/uTeams.pas
--- 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