ComfyFactorio/modules/admins_operate_biters.lua

--luacheck: ignore
local event = require 'utils.event'
local math_random = math.random
local math_floor = math.floor
global.biter_command = {}
global.biter_command.active_unit_groups = {}
global.biter_command.enabled = true
global.biter_command.whitelist = {}
global.biter_command.admin_mode = true --if only admins can see and use the panel

global.biter_command.teleporting = false --if teleporting is allowed for non-admins
global.biter_command.buildings = true ---if player can trigger building nests and worms

local worm_raffle = {
    'small-worm-turret',
    'small-worm-turret',
    'medium-worm-turret',
    'small-worm-turret',
    'medium-worm-turret',
    'medium-worm-turret',
    'big-worm-turret',
    'medium-worm-turret',
    'big-worm-turret',
    'big-worm-turret',
    'behemoth-worm-turret',
    'big-worm-turret',
    'behemoth-worm-turret',
    'behemoth-worm-turret',
    'behemoth-worm-turret',
    'big-worm-turret',
    'behemoth-worm-turret'
}

local function shuffle(tbl)
    local size = #tbl
    for i = size, 1, -1 do
        local rand = math_random(size)
        tbl[i], tbl[rand] = tbl[rand], tbl[i]
    end
    return tbl
end

local function is_closer(pos1, pos2, pos)
    return ((pos1.x - pos.x) ^ 2 + (pos1.y - pos.y) ^ 2) < ((pos2.x - pos.x) ^ 2 + (pos2.y - pos.y) ^ 2)
end

local function shuffle_distance(tbl, position)
    local size = #tbl
    for i = size, 1, -1 do
        local rand = math_random(size)
        if is_closer(tbl[i].position, tbl[rand].position, position) and i > rand then
            tbl[i], tbl[rand] = tbl[rand], tbl[i]
        end
    end
    return tbl
end

local function get_evo(force)
    local evo = math_floor(game.forces['enemy'].evolution_factor * 20)
    local nests = math_random(1 + evo, 2 + evo * 2)
end

local function place_nest_near_unit_group(group)
    if not global.biter_command.buildings then
        return false
    end
    if not group.members then
        return false
    end
    if #group.members < 5 then
        return false
    end
    local units = group.members
    shuffle(units)
    for i = 1, 5, 1 do
        if not units[i].valid then
            return false
        end
    end
    local name = 'biter-spawner'
    if math_random(1, 3) == 1 then
        name = 'spitter-spawner'
    end
    local position = group.surface.find_non_colliding_position(name, group.position, 16, 1)
    if not position then
        return false
    end
    group.surface.create_entity({name = name, position = position, force = group.force})
    group.surface.create_entity({name = 'blood-explosion-huge', position = position})
    for i = 1, 5, 1 do
        units[i].surface.create_entity({name = 'blood-explosion-huge', position = units[i].position})
        units[i].destroy()
    end
    return true
end

local function build_worm(group)
    if not global.biter_command.buildings then
        return false
    end
    if not group.members then
        return false
    end
    if #group.members < 5 then
        return false
    end
    local units = group.members
    shuffle(units)
    for i = 1, 5, 1 do
        if not units[i].valid then
            return false
        end
    end
    local position = group.surface.find_non_colliding_position('assembling-machine-1', group.position, 8, 1)
    local worm = worm_raffle[math_random(1 + math_floor(group.force.evolution_factor * 8), math_floor(1 + group.force.evolution_factor * 16))]
    if not position then
        return false
    end
    group.surface.create_entity({name = worm, position = position, force = group.force})
    group.surface.create_entity({name = 'blood-explosion-huge', position = position})
    for i = 1, 5, 1 do
        units[i].surface.create_entity({name = 'blood-explosion-huge', position = units[i].position})
        units[i].destroy()
    end
    return true
end

