Box 1,2,3,4 100% Svke

[eduardolokao 0]

Aew galera espero que gostem do meu trabalho ja que e meu primeiro script entao ai vai pra vocês

 

 

primeiro va em actions\scripts e coloque o nome de box1 e coloque isso dentro

 

 

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

r1 = math.random(1,20)

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

if doPlayerRemoveItem(cid,7884,1) == TRUE then

if r1 == 1 then

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

local health = 1000 -- Health do poke

local maxhealth = 1000 -- Maximo de health do poke

local description = "Contains a Caterpie."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Caterpie")

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 Weedle.")

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Weedle."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Weedle")

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 Pidgey.")

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Pidgey."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Pidgey")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 4 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Rattata."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Rattata")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 5 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Kakuna."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Kakuna")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 6 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Metapod."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Metapod")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 7 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Spearow."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Spearow")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 8 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Diglett."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Diglett")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 9 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Zubat."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Zubat")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 10 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Paras."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Paras")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 11 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Oddish."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Oddish")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 12 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Poliwag."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Poliwag")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 13 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Bellsprout."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Bellsprout")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 14 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Magnemite."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Magnemite")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 15 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Shellder."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Shellder")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 16 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Krabby."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Krabby")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 17 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Exeggcute."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Exeggcute")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 18 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Horsea."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Horsea")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 19 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Goldeen."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Goldeen")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 20 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Magikarp."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Magikarp")

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 jogadores level 5+ para abrir este presente.')

end

return 1

end

 

 

actions\scripts e coloque o nome de box2 e coloque isso dentro

 

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

r1 = math.random(1,51)

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

if doPlayerRemoveItem(cid,7885,1) == TRUE then

if r1 == 1 then

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

local health = 3000 -- Health do poke

local maxhealth = 3000 -- 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 = 350 -- Health do poke

local maxhealth = 350 -- 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 = 350 -- Health do poke

local maxhealth = 350 -- 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)

 

elseif r1 == 4 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Pidgeotto."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Pidgeotto")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 5 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Raticate."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Raticate")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 6 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Pikachu."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Pikachu")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 7 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Butterfree."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Butterfree")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 8 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Beedrill."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Beedrill")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 9 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Ekans."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Ekans")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 10 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Arbok."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Arbok")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 11 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Gloom."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Gloom")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 12 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Nidoran Male."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Nidoran Male")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 13 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Nidoran Female."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Nidoran Female")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 14 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Nidorino."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Nidorino")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 15 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Nidorina."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Nidorina")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 16 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Golbat."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Golbat")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 17 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Jigglypuff."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Jigglypuff")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 18 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Clefairy."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Clefairy")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 19 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Venonat."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Venonat")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 20 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Sandshrew."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Sandshrew")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 21 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Vulpix."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Vulpix")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 22 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Meowth."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Meowth")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 23 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Persian."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Persian")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 24 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Psyduck."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Psyduck")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 25 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Mankey."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Mankey")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 26 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Growlithe."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Growlithe")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 27 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Poliwhirl."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Poliwhirl")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 28 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Abra."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Abra")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 29 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Machop."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Machop")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 30 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Weepinbell."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Weepinbell")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 31 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Tentacool."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Tentacool")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 32 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Geodude."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Geodude")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 33 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Ponyta."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Ponyta")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 34 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Slowpoke."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Slowpoke")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 35 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Doduo."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Doduo")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 36 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Seel."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Seel")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 37 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Grimer."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Grimer")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 38 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Muk."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Muk")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 39 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Gastly."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Gastly")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 40 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Drowzee."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Drowzee")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 41 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Voltorb."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Voltorb")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 42 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Cubone."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Cubone")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 43 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Koffing."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Koffing")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 44 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Weezing."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Weezing")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 45 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Rhyhorn."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Rhyhorn")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 46 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Seaking."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Seaking")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 47 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Staryu."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Staryu")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 48 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Eevee."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Eevee")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 49 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Omanyte."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Omanyte")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 50 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Kabuto."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Kabuto")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 51 then

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

local health = 350 -- Health do poke

local maxhealth = 350 -- Maximo de health do poke

local description = "Contains a Dratini."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Dratini")

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 jogadores level 35+ para abrir este presente.')

end

return 1

end

 

 

va em actions\scripts e coloque o nome de box3 e coloque isso dentro

 

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

r1 = math.random(1,47)

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

if doPlayerRemoveItem(cid,7886,1) == TRUE then

