factorio-scenario-ExpCluster/exp_legacy/module/modules/commands/artillery.lua

--[[-- Commands Module - Artillery
    - Adds a command that help shot artillery
    @commands Artillery
]]

local Commands = require("modules.exp_legacy.expcore.commands") --- @dep expcore.commands
require("modules.exp_legacy.config.expcore.command_general_parse")
local Selection = require("modules.exp_legacy.modules.control.selection") --- @dep modules.control.selection
local SelectionArtyArea = "ArtyArea"

local function location_break(player, pos)
    -- Intentionally left as player.surface to allow use in remote view
    if player.force.is_chunk_charted(player.surface, { x = math.floor(pos.left_top.x / 32), y = math.floor(pos.left_top.y / 32) }) then
        return true
    elseif player.force.is_chunk_charted(player.surface, { x = math.floor(pos.left_top.x / 32), y = math.floor(pos.right_bottom.y / 32) }) then
        return true
    elseif player.force.is_chunk_charted(player.surface, { x = math.floor(pos.right_bottom.x / 32), y = math.floor(pos.left_top.y / 32) }) then
        return true
    elseif player.force.is_chunk_charted(player.surface, { x = math.floor(pos.right_bottom.x / 32), y = math.floor(pos.right_bottom.y / 32) }) then
        return true
    else
        return false
    end
end

--- align an aabb to the grid by expanding it
local function aabb_align_expand(aabb)
    return {
        left_top = { x = math.floor(aabb.left_top.x), y = math.floor(aabb.left_top.y) },
        right_bottom = { x = math.ceil(aabb.right_bottom.x), y = math.ceil(aabb.right_bottom.y) },
    }
end

--- when an area is selected to add protection to the area
Selection.on_selection(SelectionArtyArea, function(event)
    local area = aabb_align_expand(event.area)
    local player = game.players[event.player_index]

    if player == nil then
        return
    end

    if not (game.players[event.player_index].cheat_mode or location_break(player, event.area)) then
        return Commands.error
    end

    local count = 0
    local hit = {}

    for _, e in pairs(player.surface.find_entities_filtered{ area = area, type = { "unit-spawner", "turret" }, force = "enemy" }) do
        local skip = false

        for _, pos in ipairs(hit) do
            if math.sqrt(math.abs(e.position.x - pos.x) ^ 2 + math.abs(e.position.y - pos.y) ^ 2) < 6 then
                skip = true
                break
            end
        end

        if not skip then
            player.surface.create_entity{ name = "artillery-flare", position = e.position, force = player.force, life_time = 240, movement = { 0, 0 }, height = 0, vertical_speed = 0, frame_speed = 0 }
            table.insert(hit, e.position)
            count = count + 1

            if count > 400 then
                break
            end
        end
    end
end)

Commands.new_command("artillery-target-remote", { "expcom-artillery.description" }, "Artillery Target Remote")
    :register(function(player)
        if Selection.is_selecting(player, SelectionArtyArea) then
            Selection.stop(player)
        else
            Selection.start(player, SelectionArtyArea)
        end

        return Commands.success
    end)