Ir para conteúdo
TK News
  • Cadastre-se

[PEDIDO] Sistema de duelo

biel.stocco
 Share Seguidores 0

Posts Recomendados

biel.stocco

biel.stocco 22

Postado
Postado

Olá pessoal!

Vim pedir um script de duelo de pokémon, porém quero ele modificado para funcionar no tibia normal(sem pokémon)

Mesmo esquema de qualquer Ot de pokémon, a diferença é que NÃO usará pokémons, se o player aceitar o duelo, eles vão duelar até um deles ficar com 1 de hp e então o duelo acaba aparecendo Win e Lose

 

Espero que consigam, mas se não for possível aceito algo parecido uhehe

 

ps: se vier com banco de dados para rank win/lose é uma boa

ps²: só encontrei scripts de duel com pokemon aqui no fórum

 

Link para o post
Compartilhar em outros sites
zipter98

zipter98 460

Postado
Postado

Como o jogador chamaria o outro para duelar? Nos servidores de pokémon, é pelo order (um item). Seria da mesma maneira?

não respondo pms solicitando suporte em programação/scripting

Link para o post
Compartilhar em outros sites
biel.stocco

biel.stocco 22

Postado
  • Autor
Postado

Na verdade, pelos servers que eu vi o player clica com o botão direito em cima do adversário e invita pra duel com a quantia de pokes e tal..

qualquer coisa, aceito talkactions

Link para o post
Compartilhar em outros sites
zipter98

zipter98 460

Postado
Postado (editado)

Desculpe a demora, estive ocupado com outras coisas e não pude me concentrar no seu sistema. Ele já está, digamos, uns 95% pronto. Falta apenas finalizar um bloco de código e fazer uma rápida revisão. Como não tenho meios para testá-lo, deixarei esta tarefa para você.

edit: Confesso que, por ser um código um pouco grande, fiquei com preguiça de revisá-lo. Também gostaria de informar que os comandos de duelo foram escritos em talkaction, visto que não faço alterações no client.

Primeiramente, comandos e uma breve explicação com exemplos:

/duel invite [playername]     --Enviar solicitação de duelo.
e.g: /duel invite Cray
/duel accept [playername]     --Aceitar solicitação de duelo.
e.g: /duel accept Zipter
/duel refuse [playername]     --Recusar solicitação de duelo.
eg.: /duel refuse Zipter
/duel rank [win/lose]         --Ver rank de wins ou loses.
e.g: /duel rank win
/duel check                   --Checar status de duelo (wins/loses e winning ratio).
/duel giveup                  --Desistir.
Biblioteca do sistema:
data/lib:
DUEL_MAX_DISTANCE = 7                   --Distância máxima entre os dois jogadores para enviarem convites de duelo/aceitarem solicitações de duelo.
DUEL_RANK_LIMIT = 10                    --Limite do rank de wins/loses.
DUEL_START_TIME = 5                     --Tempo, em segundos, para o duelo começar.
DUEL_WIN_STORAGE = 4919
DUEL_LOSE_STORAGE = 4920
DUEL_STORAGE = 4921
DUEL_INVITE_STORAGE = 4922
DUEL_HP_STORAGE  = 4923
DUEL_MANA_STORAGE  = 4924
 
