druste

Tem 1001 jeito de fazer isso , crie um tópico e peça ajuda.

local item=2160 --ID do item necessario para trocar de vocaçao
local newVoc=5 --ID da vocation
local outfit=13 --LookType do outfit da vocation
---LINHA ADICINADA BY : GUSTAVO NTOS---
local level= 200 --Level pra pegar a vocaçãao
local mago= x  ---- id da vocação mago
---LINHA ADICINADA BY : GUSTAVO NTOS---
local stor = 437369  -- Storage pode ser qualquer numero, desde que não exista no servidor.
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
 
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink()                  npcHandler:onThink()                  end
 
function creatureSayCallback(cid, type, msg)
if msgcontains(msg, 'yes') then
    if(doPlayerRemoveItem(cid, item, 1) == true) then
if(getPlayerVocation(cid) == mago) then
   if getPlayerLevel(cid) >= level then
        if getPlayerStorageValue(cid, stor) < 1 then
        doPlayerSetVocation(cid, newVoc)
        setPlayerStorageValue(cid, stor, 1)
        doCreatureChangeOutfit(cid, {lookType=outfit})
        else
        selfSay("Voce ja se Transformou em Mago Master.", cid)
        end
    else
    selfSay('Para virar um Mago master voce precisa do level '..level..'. ', cid)
    end
    else
    selfSay('Voce precisar ser uma mago para avançar de classe. ', cid)
    end

    else
    selfSay("Voce nao tem o item necessario para se transformar em Mago Master. Volte aqui quando tiver ele.", cid)
    end
end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
 
 
 
function onPrepareDeath(cid, lastHitKiller, mostDamageKiller)
local antes=1 -----vocação antes de morrer
local apos=0 ----- vocação apos a morte
if isPlayer(cid) == true then
if(getPlayerVocation(cid) == antes) then
doPlayerSetVocation(cid, apos)
end
end
 
 
 
creaturescripts.xml:
 <event type="preparedeath" name="mortevocacao" event="script" value="nomedoarquivo.lua"/>
 
 
Se não pega faça isso: adiciona no login.lua
 
registerCreatureEvent(cid, "mortevocacao")
 

Se a Script funcionou marque como melhor resposta// Você quer como?? perder todos items e volta pro level 1? não entendi esse zerar a vocação

local item=2160 --ID do item necessario para trocar de vocaçao
local newVoc=5 --ID da vocation
local outfit=13 --LookType do outfit da vocation
---LINHA ADICINADA BY : GUSTAVO NTOS---
local level= 200 --Level pra pegar a vocaçãao
---LINHA ADICINADA BY : GUSTAVO NTOS---
local stor = 437369  -- Storage pode ser qualquer numero, desde que não exista no servidor.
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
 
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink()                  npcHandler:onThink()                  end
 
function creatureSayCallback(cid, type, msg)
if msgcontains(msg, 'yes') then
    if(doPlayerRemoveItem(cid, item, 1) == true) then
   if getPlayerLevel(cid) >= level then
        if getPlayerStorageValue(cid, stor) < 1 then
        doPlayerSetVocation(cid, newVoc)
        setPlayerStorageValue(cid, stor, 1)
        doCreatureChangeOutfit(cid, {lookType=outfit})
        else
        selfSay("Voce ja se Transformou em Mago Master.", cid)
        end
    else
    selfSay('Para virar um Mago master voce precisa do level '..level..'. ', cid)
    end
    else
    selfSay("Voce nao tem o item necessario para se transformar em Mago Master. Volte aqui quando tiver ele.", cid)
    end
end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

não entendi nada. Qual o Erro? algum erro no console?

A partir do momento que você da sua opinião dizendo: "cade dia mais o tk tá ficando um lixo com esses novos Suporter" você está falando o que quer. Você falou o que queria.
 
Se você estiver falando de mim ou não, profundamente eu não ligo, porque a minha parte eu fiz, você pediu um script e eu te mandei, se você não sabe registrar uma tag, o problema não é meu - na minha época quando eu não sabia programar, se alguém me mandasse o script do jeito que eu te mandei, completo, eu ia morrer de felicidade, porque ninguém nunca me passou code completos, é apenas uma linha de um code, e falavam, se vira - mas enfim, não vem ao acaso, estou falando em nome de todos ( @Larissa Azhaurn @p e o p l e e eu), ninguém é obrigado a ajudar ninguém, estamos fazendo isso aqui por motivos diferentes.
 
E você acha que o TibiaKing é para ajudar só? É por isso que a comunidade de Open Tibia infelizmente não vai para frente, por pessoas com pensamento pequeno igual o seu, infelizmente isso me deixa muito triste. Espero que um dia você perceba realmente o que você está falando.

quest vip , se quiser fazer donate eu ajudo !!

Problema resolvido ?
Se não foi resolvido eu tenho um script anti-nuke de Account Manager,que creio que é a mesma coisa que você quer,no caso só podem logar 2 players no mesmo IP. (numero de player com mesmo IP pode ser configurado no script)