artillery target remote

config/_file_loader.lua

@@ -44,6 +44,7 @@ return {
     'modules.commands.vlayer',
     'modules.commands.enemy',
     'modules.commands.waterfill',
+    'modules.commands.artillery',
 
     --- Addons
     'modules.addons.chat-popups',

config/expcore/roles.lua

@@ -230,7 +230,8 @@ Roles.new_role('Member','Mem')
     'command/auto-research',
     'command/manual-train',
     'command/lawnmower',
-    'command/waterfill'
+    'command/waterfill',
+    'command/artillery-target-remote'
 }
 
 local hours3, hours15 = 3*216000, 15*60

modules/commands/artillery.lua

@@ -0,0 +1,84 @@
+--[[-- Commands Module - Artillery
+    - Adds a command that help shot artillery
+    @commands Artillery
+]]
+
+local Commands = require 'expcore.commands' --- @dep expcore.commands
+require 'config.expcore.command_general_parse'
+local Selection = require 'modules.control.selection' --- @dep modules.control.selection
+local SelectionArtyArea = 'ArtyArea'
+
+local function location_break(player, pos)
+    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.get_player(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=120, 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', '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)