ComfyFactorio/modules/launch_fish_to_win.lua

-- launch fish into space to win the game -- by mewmew

local Event = require 'utils.event'
local Gui = require 'utils.gui'

local Public = {}

Gui.mod_gui_button_enabled = true
Gui.button_style = 'mod_gui_button'
Gui.set_mod_gui_top_frame(true)

local function get_top_frame(player, id)
    if not id then
        id = 'fish_in_space_toggle'
    end

    if Gui.get_mod_gui_top_frame() then
        return Gui.get_button_flow(player)[id]
    else
        return player.gui.top[id]
    end
end

local function goals()
    storage.catplanet_goals =
    {
        { goal = 0, rank = false, achieved = true },
        {
            goal = 100,
            rank = 'Copper',
            color = { r = 201, g = 133, b = 6 },
            msg = 'You have saved the first container of fish!',
            msg2 = 'However, this is only the beginning.',
            achieved = false
        },
        {
            goal = 1000,
            rank = 'Bronze',
            color = { r = 186, g = 115, b = 39 },
            msg = 'Thankful for the fish, they sent back a toy mouse made of solid bronze!',
            msg2 = 'They are demanding more.',
            achieved = false
        },
        {
            goal = 10000,
            rank = 'Silver',
            color = { r = 186, g = 178, b = 171 },
            msg = 'In gratitude for the fish, they left you a silver furball!',
            msg2 = 'They are still longing for more.',
            achieved = false
        },
        {
            goal = 25000,
            rank = 'Gold',
            color = { r = 255, g = 214, b = 33 },
            msg = 'Pleased about the delivery, they sent back a golden audiotape with cat purrs.',
            msg2 = 'They still demand more.',
            achieved = false
        },
        {
            goal = 50000,
            rank = 'Platinum',
            color = { r = 224, g = 223, b = 215 },
            msg = 'To express their infinite love, they sent back a yarnball made of shiny material.',
            msg2 = 'Defying all logic, they still demand more fish.',
            achieved = false
        },
        {
            goal = 100000,
            rank = 'Diamond',
            color = { r = 237, g = 236, b = 232 },
            msg = 'A box arrives with a mewing kitten, it a has a diamond collar.',
            msg2 = 'More fish? Why? What..',
            achieved = false
        },
        {
            goal = 250000,
            rank = 'Anti-matter',
            color = { r = 100, g = 100, b = 245 },
            msg = 'The obese cat colapses and forms a black hole!',
            msg2 = ':obese:',
            achieved = false
        },
        {
            goal = 500000,
            rank = 'Black Hole',
            color = { r = 100, g = 100, b = 245 },
            msg = 'A letter arrives, it reads: Go to bed hooman!',
            msg2 = 'Not yet...',
            achieved = false
        },
        {
            goal = 1000000,
            rank = 'Blue Screen',
            color = { r = 100, g = 100, b = 245 },
            msg = 'Cat error #4721',
            msg2 = '....',
            achieved = false
        },
        { goal = 10000000, rank = 'Blue Screen', color = { r = 100, g = 100, b = 245 }, msg = '....', msg2 = '....', achieved = false }
    }
end

local function get_rank()
    if not storage.catplanet_goals then
        goals()
    end
    for i = #storage.catplanet_goals, 1, -1 do
        if storage.fish_in_space >= storage.catplanet_goals[i].goal then
            return i
        end
    end
end

local function fish_in_space_toggle_button(player)
    local button = get_top_frame(player)
    if button then
        return
    end

    if Gui.get_mod_gui_top_frame() then
        button = Gui.add_mod_button(player, { name = 'fish_in_space_toggle', type = 'sprite-button', sprite = 'item/raw-fish', tooltip = 'Fish in Space', style = Gui.button_style })
    else
        button = player.gui.top.add { name = 'fish_in_space_toggle', type = 'sprite-button', sprite = 'item/raw-fish', tooltip = 'Fish in Space', style = Gui.button_style }
    end
    if button then
        button.style.minimal_height = 36
        button.style.maximal_height = 36
    end
end

local function level_up_popup(player)
    local reward = storage.catplanet_goals[get_rank()]
    if player.gui.center['level_up_popup'] then
        player.gui.center['level_up_popup'].destroy()
    end
    local frame = player.gui.center.add({ type = 'frame', name = 'level_up_popup', direction = 'vertical' })
    local label = frame.add({ type = 'label', caption = reward.msg })
    label.style.font = 'default-listbox'
    label.style.font_color = reward.color
    local button = frame.add({ type = 'button', caption = reward.msg2, name = 'level_up_popup_close' })
    button.style.minimal_width = string.len(reward.msg) * 7
    button.style.font = 'default-listbox'
    button.style.font_color = { r = 0.77, g = 0.77, b = 0.77 }
end

