--[[ Exchange Strings >>>eNp1UT1oFEEUfi/nkcsJonBNwMQrUtjsES/aHOFmTCMp1M5+b 29OB/Z2ztldSLRwixQWQpo0pkmKNCZgJ2gXsVHQIGpjd5LGwiJBE AvhnNnd2VvX5IN5fPO9/xmAC3AbYuxTgKhdOeMI201vRMmk6ojBg ElLSJaXpxwZdpkluAqO6N7uLtGeKvNYf9Xq2D7TskqI5QqXwitWK PuB8P5VAsmYnyRGba2eDaXt8bCf5EZZJODOwZ3X0dos6DN6BPXRS B/Fhso/hBQqA5WWonTZEV4ghWv5LAi4d7dlhyutnmT3Q+Y5q61+6 AZ84HImKwuN+RgzxYy+4H4QStbqcNufsuYbzWs6zjo17sTyVxoLM cqOy3s9gPp1dZb01oj4sPb8xrcHGwSTqRs0JUepst8xyrIht+ipr jlDrubqJN1/5kjSNFAt0qgKHZPEuaadiMf3Dh+/+P2ljX+eHX+62 aEEj4yCOKkScCIzm081XplVwNQcktT1leCH9xo/CJZ1Rk2b7SfKR M0JwPPnzLV+EcxobVOmRrEX45fZ5NCQz6S4h3qIRV18Vpu32sQNs 8kwoXSdIr1kvNPjEJXfhPwM3fGG70zbN7n+hUH+/4j8HgVljp7wD VXdsJuZ76VsGvWeHyfNjW7REoyhvvvAetn9CzJb1cQ=<<< ]] local random = math.random local Alert = require 'utils.alert' require "player_modifiers" require "modules.rocks_broken_paint_tiles" require "modules.rocks_heal_over_time" require "modules.rocks_yield_ore_veins" require "modules.no_deconstruction_of_neutral_entities" local MT = require "maps.amap.basic_markets" local asdasd = require 'modules.rpg.table' local Loot = require "maps.amap.loot" local get_noise = require "utils.get_noise" local Player_modifiers = require "player_modifiers" local math_random = math.random local math_floor = math.floor local math_abs = math.abs local Public = {} local BiterRolls = require 'modules.wave_defense.biter_rolls' local rock_raffle = {"sand-rock-big","sand-rock-big", "rock-big","rock-big","rock-big","rock-big","rock-big","rock-big","rock-big","rock-huge"} local size_of_rock_raffle = #rock_raffle local Pets = require 'maps.amap.biter_pets' local function place_entity(surface, position) if math_random(1, 3) ~= 1 then surface.create_entity({name = rock_raffle[math_random(1, size_of_rock_raffle)], position = position, force = "neutral"}) end end local function is_scrap_area(noise) if noise > 0.63 then return end if noise < -0.63 then return end if noise > 0.35 then return true end if noise < -0.35 then return true end end local function hidden_treasure(player, entity) local rpg = asdasd.get('rpg_t') local magic = rpg[player.index].magicka local msg = '哦，看啊，你找到了一个宝藏！' Alert.alert_player(player, 5, msg) Loot.add_rare(entity.surface, entity.position, 'wooden-chest', magic) end local function move_away_things(surface, area) for _, e in pairs(surface.find_entities_filtered({type = {"unit-spawner", "turret", "unit", "tree"}, area = area})) do local position = surface.find_non_colliding_position(e.name, e.position, 128, 4) if position then surface.create_entity({name = e.name, position = position, force = "enemy"}) e.destroy() end end end local vectors = {{0,0}, {1,0}, {-1,0}, {0,1}, {0,-1}} local function hidden_biter_pet(player, entity) local pos = entity.position BiterRolls.wave_defense_set_unit_raffle(math.sqrt(pos.x ^ 2 + pos.y ^ 2) * 0.25) local unit if random(1, 3) == 1 then unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_spitter_name(), position = pos}) else unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_biter_name(), position = pos}) end Pets.biter_pets_tame_unit(game.players[player.index], unit, true) end local function hidden_biter(player, entity) local pos = entity.position BiterRolls.wave_defense_set_unit_raffle(math.sqrt(pos.x ^ 2 + pos.y ^ 2) * 0.25) local unit if random(1, 3) == 1 then unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_spitter_name(), position = pos}) else unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_biter_name(), position = pos}) end end local function on_player_mined_entity(event) local entity = event.entity if not entity.valid then return end if entity.type ~= "simple-entity" then return end local surface = entity.surface for _, v in pairs(vectors) do local position = {entity.position.x + v[1], entity.position.y + v[2]} if not surface.get_tile(position).collides_with("resource-layer") then surface.set_tiles({{name = "landfill", position = position}}, true) end end if event.player_index then game.players[event.player_index].insert({name = "coin", count = 1}) end local player = game.players[event.player_index] --修复挖矿石路 local rpg = asdasd.get('rpg_t') local rpg_char = rpg[player.index] if rpg_char.stone_path then entity.surface.set_tiles({{name = 'stone-path', position = entity.position}}, true) end --挖出汽车 if random(1,712) < 2 then local position = {entity.position.x , entity.position.y } --local player = game.players[event.player_index] surface.create_entity({name = 'car', position = position, force = 'player'}) Public.unstuck_player(player.index) local msg = ({'found a car', 'you'}) Alert.alert_player(player, 15, msg) end --挖出虫巢 if random(1,120) < 2 then local position = {entity.position.x , entity.position.y } local player = game.players[event.player_index] surface.create_entity({name = 'biter-spawner', position = position, force = 'enemy'}) Public.unstuck_player(player.index) end --挖出宝藏 if random(1,150) < 2 then local player = game.players[event.player_index] hidden_treasure(player,entity) end --挖出宠物 if random(1,170) < 3 then local player = game.players[event.player_index] hidden_biter_pet(player,entity) end --来挖个虫子 if random(1,100) < 3 then local player = game.players[event.player_index] hidden_biter(player,entity) end end local function on_entity_died(event) if not event.entity.valid then return end on_player_mined_entity(event) end --图块生成时 local function on_chunk_generated(event) local surface = event.surface local seed = surface.map_gen_settings.seed local left_top_x = event.area.left_top.x local left_top_y = event.area.left_top.y local set_tiles = surface.set_tiles local get_tile = surface.get_tile local position local noise for x = 0, 31, 1 do for y = 0, 31, 1 do position = {x = left_top_x + x, y = left_top_y + y} if not get_tile(position).collides_with("resource-layer") then noise = get_noise("scrapyard", position, seed) if is_scrap_area(noise) then set_tiles({{name = "dirt-" .. math_floor(math_abs(noise) * 12) % 4 + 3, position = position}}, true) if x+y > 33 and x+y < 40 then local b = math_random(1,200) --宝藏 if b < 3 then local chest = 'iron-chest' Loot.add(surface, position, chest) end --中立建筑 --在我上面添加代码 end --商店代码 if y == 1 then if x == 1 then local a = math_random(1,8) if a == 1 then local q =math_abs(position.x)/20 local w =math_abs(position.y)/20 local maxs =q+w+15 -- game.print(maxs) MT.mountain_market(surface,position,maxs) end end end place_entity(surface, position) end end end end move_away_things(surface, event.area) end local function on_player_joined_game(event) local player = game.players[event.player_index] local modifiers = Player_modifiers.get_table() --modifiers[player.index].character_mining_speed_modifier["caves"] = 3 Player_modifiers.update_player_modifiers(player) end function Public.unstuck_player(index) local player = game.get_player(index) local surface = player.surface local position = surface.find_non_colliding_position('character', player.position, 32, 0.5) if not position then return end player.teleport(position, surface) end local function on_init() global.rocks_yield_ore_maximum_amount = 999 global.rocks_yield_ore_base_amount = 100 global.rocks_yield_ore_distance_modifier = 0.025 end local Event = require 'utils.event' Event.on_init(on_init) Event.add(defines.events.on_chunk_generated, on_chunk_generated) Event.add(defines.events.on_player_joined_game, on_player_joined_game) Event.add(defines.events.on_player_mined_entity, on_player_mined_entity) Event.add(defines.events.on_entity_died, on_entity_died) require "modules.rocks_yield_ore"