if r1 == 1 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Ivysaur."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Ivysaur")

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 Charmeleon.")

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Charmeleon."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Charmeleon")

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 Wartortle.")

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Wartortle."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Wartortle")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 4 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Raichu."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Raichu")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 5 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Fearow."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Fearow")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 6 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Vileplume."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Vileplume")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 7 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Venomoth."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Venomoth")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 8 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Parasect."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Parasect")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 9 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Clefable."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Clefable")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 10 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Wigglytuff."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Wigglytuff")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 11 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Sandslash."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Sandslash")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 12 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Dugtrio."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Dugtrio")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 13 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Golduck."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Golduck")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 14 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Primeape."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Primeape")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 15 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Kadabra."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Kadabra")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 16 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Machoke."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Machoke")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 17 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Victreebel."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Victreebel")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 18 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Graveler."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Graveler")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 19 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Rapidash."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Rapidash")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 20 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Slowbro."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Slowbro")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 21 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Magneton."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Magneton")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 22 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Farfetchd."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Farfetchd")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 23 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Dodrio."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Dodrio")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 24 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Cloyster."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Cloyster")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 25 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Haunter."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Haunter")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 26 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Onix."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Onix")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 27 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Hypno."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Hypno")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 28 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Kingler."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Kingler")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 29 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Electrode."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Electrode")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 30 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Exeggutor."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Exeggutor")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 31 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Marowak."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Marowak")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 32 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Hitmonlee."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Hitmonlee")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 33 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Hitmonchan."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Hitmonchan")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 34 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Chansey."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Chansey")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 35 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Tangela."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Tangela")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 36 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Kangaskhan."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Kangaskhan")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 37 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Lickitung."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Lickitung")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 38 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Seadra."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Seadra")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 39 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Starmie."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Starmie")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 40 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Mr.Mime."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Mr.Mime")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 41 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Pinsir."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Pinsir")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 42 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Tauros."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Tauros")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 43 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Ditto."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Ditto")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 44 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Vaporeon."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Vaporeon")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 45 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Jolteon."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Jolteon")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 46 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Flareon."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Flareon")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 47 then

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

local health = 4000 -- Health do poke

local maxhealth = 4000 -- Maximo de health do poke

local description = "Contains a Porygon."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Porygon")

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 jogadores level 55+ para abrir este presente.')

end

return 1

end

 

 

actions\scripts e coloque o nome de box4 e coloque isso dentro

 

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

r1 = math.random(1,28)

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

if doPlayerRemoveItem(cid,7891,1) == TRUE then

if r1 == 1 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Venusaur."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Venusaur")

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 Charizard.")

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Charizard."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Charizard")

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 Blastoise.")

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Blastoise."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Blastoise")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 4 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Pidgeot."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Pidgeot")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 5 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Nidoking."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Nidoking")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 6 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Nidoqueen."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Nidoqueen")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 7 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Ninetales."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Ninetales")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 8 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Arcanine."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Arcanine")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 9 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Alakazam."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Alakazam")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 10 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Machamp."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Machamp")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 11 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Tentacruel."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Tentacruel")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 12 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Golem."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Golem")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 13 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Dewgong."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Dewgong")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 14 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Gengar."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Gengar")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 15 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Rhydon."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Rhydon")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 16 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Scyther."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Scyther")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 17 then

doPlayerSendTextMessage(cid,22,"Você ganhou uma Jynx.")

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Jynx."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Jynx")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 18 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Electabuzz."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Electabuzz")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 19 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Magmar."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Magmar")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 20 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Gyarados."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Gyarados")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 21 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Lapras."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Lapras")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 22 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Omastar."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Omastar")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 23 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Kabutops."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Kabutops")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 24 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Aerodactyl."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Aerodactyl")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 25 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Snorlax."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Snorlax")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 26 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Dragonair."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Dragonair")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 27 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Dragonite."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Dragonite")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

 

elseif r1 == 28 then

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

local health = 6000 -- Health do poke

local maxhealth = 6000 -- Maximo de health do poke

local description = "Contains a Poliwrath."

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

item = doCreateItemEx(2219)

doItemSetAttribute(item, "poke", poke1)

doItemSetAttribute(item, "nome", "Poliwrath")

doItemSetAttribute(item, "description", description)

doPlayerAddItemEx(cid, item, true)

doTransformItem(item, 2222)

doSendMagicEffect(getCreaturePosition(cid), 28)

else

doPlayerSendTextMessage(cid,22,"The chest is empty.")

end

end

else

doPlayerSendCancel(cid,'Somente jogadores level 90+ para abrir este presente.')

end

return 1

end

 

 

agora va em action.xml e adicione isso dentro

 

<action itemid="7891" event="script" value="box4.lua"/>

<action itemid="7886" event="script" value="box3.lua"/>

<action itemid="7885" event="script" value="box2.lua"/>

<action itemid="7884" event="script" value="box1.lua"/>

 

 

espero que de serto e nao esqueça de da rep+ se gosto.

Editado Agosto 3, 2011 por eduardolokao

[xS0NYx 2]

Se o player colocar o box no chão e der use o box não desaparece então substitua isso if doPlayerRemoveItem(cid,7891,1) == TRUE then

Por isso : if doRemoveItem(item.uid,1)== TRUE then

 

Não chequei porque estou atrasado mas acho que quando der use o player vai ficar com 7 pokemons em vez de 6, fora isso está bom ;D

[eduardolokao 0]

Não tinha persebido isso mais vlw por ajuda xS0NYx.

Editado Agosto 3, 2011 por eduardolokao

[Kvn007 6]

o que realmente esse script faz?

[xS0NYx 2]

São 4 box, você da use em um e você ganha tal pokemon na sorte, configurado no script...