Huntpk - Bonty Hunter - sistema de caça por recompensa

[vitor vieira 0]

Olá pessoal aqui da comunidade, ja estou batendo cabeça aqui sobre um sistema de caça de pk ou hunted sistem ja faz quase uma semana recorrendo a todos os forums e sem sucesso, ja vi que tem aqui um post sobre este sistema , ja tentei por em pratica ele mas sem sucesso. pois a versão que estou é a 13x e os codigos não funciona na minha versão, tentei por diversas vezes fazer as modificações trazendo para o client mais atual mas nada...

Alguem por gentileza tem algo ja funcionando nesta versão e que possa compartilhar?

Volto a repetir, ja vi varios aqui mas tudo nas versoes antigas, que não esta dando certo para minha versão mais recente.

cheguei ate este ponto aqui, mas daqui ja não estou conseguindo progredir... é erro atras de erro...

segue a criação da tabela de banco do banco de dados:
 

CREATE TABLE `busque_cabeca` (
    `id` INT AUTO_INCREMENT PRIMARY KEY, -- ID único para cada entrada
    `fp_id` INT NOT NULL,               -- ID do jogador que ofereceu a recompensa
    `sp_id` INT NOT NULL,               -- ID do jogador caçado
    `k_id` INT DEFAULT 0,               -- ID do jogador que matou o alvo (0 se ainda vivo)
    `added` INT NOT NULL,               -- Timestamp de quando a recompensa foi adicionada
    `prize` BIGINT NOT NULL,            -- Valor total da recompensa
    `fp_ids` TEXT,                      -- Lista de IDs dos jogadores que contribuíram para a recompensa
    `killed` TINYINT DEFAULT 0,         -- Status: 0 = vivo, 1 = morto
    `kill_time` INT DEFAULT 0           -- Timestamp de quando o jogador foi morto
);

SEGUE O CODIGO .LUA
 

-- Definição das constantes de mensagem (ajuste conforme necessário)
local MESSAGE_STATUS_CONSOLE_BLUE = 17
local MESSAGE_STATUS_CONSOLE_ORANGE = 18