local function flying_text(message, action, position, player)
    local texts = {
        {'roger', 'acknowledged', 'aye aye', 'confirmed', 'will do'},
        {'negative', 'no', 'not really', 'we are not your critters', 'go away'},
        {'fooood', 'nom nom', 'we hunger', 'killllll'},
        {'WTF', 'we wanted ACTION', 'why you hate us', 'we were good soldiers', 'go to hell'}
    }
    colors = {{r = 0, g = 220, b = 0}, {r = 220, g = 0, b = 0}, {r = 0, g = 100, b = 220}, {r = 200, g = 200, b = 0}, {r = 255, g = 255, b = 255}}
    if message then
        player.create_local_flying_text {text = message, position = position, color = colors[5]}
    else
        player.create_local_flying_text {text = texts[action][math_random(1, #texts[action])], position = position, color = colors[action]}
    end
end

-----------commands-----------

local function move_to(position, distraction)
    local command = {
        type = defines.command.go_to_location,
        destination = position,
        distraction = distraction,
        pathfind_flags = {allow_destroy_friendly_entities = true}
    }
    return command
end

-- local function attackmaincommand(target)
--   local wave_defense_table = WD.get_table()
--   if not wave_defense_table.target then return end
--   if not wave_defense_table.target.valid then return end
--   local command = {
-- 		type = defines.command.attack,
-- 		target = target,
-- 		distraction = defines.distraction.by_enemy,
-- 	}
--   return command
-- end

local function attackareacommand(position)
    local command = {
        type = defines.command.attack_area,
        destination = position,
        radius = 25,
        distraction = defines.distraction.by_enemy
    }
    return command
end

local function attackobstaclescommand(surface, position)
    local commands = {}
    local obstacles = surface.find_entities_filtered {position = position, radius = 20, type = {'simple-entity', 'tree'}, limit = 100}
    if obstacles then
        shuffle(obstacles)
        shuffle_distance(obstacles, position)
        for i = 1, #obstacles, 1 do
            if obstacles[i].valid then
                commands[#commands + 1] = {
                    type = defines.command.attack,
                    target = obstacles[i],
                    distraction = defines.distraction.by_enemy
                }
            end
        end
    end
    return commands
end

local function get_coords(group, source_player)
    local position
    if source_player.gui.screen['biter_panel'] then
        local x = tonumber(source_player.gui.screen['biter_panel']['coords']['coord_x'].text)
        local y = tonumber(source_player.gui.screen['biter_panel']['coords']['coord_y'].text)
        if x == nil or x == 'nil' then
            x = group.position.x
            source_player.gui.screen['biter_panel']['coords']['coord_x'].text = group.position.x
        end
        if y == nil or y == 'nil' then
            y = group.position.y
            source_player.gui.screen['biter_panel']['coords']['coord_y'].text = group.position.y
        end
        position = {x = x, y = y}
    end
    return position
end

-------button functions-------------

local function pan(group, source_player)
    source_player.open_map(group.position, 0.5)
end

local function teleport(group, source_player)
    if source_player.admin or global.biter_command.teleporting then
        source_player.teleport(group.position, group.surface)
    else
        flying_text('Teleporting is disabled', nil, source_player.position, source_player)
    end
end

local function disband(group, source_player)
    flying_text(nil, 4, group.position, source_player)
    group.destroy()
end

local function movetome(group, source_player)
    group.set_command(move_to(source_player.position, defines.distraction.none))
    flying_text(nil, 1, group.position, source_player)
end

local function movetoposition(group, source_player)
    local position = get_coords(group, source_player)
    if position then
        group.set_command(move_to(position, defines.distraction.none))
        flying_text(nil, 1, group.position, source_player)
    else
        flying_text(nil, 2, group.position, source_player)
    end
end

local function patroltome(group, source_player)
    group.set_command(move_to(source_player.position, defines.distraction.by_enemy))
    flying_text(nil, 1, group.position, source_player)
end

local function patroltoposition(group, source_player)
    local position = get_coords(group, source_player)
    if position then
        group.set_command(move_to(position, defines.distraction.by_enemy))
        flying_text(nil, 1, group.position, source_player)
    else
        flying_text(nil, 2, group.position, source_player)
    end
end

local function settle(group, source_player)
    local success = place_nest_near_unit_group(group)
    if success then
        flying_text(nil, 1, group.position, source_player)
    else
        flying_text(nil, 2, group.position, source_player)
        source_player.print('Settling new nest failed. Check if group has enough members(5+) and there is empty space (or nests are disabled).')
    end
end

local function siege(group, source_player)
    local success = build_worm(group)
    if success then
        flying_text(nil, 1, group.position, source_player)
    else
        flying_text(nil, 2, group.position, source_player)
        source_player.print('Making worm failed. Check if group has enough members(5+) and there is empty space (or worms are disabled).')
    end
end

local function report(group, source_player)
    local status = group.state
    local states = {'gathering', 'moving', 'attacking distraction', 'attacking target', 'finished', 'pathfinding', 'wander in group'}
    flying_text(states[status + 1], nil, group.position, source_player)
end

local function attackenemiesaround(group, source_player)
    flying_text(nil, 3, group.position, source_player)
    group.set_command(attackareacommand(group.position))
end

local function attackobstaclesaround(group, source_player)
    local commands = attackobstaclescommand(group.surface, group.position)
    if #commands > 1 then
        group.set_command(
            {
                type = defines.command.compound,
                structure_type = defines.compound_command.return_last,
                commands = commands
            }
        )
        flying_text(nil, 3, group.position, source_player)
    else
        source_player.print('No obstacles found around unit group.')
        flying_text(nil, 2, group.position, source_player)
    end
end

local function attackenemiesaroundme(group, source_player)
    group.set_command(attackareacommand(source_player.position))
    flying_text(nil, 3, group.position, source_player)
end

local function attackobstaclesaroundme(group, source_player)
    local commands = attackobstaclescommand(source_player.surface, source_player.position)
    if #commands > 1 then
        group.set_command(
            {
                type = defines.command.compound,
                structure_type = defines.compound_command.return_last,
                commands = commands
            }
        )
        flying_text(nil, 3, group.position, source_player)
    else
        source_player.print('No obstacles found around player.')
        flying_text(nil, 2, group.position, source_player)
    end
end

local function addunitsaroundme(group, source_player)
    local units = source_player.surface.find_entities_filtered {position = source_player.position, radius = 50, type = 'unit', force = group.force}
    for i = 1, #units, 1 do
        group.add_member(units[i])
    end
end

local function addunits(group, source_player)
    local units = source_player.surface.find_entities_filtered {position = group.position, radius = 50, type = 'unit', force = group.force}
    for i = 1, #units, 1 do
        group.add_member(units[i])
    end
end

local function forcemove(group, source_player)
    group.start_moving()
    flying_text(nil, 1, group.position, source_player)
end

local function creategroup(source_player)
    source_player.surface.create_unit_group {position = source_player.position, force = source_player.force}
    flying_text('Unit group created', nil, source_player.position, source_player)
end
----------------------direction panel-----------------
local function set_directions(changedx, changedy, source_player)
    if source_player.gui.screen['biter_panel'] then
        local x = tonumber(source_player.gui.screen['biter_panel']['coords']['coord_x'].text)
        local y = tonumber(source_player.gui.screen['biter_panel']['coords']['coord_y'].text)
        if x == nil or x == 'nil' then
            x = 0
        end
        if y == nil or y == 'nil' then
            y = 0
        end
        x = x + changedx
        y = y + changedy
        source_player.gui.screen['biter_panel']['coords']['coord_x'].text = x
        source_player.gui.screen['biter_panel']['coords']['coord_y'].text = y
    end
end

local function nw(source_player)
    set_directions(-25, -25, source_player)
end

local function n(source_player)
    set_directions(0, -25, source_player)
end

local function ne(source_player)
    set_directions(25, -25, source_player)
end

local function w(source_player)
    set_directions(-25, 0, source_player)
end

local function e(source_player)
    set_directions(25, 0, source_player)
end

local function sw(source_player)
    set_directions(-25, 25, source_player)
end

local function s(source_player)
    set_directions(0, 25, source_player)
end

local function se(source_player)
    set_directions(25, 25, source_player)
end

local function center(group, source_player)
    if source_player.gui.screen['biter_panel'] then
        source_player.gui.screen['biter_panel']['coords']['coord_x'].text = group.position.x
        source_player.gui.screen['biter_panel']['coords']['coord_y'].text = group.position.y
    end
end

----------------------------gui-----------------------

local function top_button(player)
    if player.gui.top['biter_commands'] then
        if global.biter_command.enabled or global.biter_command.whitelist[player.name] == true then
            player.gui.top['biter_commands'].visible = true
            return
        else
            --player.gui.top["biter_commands"].destroy()
            player.gui.top['biter_commands'].visible = false
            return
        end
    end
    if player.admin or not global.biter_command.admin_mode then
        if global.biter_command.enabled or global.biter_command.whitelist[player.name] == true then
            local button = player.gui.top.add({type = 'sprite-button', name = 'biter_commands', sprite = 'entity/medium-spitter'})
            button.style.minimal_height = 38
            button.style.minimal_width = 38
            button.style.padding = -2
        end
    end
end

local function show_info(player)
    if player.gui.screen['biter_comm_info'] then
        player.gui.screen['biter_comm_info'].destroy()
        return
    end
    local frame = player.gui.screen.add {type = 'frame', name = 'biter_comm_info', caption = 'Biter Commander needs halp', direction = 'vertical'}
    frame.location = {x = 350, y = 45}
    frame.style.minimal_height = 300
    frame.style.maximal_height = 300
    frame.style.minimal_width = 330
    frame.style.maximal_width = 630
    frame.add({type = 'label', caption = 'Create new group first, then add biters to it.'})
    frame.add({type = 'label', caption = 'You can use directionpad to navigate them, or do it in person.'})
    frame.add({type = 'label', caption = "If you input invalid coordinates, they get rewritten to current group's position."})
    frame.add({type = 'label', caption = 'You can operate only biters and create groups of your own force.'})
    frame.add({type = 'label', caption = "If group is stuck at gathering state, use 'force move' button."})
    frame.add({type = 'label', caption = 'Empty groups get autodeleted by game after a while.'})
    frame.add({type = 'button', name = 'close_info', caption = 'Close'})
end

local function build_groups(player)
    local groups = {}
    for _, g in pairs(global.biter_command.active_unit_groups) do
        if g.group.valid then
            if player.admin and global.biter_command.admin_mode then
                table.insert(groups, tostring(g.id))
            else
                if player.force == g.group.force then
                    table.insert(groups, tostring(g.id))
                end
            end
        else
            g = nil
        end
    end
    table.insert(groups, 'Select Group')
    return groups
end

local function biter_panel(player)
    if player.gui.screen['biter_panel'] then
        player.gui.screen['biter_panel'].destroy()
        return
    end

    local frame = player.gui.screen.add {type = 'frame', caption = 'Biter Commander', name = 'biter_panel', direction = 'vertical'}
    frame.location = {x = 5, y = 45}
    frame.style.minimal_height = 680
    frame.style.maximal_height = 680
    frame.style.minimal_width = 330
    frame.style.maximal_width = 330

    local groups = build_groups(player)
    local selected_index = #groups
    if global.panel_group_index then
        if global.panel_group_index[player.name] then
            if groups[global.panel_group_index[player.name]] then
                selected_index = global.paneld_group_index[player.name]
            end
        end
    end
    local t0 = frame.add({type = 'table', name = 'top', column_count = 3})
    local drop_down = t0.add({type = 'drop-down', name = 'group_select', items = groups, selected_index = selected_index})
    drop_down.style.minimal_width = 150
    drop_down.style.right_padding = 12
    drop_down.style.left_padding = 12
    t0.add({type = 'sprite-button', name = 'info', sprite = 'virtual-signal/signal-info'})
    t0.add({type = 'sprite-button', name = 'close_biters', sprite = 'virtual-signal/signal-X'})

    local l1 = frame.add({type = 'label', caption = 'Camera'})
    local t1 = frame.add({type = 'table', name = 'camera', column_count = 2})
    local l2 = frame.add({type = 'label', caption = 'Movement'})
    local t2 = frame.add({type = 'table', name = 'movement', column_count = 2})
    local l3 = frame.add({type = 'label', caption = 'Build'})
    local t3 = frame.add({type = 'table', name = 'build', column_count = 2})
    local l4 = frame.add({type = 'label', caption = 'Attack'})
    local t4 = frame.add({type = 'table', name = 'attack', column_count = 2})
    local l5 = frame.add({type = 'label', caption = 'Group Management'})
    local t5 = frame.add({type = 'table', name = 'management', column_count = 2})
    local line = frame.add {type = 'line'}
    line.style.top_margin = 8
    line.style.bottom_margin = 8
    local t6 = frame.add({type = 'table', name = 'directions', column_count = 3})
    local buttons = {
        t1.add({type = 'button', caption = 'Pan to group', name = 'pan', tooltip = 'Moves camera to group position.'}),
        t1.add({type = 'button', caption = 'TP to group', name = 'teleport', tooltip = 'Teleports to group.'}),
        t2.add({type = 'button', caption = 'Move to me', name = 'movetome', tooltip = 'Gives group order to move to your position.'}),
        t2.add({type = 'button', caption = 'Move to position', name = 'movetoposition', tooltip = 'Sends group to position with coordinates entered below.'}),
        t2.add({type = 'button', caption = 'Patrol to me ', name = 'patroltome', tooltip = 'Gives group order to move to your position and engage any enemy during movement.'}),
        t2.add(
            {
                type = 'button',
                caption = 'Patrol to position',
                name = 'patroltoposition',
                tooltip = 'Sends group to position with coordinates entered below and engage any enemy during movement.'
            }
        ),
        t3.add({type = 'button', caption = 'Settle nest', name = 'settle', tooltip = 'Group creates base. Costs 5 units.'}),
        t3.add({type = 'button', caption = 'Build worm', name = 'siege', tooltip = 'Group builds worm turret. Costs 5 units.'}),
        t4.add({type = 'button', caption = 'Attack area', name = 'attackenemiesaround', tooltip = 'Group attacks enemy things around self.'}),
        t4.add({type = 'button', caption = 'Attack obstacles', name = 'attackobstaclesaround', tooltip = 'Group attacks obstacles around self.'}),
        t4.add({type = 'button', caption = 'Attack my area', name = 'attackenemiesaroundme', tooltip = 'Group attacks enemy things around your position.'}),
        t4.add({type = 'button', caption = 'Attack my obstacles', name = 'attackobstaclesaroundme', tooltip = 'Group attacks obstacles around your position.'}),
        t5.add({type = 'button', caption = 'Report', name = 'report', tooltip = 'Reports group status.'}),
        t5.add({type = 'button', caption = 'Force Move', name = 'forcemove', tooltip = 'Makes group to start moving even if gathering is not done (unstuck).'}),
        t5.add({type = 'button', caption = 'Add units around me', name = 'addunitsaroundme', tooltip = 'Adds units around you to selected unit group.'}),
        t5.add({type = 'button', caption = 'Add units', name = 'addunits', tooltip = 'Adds units around group to it.'}),
        t5.add({type = 'button', caption = 'Create group', name = 'creategroup', tooltip = 'Creates new group on player position'}),
        t5.add({type = 'button', caption = 'Disband group', name = 'disband', tooltip = 'Disbands group.'})
    }
    local buttons2 = {
        t6.add({type = 'button', caption = '25 NW', name = 'nw', tooltip = 'Changes remote position'}),
        t6.add({type = 'button', caption = '25 N', name = 'n', tooltip = 'Changes remote position'}),
        t6.add({type = 'button', caption = '25 NE', name = 'ne', tooltip = 'Changes remote position'}),
        t6.add({type = 'button', caption = '25 W', name = 'w', tooltip = 'Changes remote position'}),
        t6.add({type = 'button', caption = 'Center', name = 'center', tooltip = 'Centers remote position to group'}),
        t6.add({type = 'button', caption = '25 E', name = 'e', tooltip = 'Changes remote position'}),
        t6.add({type = 'button', caption = '25 SW', name = 'sw', tooltip = 'Changes remote position'}),
        t6.add({type = 'button', caption = '25 S', name = 's', tooltip = 'Changes remote position'}),
        t6.add({type = 'button', caption = '25 SE', name = 'se', tooltip = 'Changes remote position'})
    }
    for _, button in pairs(buttons) do
        button.style.font = 'default-bold'
        button.style.font_color = {r = 0.99, g = 0.99, b = 0.99}
        button.style.minimal_width = 150
    end
    for _, button in pairs(buttons2) do
        button.style.font = 'default-bold'
        button.style.font_color = {r = 0.99, g = 0.99, b = 0.99}
        button.style.minimal_width = 70
    end
    local t7 = frame.add({type = 'table', name = 'coords', column_count = 2})
    t7.add({type = 'label', caption = 'X: '})
    t7.add({type = 'textfield', name = 'coord_x'})
    t7.add({type = 'label', caption = 'Y: '})
    t7.add({type = 'textfield', name = 'coord_y'})
end

local comm_functions = {
    ['pan'] = pan,
    ['teleport'] = teleport,
    ['disband'] = disband,
    ['movetome'] = movetome,
    ['movetoposition'] = movetoposition,
    ['patroltome'] = patroltome,
    ['patroltoposition'] = patroltoposition,
    ['settle'] = settle,
    ['siege'] = siege,
    ['report'] = report,
    ['attackenemiesaround'] = attackenemiesaround,
    ['attackobstaclesaround'] = attackobstaclesaround,
    ['attackenemiesaroundme'] = attackenemiesaroundme,
    ['attackobstaclesaroundme'] = attackobstaclesaroundme,
    ['addunits'] = addunits,
    ['addunitsaroundme'] = addunitsaroundme,
    ['forcemove'] = forcemove,
    ['center'] = center
}

local comm_global_functions = {
    ['creategroup'] = creategroup,
    ['nw'] = nw,
    ['n'] = n,
    ['ne'] = ne,
    ['w'] = w,
    ['e'] = e,
    ['sw'] = sw,
    ['s'] = s,
    ['se'] = se
}

local function refresh_groups(player)
    local groups = build_groups(player)
    player.gui.screen['biter_panel']['top']['group_select'].items = groups
end

local function on_gui_click(event)
    if not event then
        return
    end
    if not event.element then
        return
    end
    if not event.element.valid then
        return
    end
    local player = game.players[event.element.player_index]
    if event.element.name == 'biter_commands' then --top button press
        if global.biter_command.enabled or global.biter_command.whitelist[player.name] == true then
            biter_panel(player)
            return
        else
            top_button(player)
            player.print('Biter commander module is disabled.')
            return
        end
    else
        if global.biter_command.enabled or global.biter_command.whitelist[player.name] == true then
            top_button(player)
        end
    end
    if event.element.type ~= 'button' and event.element.type ~= 'sprite-button' then
        return
    end
    --if event.frame.name ~= "biter_panel" then return end
    local name = event.element.name
    if name == 'close_biters' then
        biter_panel(player)
        return
    end
    if name == 'info' then
        show_info(player)
        return
    end
    if name == 'close_info' then
        show_info(player)
        return
    end
    if comm_functions[name] then
        local target_group_id = event.element.parent.parent['top']['group_select'].items[event.element.parent.parent['top']['group_select'].selected_index]
        if not target_group_id then
            return
        end
        if target_group_id == 'Select Group' then
            player.print('No target group selected.', {r = 0.88, g = 0.88, b = 0.88})
            return
        end
        -- local index = index(tonumber(target_group_id))
        -- if not index then
        --   player.print("Selected group is no longer valid.", {r=0.88, g=0.88, b=0.88})
        --   return
        -- end
        local group = global.biter_command.active_unit_groups[tonumber(target_group_id)]
        if group and group.group.valid then
            comm_functions[name](group.group, player)
        else
            refresh_groups(player)
        end
        return
    end

    if comm_global_functions[name] then
        comm_global_functions[name](player)
        return
    end
end

local function refresh_panel()
    for _, player in pairs(game.connected_players) do
        if player.gui.screen['biter_panel'] then
            refresh_groups(player)
        end
    end
end

local function on_player_joined_game(event)
    top_button(game.players[event.player_index])
end

local function on_unit_group_created(event)
    if event and event.group and event.group.valid then
        global.biter_command.active_unit_groups[event.group.group_number] = {id = event.group.group_number, group = event.group}
        refresh_panel()
    end
end

local function on_unit_removed_from_group(event)
    if event and event.group and event.group.valid then
        if #event.group.members == 1 then
            global.biter_command.active_unit_groups[event.group.group_number] = nil
            refresh_panel()
        end
    end
end

event.add(defines.events.on_unit_removed_from_group, on_unit_removed_from_group)
event.add(defines.events.on_unit_group_created, on_unit_group_created)
event.add(defines.events.on_player_joined_game, on_player_joined_game)
event.add(defines.events.on_gui_click, on_gui_click)