Mini game Archero 1.5

-- Configurações iniciais
local tabuleiro = ""
local jogador_posicao_x = 14  -- Linha do jogador (válido de 1 a 14, pois 0 e 15 são as bordas)
local jogador_posicao_y = 7   -- Coluna do jogador (válido de 1 a 14)
local porta_x, porta_y = nil, nil  -- A porta só aparece após derrotar os inimigos
local cenarios = {"🧱","🏕️", "🏖️", "🏜️", "🏝️", "🏟️", "🏛️", "🌃", "🕌", "️🕋"}  -- Símbolos das bordas (indicam os cenários)
local cenario_atual = 1
local inimigos = {}
local obstaculos = {}
local dificuldade = {5, 10, 15, 20, 25, 30, 35, 40, 45, 50}  -- Número de inimigos para cada cenário
local monster = 0
local pontuacao = 0
local vida = 3  -- Lógica interna: 3 vidas
local level = 1
local mortes = {}  -- Registra as posições dos inimigos derrotados

----------------------------------------------------------
-- Função para verificar se há um obstáculo em uma dada posição
----------------------------------------------------------
function is_obstaculo_at(x, y)
    for _, o in ipairs(obstaculos) do
        if o.x == x and o.y == y then
            return true
        end
    end
    return false
end
----------------------------------------------------------
-- Função para verificar se há um inimigo em uma dada posição (opcionalmente excluindo um índice)
----------------------------------------------------------
function is_inimigo_at(x, y, excluir_index)
    for idx, inimigo in ipairs(inimigos) do
        if idx ~= excluir_index and inimigo.x == x and inimigo.y == y then
            return true
        end
    end
    return false
end
----------------------------------------------------------
-- Função para verificar se existe algum obstáculo entre duas posições (linha ou coluna)
----------------------------------------------------------
function obstaculo_no_caminho(x1, y1, x2, y2)
    for _, o in ipairs(obstaculos) do
        if x1 == x2 and o.x == x1 and o.y > math.min(y1, y2) and o.y < math.max(y1, y2) then
            return true
        elseif y1 == y2 and o.y == y1 and o.x > math.min(x1, x2) and o.x < math.max(x1, x2) then
            return true
        end
    end
    return false
end
----------------------------------------------------------
-- Função para gerar obstáculos aleatórios
----------------------------------------------------------
function gerar_obstaculos()
    obstaculos = {}
    for i = 1, 10 do
        local obstaculo_x, obstaculo_y
        repeat
            obstaculo_x = math.random(1, 14)
            obstaculo_y = math.random(1, 14)
        until not (obstaculo_x == jogador_posicao_x and obstaculo_y == jogador_posicao_y)
              and not (porta_x and obstaculo_x == porta_x and obstaculo_y == porta_y)
        table.insert(obstaculos, {x = obstaculo_x, y = obstaculo_y})
    end
end
----------------------------------------------------------
-- Função para gerar inimigos aleatórios
----------------------------------------------------------
function gerar_inimigos()
    inimigos = {}
    local quantidade = dificuldade[cenario_atual] or 50
    for i = 1, quantidade do
        local inimigo_x, inimigo_y
        repeat
            inimigo_x = math.random(1, 12)  -- posições válidas de 1 a 14 (bordas em 0 e 15)
            inimigo_y = math.random(1, 12)
        until not (inimigo_x == jogador_posicao_x and inimigo_y == jogador_posicao_y)
              and not is_obstaculo_at(inimigo_x, inimigo_y)
              and not is_inimigo_at(inimigo_x, inimigo_y)
        table.insert(inimigos, {x = inimigo_x, y = inimigo_y})
    end
    porta_x, porta_y = nil, nil  -- Esconde a porta até eliminar os inimigos
end
----------------------------------------------------------
-- Função para atualizar a porta (aparece quando todos os inimigos forem derrotados)
----------------------------------------------------------
function atualizar_porta()
    if #inimigos == 0 and not porta_x then
        porta_x, porta_y = 8, 7  -- A porta é exibida na borda esquerda, coluna 7
    end
