-- Mountain digger fortress, protect the cargo wagon! -- by MewMew global.offline_loot = true local darkness = false require "player_modifiers" require "functions.soft_reset" require "functions.basic_markets" local ComfyPanel = require "comfy_panel.main" local Map_score = require "comfy_panel.map_score" local Collapse = require "modules.collapse" local RPG = require "modules.rpg" require "modules.wave_defense.main" require "modules.biters_yield_coins" require "modules.no_deconstruction_of_neutral_entities" require "modules.shotgun_buff" local Explosives = require "modules.explosives" require "modules.mineable_wreckage_yields_scrap" require "modules.rocks_broken_paint_tiles" require "modules.rocks_heal_over_time" require "modules.rocks_yield_ore_veins" local level_depth = require "maps.mountain_fortress_v2.terrain" local Immersive_cargo_wagons = require "modules.immersive_cargo_wagons.main" require "maps.mountain_fortress_v2.flamethrower_nerf" local BiterRolls = require "modules.wave_defense.biter_rolls" local BiterHealthBooster = require "modules.biter_health_booster" local Reset = require "functions.soft_reset" local Pets = require "modules.biter_pets" local Map = require "modules.map_info" local WD = require "modules.wave_defense.table" local Treasure = require "maps.mountain_fortress_v2.treasure" local Locomotive = require "maps.mountain_fortress_v2.locomotive" local Modifier = require "player_modifiers" local math_random = math.random local math_abs = math.abs local math_floor = math.floor local Public = {} local starting_items = {['pistol'] = 1, ['firearm-magazine'] = 16, ['rail'] = 16, ['wood'] = 16, ['explosives'] = 32} local treasure_chest_messages = { "You notice an old crate within the rubble. It's filled with treasure!", "You find a chest underneath the broken rocks. It's filled with goodies!", "We has found the precious!", } local function game_over() game.print("The Fish Wagon was destroyed!!") local wave_defense_table = WD.get_table() wave_defense_table.game_lost = true wave_defense_table.target = nil global.game_reset_tick = game.tick + 1800 for _, player in pairs(game.connected_players) do player.play_sound{path="utility/game_lost", volume_modifier=0.80} ComfyPanel.comfy_panel_call_tab(player, "Map Scores") end end local function set_scores() local fish_wagon = global.locomotive_cargo if not fish_wagon then return end if not fish_wagon.valid then return end local score = math_floor(fish_wagon.position.y * -1) for _, player in pairs(game.connected_players) do if score > Map_score.get_score(player) then Map_score.set_score(player, score) end end end local function disable_recipes() local force = game.forces.player force.recipes["cargo-wagon"].enabled = false force.recipes["fluid-wagon"].enabled = false force.recipes["artillery-wagon"].enabled = false force.recipes["locomotive"].enabled = false force.recipes["pistol"].enabled = false end local function set_difficulty() local wave_defense_table = WD.get_table() local player_count = #game.connected_players wave_defense_table.max_active_biters = 1024 -- threat gain / wave wave_defense_table.threat_gain_multiplier = 1.9 + player_count * 0.1 local amount = player_count * 0.25 + 2 amount = math.floor(amount) if amount > 6 then amount = 6 end Collapse.set_amount(amount) wave_defense_table.wave_interval = 3600 - player_count * 60 if wave_defense_table.wave_interval < 1800 then wave_defense_table.wave_interval = 1800 end end function Public.reset_map() Immersive_cargo_wagons.reset() for _,player in pairs(game.players) do if player.controller_type == defines.controllers.editor then player.toggle_map_editor() end end local wave_defense_table = WD.get_table() global.chunk_queue = {} global.offline_players = {} local map_gen_settings = { ["seed"] = math_random(1, 1000000), ["width"] = level_depth, ["water"] = 0.1, ["starting_area"] = 1, ["cliff_settings"] = {cliff_elevation_interval = 0, cliff_elevation_0 = 0}, ["default_enable_all_autoplace_controls"] = true, ["autoplace_settings"] = { ["entity"] = {treat_missing_as_default = false}, ["tile"] = {treat_missing_as_default = true}, ["decorative"] = {treat_missing_as_default = true}, }, } if not global.active_surface_index then global.active_surface_index = game.create_surface("mountain_fortress", map_gen_settings).index else game.forces.player.set_spawn_position({-2, 16}, game.surfaces[global.active_surface_index]) global.active_surface_index = Reset.soft_reset_map(game.surfaces[global.active_surface_index], map_gen_settings, starting_items).index end local surface = game.surfaces[global.active_surface_index] Explosives.set_surface_whitelist({[surface.name] = true}) if darkness then surface.min_brightness = 0.10 surface.brightness_visual_weights = {0.90, 0.90, 0.90} surface.daytime = 0.42 surface.freeze_daytime = true surface.solar_power_multiplier = 999 end surface.request_to_generate_chunks({0,0}, 2) surface.force_generate_chunk_requests() for x = -768 + 32, 768 - 32, 32 do surface.request_to_generate_chunks({x, 96}, 1) surface.force_generate_chunk_requests() end game.difficulty_settings.technology_price_multiplier = 0.5 game.map_settings.enemy_evolution.destroy_factor = 0 game.map_settings.enemy_evolution.pollution_factor = 0 game.map_settings.enemy_evolution.time_factor = 0 game.map_settings.enemy_expansion.enabled = true game.map_settings.enemy_expansion.max_expansion_cooldown = 3600 game.map_settings.enemy_expansion.min_expansion_cooldown = 3600 game.map_settings.enemy_expansion.settler_group_max_size = 8 game.map_settings.enemy_expansion.settler_group_min_size = 16 game.map_settings.pollution.enabled = false game.forces.player.technologies["land-mine"].enabled = false game.forces.player.technologies["landfill"].enabled = false game.forces.player.technologies["fluid-wagon"].enabled = false game.forces.player.technologies["railway"].researched = true disable_recipes() game.forces.player.set_spawn_position({-2, 16}, surface) game.forces.enemy.set_ammo_damage_modifier("bullet", 1) game.forces.enemy.set_turret_attack_modifier("gun-turret", 1) Locomotive.locomotive_spawn(surface, {x = 0, y = 16}) WD.reset_wave_defense() wave_defense_table.surface_index = global.active_surface_index wave_defense_table.target = global.locomotive_cargo wave_defense_table.nest_building_density = 32 wave_defense_table.game_lost = false game.reset_time_played() Collapse.set_kill_entities(false) Collapse.set_speed(8) Collapse.set_amount(1) Collapse.set_max_line_size(level_depth) Collapse.set_surface(surface) Collapse.set_position({0, 130}) Collapse.set_direction("north") RPG.rpg_reset_all_players() set_difficulty() end local wagon_types = { ["cargo-wagon"] = true, ["artillery-wagon"] = true, ["fluid-wagon"] = true, ["locomotive"] = true, } local function protect_train(event) local entity = event.entity if entity.force.index ~= 1 then return end --Player Force if wagon_types[entity.type] then if event.cause then if event.cause.force.index == 2 then return end end event.entity.health = event.entity.health + event.final_damage_amount end end local function biters_chew_rocks_faster(event) if event.entity.force.index ~= 3 then return end --Neutral Force if not event.cause then return end if not event.cause.valid then return end if event.cause.force.index ~= 2 then return end --Enemy Force event.entity.health = event.entity.health - event.final_damage_amount * 5 end local function hidden_biter(entity) local surface = entity.surface local h = math_floor(math_abs(entity.position.y)) local m = 1 / level_depth local count = 64 for _ = 1, 2, 1 do local c = math_floor(math_random(0, h + level_depth) * m) + 1 if c < count then count = c end end local position = surface.find_non_colliding_position("small-biter", entity.position, 16, 0.5) if not position then position = entity.position end BiterRolls.wave_defense_set_unit_raffle(h * 0.20) for _ = 1, count, 1 do local unit if math_random(1,3) == 1 then unit = surface.create_entity({name = BiterRolls.wave_defense_roll_spitter_name(), position = position}) else unit = surface.create_entity({name = BiterRolls.wave_defense_roll_biter_name(), position = position}) end if math_random(1, 128) == 1 then BiterHealthBooster.add_boss_unit(unit, m * h + 5, 0.38) end end end local function hidden_worm(entity) BiterRolls.wave_defense_set_worm_raffle(math.sqrt(entity.position.x ^ 2 + entity.position.y ^ 2) * 0.20) entity.surface.create_entity({name = BiterRolls.wave_defense_roll_worm_name(), position = entity.position}) end local function hidden_biter_pet(event) if math_random(1, 2048) ~= 1 then return end BiterRolls.wave_defense_set_unit_raffle(math.sqrt(event.entity.position.x ^ 2 + event.entity.position.y ^ 2) * 0.25) local unit if math_random(1,3) == 1 then unit = event.entity.surface.create_entity({name = BiterRolls.wave_defense_roll_spitter_name(), position = event.entity.position}) else unit = event.entity.surface.create_entity({name = BiterRolls.wave_defense_roll_biter_name(), position = event.entity.position}) end Pets.biter_pets_tame_unit(game.players[event.player_index], unit, true) end local function hidden_treasure(event) if math_random(1, 320) ~= 1 then return end game.players[event.player_index].print(treasure_chest_messages[math_random(1, #treasure_chest_messages)], {r=0.98, g=0.66, b=0.22}) Treasure(event.entity.surface, event.entity.position, "wooden-chest") end local projectiles = {"grenade", "explosive-rocket", "grenade", "explosive-rocket", "explosive-cannon-projectile"} local function angry_tree(entity, cause) if entity.type ~= "tree" then return end if math.abs(entity.position.y) < level_depth then return end if math_random(1,4) == 1 then hidden_biter(entity) end if math_random(1,8) == 1 then hidden_worm(entity) end if math_random(1,16) ~= 1 then return end local position = false if cause then if cause.valid then position = cause.position end end if not position then position = {entity.position.x + (-20 + math_random(0, 40)), entity.position.y + (-20 + math_random(0, 40))} end entity.surface.create_entity({ name = projectiles[math_random(1, 5)], position = entity.position, force = "neutral", source = entity.position, target = position, max_range = 16, speed = 0.01 }) end local function give_coin(player) player.insert({name = "coin", count = 1}) end local function on_player_mined_entity(event) if not event.entity.valid then return end if event.entity.force.index ~= 3 then return end if event.entity.type == "simple-entity" then give_coin(game.players[event.player_index]) if math_random(1, 30) == 1 then hidden_biter(event.entity) return end if math_random(1,512) == 1 then hidden_worm(event.entity) return end hidden_biter_pet(event) hidden_treasure(event) end angry_tree(event.entity, game.players[event.player_index].character) end local function on_pre_player_left_game(event) local player = game.players[event.player_index] if player.controller_type == defines.controllers.editor then player.toggle_map_editor() end if player.character then global.offline_players[#global.offline_players + 1] = {index = event.player_index, tick = game.tick} end end local function on_entity_died(event) if not event.entity.valid then return end if event.entity == global.locomotive_cargo then set_scores() game_over() event.entity.surface.spill_item_stack(event.entity.position,{name = "raw-fish", count = 512}, false) return end if event.cause then if event.cause.valid then if event.cause.force.index == 2 or event.cause.force.index == 3 then return end end end if event.entity.force.index == 3 then if event.entity.name == "character" then return end --local r_max = 15 - math.floor(math.abs(event.entity.position.y) / (level_depth * 0.5)) --if r_max < 3 then r_max = 3 end if math_random(1,8) == 1 then hidden_biter(event.entity) end if math_random(1,256) == 1 then hidden_worm(event.entity) end angry_tree(event.entity, event.cause) end end local function on_entity_damaged(event) if not event.entity.valid then return end protect_train(event) if not event.entity.health then return end biters_chew_rocks_faster(event) --neutral_force_player_damage_resistance(event) end local function on_research_finished(event) disable_recipes() event.research.force.character_inventory_slots_bonus = game.forces.player.mining_drill_productivity_bonus * 50 -- +5 Slots / level local mining_speed_bonus = game.forces.player.mining_drill_productivity_bonus * 5 -- +50% speed / level if event.research.force.technologies["steel-axe"].researched then mining_speed_bonus = mining_speed_bonus + 0.5 end -- +50% speed for steel-axe research event.research.force.manual_mining_speed_modifier = mining_speed_bonus end local function on_player_joined_game(event) local player_modifiers = Modifier.get_table() local player = game.players[event.player_index] set_difficulty() local surface = game.surfaces[global.active_surface_index] if player.online_time == 0 then player.teleport(surface.find_non_colliding_position("character", game.forces.player.get_spawn_position(surface), 32, 0.5), surface) for item, amount in pairs(starting_items) do player.insert({name = item, count = amount}) end end local icw = Immersive_cargo_wagons.get_table() if player.surface.index ~= global.active_surface_index and not icw.trains[tonumber(player.surface.name)] then player.character = nil player.set_controller({type=defines.controllers.god}) player.create_character() player.teleport(surface.find_non_colliding_position("character", game.forces.player.get_spawn_position(surface), 32, 0.5), surface) for item, amount in pairs(starting_items) do player.insert({name = item, count = amount}) end end player_modifiers[player.index].character_mining_speed_modifier["mountain_fortress"] = 0.5 Modifier.update_player_modifiers(player) local tile = surface.get_tile(player.position) if tile.valid then if tile.name == "out-of-map" then player.teleport(surface.find_non_colliding_position("character", game.forces.player.get_spawn_position(surface), 32, 0.5), surface) end end end local function on_player_left_game(event) set_difficulty() end local function offline_players() local current_tick = game.tick local players = global.offline_players local surface = game.surfaces[global.active_surface_index] if #players > 0 then --log("nonzero offline players") local later = {} for i = 1, #players, 1 do if players[i] and game.players[players[i].index] and game.players[players[i].index].connected then --game.print("deleting already online character from list") players[i] = nil else if players[i] and players[i].tick < game.tick - 54000 then --log("spawning corpse") local player_inv = {} local items = {} player_inv[1] = game.players[players[i].index].get_inventory(defines.inventory.character_main) player_inv[2] = game.players[players[i].index].get_inventory(defines.inventory.character_armor) player_inv[3] = game.players[players[i].index].get_inventory(defines.inventory.character_guns) player_inv[4] = game.players[players[i].index].get_inventory(defines.inventory.character_ammo) player_inv[5] = game.players[players[i].index].get_inventory(defines.inventory.character_trash) local e = surface.create_entity({name = "character", position = game.forces.player.get_spawn_position(surface), force = "neutral"}) local inv = e.get_inventory(defines.inventory.character_main) for ii = 1, 5, 1 do if player_inv[ii].valid then for iii = 1, #player_inv[ii], 1 do if player_inv[ii][iii].valid then items[#items + 1] = player_inv[ii][iii] end end end end if #items > 0 then for item = 1, #items, 1 do if items[item].valid then inv.insert(items[item]) end end game.print({"chronosphere.message_accident"}, {r=0.98, g=0.66, b=0.22}) e.die("neutral") else e.destroy() end for ii = 1, 5, 1 do if player_inv[ii].valid then player_inv[ii].clear() end end players[i] = nil else later[#later + 1] = players[i] end end end players = {} if #later > 0 then for i = 1, #later, 1 do players[#players + 1] = later[i] end end global.offline_players = players end end local function tick() local tick = game.tick if tick % 30 == 0 then if tick % 1800 == 0 then if not Locomotive.set_player_spawn_and_refill_fish() and not global.game_reset_tick then game_over() end local surface = game.surfaces[global.active_surface_index] local position = surface.find_non_colliding_position("stone-furnace", Collapse.get_position(), 128, 1) if position then local wave_defense_table = WD.get_table() wave_defense_table.spawn_position = position end if global.offline_loot then offline_players() end set_scores() end if global.game_reset_tick then if global.game_reset_tick < tick then global.game_reset_tick = nil require "maps.mountain_fortress_v2.main".reset_map() end return end Locomotive.fish_tag() end end local function on_init() local T = Map.Pop_info() T.localised_category = "mountain_fortress" T.main_caption_color = {r = 150, g = 150, b = 0} T.sub_caption_color = {r = 0, g = 150, b = 0} global.rocks_yield_ore_maximum_amount = 500 global.rocks_yield_ore_base_amount = 40 global.rocks_yield_ore_distance_modifier = 0.020 Explosives.set_destructible_tile("out-of-map", 1500) Explosives.set_destructible_tile("water", 1000) Explosives.set_destructible_tile("water-green", 1000) Explosives.set_destructible_tile("deepwater-green", 1000) Explosives.set_destructible_tile("deepwater", 1000) Explosives.set_destructible_tile("water-shallow", 1000) Explosives.set_destructible_tile("water-mud", 1000) Map_score.set_score_description("Wagon distance reached:") Public.reset_map() end local event = require 'utils.event' event.on_init(on_init) event.on_nth_tick(2, tick) event.add(defines.events.on_entity_damaged, on_entity_damaged) event.add(defines.events.on_entity_died, on_entity_died) event.add(defines.events.on_player_joined_game, on_player_joined_game) event.add(defines.events.on_player_left_game, on_player_left_game) event.add(defines.events.on_pre_player_left_game, on_pre_player_left_game) event.add(defines.events.on_player_mined_entity, on_player_mined_entity) event.add(defines.events.on_research_finished, on_research_finished) require "modules.rocks_yield_ore" return Public