2017-08-19 04:36:56 +02:00
--Author: MewMew
2019-05-28 05:22:24 +02:00
--[[
! ! ATTENTION ! !
This map is DEPRECATED and is no longer updated .
If you wish to update parts of the scenario , you are free to do so and submit a PR on discord .
Current bugs include :
- starting area can still be under attack
- copper ore never spawns without bugs
- map balance is hard early game and easy afterwards
- some turrets are unpowered
- small ship wrecks are not accessible
- general performance is not very good in MP
] ]
2017-08-19 04:36:56 +02:00
-- Use water only in starting area as map setting!!!
2018-05-23 23:34:47 +02:00
local perlin = require ' map_gen.shared.perlin_noise '
2018-11-26 03:07:03 +02:00
local Token = require ' utils.token '
2019-01-16 22:33:32 +02:00
local RS = require ' map_gen.shared.redmew_surface '
local MGSP = require ' resources.map_gen_settings '
2019-05-28 05:22:24 +02:00
local ScenarioInfo = require ' features.gui.info '
2019-01-16 22:33:32 +02:00
local insert = table.insert
local random = math.random
2017-08-19 04:36:56 +02:00
2018-05-24 16:50:10 +02:00
local wreck_item_pool = {
2018-05-23 23:34:47 +02:00
{ name = ' iron-gear-wheel ' , count = 32 } ,
{ name = ' iron-plate ' , count = 64 } ,
{ name = ' rocket-control-unit ' , count = 1 } ,
{ name = ' rocket-fuel ' , count = 7 } ,
{ name = ' coal ' , count = 8 } ,
{ name = ' rocket-launcher ' , count = 1 } ,
{ name = ' rocket ' , count = 32 } ,
{ name = ' copper-cable ' , count = 128 } ,
{ name = ' land-mine ' , count = 64 } ,
{ name = ' railgun ' , count = 1 } ,
{ name = ' railgun-dart ' , count = 128 } ,
{ name = ' fast-inserter ' , count = 8 } ,
{ name = ' stack-filter-inserter ' , count = 2 } ,
{ name = ' belt-immunity-equipment ' , count = 1 } ,
{ name = ' fusion-reactor-equipment ' , count = 1 } ,
{ name = ' electric-engine-unit ' , count = 8 } ,
{ name = ' exoskeleton-equipment ' , count = 1 } ,
{ name = ' rocket-fuel ' , count = 10 } ,
{ name = ' used-up-uranium-fuel-cell ' , count = 3 } ,
{ name = ' uranium-fuel-cell ' , count = 2 } ,
{ name = ' power-armor ' , count = 1 } ,
{ name = ' modular-armor ' , count = 1 } ,
{ name = ' water-barrel ' , count = 4 } ,
{ name = ' sulfuric-acid-barrel ' , count = 6 } ,
{ name = ' crude-oil-barrel ' , count = 8 } ,
{ name = ' energy-shield-equipment ' , count = 1 } ,
{ name = ' explosive-rocket ' , count = 32 }
}
2017-08-19 04:36:56 +02:00
2019-05-28 05:22:24 +02:00
ScenarioInfo.set_map_name ( ' Borg Planet (Deprecated) ' )
ScenarioInfo.set_map_description ( ' Welcome in a world filled with dangers. \n If you want to stay alive you must stay between the lines. \n Resistance is futile. ' )
ScenarioInfo.set_map_extra_info ( ' Lootable crash parts with items inside. \n Enemy turrets defending some parts of the world. ' )
2019-01-16 22:33:32 +02:00
RS.set_map_gen_settings ( { MGSP.water_none } )
2018-05-24 20:05:32 +02:00
local ship_callback =
Token.register (
function ( entity )
2019-01-16 22:33:32 +02:00
entity.health = random ( entity.health )
2018-05-24 16:50:10 +02:00
2019-01-16 22:33:32 +02:00
entity.insert ( wreck_item_pool [ random ( # wreck_item_pool ) ] )
entity.insert ( wreck_item_pool [ random ( # wreck_item_pool ) ] )
entity.insert ( wreck_item_pool [ random ( # wreck_item_pool ) ] )
2018-05-23 23:34:47 +02:00
end
2018-05-24 20:05:32 +02:00
)
2017-08-19 04:36:56 +02:00
2018-05-24 16:50:10 +02:00
local clear_types = { ' simple-entity ' , ' tree ' }
2018-05-23 23:34:47 +02:00
2018-05-24 16:50:10 +02:00
local function do_clear_entities ( world )
local entities = world.surface . find_entities_filtered ( { area = world.area , type = clear_types } )
for _ , entity in ipairs ( entities ) do
entity.destroy ( )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
end
2018-05-23 23:34:47 +02:00
2018-05-24 20:05:32 +02:00
local medium_health =
Token.register (
function ( e )
2019-01-16 22:33:32 +02:00
e.health = random ( math.floor ( e.health * 0.333 ) , math.floor ( e.health * 0.666 ) )
2018-05-24 20:05:32 +02:00
end
)
local low_health =
Token.register (
function ( e )
2019-01-16 22:33:32 +02:00
e.health = random ( math.floor ( e.health * 0.033 ) , math.floor ( e.health * 0.330 ) )
2018-05-24 20:05:32 +02:00
end
)
local turrent_callback =
Token.register (
function ( e )
2019-01-16 22:33:32 +02:00
if random ( 1 , 3 ) == 1 then
2018-05-24 20:05:32 +02:00
e.insert ( ' piercing-rounds-magazine ' )
else
e.insert ( ' firearm-magazine ' )
end
end
)
2019-01-19 18:34:29 +02:00
return function ( _ , _ , world ) -- luacheck: ignore 561
2018-05-24 16:50:10 +02:00
local entities = { }
2018-05-23 23:34:47 +02:00
2018-05-24 16:50:10 +02:00
local surface = world.surface
if not world.island_resort_cleared then
world.island_resort_cleared = true
do_clear_entities ( world )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
local tile_to_insert = ' sand-1 '
local seed_increment_number = 10000
local seed = surface.map_gen_settings . seed
2018-06-12 17:57:39 +02:00
local noise_borg_defense_1 = perlin.noise ( ( ( world.x + seed ) / 100 ) , ( ( world.y + seed ) / 100 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_borg_defense_2 = perlin.noise ( ( ( world.x + seed ) / 20 ) , ( ( world.y + seed ) / 20 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
local noise_borg_defense = noise_borg_defense_1 + noise_borg_defense_2 * 0.15
2018-06-12 17:57:39 +02:00
local noise_trees_1 = perlin.noise ( ( ( world.x + seed ) / 50 ) , ( ( world.y + seed ) / 50 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_trees_2 = perlin.noise ( ( ( world.x + seed ) / 15 ) , ( ( world.y + seed ) / 15 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
local noise_trees = noise_trees_1 + noise_trees_2 * 0.3
2018-06-12 17:57:39 +02:00
local noise_walls_1 = perlin.noise ( ( ( world.x + seed ) / 150 ) , ( ( world.y + seed ) / 150 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_walls_2 = perlin.noise ( ( ( world.x + seed ) / 50 ) , ( ( world.y + seed ) / 50 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_walls_3 = perlin.noise ( ( ( world.x + seed ) / 20 ) , ( ( world.y + seed ) / 20 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
local noise_walls = noise_walls_1 + noise_walls_2 * 0.1 + noise_walls_3 * 0.03
if noise_borg_defense > 0.66 then
2019-01-16 22:33:32 +02:00
if random ( 25 ) == 1 then
insert ( entities , { name = ' big-ship-wreck-1 ' , force = ' player ' , callback = ship_callback } )
elseif random ( 25 ) == 1 then
insert ( entities , { name = ' big-ship-wreck-2 ' , force = ' player ' , callback = ship_callback } )
elseif random ( 25 ) == 1 then
insert ( entities , { name = ' big-ship-wreck-3 ' , force = ' player ' , callback = ship_callback } )
2018-05-23 23:34:47 +02:00
end
end
2018-05-24 16:50:10 +02:00
if noise_trees > 0.17 then
tile_to_insert = ' sand-3 '
end
if noise_borg_defense > 0.4 then
tile_to_insert = ' concrete '
end
if noise_borg_defense > 0.35 and noise_borg_defense < 0.4 then
tile_to_insert = ' stone-path '
end
if noise_borg_defense > 0.65 and noise_borg_defense < 0.66 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' substation ' , force = ' enemy ' } )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
if noise_borg_defense >= 0.54 and noise_borg_defense < 0.65 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' solar-panel ' , force = ' enemy ' } )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
if noise_borg_defense > 0.53 and noise_borg_defense < 0.54 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' substation ' , force = ' enemy ' } )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
if noise_borg_defense >= 0.51 and noise_borg_defense < 0.53 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' accumulator ' , force = ' enemy ' } )
2018-05-24 16:50:10 +02:00
end
if noise_borg_defense >= 0.50 and noise_borg_defense < 0.51 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' substation ' , force = ' enemy ' } )
2018-05-24 16:50:10 +02:00
end
if noise_borg_defense >= 0.487 and noise_borg_defense < 0.50 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' laser-turret ' , force = ' enemy ' } )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
if noise_borg_defense >= 0.485 and noise_borg_defense < 0.487 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' substation ' , force = ' enemy ' } )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
if noise_borg_defense >= 0.45 and noise_borg_defense < 0.484 then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' stone-wall ' , force = ' enemy ' } )
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
if noise_trees > 0.2 and tile_to_insert == ' sand-3 ' then
2019-01-16 22:33:32 +02:00
if random ( 1 , 15 ) == 1 then
if random ( 1 , 5 ) == 1 then
insert ( entities , { name = ' dry-hairy-tree ' } )
2018-05-24 16:50:10 +02:00
else
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' dry-tree ' } )
2018-05-23 23:34:47 +02:00
end
end
2018-05-24 16:50:10 +02:00
end
2018-05-23 23:34:47 +02:00
2019-01-16 22:33:32 +02:00
if random ( 35000 ) == 1 then
insert ( entities , { name = ' big-ship-wreck-1 ' , force = ' player ' , callback = ship_callback } )
elseif random ( 45000 ) == 1 then
insert ( entities , { name = ' big-ship-wreck-2 ' , force = ' player ' , callback = ship_callback } )
elseif random ( 55000 ) == 1 then
insert ( entities , { name = ' big-ship-wreck-3 ' , force = ' player ' , callback = ship_callback } )
elseif noise_walls > - 0.03 and noise_walls < 0.03 and random ( 40 ) == 1 then
insert ( entities , { name = ' gun-turret ' , force = ' enemy ' , callback = turrent_callback } )
elseif noise_borg_defense > 0.41 and noise_borg_defense < 0.45 and random ( 15 ) == 1 then
insert ( entities , { name = ' gun-turret ' , force = ' enemy ' , callback = turrent_callback } )
elseif random ( 7500 ) == 1 then
insert ( entities , { name = ' pipe-to-ground ' , force = ' enemy ' } )
elseif tile_to_insert ~= ' stone-path ' and tile_to_insert ~= ' concrete ' and random ( 1500 ) == 1 then
insert ( entities , { name = ' dead-dry-hairy-tree ' } )
elseif tile_to_insert ~= ' stone-path ' and tile_to_insert ~= ' concrete ' and random ( 1500 ) == 1 then
insert ( entities , { name = ' dead-grey-trunk ' } )
elseif random ( 25000 ) == 1 then
insert ( entities , { name = ' medium-ship-wreck ' , force = ' player ' , callback = medium_health } )
elseif random ( 15000 ) == 1 then
insert ( entities , { name = ' small-ship-wreck ' , force = ' player ' , callback = medium_health } )
elseif random ( 150000 ) == 1 then
insert ( entities , { name = ' car ' , force = ' player ' , callback = low_health } )
elseif random ( 100000 ) == 1 then
insert ( entities , { name = ' laser-turret ' , force = ' enemy ' , callback = low_health } )
elseif random ( 1000000 ) == 1 then
insert ( entities , { name = ' nuclear-reactor ' , force = ' enemy ' , callback = medium_health } )
2018-05-24 16:50:10 +02:00
end
2018-05-23 23:34:47 +02:00
2019-01-16 22:33:32 +02:00
if noise_trees < - 0.5 and ( tile_to_insert == ' sand-3 ' or tile_to_insert == ' sand-1 ' ) and random ( 15 ) == 1 then
insert ( entities , { name = ' rock-big ' } )
2018-05-24 16:50:10 +02:00
end
2018-05-23 23:34:47 +02:00
2018-06-12 17:57:39 +02:00
local noise_water_1 = perlin.noise ( ( ( world.x + seed ) / 200 ) , ( ( world.y + seed ) / 200 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_water_2 = perlin.noise ( ( ( world.x + seed ) / 100 ) , ( ( world.y + seed ) / 100 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_water_3 = perlin.noise ( ( ( world.x + seed ) / 25 ) , ( ( world.y + seed ) / 25 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_water_4 = perlin.noise ( ( ( world.x + seed ) / 10 ) , ( ( world.y + seed ) / 10 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
local noise_water = noise_water_1 + noise_water_2 + noise_water_3 * 0.07 + noise_water_4 * 0.07
2018-06-12 17:57:39 +02:00
noise_water_1 = perlin.noise ( ( ( world.x + seed ) / 200 ) , ( ( world.y + seed ) / 200 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
noise_water_2 = perlin.noise ( ( ( world.x + seed ) / 100 ) , ( ( world.y + seed ) / 100 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
noise_water_3 = perlin.noise ( ( ( world.x + seed ) / 25 ) , ( ( world.y + seed ) / 25 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
noise_water_4 = perlin.noise ( ( ( world.x + seed ) / 10 ) , ( ( world.y + seed ) / 10 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-05-24 20:05:32 +02:00
noise_water_2 = noise_water_1 + noise_water_2 + noise_water_3 * 0.07 + noise_water_4 * 0.07
2018-05-24 16:50:10 +02:00
2019-01-16 22:33:32 +02:00
if tile_to_insert ~= ' stone-path ' and tile_to_insert ~= ' concrete ' and noise_water > - 0.15 and noise_water < 0.15 and noise_water_2 > 0.5 then
2018-05-24 20:05:32 +02:00
tile_to_insert = ' water-green '
2018-05-24 16:50:10 +02:00
end
2018-05-23 23:34:47 +02:00
2018-05-24 16:50:10 +02:00
if noise_borg_defense <= 0.45 and tile_to_insert ~= ' water-green ' then
local a = - 0.01
local b = 0.01
if noise_walls > a and noise_walls < b then
2019-01-16 22:33:32 +02:00
insert ( entities , { name = ' stone-wall ' , force = ' enemy ' } )
2018-05-24 16:50:10 +02:00
end
if noise_walls >= a and noise_walls <= b then
tile_to_insert = ' concrete '
end
if noise_borg_defense < 0.40 then
if noise_walls > b and noise_walls < b + 0.03 then
tile_to_insert = ' stone-path '
2018-05-23 23:34:47 +02:00
end
2018-05-24 16:50:10 +02:00
if noise_walls > a - 0.03 and noise_walls < a then
tile_to_insert = ' stone-path '
2018-05-23 23:34:47 +02:00
end
end
2018-05-24 16:50:10 +02:00
end
2018-05-23 23:34:47 +02:00
2018-06-12 17:57:39 +02:00
local noise_decoratives_1 = perlin.noise ( ( ( world.x + seed ) / 50 ) , ( ( world.y + seed ) / 50 ) , 0 )
2018-05-24 16:50:10 +02:00
seed = seed + seed_increment_number
2018-06-12 17:57:39 +02:00
local noise_decoratives_2 = perlin.noise ( ( ( world.x + seed ) / 15 ) , ( ( world.y + seed ) / 15 ) , 0 )
2018-05-24 16:50:10 +02:00
local noise_decoratives = noise_decoratives_1 + noise_decoratives_2 * 0.3
2018-05-23 23:34:47 +02:00
2018-05-24 20:05:32 +02:00
local decoratives
2018-05-24 16:50:10 +02:00
if noise_decoratives > 0.3 and noise_decoratives < 0.5 then
2019-01-16 22:33:32 +02:00
if tile_to_insert ~= ' stone-path ' and tile_to_insert ~= ' concrete ' and tile_to_insert ~= ' water-green ' and random ( 10 ) == 1 then
2018-05-24 20:05:32 +02:00
decoratives = { name = ' red-desert-bush ' , amount = 1 }
2018-05-23 23:34:47 +02:00
end
end
2018-05-24 16:50:10 +02:00
2018-05-24 20:05:32 +02:00
return { tile = tile_to_insert , entities = entities , decoratives = decoratives }
2017-08-19 04:36:56 +02:00
end