equal
deleted
inserted
replaced
173 if (PreviousTeam <> nil) and PlacingHogs and Unplaced then |
173 if (PreviousTeam <> nil) and PlacingHogs and Unplaced then |
174 begin |
174 begin |
175 Unplaced:= false; |
175 Unplaced:= false; |
176 if Gear <> nil then |
176 if Gear <> nil then |
177 begin |
177 begin |
178 Gear^.CollisionIndex:= -1; |
178 DeleteCI(Gear); |
179 FindPlace(Gear, false, 0, LAND_WIDTH); |
179 FindPlace(Gear, false, 0, LAND_WIDTH); |
180 if Gear <> nil then AddGearCI(Gear) |
180 if Gear <> nil then AddGearCI(Gear) |
181 end |
181 end |
182 end; |
182 end; |
183 |
183 |