poketibia Kit Inicial Poketibia

[hugo22 0]

PRECISO DE AJUDA MEU KIT INICIAL TA SEM HUNDRED DOLLAR EDITA ELE E ME MANDA COM 20 HUNDRED DOLLAR PLZ

 

 

E OUTRA COISA COMO FAZ PRA COLOCAR O CATCH DA MASTER BALL 100%

---------------Config.-------------------------

quantidadestones = 3

charmanderstoneid = 5907

squirtlestoneid = 5810

bulbasaurstoneid = 5918

ultraballid = 2150

-----------------------------------------------

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

if getPlayerStorageValue(cid, 28749) == -1 then

setPlayerStorageValue(cid,28749,1)

doPlayerAddItem(cid, ultraballid,20)

end

local hp = 800

if item.uid == 2222 then

queststatus = getPlayerStorageValue(cid,8749)

if queststatus == -1 then

doPlayerSendTextMessage(cid,22,"Charmander.")

for i = 1, quantidadestones do

doPlayerAddItem(cid,charmanderstoneid,1)

end

local ball1 = doPlayerAddItem(cid,2527,1)

doPlayerAddItem(cid,2160,1)

doPlayerAddItem(cid,2149,50)

doItemSetAttribute(ball1, "aid", hp)

setPlayerStorageValue(cid,8749,1)

else

doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.")

end

elseif item.uid == 6666 then

queststatus = getPlayerStorageValue(cid,8749)

if queststatus == -1 then

doPlayerSendTextMessage(cid,22,"Bulbasaur.")

for i = 1, quantidadestones do

doPlayerAddItem(cid,bulbasaurstoneid,1)

end

doPlayerAddItem(cid,2149,50)

doPlayerAddItem(cid,2160,1)

local ball2 = doPlayerAddItem(cid,2526,1)

doItemSetAttribute(ball2, "aid", hp)

setPlayerStorageValue(cid,8749,1)

else

doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.")

end

elseif item.uid == 7777 then

queststatus = getPlayerStorageValue(cid,8749)

if queststatus == -1 then

doPlayerSendTextMessage(cid,22,"Squirtle.")

for i = 1, quantidadestones do

doPlayerAddItem(cid,squirtlestoneid,1)

end

local ball3 = doPlayerAddItem(cid,2522,1)

doPlayerAddItem(cid,2160,1)

doPlayerAddItem(cid,2149,50)

doItemSetAttribute(ball3, "aid", hp)

setPlayerStorageValue(cid,8749,1)

else

doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.")

end

else

return 0

end

return 1

end

 

:withstupidsmiley: :withstupidsmiley:

[Eskylo 175]

---------------Config.------------------------- 
quantidadestones = 3 
charmanderstoneid = 5907
squirtlestoneid = 5810
bulbasaurstoneid = 5918
ultraballid = 2150
----------------------------------------------- 
function onUse(cid, item, frompos, item2, topos) 
if getPlayerStorageValue(cid, 28749) == -1 then
setPlayerStorageValue(cid,28749,1)
doPlayerAddItem(cid, ultraballid,20)
end
local hp = 800 
if item.uid == 2222 then 
queststatus = getPlayerStorageValue(cid,8749) 
if queststatus == -1 then 
doPlayerSendTextMessage(cid,22,"Charmander.") 
for i = 1, quantidadestones do 
doPlayerAddItem(cid,charmanderstoneid,1) 
end 
local ball1 = doPlayerAddItem(cid,2527,1) 
doPlayerAddItem(cid,2160,20) 
doPlayerAddItem(cid,2149,50) 
doItemSetAttribute(ball1, "aid", hp) 
setPlayerStorageValue(cid,8749,1) 
else 
doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.") 
end 
elseif item.uid == 6666 then 
queststatus = getPlayerStorageValue(cid,8749) 
if queststatus == -1 then 
doPlayerSendTextMessage(cid,22,"Bulbasaur.") 
for i = 1, quantidadestones do 
doPlayerAddItem(cid,bulbasaurstoneid,1) 
end 
doPlayerAddItem(cid,2149,50) 
doPlayerAddItem(cid,2160,20) 
local ball2 = doPlayerAddItem(cid,2526,1) 
doItemSetAttribute(ball2, "aid", hp) 
setPlayerStorageValue(cid,8749,1) 
else 
doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.") 
end 
elseif item.uid == 7777 then 
queststatus = getPlayerStorageValue(cid,8749) 
if queststatus == -1 then 
doPlayerSendTextMessage(cid,22,"Squirtle.") 
for i = 1, quantidadestones do 
doPlayerAddItem(cid,squirtlestoneid,1) 
end 
local ball3 = doPlayerAddItem(cid,2522,1) 
doPlayerAddItem(cid,2160,20) 
doPlayerAddItem(cid,2149,50) 
doItemSetAttribute(ball3, "aid", hp) 
setPlayerStorageValue(cid,8749,1) 
else 
doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.") 
end 
else 
return 0 
end 
return 1 
end

