[Atualizado] Quest que da pokémon como recompensa

Postado Agosto 18, 2014 10 anos

Este é um post popular.

Olá :v como o titulo ja diz, irei disponibilizar a vcs um script de um bau que ao clicar, venha um pokemon que vc determinar..

1º - Abra a pasta Servidor/data/actions/scripts, crie um arquivo em .lua, e coloque isso:

Para Servidores PDA sem level System:

local btype = "normal" ----Tipo de Pokeball

local pokemon = "Dialga" ----Pokémon que virá no bau

local storage = 90024 -- storage para nao pegar o premio + de 1 vez

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

if pokemon == "" then return true end

if getPlayerStorageValue(cid, storage) <= 0 then

addPokeToPlayer(cid, pokemon, 0, nil, btype)

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Voce pegou seu "..pokemon.."!!") ----Mensagem que o player receberá

doSendMagicEffect(getThingPos(cid), 29)

doSendMagicEffect(getThingPos(cid), 27)

doSendMagicEffect(getThingPos(cid), 29)

doPlayerAddItem(cid, 2160, 100) -----Items adicionais para vir no bau (no caso 100 Thousand Dolar Notes)

setPlayerStorageValue(cid, storage, 1)

else

doPlayerSendCancel(cid, "Você já pegou seu Pokémon") ---Mensagem q sera enviada quando o player tentar fazer a quest + de 1 vez

end

return TRUE

end

Para Servidores Com Level System:

local pokemon = "Shiny Flareon"

local extrastr = 1.5

local btype = "normal"

local storage = 90025

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

if pokemon == "" then return true end

if getPlayerStorageValue(cid, storage) <= 0 then

addPokeToPlayer(cid, pokemon, nil, 1, btype, true)

doPlayerSendTextMessage(cid, 27, "Você pegou seu "..pokemon..".")

doSendMagicEffect(getThingPos(cid), 29)

doSendMagicEffect(getThingPos(cid), 27)

doSendMagicEffect(getThingPos(cid), 29)

setPlayerStorageValue(cid, storage, 1)

else

doPlayerSendCancel(cid, "Você já pegou seu pokémon de Clan!")

end

return TRUE

end