-- Função auxiliar para dividir strings
function string:split(sep)
    local fields = {}
    local pattern = string.format("([^%s]+)", sep)
    self:gsub(pattern, function(c) fields[#fields + 1] = c end)
    return fields
end

-- Função para obter o GUID do jogador pelo nome
function getPlayerGUIDByName(name)
    print("[DEBUG] getPlayerGUIDByName called for name: " .. name)
    local resultId = db.storeQuery("SELECT `id` FROM `players` WHERE `name` = " .. db.escapeString(name))
    if not resultId then
        print("[DEBUG] Player not found in database.")
        return nil
    end
    local guid = result.getNumber(resultId, "id")
    result.free(resultId)
    print("[DEBUG] Found player GUID: " .. guid)
    return guid
end

-- Função para verificar o dinheiro total do jogador (em mãos + banco)
function getPlayerTotalMoney(player)
    local moneyInHand = player:getMoney()
    local bankBalance = player:getBankBalance()
    print("[DEBUG] Money in hand: " .. moneyInHand .. ", Bank balance: " .. bankBalance)
    return moneyInHand + bankBalance
end

-- Função para remover dinheiro total do jogador (priorizando o banco)
function removePlayerTotalMoney(player, amount)
    local moneyInHand = player:getMoney()
    local bankBalance = player:getBankBalance()

    if bankBalance >= amount then
        -- Retira todo o valor do banco
        player:setBankBalance(bankBalance - amount)
        print("[DEBUG] Removed " .. amount .. " coins from bank.")
    else
        -- Retira o que puder do banco e o restante da bag
        local remainingAmount = amount - bankBalance
        player:setBankBalance(0)
        if moneyInHand >= remainingAmount then
            player:removeMoney(remainingAmount)
            print("[DEBUG] Removed " .. bankBalance .. " coins from bank and " .. remainingAmount .. " coins from hand.")
        else
            print("[DEBUG] Insufficient funds after attempting to remove money.")
            return false
        end
    end
    return true
end

-- Comando !busque
local busque = TalkAction("!busque")
busque:separator(" ")

function busque.onSay(player, words, param)
    print("[DEBUG] !busque called by player: " .. player:getName())
    local t = param:split(" ")
    if #t < 2 then
        print("[DEBUG] Insufficient parameters provided.")
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Use: \"!busque [valor] [nick]\" Exemplo de prêmio: 1(k).")
        return true
    end

    local prize = tonumber(t[1])
    local targetName = t[2]
    print("[DEBUG] Prize: " .. tostring(prize) .. ", Target Name: " .. targetName)

    if not prize or prize < 1 or prize >= 100000000000000000000 then
        print("[DEBUG] Invalid prize value.")
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Valor de prêmio inválido.")
        return true
    end

    local sp_id = getPlayerGUIDByName(targetName)
    if not sp_id then
        print("[DEBUG] Target player does not exist.")
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Este jogador não existe.")
        return true
    end

    if sp_id == player:getGuid() then
        print("[DEBUG] Player tried to add themselves to the list.")
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Você não pode colocar a si mesmo na lista de caçados.")
        return true
    end

    local totalMoney = getPlayerTotalMoney(player)
    print("[DEBUG] Total money available: " .. totalMoney .. ", Required amount: " .. prize)

    if totalMoney < prize then
        print("[DEBUG] Player does not have enough money.")
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Você não tem dinheiro suficiente.")
        return true
    end

    -- Verifica se o jogador já está na lista de caçados
    local result_plr = db.storeQuery("SELECT `id`, `prize`, `fp_ids` FROM `busque_cabeca` WHERE `sp_id` = " .. sp_id .. " AND `killed` = 0;")
    if result_plr then
        -- Jogador já está na lista, verifica se o jogador atual já fez uma oferta
        local id = result.getNumber(result_plr, "id")
        local currentPrize = result.getNumber(result_plr, "prize")
        local fp_ids = result.getString(result_plr, "fp_ids") or ""
        result.free(result_plr)

        print("[DEBUG] Current prize: " .. currentPrize)
        print("[DEBUG] Current fp_ids: " .. fp_ids)

        -- Verifica se o jogador atual já fez uma oferta
        local fp_id = player:getGuid()
        if fp_ids:find(tostring(fp_id)) then
            print("[DEBUG] Player already made an offer for this target.")
            player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Você já fez uma oferta para este jogador.")
            return true
        end

        -- Acumula o valor da recompensa e atualiza a lista de IDs
        local newPrize = currentPrize + prize
        local updatedFpIds = fp_ids .. (fp_ids == "" and "" or ",") .. fp_id
        print("[DEBUG] Updated prize: " .. newPrize)
        print("[DEBUG] Updated fp_ids: " .. updatedFpIds)

        local updateQuery = string.format(
            "UPDATE `busque_cabeca` SET `prize` = %d, `fp_ids` = '%s' WHERE `id` = %d;",
            newPrize, updatedFpIds, id
        )
        db.asyncQuery(updateQuery)
        print("[DEBUG] Bounty updated for player ID: " .. sp_id .. ". New prize: " .. newPrize)

        -- Remove o dinheiro do jogador
        if not removePlayerTotalMoney(player, prize) then
            print("[DEBUG] Failed to remove money from player.")
            player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Erro ao processar o pagamento. Tente novamente.")
            return true
        end

        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Recompensa acumulada! Novo valor total: " .. newPrize .. " moedas.")
        return true
    end

    -- Jogador não está na lista, cria uma nova entrada
    local query = string.format(
        "INSERT INTO `busque_cabeca` (`fp_id`, `sp_id`, `k_id`, `added`, `prize`, `fp_ids`, `killed`, `kill_time`) VALUES (%d, %d, 0, %d, %d, '%d', 0, 0);",
        player:getGuid(), sp_id, os.time(), prize, player:getGuid()
    )
    db.asyncQuery(query)
    print("[DEBUG] Bounty added successfully for player ID: " .. sp_id)

    -- Remove o dinheiro do jogador
    if not removePlayerTotalMoney(player, prize) then
        print("[DEBUG] Failed to remove money from player.")
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Erro ao processar o pagamento. Tente novamente.")
        return true
    end

    player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] Mandato de caçada criado com sucesso!")