local function fish_in_space_gui(player)
    if storage.fish_in_space == 0 then
        return
    end
    local i = get_rank()

    fish_in_space_toggle_button(player)

    if player.gui.left['fish_in_space'] then
        player.gui.left['fish_in_space'].destroy()
    end

    local frame = player.gui.left.add({ type = 'frame', name = 'fish_in_space' })
    local label = frame.add({ type = 'label', caption = 'Fish rescued: ' })
    label.style.font_color = { r = 0.11, g = 0.8, b = 0.44 }
    frame.style.bottom_padding = -2

    frame.style.minimal_height = 40

    local progress = storage.fish_in_space / storage.catplanet_goals[i + 1].goal
    if progress > 1 then
        progress = 1
    end
    local progressbar = frame.add({ type = 'progressbar', value = progress })
    ---@class LuaGuiElementStyle
    progressbar.style = 'achievement_progressbar'
    progressbar.style.minimal_width = 96
    progressbar.style.maximal_width = 96
    progressbar.style.padding = -1
    progressbar.style.top_padding = 1
    progressbar.style.height = 20

    label = frame.add({ type = 'label', caption = storage.fish_in_space .. '/' .. tostring(storage.catplanet_goals[i + 1].goal) })
    label.style.font_color = { r = 0.33, g = 0.66, b = 0.9 }

    if storage.catplanet_goals[i].rank then
        label = frame.add({ type = 'label', caption = '  ~Rank~' })
        label.style.font_color = { r = 0.75, g = 0.75, b = 0.75 }
        label = frame.add({ type = 'label', caption = storage.catplanet_goals[i].rank })
        label.style.font = 'default-bold'
        label.style.font_color = storage.catplanet_goals[i].color
    end
end

local function fireworks(entity)
    for x = entity.position.x - 32, entity.position.x + 32, 1 do
        for y = entity.position.y - 32, entity.position.y + 32, 1 do
            if math.random(1, 150) == 1 then
                entity.surface.create_entity({ name = 'big-explosion', position = { x = x, y = y } })
            end
            if math.random(1, 150) == 1 then
                entity.surface.create_entity({ name = 'uranium-cannon-shell-explosion', position = { x = x, y = y } })
            end
            if math.random(1, 150) == 1 then
                entity.surface.create_entity({ name = 'blood-explosion-huge', position = { x = x, y = y } })
            end
            if math.random(1, 150) == 1 then
                entity.surface.create_entity({ name = 'big-artillery-explosion', position = { x = x, y = y } })
            end
        end
    end
end

local function on_rocket_launched(event)
    local rocket_inventory = event.rocket.cargo_pod.get_inventory(defines.inventory.cargo_unit)
    local slot = rocket_inventory[1]
    if slot and slot.valid and slot.valid_for_read then
        if slot.name ~= "raw-fish" then
            return
        end
    end

    if storage.fish_in_space == 0 then
        goals()
    end

    rocket_inventory.clear()
    rocket_inventory.insert({ name = 'space-science-pack', count = 200 })

    storage.fish_in_space = storage.fish_in_space + slot.count

    local i = get_rank()

    for _, player in pairs(game.connected_players) do
        fish_in_space_gui(player)
    end

    if not storage.catplanet_goals[i].achieved then
        for _, player in pairs(game.connected_players) do
            player.play_sound { path = 'utility/game_won', volume_modifier = 0.9 }
            level_up_popup(player)
        end
        storage.catplanet_goals[i].achieved = true
        fireworks(event.rocket_silo)
    end
end

local function init()
    storage.fish_in_space = 0
end

local function on_player_joined_game(event)
    if not storage.fish_in_space then
        init()
    end
    local player = game.players[event.player_index]
    fish_in_space_gui(player)
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]
    local name = event.element.name

    if name == 'fish_in_space_toggle' then
        local frame = player.gui.left['fish_in_space']
        if frame then
            frame.destroy()
        else
            fish_in_space_gui(player)
        end
    end

    if name == 'level_up_popup_close' then
        player.gui.center['level_up_popup'].destroy()
    end
end

local function on_init()
    storage.fish_autolaunch = true
    goals()
    storage.rocket_silos = {}
end

local function tick()
    if not storage.fish_autolaunch then
        return
    end
    if game.tick % 6000 == 0 then
        local found_silos = {}
        for _, surface in pairs(game.surfaces) do
            local objects = surface.find_entities_filtered { name = 'rocket-silo' }
            for _, object in pairs(objects) do
                table.insert(found_silos, object)
            end
        end
        storage.rocket_silos = found_silos
    end
    for index, silo in pairs(storage.rocket_silos) do
        if silo.valid and silo.name == 'rocket-silo' then
            local rocket_inventory = silo.get_inventory(defines.inventory.rocket_silo_rocket)
            local fish
            if rocket_inventory and rocket_inventory.valid then
                fish = rocket_inventory[1]
            end
            if fish and fish.valid_for_read and fish.count == 100 and fish.name == 'raw-fish' then
                silo.launch_rocket()
            end
        else
            storage.rocket_silos[index] = nil
        end
    end
end

Event.on_nth_tick(60, tick)
Event.on_init(on_init)
Event.add(defines.events.on_gui_click, on_gui_click)
Event.add(defines.events.on_player_joined_game, on_player_joined_game)
Event.add(defines.events.on_rocket_launch_ordered, on_rocket_launched)

Public.get_top_frame = get_top_frame
Public.fish_in_space_toggle_button = fish_in_space_toggle_button
Public.level_up_popup = level_up_popup
Public.fish_in_space_gui = fish_in_space_gui
Public.fireworks = fireworks

return Public