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