end

-- Registra o comando !busque
busque:groupType("normal") -- Permite apenas jogadores do grupo "normal" a usar o comando
busque:register()

-- Função para processar a morte do jogador
function processPlayerDeath(playerId, killed_by)
    print("[DEBUG] Processing death for player ID: " .. playerId .. ", Killed by: " .. killed_by)

    -- Consulta o banco de dados para verificar se o jogador está na lista de caçados
    local result_plr = db.storeQuery("SELECT `id`, `prize`, `killed` FROM `busque_cabeca` WHERE `sp_id` = " .. playerId .. " AND `killed` = 0;")
    if not result_plr then
        print("[DEBUG] Player is not on the bounty list.")
        return true
    end

    local id = result.getNumber(result_plr, "id")
    local prize = result.getNumber(result_plr, "prize")
    local killed = result.getNumber(result_plr, "killed")
    result.free(result_plr)

    print("[DEBUG] Player is on the bounty list. ID: " .. id .. ", Prize: " .. prize .. ", Killed: " .. killed)

    -- Obtém o ID do assassino pelo nome
    local killer_id = getPlayerGUIDByName(killed_by)
    if not killer_id then
        print("[DEBUG] Failed to retrieve killer ID.")
        return true
    end

    print("[DEBUG] Killer ID: " .. killer_id)

    -- Atualiza o banco de dados para marcar o jogador como morto
    local updateQuery = string.format(
        "UPDATE `busque_cabeca` SET `k_id` = %d, `killed` = 1, `kill_time` = %d WHERE `id` = %d;",
        killer_id, os.time(), id
    )
    db.asyncQuery(updateQuery)
    print("[DEBUG] Player marked as killed in database. ID: " .. id)

    -- Obtém o objeto do assassino
    local killer = Player(killer_id)
    if not killer then
        print("[DEBUG] Killer player object not found.")
        return true
    end

    -- Deposita o prêmio diretamente no banco do assassino
    local currentBankBalance = killer:getBankBalance()
    killer:setBankBalance(currentBankBalance + prize)
    print("[DEBUG] Awarded " .. prize .. " coins to killer's bank account: " .. killer:getName())

    killer:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "[BUSQUE A CABEÇA] Você recebeu " .. prize .. " moedas no seu banco por matar este jogador!")

    -- Mensagem para o assassino informando que o alvo foi marcado como inativo
    killer:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "[BUSQUE A CABEÇA] O jogador " .. getPlayerNameById(playerId) .. " foi removido da lista de caçados.")
    return true
end

-- Função auxiliar para obter o nome do jogador pelo ID
function getPlayerNameById(playerId)
    local resultId = db.storeQuery("SELECT `name` FROM `players` WHERE `id` = " .. playerId)
    if not resultId then
        return "Unknown"
    end
    local name = result.getString(resultId, "name")
    result.free(resultId)
    return name
end