end
----------------------------------------------------------
-- Função para mover os inimigos
-- Os inimigos se movem somente se estiverem alinhados com o jogador, não houver obstáculos no caminho,
-- e não houver colisão com outro inimigo (exceto se for a primeira a ocupar a célula do jogador).
----------------------------------------------------------
function mover_inimigos()
    for idx, inimigo in ipairs(inimigos) do
        if inimigo.x == jogador_posicao_x and not obstaculo_no_caminho(inimigo.x, inimigo.y, jogador_posicao_x, jogador_posicao_y) then
            local nova_y = inimigo.y
            if inimigo.y < jogador_posicao_y then
                nova_y = inimigo.y + 1
            elseif inimigo.y > jogador_posicao_y then
                nova_y = inimigo.y - 1
            end
            if nova_y == jogador_posicao_y then
                if not is_inimigo_at(inimigo.x, nova_y, idx) then
                    inimigo.y = nova_y
                end
            else
                if not is_obstaculo_at(inimigo.x, nova_y) and not is_inimigo_at(inimigo.x, nova_y, idx) then
                    inimigo.y = nova_y
                end
            end
        elseif inimigo.y == jogador_posicao_y and not obstaculo_no_caminho(inimigo.x, inimigo.y, jogador_posicao_x, jogador_posicao_y) then
            local nova_x = inimigo.x
            if inimigo.x < jogador_posicao_x then
                nova_x = inimigo.x + 1
            elseif inimigo.x > jogador_posicao_x then
                nova_x = inimigo.x - 1
            end
            if nova_x == jogador_posicao_x then
                if not is_inimigo_at(nova_x, inimigo.y, idx) then
                    inimigo.x = nova_x
                end
            else
                if not is_obstaculo_at(nova_x, inimigo.y) and not is_inimigo_at(nova_x, inimigo.y, idx) then
                    inimigo.x = nova_x
                end
            end
        end
    end
end
----------------------------------------------------------
-- Função para desenhar o tabuleiro
----------------------------------------------------------
function desenhar_tabuleiro()
    tabuleiro = ""
    local cor = cenarios[cenario_atual]
    local shooting_trail = {}

    -- Define a trilha de disparo (5 ⚡) se houver um inimigo alinhado com o jogador, a distância for <= 5,
    -- e sem obstáculos no caminho
    for _, inimigo in ipairs(inimigos) do
        if inimigo.x == jogador_posicao_x then
            local distancia = math.abs(inimigo.y - jogador_posicao_y)
            if distancia <= 5 and not obstaculo_no_caminho(jogador_posicao_x, jogador_posicao_y, inimigo.x, inimigo.y) then
                local dir = (inimigo.y > jogador_posicao_y) and 1 or -1
                for i = 1, 5 do
                    table.insert(shooting_trail, {x = jogador_posicao_x, y = jogador_posicao_y + i * dir})
                end
                break  -- Usa o primeiro inimigo alinhado encontrado
            end
        elseif inimigo.y == jogador_posicao_y then
            local distancia = math.abs(inimigo.x - jogador_posicao_x)
            if distancia <= 5 and not obstaculo_no_caminho(jogador_posicao_x, jogador_posicao_y, inimigo.x, inimigo.y) then
                local dir = (inimigo.x > jogador_posicao_x) and 1 or -1
                for i = 1, 5 do
                    table.insert(shooting_trail, {x = jogador_posicao_x + i * dir, y = jogador_posicao_y})
                end
                break
            end
        end
    end
    for i = 0, 15 do
        for j = 0, 15 do
            -- 1. Bordas
            if i == 0 or i == 15 or j == 0 or j == 15 then
                tabuleiro = tabuleiro .. cor
            -- 2. Posição do jogador
            elseif i == jogador_posicao_x and j == jogador_posicao_y then
                tabuleiro = tabuleiro .. "🧕"
            -- 3. Porta
            elseif porta_x and i == porta_x and j == porta_y then
                tabuleiro = tabuleiro .. "️🚩"
            else
                -- 4. Se houver um inimigo na célula, exibe o inimigo
                local enemy_found = false
                for _, inimigo in ipairs(inimigos) do
                    if i == inimigo.x and j == inimigo.y then
                        tabuleiro = tabuleiro .. "👹"
                        enemy_found = true
                        break
                    end
                end
                if not enemy_found then
                    -- 5. Se houver um obstáculo na célula, exibe o obstáculo
                    if is_obstaculo_at(i, j) then
                        tabuleiro = tabuleiro .. "🗿"
                    -- 6. Se a célula fizer parte da trilha de disparo, exibe o efeito de disparo
                    elseif (function()
                            for _, pos in ipairs(shooting_trail) do
                                if pos.x == i and pos.y == j then
                                    return true
                                end
                            end
                            return false
                         end)() then
                        tabuleiro = tabuleiro .. "⚡"
                    -- 7. Se houver um inimigo morto na célula, exibe o símbolo de morte
                    else
                        local is_dead = false
                        for _, morte in ipairs(mortes) do
                            if i == morte.x and j == morte.y then
                                tabuleiro = tabuleiro .. "☠️"
                                is_dead = true
                                break
                            end
                        end
                        -- 8. Caso contrário, exibe o marcador padrão
                        if not is_dead then
                            tabuleiro = tabuleiro .. "✔"
                        end
                    end
                end
            end
        end
        tabuleiro = tabuleiro .. "\n"
    end
    -- Exibe as vidas usando corações
    return "Pontuação: " .. pontuacao .. "                          Nível: " .. level ..
           "\nInimigos Mortos: " .. monster .. "               Vidas: " .. string.rep("❤️", vida) .. "\n" .. tabuleiro
