Olá galera, tudo beleza? Hoje venho trazer ao tibia King como adicionar uma box ao seu pokétibia.. Vamos lá !

(Peguei de base o Pokémon Erondino)

 

Vá na Pasta do seu sever/Data/Actions/Scripts

E cria um novo arquivo.lua.

Cole isso dentro do arquivo:

 

function onUse(cid, item, frompos, item2, topos)

r1 = math.random(1,67)

if getPlayerLevel(cid) >= 15 and getPlayerFreeCap(cid) ~= 0 then

if doPlayerRemoveItem(cid,ID DO ITEM,1) == TRUE then

 

if r1 == 1 then

doPlayerSendTextMessage(cid,22,"Você ganhou um Bulbasaur.")

local health = 300 -- Health do poke

local maxhealth = 300 -- Maximo de health do poke

local description = "Contains a Bulbasaur."

local poke1 = "This is Bulbasaur's pokeball. HP = ["..health.."/"..maxhealth.."]"

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Bulbasaur")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 2 then

doPlayerSendTextMessage(cid,22,"Você ganhou um Charmander.")

local health = 325 -- Health do poke

local maxhealth = 325 -- Maximo de health do poke

local description = "Contains a Charmander."

local poke1 = "This is Charmander's pokeball. HP = ["..health.."/"..maxhealth.."]"

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Charmander")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 3 then

doPlayerSendTextMessage(cid,22,"Você ganhou um Squirtle.")

local health = 380 -- Health do poke

local maxhealth = 380 -- Maximo de health do poke

local description = "Contains a Squirtle."

local poke1 = "This is Squirtle's pokeball. HP = ["..health.."/"..maxhealth.."]"

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Squirtle")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

          else

        doPlayerSendTextMessage(cid,22,"..")

          end

  end

        else

  doPlayerSendCancel(cid,'Somente players level 15+ e que estejam carregando 5 ou menos pokemons podem abrir este presente.')

        end

return 1

end

 

Explicando linhas:

Vermelho - 15 :Aqui é o level que o player precisa ter para abrir a box.

Laranja - ID DO ITEM: Aqui você vai por o ID da box, a sprite.

Rosa: Aqui você vai por o nome do pokémon que deseja que fique na box.

Azul: Número do pokémon, exemplo ali já tem adicionado 3 pokémons se você for adicionar mais um você vai copiar e colar o seguinte script:

 

elseif r1 == 3 then

doPlayerSendTextMessage(cid,22,"Você ganhou um Squirtle.")

local health = 380 -- Health do poke

local maxhealth = 380 -- Maximo de health do poke

local description = "Contains a Squirtle."

local poke1 = "This is Squirtle's pokeball. HP = ["..health.."/"..maxhealth.."]"

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Squirtle")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

A primeira linha elseif r1 == 3 then substitua o 3 pelo número do pokémon na ordem, 4,5 etc..

Agora vai até á Pasta do Seu server/Data/Actions/

E abre o actions.xml e adicione a seguinte tag:

<action itemid="ID DO ITEM" event="script" value="box.lua"/>

 

Espero ter ajudado

Dúvidas? Mande Pm

Editado Julho 3, 2014 10 anos por xXJuninho (veja o histórico de edições)

Belo conteúdo,tem bastante gente que estava procurando por isso,espero que funcione.Obrigado por trazer para o TK !

obs : é extremamente proibído dar/pedir suporte fora do fórum,vou pedir para que retire o skype do tópico por gentileza.

O tópico foi movido para a área correta, preste mais atenção da próxima vez!
Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:
De: "OTServ → Scripting → Tutoriais de Scripting"
Para: "OTServ → Scripting → Actions e TalkActions"

Sistema legal, procure colocar os créditos no final do topico em uma parte única.

 

Peço também que retire o skype do tópico, o fórum é para dúvidas, então use e aproveite o TK para isto.

Obrigado por Mover, e obrigado pela dica rsrs não sabia que não podia dar suporto por skype ! 

Eu Quero Aprender A Criar Uma Box De Itens