-- Função principal para verificar mortes periodicamente
function checkForDeaths()
    print("[DEBUG] Checking for recent deaths...")
    
    -- Determina o formato do campo `time` e ajusta a consulta SQL
    local query
    if isUnixTimestampFormat() then
        -- Caso 1: `time` é armazenado em segundos desde a época Unix
        query = "SELECT `player_id`, `killed_by`, `is_player` FROM `player_deaths` WHERE `time` > UNIX_TIMESTAMP() - 60;"
    elseif isDatetimeFormat() then
        -- Caso 2: `time` é armazenado no formato MySQL (`DATETIME` ou `TIMESTAMP`)
        query = "SELECT `player_id`, `killed_by`, `is_player` FROM `player_deaths` WHERE `time` > NOW() - INTERVAL 60 SECOND;"
    else
        -- Caso 3: Formato personalizado (ajuste conforme necessário)
        print("[DEBUG] Unknown `time` format in `player_deaths`. Cannot process deaths.")
        return true
    end

    print("[DEBUG] Executing query: " .. query)
    
    local result = db.storeQuery(query)
    if not result then
        print("[DEBUG] No recent deaths found or query failed.")
        return true
    end

    -- Verifica se o resultado é válido antes de iterar
    if type(result) ~= "userdata" then
        print("[DEBUG] Invalid result type returned by db.storeQuery: " .. type(result))
        return true
    end

    -- Verifica se há linhas no resultado
    if not result.next(result) then
        print("[DEBUG] Query returned no rows.")
        result.free(result)
        return true
    end

    -- Itera sobre os resultados da consulta
    repeat
        local playerId = result.getNumber(result, "player_id")
        local killedBy = result.getString(result, "killed_by")
        local isPlayer = result.getNumber(result, "is_player")

        if playerId then
            print("[DEBUG] Found recent death for player ID: " .. playerId)
            if killedBy and isPlayer == 1 then
                print("[DEBUG] Player was killed by: " .. killedBy)
                processPlayerDeath(playerId, killedBy)
            else
                print("[DEBUG] Killer is not a player or data is invalid.")
            end
        else
            print("[DEBUG] Invalid player ID found in death records.")
        end
    until not result.next(result)

    -- Libera o resultado para evitar vazamentos de memória
    if result.free then
        result.free(result)
        print("[DEBUG] Result freed successfully.")
    else
        print("[DEBUG] Result object does not have a 'free' method.")
    end

    return true
end

-- Função para verificar o formato do campo `time`
function isUnixTimestampFormat()
    local result = db.storeQuery("SELECT `time` FROM `player_deaths` LIMIT 1;")
    if not result then
        return false
    end

    local timeValue = result.getNumber(result, "time")
    result.free(result)

    -- Verifica se o valor é um número inteiro
    return type(timeValue) == "number" and math.floor(timeValue) == timeValue
end

function isDatetimeFormat()
    local result = db.storeQuery("SELECT `time` FROM `player_deaths` LIMIT 1;")
    if not result then
        return false
    end

    local timeValue = result.getString(result, "time")
    result.free(result)

    -- Verifica se o valor é uma string no formato `YYYY-MM-DD HH:MM:SS`
    return type(timeValue) == "string" and timeValue:match("%d%d%d%d%-%d%d%-%d%d %d%d:%d%d:%d%d")
end

-- Registra a verificação de mortes como um evento periódico
local deathCheckEvent = GlobalEvent("death_check_event")
function deathCheckEvent.onThink(interval)
    checkForDeaths()
    return true
end

deathCheckEvent:interval(60000) -- Executa a cada 60 segundos
deathCheckEvent:register()

Se alguem tiver alguma sulução para me ajudar pois realmente estou a desistir ja.

Estes são os erros.....
 

Interface: Scripts Interface
Script ID: C:\otserv\data/scripts\talkactions\player\busque.lua:callback
Error Description: C:\otserv\data/scripts\talkactions\player\busque.lua:311: attempt to index local 'result' (a number value)
stack traceback:
        [C]: in function '__index'
        C:\otserv\data/scripts\talkactions\player\busque.lua:311: in function 'isUnixTimestampFormat'
        C:\otserv\data/scripts\talkactions\player\busque.lua:241: in function 'checkForDeaths'
        C:\otserv\data/scripts\talkactions\player\busque.lua:334: in function <C:\otserv\data/scripts\talkactions\player\busque.lua:333>
---------------------------------------

[2025-03-02 20:05:11.708] [error] [GlobalEvents::think] - Failed to execute event: death_check_event

Vamos lá só resumindo aqui...

o que esta funcionando:

- char usa o comando !busque (valor a ser pago) (nome do personagem)
- Não permite o mesmo player colocar mais que uma vez a oferta.. mas deixa outros jogadores colocarem mais oferta, onde a recompensa por busca deste personagem vai ficando cada vez mais alta (se acumulando)....
- o dinheiro esta saindo da conta do banco ou da bag, primeiro ele veja se tem no banco se tiver ja pega de la o valor, senão checa a BP.

o que não esta funcionando e não estou conseguindo finalizar...
- a pessoa que mata o personagem (char) não esta recebendo a recompensa e retirando o personagem morto da lista de hunted....



Agradeço muito quem puder ajudar ou a resolver este problema, ou me fornecer algo ja pronto funcional, para versão 13x.


Att.