end
----------------------------------------------------------
-- Função para atacar inimigos
-- O ataque atinge o inimigo em linha reta (mesma linha ou coluna) que esteja mais próximo do jogador,
-- desde que esteja a no máximo 5 espaços e sem obstáculos no caminho.
----------------------------------------------------------
function atacar()
    local inimigo_alvo = nil
    local distancia_min = math.huge  -- Inicializa com um número muito grande

    for _, inimigo in ipairs(inimigos) do
        if inimigo.x == jogador_posicao_x or inimigo.y == jogador_posicao_y then
            local distancia = math.abs(inimigo.x - jogador_posicao_x) + math.abs(inimigo.y - jogador_posicao_y)
            if distancia <= 5 then  -- Verifica se o inimigo está no alcance (5 espaços)
                local bloqueado = false
                if jogador_posicao_x == inimigo.x then
                    for _, obstaculo in ipairs(obstaculos) do
                        if obstaculo.x == jogador_posicao_x and obstaculo.y > math.min(jogador_posicao_y, inimigo.y) and obstaculo.y < math.max(jogador_posicao_y, inimigo.y) then
                            bloqueado = true
                            break
                        end
                    end
                elseif jogador_posicao_y == inimigo.y then
                    for _, obstaculo in ipairs(obstaculos) do
                        if obstaculo.y == jogador_posicao_y and obstaculo.x > math.min(jogador_posicao_x, inimigo.x) and obstaculo.x < math.max(jogador_posicao_x, inimigo.x) then
                            bloqueado = true
                            break
                        end
                    end
                end
                if not bloqueado and distancia < distancia_min then
                    distancia_min = distancia
                    inimigo_alvo = inimigo
                end
            end
        end
    end
    if inimigo_alvo then
        table.insert(mortes, {x = inimigo_alvo.x, y = inimigo_alvo.y})
        for i = #inimigos, 1, -1 do
            if inimigos[i] == inimigo_alvo then
                table.remove(inimigos, i)
                break
            end
        end
        pontuacao = pontuacao + 150
        monster = monster + 1
        atualizar_porta()
    end
