hedgewars/uTeams.pas
changeset 11471 458d90012c22
parent 11178 7b2b181f84f8
child 11532 bf86c6cb9341
equal deleted inserted replaced
11470:b8c14f26a2fb 11471:458d90012c22
   125         begin
   125         begin
   126         Unplaced:= false;
   126         Unplaced:= false;
   127         if Gear <> nil then
   127         if Gear <> nil then
   128            begin
   128            begin
   129            DeleteCI(Gear);
   129            DeleteCI(Gear);
   130            FindPlace(Gear, false, 0, LAND_WIDTH);
   130            FindPlace(Gear, false, 0, LAND_WIDTH, true);
   131            if Gear <> nil then
   131            if Gear <> nil then
   132                AddCI(Gear)
   132                AddCI(Gear)
   133            end
   133            end
   134         end;
   134         end;
   135 
   135