mirror of
https://github.com/Refactorio/RedMew.git
synced 2024-12-14 10:13:13 +02:00
337 lines
14 KiB
Lua
337 lines
14 KiB
Lua
--Author: MewMew
|
|
require "map_gen.shared.perlin_noise"
|
|
local Task = require "utils.Task"
|
|
|
|
local radius = 129
|
|
local radsquare = radius*radius
|
|
|
|
local function do_clear_entites(data)
|
|
local entities = data.surface.find_entities(data.area)
|
|
for _, entity in pairs(entities) do
|
|
if entity.type == "simple-entity" or entity.type == "resource" or entity.type == "tree" then
|
|
entity.destroy()
|
|
end
|
|
end
|
|
end
|
|
|
|
local function do_column(column, data)
|
|
local area = data.area
|
|
local surface = data.surface
|
|
local pos_x = area.left_top.x + column
|
|
|
|
for pos_y = area.left_top.y, area.left_top.y + 31 do
|
|
local seed = surface.map_gen_settings.seed
|
|
local seed_increment = 10000
|
|
|
|
seed = seed + seed_increment
|
|
local noise_island_starting_1 = perlin:noise(((pos_x+seed)/30),((pos_y+seed)/30),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_starting_2 = perlin:noise(((pos_x+seed)/10),((pos_y+seed)/10),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_starting = noise_island_starting_1 + (noise_island_starting_2 * 0.3)
|
|
noise_island_starting = noise_island_starting * 8000
|
|
|
|
seed = seed + seed_increment
|
|
local noise_island_iron_and_copper_1 = perlin:noise(((pos_x+seed)/300),((pos_y+seed)/300),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_iron_and_copper_2 = perlin:noise(((pos_x+seed)/40),((pos_y+seed)/40),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_iron_and_copper_3 = perlin:noise(((pos_x+seed)/10),((pos_y+seed)/10),0)
|
|
local noise_island_iron_and_copper = noise_island_iron_and_copper_1 + (noise_island_iron_and_copper_2 * 0.1) + (noise_island_iron_and_copper_3 * 0.05)
|
|
|
|
seed = seed + seed_increment
|
|
local noise_island_stone_and_coal_1 = perlin:noise(((pos_x+seed)/300),((pos_y+seed)/300),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_stone_and_coal_2 = perlin:noise(((pos_x+seed)/40),((pos_y+seed)/40),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_stone_and_coal_3 = perlin:noise(((pos_x+seed)/10),((pos_y+seed)/10),0)
|
|
local noise_island_stone_and_coal = noise_island_stone_and_coal_1 + (noise_island_stone_and_coal_2 * 0.1) + (noise_island_stone_and_coal_3 * 0.05)
|
|
|
|
seed = seed + seed_increment
|
|
local noise_island_oil_and_uranium_1 = perlin:noise(((pos_x+seed)/300),((pos_y+seed)/300),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_oil_and_uranium_2 = perlin:noise(((pos_x+seed)/40),((pos_y+seed)/40),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_oil_and_uranium_3 = perlin:noise(((pos_x+seed)/10),((pos_y+seed)/10),0)
|
|
local noise_island_oil_and_uranium = noise_island_oil_and_uranium_1 + (noise_island_oil_and_uranium_2 * 0.1) + (noise_island_oil_and_uranium_3 * 0.05)
|
|
|
|
|
|
seed = seed + seed_increment
|
|
local noise_island_resource = perlin:noise(((pos_x+seed)/60),((pos_y+seed)/60),0)
|
|
seed = seed + seed_increment
|
|
local noise_island_resource_2 = perlin:noise(((pos_x+seed)/10),((pos_y+seed)/10),0)
|
|
noise_island_resource = noise_island_resource + noise_island_resource_2 * 0.15
|
|
|
|
seed = seed + seed_increment
|
|
local noise_trees_1 = perlin:noise(((pos_x+seed)/30),((pos_y+seed)/30),0)
|
|
seed = seed + seed_increment
|
|
local noise_trees_2 = perlin:noise(((pos_x+seed)/10),((pos_y+seed)/10),0)
|
|
local noise_trees = noise_trees_1 + noise_trees_2 * 0.5
|
|
|
|
seed = seed + seed_increment
|
|
local noise_decoratives_1 = perlin:noise(((pos_x+seed)/50),((pos_y+seed)/50),0)
|
|
seed = seed + seed_increment
|
|
local noise_decoratives_2 = perlin:noise(((pos_x+seed)/10),((pos_y+seed)/10),0)
|
|
local noise_decoratives = noise_decoratives_1 + noise_decoratives_2 * 0.5
|
|
|
|
local tile_to_insert = "water"
|
|
|
|
--Create starting Island
|
|
local tile_distance_to_center = nil
|
|
local a = pos_y * pos_y
|
|
local b = pos_x * pos_x
|
|
local tile_distance_to_center = a + b
|
|
if tile_distance_to_center + noise_island_starting <= radsquare then
|
|
tile_to_insert = "grass-1"
|
|
end
|
|
|
|
if tile_distance_to_center + noise_island_starting > radsquare + 20000 then
|
|
--Placement of Island Tiles
|
|
|
|
if noise_island_oil_and_uranium > 0.53 then
|
|
tile_to_insert = "red-desert-1"
|
|
end
|
|
if noise_island_oil_and_uranium < -0.53 then
|
|
tile_to_insert = "red-desert-0"
|
|
end
|
|
|
|
if noise_island_stone_and_coal > 0.47 then
|
|
tile_to_insert = "grass-3"
|
|
end
|
|
if noise_island_stone_and_coal < -0.47 then
|
|
tile_to_insert = "grass-2"
|
|
end
|
|
|
|
if noise_island_iron_and_copper > 0.47 then
|
|
tile_to_insert = "sand-1"
|
|
end
|
|
if noise_island_iron_and_copper < -0.47 then
|
|
tile_to_insert = "sand-3"
|
|
end
|
|
|
|
end
|
|
|
|
--Placement of Trees
|
|
if tile_to_insert ~= "water" then
|
|
if noise_trees > 0.1 then
|
|
local tree = "tree-01"
|
|
if tile_to_insert == "grass-1" then
|
|
tree = "tree-05"
|
|
end
|
|
if tile_to_insert == "grass-2" then
|
|
tree = "tree-02"
|
|
end
|
|
if tile_to_insert == "grass-3" then
|
|
tree = "tree-04"
|
|
end
|
|
if tile_to_insert == "sand-1" then
|
|
tree = "tree-07"
|
|
end
|
|
if tile_to_insert == "sand-3" then
|
|
tree = "dry-hairy-tree"
|
|
end
|
|
if tile_to_insert == "red-desert-1" then
|
|
tree = "dry-tree"
|
|
end
|
|
if tile_to_insert == "red-desert-0" then
|
|
if math.random(1,3) == 1 then
|
|
tree = "sand-rock-big"
|
|
else
|
|
tree = "sand-rock-big"
|
|
end
|
|
end
|
|
if math.random(1,8) == 1 then
|
|
if surface.can_place_entity {name=tree, position={pos_x,pos_y}} then
|
|
surface.create_entity {name=tree, position={pos_x,pos_y}}
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
if tile_to_insert == "sand-1" or tile_to_insert == "sand-3" then
|
|
if math.random(1,200) == 1 then
|
|
if surface.can_place_entity {name="rock-big", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="rock-big", position={pos_x,pos_y}}
|
|
end
|
|
end
|
|
end
|
|
if tile_to_insert == "grass-1" or tile_to_insert == "grass-2" or tile_to_insert == "grass-3" then
|
|
if math.random(1,2000) == 1 then
|
|
if surface.can_place_entity {name="rock-big", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="rock-big", position={pos_x,pos_y}}
|
|
end
|
|
end
|
|
end
|
|
|
|
--Placement of Decoratives
|
|
if tile_to_insert ~= "water" then
|
|
if noise_decoratives > 0.3 then
|
|
local decorative = "green-carpet-grass-1"
|
|
if tile_to_insert == "grass-1" then
|
|
decorative = "green-pita"
|
|
end
|
|
if tile_to_insert == "grass-2" then
|
|
decorative = "green-pita"
|
|
end
|
|
if tile_to_insert == "grass-3" then
|
|
decorative = "green-pita"
|
|
end
|
|
if tile_to_insert == "sand-1" then
|
|
decorative = "green-asterisk"
|
|
end
|
|
if tile_to_insert == "sand-3" then
|
|
decorative = "green-asterisk"
|
|
end
|
|
if tile_to_insert == "red-desert-1" then
|
|
decorative = "red-asterisk"
|
|
end
|
|
if tile_to_insert == "red-desert-0" then
|
|
decorative = "red-asterisk"
|
|
end
|
|
if math.random(1,5) == 1 then
|
|
table.insert(data.decoratives, {name=decorative, position={pos_x,pos_y}, amount=1})
|
|
end
|
|
end
|
|
if tile_to_insert == "red-desert-0" then
|
|
if math.random(1,50) == 1 then
|
|
table.insert(data.decoratives, {name="rock-medium", position={pos_x,pos_y}, amount=1})
|
|
end
|
|
end
|
|
end
|
|
|
|
--Placement of Island Resources
|
|
if tile_to_insert ~= "water" then
|
|
local a = pos_x
|
|
local b = pos_y
|
|
local c = 1
|
|
if area.right_bottom.x < 0 then a = area.right_bottom.x * -1 end
|
|
if area.right_bottom.y < 0 then b = area.right_bottom.y * -1 end
|
|
if a > b then c = a else c = b end
|
|
local resource_amount_distance_multiplicator = (((c + 1) / 75) / 75) + 1
|
|
local noise_resource_amount_modifier = perlin:noise(((pos_x+seed)/200),((pos_y+seed)/200),0)
|
|
local resource_amount = 1 + ((500 + (500*noise_resource_amount_modifier*0.2)) * resource_amount_distance_multiplicator)
|
|
|
|
if tile_to_insert == "sand-1" or tile_to_insert == "sand-3" then
|
|
if noise_island_iron_and_copper > 0.5 and noise_island_resource > 0.2 then
|
|
if surface.can_place_entity {name="iron-ore", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="iron-ore", position={pos_x,pos_y}, amount=resource_amount}
|
|
end
|
|
end
|
|
if noise_island_iron_and_copper < -0.5 and noise_island_resource > 0.2 then
|
|
if surface.can_place_entity {name="copper-ore", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="copper-ore", position={pos_x,pos_y}, amount=resource_amount}
|
|
end
|
|
end
|
|
end
|
|
|
|
if tile_to_insert == "grass-3" or tile_to_insert == "grass-2" then
|
|
if noise_island_stone_and_coal > 0.5 and noise_island_resource > 0.2 then
|
|
if surface.can_place_entity {name="stone", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="stone", position={pos_x,pos_y}, amount=resource_amount*1.5}
|
|
end
|
|
end
|
|
if noise_island_stone_and_coal < -0.5 and noise_island_resource > 0.2 then
|
|
if surface.can_place_entity {name="coal", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="coal", position={pos_x,pos_y}, amount=resource_amount}
|
|
end
|
|
end
|
|
end
|
|
|
|
if tile_to_insert == "red-desert-1" or tile_to_insert == "red-desert-0" then
|
|
if noise_island_oil_and_uranium > 0.55 and noise_island_resource > 0.25 then
|
|
if surface.can_place_entity {name="crude-oil", position={pos_x,pos_y}} then
|
|
if math.random(1,60) == 1 then
|
|
surface.create_entity {name="crude-oil", position={pos_x,pos_y}, amount=resource_amount*400}
|
|
end
|
|
end
|
|
end
|
|
if noise_island_oil_and_uranium < -0.55 and noise_island_resource > 0.35 then
|
|
if surface.can_place_entity {name="uranium-ore", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="uranium-ore", position={pos_x,pos_y}, amount=resource_amount}
|
|
end
|
|
end
|
|
end
|
|
noise_island_starting = noise_island_starting * 0.08
|
|
--Starting Resources
|
|
if tile_distance_to_center <= radsquare then
|
|
if tile_distance_to_center + noise_island_starting > radsquare * 0.09 and tile_distance_to_center + noise_island_starting <= radsquare * 0.15 then
|
|
if surface.can_place_entity {name="stone", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="stone", position={pos_x,pos_y}, amount=resource_amount*1.5}
|
|
end
|
|
end
|
|
if tile_distance_to_center + noise_island_starting > radsquare * 0.05 and tile_distance_to_center + noise_island_starting <= radsquare * 0.09 then
|
|
if surface.can_place_entity {name="coal", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="coal", position={pos_x,pos_y}, amount=resource_amount*1.5}
|
|
end
|
|
end
|
|
if tile_distance_to_center + noise_island_starting > radsquare * 0.02 and tile_distance_to_center + noise_island_starting <= radsquare * 0.05 then
|
|
if surface.can_place_entity {name="iron-ore", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="iron-ore", position={pos_x,pos_y}, amount=resource_amount*1.5}
|
|
end
|
|
end
|
|
if tile_distance_to_center + noise_island_starting > radsquare * 0.003 and tile_distance_to_center + noise_island_starting <= radsquare * 0.02 then
|
|
if surface.can_place_entity {name="copper-ore", position={pos_x,pos_y}} then
|
|
surface.create_entity {name="copper-ore", position={pos_x,pos_y}, amount=resource_amount*1.5}
|
|
end
|
|
end
|
|
if tile_distance_to_center + noise_island_starting <= radsquare * 0.002 then
|
|
if surface.can_place_entity {name="crude-oil", position={pos_x,pos_y}} then
|
|
if math.random(1,16) == 1 then surface.create_entity {name="crude-oil", position={pos_x,pos_y}, amount=resource_amount*400} end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
table.insert(data.tiles, {name = tile_to_insert, position = {pos_x,pos_y}})
|
|
|
|
end
|
|
|
|
end
|
|
|
|
local function do_place_tiles(data)
|
|
local surface = data.surface
|
|
surface.set_tiles(data.tiles)
|
|
for _,deco in pairs(data.decoratives) do
|
|
surface.create_decoratives{check_collision=false, decoratives={deco}}
|
|
end
|
|
end
|
|
|
|
local function do_chart_update(data)
|
|
local x = data.area.left_top.x / 32
|
|
local y = data.area.left_top.y / 32
|
|
if game.forces.player.is_chunk_charted(data.surface, {x,y} ) then
|
|
-- Don't use full area, otherwise adjacent chunks get charted
|
|
game.forces.player.chart(data.surface, {{ data.area.left_top.x, data.area.left_top.y}, { data.area.left_top.x+30, data.area.left_top.y+30} } )
|
|
end
|
|
end
|
|
|
|
function do_island_resort(data)
|
|
local state = data.state
|
|
|
|
if state == -1 then
|
|
do_clear_entites(data)
|
|
data.state = 0
|
|
return true
|
|
elseif state < 32 then
|
|
do_column(state, data)
|
|
data.state = state + 1
|
|
return true
|
|
elseif state == 32 then
|
|
do_place_tiles(data)
|
|
do_chart_update(data)
|
|
return false
|
|
end
|
|
end
|
|
|
|
function run_combined_module(event)
|
|
local data =
|
|
{
|
|
state = - 1,
|
|
surface = event.surface,
|
|
area = event.area,
|
|
tiles = {},
|
|
decoratives = {}
|
|
}
|
|
Task.queue_task("do_island_resort", data, 34)
|
|
end
|