end
----------------------------------------------------------
-- Função para reiniciar o jogo
----------------------------------------------------------
function resetar_jogo()
    local escolha = gg.choice({"🔄 Reiniciar Jogo", "❌ Sair"}, nil, "O jogo terminou! Deseja reiniciar?")

    if escolha == 1 then
        -- Reseta todas as variáveis do jogo
        jogador_posicao_x, jogador_posicao_y = 14, 7
        porta_x, porta_y = nil, nil
        cenario_atual = 1
        inimigos = {}
        obstaculos = {}
        dificuldade = {5, 10, 15, 20, 25, 30, 35, 50}
        monster = 0
        pontuacao = 0
        vida = 3
        mortes = {}
        level = 1

        gg.toast("Jogo reiniciado!")
        jogar()  -- Inicia um novo jogo
    else
        gg.toast("Jogo encerrado.")
    end
end
----------------------------------------------------------
-- Função principal do jogo
----------------------------------------------------------
function jogar()
    gerar_obstaculos()
    gerar_inimigos()
    while true do
        local tabuleiro_atual = desenhar_tabuleiro()

        local escolha = gg.choice(
            {
                "                    ⬆️ Cima\n",
                "\n⬅️ Esquerda\n",
                "\n                                        ➡️ Direita\n",
                "\n                    ⬇️ Baixo\n",
                "\n                                         🏹 Atacar\n",
                "❌ Sair"
            },
            nil, tabuleiro_atual)

        -- Movimentação do jogador com verificação de obstáculo
        if escolha == 1 and jogador_posicao_x > 1 and not is_obstaculo_at(jogador_posicao_x - 1, jogador_posicao_y) then
            jogador_posicao_x = jogador_posicao_x - 1  -- Cima: diminui a linha
        elseif escolha == 2 and jogador_posicao_y > 1 and not is_obstaculo_at(jogador_posicao_x, jogador_posicao_y - 1) then
            jogador_posicao_y = jogador_posicao_y - 1  -- Esquerda: diminui a coluna
        elseif escolha == 3 and jogador_posicao_y < 14 and not is_obstaculo_at(jogador_posicao_x, jogador_posicao_y + 1) then
            jogador_posicao_y = jogador_posicao_y + 1  -- Direita: aumenta a coluna
        elseif escolha == 4 and jogador_posicao_x < 14 and not is_obstaculo_at(jogador_posicao_x + 1, jogador_posicao_y) then
            jogador_posicao_x = jogador_posicao_x + 1  -- Baixo: aumenta a linha
        elseif escolha == 5 then
            atacar()
        elseif escolha == 6 or escolha == nil then
            gg.toast("Jogo encerrado.")
            break
        end
        mover_inimigos()

        -- Verifica se algum inimigo atingiu o jogador (caso algum inimigo consiga ocupar a mesma célula)
        for _, inimigo in ipairs(inimigos) do
            if inimigo.x == jogador_posicao_x and inimigo.y == jogador_posicao_y then
                vida = vida - 1  -- Reduz a vida
                gg.toast("Você foi atingido! Vidas restantes: " .. string.rep("❤️", vida))

                if vida == 0 then
                    gg.toast("Você foi derrotado pelos inimigos!")
                    resetar_jogo()  -- Reinicia o jogo
                    return
                end
            end
        end
        -- Verifica se o jogador entrou na porta para avançar de cenário
        if porta_x and jogador_posicao_x == porta_x and jogador_posicao_y == porta_y then
            if cenario_atual < #cenarios then
                cenario_atual = cenario_atual + 1
                level = cenario_atual
                jogador_posicao_x, jogador_posicao_y = 14, 7  -- Reset da posição do jogador
                mortes = {}
                gerar_obstaculos()
                gerar_inimigos()
                gg.toast("Novo cenário!")
            else
                gg.toast("Você venceu o jogo!")
                resetar_jogo()
                return
            end
        end
    end
end
-- Iniciar o jogo
jogar()