hedgewars/uTeams.pas
branchqmlfrontend
changeset 11481 caa1e84c3ac2
parent 11471 458d90012c22
child 11532 bf86c6cb9341
equal deleted inserted replaced
11480:b0c34402038c 11481:caa1e84c3ac2
   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