[tolindo 0]

eu sou o dragon lord queria saber como fasso pra add master ball no meu ot nele tem ´que master ball é host of alguma coisa nao me lembro agora

 

olha o masterball.lua

 

function onUse(cid, item, fromPosition, itemEx, toPosition)

function getPokemonMaxLife(name)

local file = io.open('data/monster/monsters.xml','r')

local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>')

file:close()

local data = io.open('data/monster/'..(arquivo or ''),'r')

if not data then

return 100

end

local maximo = data:read(-1):match('max%s*=%s*"(%d+)"')

data:close()

return maximo

end

----- Config -----

local MaximoSummon = 1

local nome = getItemName(item.uid)

local poke_name = nome:match('(.-) Masterball')

local summons = getCreatureSummons(cid)

local action_id = getItemAttribute(item.uid, "aid")

----- Config -----

if getPlayerStorageValue(cid, 25000) == 5 then

return doPlayerSendCancel(cid, "Você está montando.")

end

if getPlayerStorageValue(cid, 23000) == 5 then

return doPlayerSendCancel(cid, "Você está voando.")

end

if getItemAttribute(item.uid, "aid") == -1 then

return doPlayerSendCancel(cid, "Seu pokemon está morto.")

end

local summons = getCreatureSummons(cid)

if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then

doPlayerSendCancel(cid, "Para Soltar seus pokemons, coloque-os no slot da pokeball.")

return TRUE

end

if(table.maxn(summons) < MaximoSummon) then -- no summons

creature = doSummonCreature(poke_name, getCreaturePosition(cid))

doConvinceCreature(cid, creature)

registerCreatureEvent(creature, "Masterball")

registerCreatureEvent(cid, "PlayerPokeDeath")

registerCreatureEvent(cid, "LogoutPoke")

doPlayerSay(cid, "Go,"..poke_name.."!!!", TALKTYPE_ORANGE_1)

doSendMagicEffect(getCreaturePosition(creature), 196)

doTransformItem(getPlayerSlotItem(cid,8).uid, 2523, 1)

doItemSetAttribute(getPlayerSlotItem(cid,8).uid,"name", poke_name .." Masterball")

if action_id ~= 0 then

doCreatureAddHealth(creature, -(tonumber(getPokemonMaxLife(poke_name) - action_id)))

else

doCreatureAddHealth(creature, getPokemonMaxLife(poke_name))

end

else

for _, pid in ipairs(summons) do

if (table.maxn(summons) >= 1) then

doItemSetAttribute(item.uid, "aid", getCreatureHealth(summons[1]))

doSendMagicEffect(getCreaturePosition(getCreatureSummons(cid)[1]), 196)

doPlayerSay(cid,"Back, "..poke_name.."", TALKTYPE_ORANGE_1)

doRemoveCreature(pid)

doTransformItem(getPlayerSlotItem(cid,8).uid, 2195, 1)

doItemSetAttribute(getPlayerSlotItem(cid,8).uid,"name", poke_name .." Masterball")

end

end

end

return true

end