1201 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1201 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1202 end; |
1202 end; |
1203 |
1203 |
1204 if ((GameFlags and gfForts) = 0) then |
1204 if ((GameFlags and gfForts) = 0) then |
1205 begin |
1205 begin |
1206 // TODO: exclude each other or allow both, mines and explosives, on same map? |
1206 if ((GameFlags and gfMines) <> 0) then |
1207 for i:= 0 to Pred(cLandMines) do |
1207 for i:= 0 to Pred(cLandMines) do |
1208 begin |
1208 begin |
1209 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1209 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1210 FindPlace(Gear, false, 0, LAND_WIDTH); |
1210 FindPlace(Gear, false, 0, LAND_WIDTH); |
1211 end; |
1211 end; |
1212 // No game flag for this for now |
|
1213 for i:= 0 to Pred(cExplosives) do |
1212 for i:= 0 to Pred(cExplosives) do |
1214 begin |
1213 begin |
1215 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1214 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1216 FindPlace(Gear, false, 0, LAND_WIDTH); |
1215 FindPlace(Gear, false, 0, LAND_WIDTH); |
1217 end; |
1216 end; |