extended-crashsite/control.lua

205 lines
8.1 KiB
Lua
Raw Permalink Normal View History

2020-08-24 19:00:26 +08:00
local util = require("util")
local crash_site = require("crash-site")
local ship_parts =
{
{
name = "crash-site-assembling-machine",
variations = 2,
angle_deviation = 0.07,
max_distance = 40,
min_separation = 16,
fire_count = 1
},
{
name = "crash-site-lab-repaired",
angle_deviation = 0.07,
max_distance = 15,
fire_count = 0
},
{
name = "crash-site-generator",
angle_deviation = 0.06,
max_distance = 15,
fire_count = 0
},
{
name = "crash-site-chest",
variations = 2,
angle_deviation = 0.075,
max_distance = 40,
min_separation = 16,
fire_count = 0
}
}
local random = math.random
local rotate = function(offset, angle)
local x = offset[1]
local y = offset[2]
local rotated_x = x * math.cos(angle) - y * math.sin(angle)
local rotated_y = x * math.sin(angle) + y * math.cos(angle)
return {rotated_x, rotated_y}
end
local get_name = function(part, k)
if not part.variations then return part.name end
local variant = k or random(part.variations)
return part.name.."-"..variant
end
local get_lifetime = function(offset)
--Generally, close to the ship, last longer.
local distance = ((offset[1] * offset[1]) + (offset[2] * offset[2])) ^ 0.5
local time = random(60 * 20, 60 * 30) - math.min(distance * 100, 15 * 60)
return time
end
local get_random_position = function(box, x_scale, y_scale)
local x_scale = x_scale or 1
local y_scale = y_scale or 1
local x1 = box.left_top.x
local y1 = box.left_top.y
local x2 = box.right_bottom.x
local y2 = box.right_bottom.y
local x = ((x2 - x1) * x_scale * (random() - 0.5)) + ((x1 + x2) / 2)
local y = ((y2 - y1) * y_scale * (random() - 0.5)) + ((y1 + y2) / 2)
return {x, y}
end
local entry_angle = 0.70
local random = math.random
local get_offset = function(part)
local angle = entry_angle + ((random() - 0.5) * part.angle_deviation)
angle = angle - 0.25
angle = angle * math.pi * 2
local distance = 8 + (random() * (part.max_distance or 40))
local offset = rotate({distance, 0}, angle)
return offset
end
script.on_init(function()
if remote.interfaces.freeplay then
remote.call("freeplay", "set_disable_crashsite", false) -- That's the point of this mod... to have a crashsite, so we're force enabling it
end
end)
script.on_event(defines.events.on_player_created, function(event)
if not global.init_ran then
global.init_ran = true
if remote.interfaces.freeplay then
-- game.print("FREEPLAY")
local player = game.players[event.player_index]
local surface = player.surface
local sps = surface.find_entities_filtered{position = player.force.get_spawn_position(surface), radius = 250, name = "crash-site-spaceship"} -- Just to confirm the spaceship loc
local position = sps[1].position
local wreck_parts = {}
for k, part in pairs (ship_parts) do
for k = 1, (part.variations or 1) do
local name = get_name(part, k)
if game.entity_prototypes[name.."-repaired-player"] then
name=name.."-repaired-player"
else
name=name.."-player"
end
-- local name_ = get_name(part, k, "-repaired")
for i = 1, part.repeat_count or 1 do
local part_position
local count = 0
local offset
while true do
offset = get_offset(part)
local x = (position[1] or position.x) + offset[1]
local y = (position[2] or position.y) + offset[2]
part_position = {x, y}
if surface.can_place_entity
{
name = name,
position = part_position,
force = "player",
build_check_type = defines.build_check_type.ghost_place,
forced = true
} then
-- game.print(count.. " " .. k .. " " .. surface.count_entities_filtered{position = part_position, radius = part.min_separation, limit = 1, type = game.entity_prototypes[name_].type})
if not part.min_separation then
break
elseif surface.count_entities_filtered{position = part_position, radius = part.min_separation, limit = 1, type = game.entity_prototypes[name].type} == 0 then
break
else
end
end
count = count + 1
if count > 40 then
part_position = surface.find_non_colliding_position(name, part_position, 50, 4)
break
end
end
if part_position then
local entity = surface.create_entity({
name = name,
position = part_position,
force = "player"
})
-- Something dumb happening with simple-entity and a position that is not constant. Have to use repaired variant of entity!
local type = game.entity_prototypes[name].type
if type == "assembling-machine" then
entity.health = entity.health/6
elseif type == "lab" then
entity.health = entity.health/1.5
elseif type == "container" then
local count = random(0,2)
if count > 0 then
entity.insert({name="repair-pack",count=count})
end
end
if entity.get_output_inventory() and #entity.get_output_inventory() > 0 then
wreck_parts[entity.unit_number] = entity
end
for k, entity in pairs (surface.find_entities_filtered{type = {"tree", "simple-entity"}, position = part_position, radius = 1 + entity.get_radius()}) do
if entity.type == "tree" then
entity.die()
else
entity.destroy()
end
end
if part.fire_count then
for k = 1, part.fire_count do
surface.create_entity
{
name = "crash-site-fire-flame",
position = get_random_position(entity.bounding_box)
}
local explosions = surface.create_entity
{
name = "crash-site-fire-smoke",
position = get_random_position(entity.bounding_box)
}
explosions.time_to_live = get_lifetime(offset)
explosions.time_to_next_effect = random(30)
end
end
end
end
end
end
else
-- game.print("NOT FREEPLAY")
end
end
end)