1218 begin |
1218 begin |
1219 TrainingTargetGear:= AddGear(0, 0, gtTarget, 0, _0, _0, 0); |
1219 TrainingTargetGear:= AddGear(0, 0, gtTarget, 0, _0, _0, 0); |
1220 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1220 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1221 end; |
1221 end; |
1222 |
1222 |
1223 if ((GameFlags and gfForts) = 0) then |
1223 for i:= 0 to Pred(cLandMines) do |
1224 begin |
1224 begin |
1225 for i:= 0 to Pred(cLandMines) do |
1225 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1226 begin |
1226 FindPlace(Gear, false, 0, LAND_WIDTH); |
1227 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1227 end; |
1228 FindPlace(Gear, false, 0, LAND_WIDTH); |
1228 for i:= 0 to Pred(cExplosives) do |
1229 end; |
1229 begin |
1230 for i:= 0 to Pred(cExplosives) do |
1230 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1231 begin |
1231 FindPlace(Gear, false, 0, LAND_WIDTH); |
1232 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
|
1233 FindPlace(Gear, false, 0, LAND_WIDTH); |
|
1234 end; |
|
1235 end; |
1232 end; |
1236 |
1233 |
1237 if (GameFlags and gfLowGravity) <> 0 then |
1234 if (GameFlags and gfLowGravity) <> 0 then |
1238 cGravity:= cMaxWindSpeed; |
1235 cGravity:= cMaxWindSpeed; |
1239 |
1236 |
1478 var i, t, p, j: LongInt; |
1475 var i, t, p, j: LongInt; |
1479 ar: array[0..Pred(cMaxHHs)] of PHedgehog; |
1476 ar: array[0..Pred(cMaxHHs)] of PHedgehog; |
1480 Count: Longword; |
1477 Count: Longword; |
1481 begin |
1478 begin |
1482 if (GameFlags and gfPlaceHog) <> 0 then PlacingHogs:= true; |
1479 if (GameFlags and gfPlaceHog) <> 0 then PlacingHogs:= true; |
1483 if (GameFlags and (gfForts or gfDivideTeams)) <> 0 then |
1480 if (GameFlags and gfDivideTeams) <> 0 then |
1484 begin |
1481 begin |
1485 t:= 0; |
1482 t:= 0; |
1486 TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true); |
1483 TryDo(ClansCount = 2, 'More or less than 2 clans on map in divided teams mode!', true); |
1487 for p:= 0 to 1 do |
1484 for p:= 0 to 1 do |
1488 begin |
1485 begin |