Main Controller

-- Combined Teleport and Artillery Control System
local modem = peripheral.find("modem") or error("No modem attached", 0)
local CHANNEL = 15
modem.open(CHANNEL)

-- Function to wait for a modem message on a specific channel
local function receiveMessage()
    local event, _, channel, _, message = os.pullEvent("modem_message")
    if channel == CHANNEL then
        return message
    else
        return receiveMessage()
    end
end

local function teleportPlayer(player, x, y, z, dimension)
    if dimension then
        commands.exec(("execute in %s run tp %s %d %d %d"):format(dimension, player, x, y, z))
    else
        commands.exec(("tp %s %d %d %d"):format(player, x, y, z))
    end
end

-- Function to summon particles at a given position
local function summonParticles(x, y, z, dimension)
    for _ = 1, 10 do
        if dimension then
            commands.exec(("execute in %s run particle minecraft:portal %d %d %d 1 1 1 0.1 50"):format(dimension, x, y, z))
        else
            commands.exec(("particle minecraft:portal %d %d %d 1 1 1 0.1 50"):format(x, y, z))
        end
        sleep(0.1) -- Creates a brief delay between particle bursts
    end
end

-- Function to add slight randomness to coordinates
local function addRandomness(coordinate)
    -- Generate random number between -2 and 2
    local randomOffset = math.random(-2, 2)

    -- 60% chance to apply randomness (accuracy simulation)
    if math.random(1, 10) <= 6 then
        return coordinate + randomOffset
    end

    return coordinate
end

-- Function to summon TNT in a grid with offset for alternating patterns
local function summonGrid(size, spacing, targetX, targetY, targetZ, projectileType, iteration)
    local offset = math.floor(size / 2) * spacing
    local patternOffset = (iteration % 2) * (spacing / 2) -- Alternate pattern offset

    for dx = -offset, offset, spacing do
        for dz = -offset, offset, spacing do
            -- Apply alternating offset to create staggered pattern
            local x = targetX + dx + patternOffset
            local z = targetZ + dz + patternOffset

            -- Add randomness to each explosion
            local randomX = addRandomness(x)
            local randomY = addRandomness(targetY)
            local randomZ = addRandomness(z)

            commands.exec(("summon %s %d %d %d {Fuse:100}"):format(projectileType, randomX, randomY, randomZ))
        end
    end
end

-- Seed the random number generator
math.randomseed(os.time())

term.clear()
term.setCursorPos(1, 1)
print("Bastion Network Online!")
print("Waiting for command...")

-- Main program loop
while true do
    local command = receiveMessage()

    if command == "Recall" then
        print("Recalling Player...")
        modem.transmit(43, CHANNEL, "Recalling Player...")

        print("Starting Teleporter")
        os.sleep(2)

        for i = 1, 100 do
            local chargePercent = i
            print("Charging " .. chargePercent .. "%")
            modem.transmit(43, CHANNEL, "Charging " .. chargePercent .. "%")
            sleep(0.05) -- 100 updates over 5 seconds
        end

        -- Teleport the player
        local targetX, targetY, targetZ = 293, 95, 750, "minecraft:overworld"
        teleportPlayer("Alexr036", targetX, targetY, targetZ, dimension)

        -- Summon teleport particles
        summonParticles(targetX, targetY, targetZ, dimension)

    elseif command == "Teleport" then
        print("Programming Started")

        local positionX = receiveMessage()
        print("Position X: " .. positionX)

        local positionY = receiveMessage()
        print("Position Y: " .. positionY)

        local positionZ = receiveMessage()
        print("Position Z: " .. positionZ)

        local dimension = receiveMessage()
        print("Target Dimension: " .. dimension)

        print("Starting Teleporter")
        os.sleep(2)

        for i = 1, 100 do
            print("Charging " .. i .. "%")
            modem.transmit(43, CHANNEL, "Charging " .. i .. "%")
            sleep(0.05)
        end

        -- Teleport the player across dimensions
        teleportPlayer("Alexr036", positionX, positionY, positionZ, dimension)

        -- Summon teleport particles
        summonParticles(positionX, positionY, positionZ, dimension)

    elseif command == "TNT" or command == "Nuke" then
        print("Artillery System Online")
        modem.transmit(43, CHANNEL, "Artillery System Online")

        -- Store the projectile type from the command
        local projectileType = command
        print("Projectile Type: " .. projectileType)

        local projectilePattern = receiveMessage()
        print("Projectile Pattern: " .. projectilePattern)

        local iterations = receiveMessage() + 0
        print("Iterations: " .. iterations)

        local targetX = receiveMessage()
        print("Target X: " .. targetX)

        local targetY = receiveMessage() + 40
        print("Target Y: " .. targetY)

        local targetZ = receiveMessage()
        print("Target Z: " .. targetZ)

        -- Item Based on Type
        local spread = 0
        if projectileType == "TNT" then
            projectileType = "minecraft:tnt"
            spread = 7
        elseif projectileType == "Nuke" then
            projectileType = "alexscaves:nuclear_bomb"
            spread = 80
        end

        modem.transmit(43, CHANNEL, "Bombardment Started")

        -- Pattern Based on input with alternating offsets and randomness
        for i = 1, tonumber(iterations) do
            print("Firing iteration " .. i)
            modem.transmit(43, CHANNEL, "Firing iteration " .. i)

            -- Add slight variation to Y position for each iteration
            local variationY = (i % 3) * 2 -- Varies height by 0, 2, 4 blocks
            local iterationY = targetY + variationY

            if projectilePattern == "Single" then
                -- For single pattern, create slight x/z offsets for each iteration
                local offsetX = (i % 3 - 1) * (spread / 3)
                local offsetZ = ((i + 1) % 3 - 1) * (spread / 3)

                -- Add randomness to coordinates
                local randomX = addRandomness(targetX + offsetX)
                local randomY = addRandomness(iterationY)
                local randomZ = addRandomness(targetZ + offsetZ)

                commands.exec(("summon %s %d %d %d {Fuse:100}"):format(
                    projectileType,
                    randomX,
                    randomY,
                    randomZ
                ))
            elseif projectilePattern == "2x2" then
                summonGrid(2, spread, targetX, iterationY, targetZ, projectileType, i)
            elseif projectilePattern == "3x3" then
                summonGrid(3, spread, targetX, iterationY, targetZ, projectileType, i)
            elseif projectilePattern == "4x4" then
                summonGrid(4, spread, targetX, iterationY, targetZ, projectileType, i)
            elseif projectilePattern == "5x5" then
                summonGrid(5, spread, targetX, iterationY, targetZ, projectileType, i)
            end

            os.sleep(5)
        end

        -- Acknowledge firing
        modem.transmit(43, CHANNEL, "Bombardment Complete")

    elseif command == "Remote Connected" then
        print("Connected to System")
        modem.transmit(43, CHANNEL, "Connected to System")
    else
        print("Unknown command: " .. command)
        modem.transmit(43, CHANNEL, "Unknown command")
    end

    print("Waiting for next command...")
end