Fish Bowl

[GuuLiima 0]

eae galerinha tibiana

queria q alguem me fizesse um script de fishbowl

tipo quando pesco um monstro pro bixo nn ficar solto guarda em um fish bowl

entendeu ?

eu presiso mt

dou GOD no meu ot

Please

 

msn : Guu.Liima_2010@hotmail.com

By : Guu.Liima

[Gabriel001 3]

baixa um server pokemon .. e pega os script da POKEBALL !

[GuuLiima 0]

mais aonde eu coloco ?

[Gabriel001 3]

Vai em actions/scripts e copia um arquivo .lua e poe isso dentro !

renomeia o arquivo para catch_fishbowl

 

  Mostrar conteúdo oculto

 

local pokes = {

["Triton"] = {chance = 1, corpse = 5981, health = 2900, maxhealth = 2900},

["Jaws"] = {chance = 1, corpse = 6005, health = 5200, maxhealth = 5200},

}

 

local description = "Contains a %pokename."

 

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

local name = getItemNameById(item2.itemid)

if item.itemid == id do fishbowl then

catchrate = 1

oncatch = 24

onfail = 23

bolabola = id do fishbowl

elseif item.itemid == id do fishbowl then

catchrate = 4

oncatch = 200

onfail = 199

bolabola = id fo fishbowl

end

local rate = (catchrate)

local catch = oncatch

local fail = onfail

local newid = bolabola

for i,x in pairs(pokes) do

if getItemNameById(item2.itemid):find(i:lower()) then

if getItemIdByName(name) == pokes.corpse then

if cid ~= getItemAttribute(item2.uid, "corpseowner") and isInArray({1,8}, getPlayerGroupId(cid)) then

doPlayerSendCancel(cid, "You are not allowed to catch this pokemon.")

return true

end

doRemoveItem(item.uid, 1)

doRemoveItem(item2.uid, 1)

local pegar = math.random(0, x.chance)

if pegar <= 1*(rate) then

doSendMagicEffect(topos, catch)

 

local nas = {

["%%pokename"] = i

}

for i,x in pairs(nas) do

if description:find(i) then

description = description:gsub(i, x)

end

end

 

local function capturou(params)

if not isCreature(params.cid) then

return true

end

if not string.find(getPlayerStorageValue(cid, 54842), ""..i..",") then

doPlayerAddSoul(cid, 1)

setPlayerStorageValue(cid, 54842, getPlayerStorageValue(cid, 54842)..""..i..", ")

end

if getPlayerFreeCap(cid) <= 0.99 then

item = doCreateItemEx(newid-1)

doItemSetAttribute(item, "poke", params.poke)

doItemSetAttribute(item, "nome", params.nome)

doItemSetAttribute(item, "description", params.description)

doPlayerSendMailByName(getCreatureName(params.cid), item, 1)

doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a "..i.."!")

doPlayerSendTextMessage(cid, 27, "Since you are already holding six monsters, this fish bowl has been sent to your depot.")

else

item = doCreateItemEx(params.ball)

doItemSetAttribute(item, "poke", params.poke)

doItemSetAttribute(item, "nome", params.nome)

doItemSetAttribute(item, "description", params.description)

doPlayerAddItemEx(params.cid, item, true)

doTransformItem(item, newid)

doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a "..i.."!")

end

if #getCreatureSummons(cid) >= 1 then

doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 178)

else

doSendMagicEffect(getThingPos(cid), 178)

end

end

 

local description = "Contains a "..i.."."

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

addEvent(capturou, 4000, {cid = cid, poke = poke1, nome = i, description = description, ball = 2219, letter = 2597})

else

function ruim(params)

if not isCreature(params.cid) then

return true

end

doPlayerSendTextMessage(params.cid, 27, "Sorry, you didn\'t catch that monster.")

if #getCreatureSummons(params.cid) >= 1 then

doSendMagicEffect(getThingPos(getCreatureSummons(params.cid)[1]), 166)

else

doSendMagicEffect(getThingPos(params.cid), 166)

end

end

addEvent(ruim, 4000, {cid = cid})

doSendMagicEffect(topos, fail)

end

end

end

end

return TRUE

end

 

 

 

 

Agora troca oque tu quizer, troka o health e o healthmax - poe a vida to monster ... para saber vai na pasta dele e confere lá

vê também o corpse..de quando o monster morrer...

agora onde ta escrito "id do fishbowl" poe o id do fish bowl q tu ta usando como se fosse pokeball !

agora vai em actions/ actions.lua

e add esta linha

<action itemid="id do fishbowl" event="script" value="catch_fishbowl.lua"/>

Agora testa e ve se funciona!

 

 

 

Não esqueça do REP+ hein !

Editado Fevereiro 2, 2012 por GabrielOts

[GuuLiima 0]

ou melhor posta a script aki pra mim pf

 

[02/02/2012 16:08:28] [Warning - BaseEvents::loadFromXml] Can not open actions.xml

[02/02/2012 16:08:28] [Error - Game::reloadInfo] Failed to reload actions.

?

e agr me passaseu msn ou me add nois conversa por la

[dwhfms 168]

Amigo, por favor, formule melhor seu tópico e o re-crie na seção correta: http://www.xtibia.com/forum/forum/86-pedidos-de-scripts/

 

Fechado