function table.insert(table, value)
    table[#table + 1] = value
end
function getWinningRatio(win, lose)   --Halls Santos
    if(type(win) ~= "number" or type(lose) ~= "number") then
        return nil, error("You need to specify a number value.")
    end
    if(win == 0 and lose == 0) then
        return 0.0
    end
    local ratio = win / (win + lose) * 100
    local i = 4
    if(math.floor(ratio) < 10) then
        i = 3
    end
    ratio = tostring(ratio):sub(1, i)
    return tonumber(ratio)
end
function sendDuelInvite(cid, target)
    if isPlayer(cid) and isPlayer(target) then
        doPlayerSendTextMessage(target, 27, getCreatureName(cid).." sent you a duel invitation. To accept, say /duel accept "..getCreatureName(cid))
        local sto, str = getPlayerStorageValue(target, DUEL_INVITE_STORAGE), ""
        if tonumber(sto) then
            setPlayerStorageValue(target, DUEL_INVITE_STORAGE, getCreatureName(cid))
        else
            sto = sto:explode("/")
            table.insert(sto, getCreatureName(cid))
            for i = 1, #sto do
                if str == "" then
                    str = sto[i]
                else
                    str = str.."/"..sto[i]
                end
            end
            setPlayerStorageValue(target, DUEL_INVITE_STORAGE, str)
        end
    end
end
function isInDuel(cid)
    return getPlayerStorageValue(cid, DUEL_STORAGE) > -1
end
function getInvitation(cid, target)
    if isPlayer(cid) and isPlayer(target) then
        local sto = getPlayerStorageValue(cid, DUEL_INVITE_STORAGE)
        if tonumber(sto) then
            return false
        end
        sto = sto:explode("/")
        return isInArray(sto, getCreatureName(target))
    end
    return false
end
function removeInvitation(cid, target)
    if isPlayer(cid) and isPlayer(target) then
        local sto, str = getPlayerStorageValue(cid, DUEL_INVITE_STORAGE):explode("/"), ""
        table.remove(sto, getCreatureName(target))
        for i = 1, #sto do
            if str == "" then
                str = sto[i]
            else
                str = str.."/"..sto[i]
            end
        end
        setPlayerStorageValue(cid, DUEL_INVITE_STORAGE, str)
    end
end
function duelTimer(time, cid, pid)
    if time < 0 then
        return true
    end
    doSendAnimatedText(getThingPos(cid), time == 0 and "START!" or time, 215)
    doSendAnimatedText(getThingPos(pid), time == 0 and "START!" or time, 215)
    addEvent(duelTimer, 1000, time - 1, cid, pid)
end
function startDuel(cid, target)
    duelTimer(DUEL_START_TIME, cid, target)
    setPlayerStorageValue(cid, DUEL_STORAGE, 1)
    setPlayerStorageValue(target, DUEL_STORAGE, 1)
    addEvent(function()
        if isPlayer(cid) and isPlayer(target) then
            setPlayerStorageValue(cid, DUEL_STORAGE, target)
            setPlayerStorageValue(cid, DUEL_HP_STORAGE, getCreatureHealth(cid))
            setPlayerStorageValue(cid, DUEL_MANA_STORAGE, getCreatureMana(cid))
            setPlayerStorageValue(cid, DUEL_INVITE_STORAGE, -1)
            setPlayerStorageValue(target, DUEL_STORAGE, cid)
            setPlayerStorageValue(target, DUEL_HP_STORAGE, getCreatureHealth(target))
            setPlayerStorageValue(target, DUEL_MANA_STORAGE, getCreatureMana(target))
            setPlayerStorageValue(target, DUEL_INVITE_STORAGE, -1)
        end
    end, DUEL_START_TIME * 1000)
end
function getDuelOpponent(cid)
    return getPlayerStorageValue(cid, DUEL_STORAGE)
end
function getPlayerWins(cid)
    return getPlayerStorageValue(cid, DUEL_WIN_STORAGE) < 0 and 0 or getPlayerStorageValue(cid, DUEL_WIN_STORAGE)
end
function getPlayerLoses(cid)
    return getPlayerStorageValue(cid, DUEL_LOSE_STORAGE) < 0 and 0 or getPlayerStorageValue(cid, DUEL_LOSE_STORAGE)
end
function endDuel(winner, loser)
    if isPlayer(winner) and isPlayer(loser) then
        setPlayerStorageValue(winner, DUEL_WIN_STORAGE, getPlayerWins(winner) + 1)
        setPlayerStorageValue(winner, DUEL_STORAGE, -1)
        doCreatureAddHealth(winner, getPlayerStorageValue(winner, DUEL_HP_STORAGE) - getCreatureHealth(winner))
        doCreatureAddMana(winner, getPlayerStorageValue(winner, DUEL_MANA_STORAGE) - getCreatureMana(winner))
        setPlayerStorageValue(loser, DUEL_STORAGE, -1)
        setPlayerStorageValue(loser, DUEL_LOSE_STORAGE, getPlayerLoses(loser) + 1)
        doCreatureAddHealth(loser, getPlayerStorageValue(loser, DUEL_HP_STORAGE) - getCreatureHealth(loser))
        doCreatureAddMana(loser, getPlayerStorageValue(loser, DUEL_MANA_STORAGE) - getCreatureMana(loser))
        doPlayerSendTextMessage(winner, MESSAGE_STATUS_CONSOLE_ORANGE, "You won the duel =] Victories: "..getPlayerWins(winner)..".")
        doPlayerSendTextMessage(loser, MESSAGE_STATUS_CONSOLE_ORANGE, "You lost the duel =[ Defeats: "..getPlayerLoses(loser)..".")
        doSendAnimatedText(getThingPos(winner), "WINNER", 255)
        doSendAnimatedText(getThingPos(loser), "LOSER", 255)
    end
end
Creaturescript:
data/creaturescripts/scripts:
function onLogin(cid)
    if isInDuel(cid) then
        setPlayerStorageValue(cid, DUEL_STORAGE, -1)
    end
    registerCreatureEvent(cid, "duelStatsChange")
    registerCreatureEvent(cid, "duelTarget")
    return true
end
function onLogout(cid)
    if isInDuel(cid) then
        return doPlayerSendCancel(cid, "You cannot logout during a duel.") and false
    end
    return true
end
function onTarget(cid, target)
    if isInDuel(cid) or isPlayer(target) and isInDuel(target) then
        return getDuelOpponent(cid) == target
    end
    return true
end
function onStatsChange(cid, attacker, type, combat, value)
    if type == STATSCHANGE_HEALTHLOSS and isPlayer(cid) and isInDuel(cid) or isPlayer(attacker) and isInDuel(attacker) then
        if getDuelOpponent(cid) ~= target then
            return false
        end
        if value >= getCreatureHealth(cid) then
            endDuel(attacker, cid)
            return false
        end
    end
    return true
end
Tags:
    <event type="login" name="duelLogin" event="script" value="nome_do_arquivo.lua"/>
    <event type="logout" name="duelLogout" event="script" value="nome_do_arquivo.lua"/> 
    <event type="statschange" name="duelStatsChange" event="script" value="nome_do_arquivo.lua"/>
    <event type="target" name="duelTarget" event="script" value="nome_do_arquivo.lua"/>  
Talkaction:
data/talkactions/scripts:

function onSay(cid, words, param)
    local message = ""
    if not param or param == "" then
        return doPlayerSendCancel(cid, "Invalid arguments.")
    end
    if param:find("rank") then
        local storages, type = {
            ["win"] = DUEL_WIN_STORAGE,
            ["wins"] = DUEL_WIN_STORAGE,
            ["lose"] = DUEL_LOSE_STORAGE,
            ["loses"] = DUEL_LOSE_STORAGE,
        }, param:match("rank (.*)")
        if type and storages[type] then
            local result, count = db.getResult("SELECT player_id, value FROM player_storage WHERE key = "..storages[type].." ORDER BY value DESC LIMIT "..DUEL_RANK_LIMIT), 0 
            if result:getID() == -1 then
                message = "No one dueled until now."
            else
                repeat
                    local playerValue = result:getDataInt("value")
                    count = count + 1
                    if message == "" then
                        message = "*** RANK "..type:upper().." ***"
                    end
                    message = message.."\n["..count.."] - "..getPlayerNameByGUID(result:getDataInt("player_id")).." ("..playerValue.." "..type..")"
                until not result:next()
                result:free()
            end
            doPlayerPopupFYI(cid, message)
        else
            doPlayerSendCancel(cid, "Invalid rank. Ranks: wins, loses.")
        end
    elseif param == "check" then
        local wins, loses = getPlayerWins(cid), getPlayerLoses(cid)
        message = "*** DUEL STATUS: ***\nDuels: "..wins + loses.."\nWins: "..wins.."\nLoses: "..loses.."\nWinning ratio: "..getWinningRatio(wins, loses).."%"
        doPlayerPopupFYI(cid, message)
    elseif param == "giveup" then
        if isInDuel(cid) then
            endDuel(getDuelOpponent(cid), cid)
        else
            doPlayerSendCancel(cid, "You're not in a duel.")
        end
    else
        if not param:find("accept") and not param:find("refuse") and not param:find("invite") then
            return doPlayerSendCancel(cid, "Invalid arguments.")
        end
        local targetName = param:explode(" ")
        if #targetName > 2 then
            local name = ""
            for i = 2, #targetName do
                if name == "" then
                    name = targetName[i]
                else
                    name = name.." "..targetName[i]
                end
            end
            targetName = name
        else
            targetName = targetName[2]
        end
        local target = getPlayerByName(targetName)
        if not target then
            return doPlayerSendCancel(cid, "This player doesn't exist or is offline.")
        end
        if param:find("invite") then
            if isInDuel(target) then
                return doPlayerSendCancel(cid, "This player is already in a duel.")
            elseif getDistanceBetween(getThingPos(cid), getThingPos(target)) > DUEL_MAX_DISTANCE then
                return doPlayerSendCancel(cid, "You're too far from "..targetName..".")
            elseif getInvitation(cid, target) then
                return doPlayerSendCancel(cid, "You already invited this player to a duel.")
            elseif target == cid then
                return doPlayerSendCancel(cid, "You can't invite yourself to a duel.")
            end
            sendDuelInvite(cid, target)
            doPlayerSendTextMessage(cid, 27, "You sent "..targetName.." a duel invitation.")
        elseif param:find("accept") then
            if getInvitation(cid, target) then
                if isInDuel(target) then
                    return doPlayerSendCancel(cid, "This player is already in a duel."), removeInvitation(cid, target)
                elseif getDistanceBetween(getThingPos(cid), getThingPos(target)) > DUEL_MAX_DISTANCE then
                    return doPlayerSendCancel(cid, "You're too far from "..targetName..".")
                end
                doPlayerSendTextMessage(cid, 27, "You accepted "..targetName.." invitation. The duel will start in some seconds.")
                doPlayerSendTextMessage(target, 27, getCreatureName(cid).." accepted your invitation. The duel will start in some seconds.")
                startDuel(cid, target)
            else
                doPlayerSendCancel(cid, "This player hasn't invited you to a duel.")
            end
        elseif param:find("refuse") then
            if getInvitation(cid, target) then
                removeInvitation(cid, target)
                doPlayerSendTextMessage(cid, 27, "You refused "..targetName.." invitation.")
                doPlayerSendTextMessage(target, 27, getCreatureName(cid).." refused your invitation.")
            else
                doPlayerSendCancel(cid, "This player hasn't invited you to a duel.")
            end
        else
            doPlayerSendCancel(cid, "Invalid arguments.")
        end
    end
    return true
end

Tag:
<talkaction words="/duel" event="script" value="nome_do_arquivo.lua"/>
Editado por zipter98 (veja o histórico de edições)

não respondo pms solicitando suporte em programação/scripting

Link para o post
Compartilhar em outros sites
biel.stocco

biel.stocco 22

Postado
  • Autor
Postado

Desculpe a demora manin!

/duel invite [playername]     --Enviar solicitação de duelo.             -- funcionando
e.g: /duel invite Cray
/duel accept [playername]     --Aceitar solicitação de duelo.           -- P1 invita o P2, para o P2 aceitar ele tem que invitar o P1 também, duel accept não funcional
e.g: /duel accept Zipter
/duel refuse [playername]     --Recusar solicitação de duelo.     -- não ta funcionando, fala que o player não me invitou pra duel
eg.: /duel refuse Zipter
/duel rank [win/lose]         --Ver rank de wins ou loses.              -- da erro na distro
e.g: /duel rank win
/duel check                   --Checar status de duelo (wins/loses e winning ratio).         --   aparece apenas uma janela com duels:" ..win+loses.."     wins: "..win" loses: "..loses.."
/duel giveup                  --Desistir.                                  -- não funciona

 

 

erro na distro do rank

[08/06/2015 01:00:16] [Error - TalkAction Interface]
[08/06/2015 01:00:16] data/talkactions/scripts/duel.lua:onSay
[08/06/2015 01:00:16] Description:
[08/06/2015 01:00:16] data/lib/004-database.lua:100: [Result:free] Result not set!
[08/06/2015 01:00:16] stack traceback:
[08/06/2015 01:00:16]     [C]: in function 'error'
[08/06/2015 01:00:16]     data/lib/004-database.lua:100: in function 'free'
[08/06/2015 01:00:16]     data/talkactions/scripts/duel.lua:28: in function <data/talkactions/scripts/duel.lua:1>

 

apareceram esses erros na distro

[08/06/2015 00:56:25] [Error - TalkAction Interface]
[08/06/2015 00:56:25] data/talkactions/scripts/duel.lua:onSay
[08/06/2015 00:56:25] Description:
[08/06/2015 00:56:25] (luaAddEvent) Callback parameter should be a function.

[08/06/2015 00:56:43] [Error - TalkAction Interface]
[08/06/2015 00:56:43] data/talkactions/scripts/duel.lua:onSay
[08/06/2015 00:56:43] Description:
[08/06/2015 00:56:43] (luaGetCreatureStorage) Creature not found

[08/06/2015 00:56:43] [Error - TalkAction Interface]
[08/06/2015 00:56:43] data/talkactions/scripts/duel.lua:onSay
[08/06/2015 00:56:43] Description:
[08/06/2015 00:56:43] data/lib/050-function.lua:936: attempt to compare boolean with number
[08/06/2015 00:56:43] stack traceback:
[08/06/2015 00:56:43]     data/lib/050-function.lua:936: in function 'getPlayerWins'
[08/06/2015 00:56:43]     data/lib/050-function.lua:943: in function 'endDuel'
[08/06/2015 00:56:43]     data/talkactions/scripts/duel.lua:43: in function <data/talkactions/scripts/duel.lua:1>
Link para o post
Compartilhar em outros sites
zipter98

zipter98 460

Postado
Postado (editado)

Já vi todos os erros. Foram, basicamente, total falta de atenção minha. Como estou de saída no momento, postarei a solução mais tarde.

EDIT: Pronto, códigos corrigidos. Agora o sistema está funcionando perfeitamente.

Editado por zipter98 (veja o histórico de edições)

não respondo pms solicitando suporte em programação/scripting

Link para o post
Compartilhar em outros sites
biel.stocco

biel.stocco 22

Postado
  • Autor
Postado (editado)

Já vi todos os erros. Foram, basicamente, total falta de atenção minha. Como estou de saída no momento, postarei a solução mais tarde.

EDIT: Pronto, códigos corrigidos. Agora o sistema está funcionando perfeitamente.

 

 

/duel refuse  --- não ta funcionando

/duel rank win/lose -- não ta checando, embora se desistir do duel, aparece falando quantos loses tem quem desistiu e quantos win quem permaneceu

[08/06/2015 23:40:09] [Error - TalkAction Interface]
[08/06/2015 23:40:09] data/talkactions/scripts/duel.lua:onSay
[08/06/2015 23:40:09] Description:
[08/06/2015 23:40:09] data/lib/004-database.lua:100: [Result:free] Result not set!
[08/06/2015 23:40:09] stack traceback:
[08/06/2015 23:40:09]     [C]: in function 'error'
[08/06/2015 23:40:09]     data/lib/004-database.lua:100: in function 'free'
[08/06/2015 23:40:09]     data/talkactions/scripts/duel.lua:28: in function <data/talkactions/scripts/duel.lua:1>

ps: não sei o que tá acontecendo que antes tava normal, mas agora os players não se atacam nem que esteja server pvp/ enforced pvp e com o pvp do combat control ativado.. (protection level do config.lua = 1 , e o world type = 2)

 

o script é grande e já ta quase 100%, rep+ eueheuh

Editado por biel.stocco (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
zipter98

zipter98 460

Postado
Postado (editado)

Você alterou a talkaction e a lib? Pelo menos aqui, ambos os comandos estão funcionando perfeitamente (para o rank ser atualizado, o jogador deve deslogar).

Sobre o problema dos jogadores não poderem se atacar normalmente, fiz uma pequena alteração no creaturescript para "corrigir" isso.

Editado por zipter98 (veja o histórico de edições)

não respondo pms solicitando suporte em programação/scripting

Link para o post
Compartilhar em outros sites
biel.stocco

biel.stocco 22

Postado
  • Autor
Postado

Das talkactions, apenas o Duel Refuse não está funcionando, o resto tá certinho!

porém se eu deixar o server pvp, os players se atacam mas se entrar em duel, já não se atacam mais.. não importa o world type, quem entra em duel não se ataca ;x

Link para o post
Compartilhar em outros sites
zipter98

zipter98 460

Postado
Postado (editado)

Apenas os participantes do duelo não conseguem se atacar?

Se possível, troque esta parte do creaturescript:

function onTarget(cid, target)
    if isInDuel(cid) or isPlayer(target) and isInDuel(target) then
        return getDuelOpponent(cid) == target
    end
    return true
end
por esta:
function onTarget(cid, target)
    print(0)
    if isInDuel(cid) or isPlayer(target) and isInDuel(target) then
        print(1)
        print(getCreatureName(cid).." - cid (VS: "..getDuelOpponent(cid)..")")
        print(getCreatureName(target).." - target (VS: "..getDuelOpponent(target)..")")
        return getDuelOpponent(cid) == target
    end
    return true
end
E informe o que for imprimido no console. 
PS: Recomendo targetar apenas uma vez, para não spammar muito a distro.
Editado por zipter98 (veja o histórico de edições)

não respondo pms solicitando suporte em programação/scripting

Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito