changeset 11476 | 458d90012c22 |
parent 11182 | 7b2b181f84f8 |
child 11537 | bf86c6cb9341 |
11475:b8c14f26a2fb | 11476: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 |