Fish Bowl

GuuLiima
em Lixeira Pública

GuuLiima

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 22/08/11Posts: 1Char no Tibia: Sorc Catador

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

Wendels Dark
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/04/08Posts: 35Char no Tibia: Roya Latex

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

Se gOsToU me de REP +

 

entre no meu canal e assista aos videos do meu server --> (off ainda.. só fica ON quando for dedicado 24/7 , preciso começar a trabalhar )

Akilles Server : http://www.youtube.com/user/wendelsdark/videos

GuuLiima

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 22/08/11Posts: 1Char no Tibia: Sorc Catador

mais aonde eu coloco ?

Gabriel001

Wendels Dark
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 29/04/08Posts: 35Char no Tibia: Roya Latex

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

renomeia o arquivo para catch_fishbowl

 

 

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 !

Se gOsToU me de REP +

 

entre no meu canal e assista aos videos do meu server --> (off ainda.. só fica ON quando for dedicado 24/7 , preciso começar a trabalhar )

Akilles Server : http://www.youtube.com/user/wendelsdark/videos

GuuLiima

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 22/08/11Posts: 1Char no Tibia: Sorc Catador

ou melhor posta a script aki pra mim pf :D

 

[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

Eterno Coordenador - ou não :(
avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 08/05/08Posts: 1342

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

Entrada como Estagiário: 10/05/09

Entrada na Equipe de Imprensa: 23/06/09

Coordenador de Imprensa: 11/09/09

Coordenador de Redação: 20/03/11

Coordenador de Imprensa: 11/07/11

Diretor de Publicidade: 19/10/12

Contato: wonhelder@xtibia.com

 

"Não podemos prever o futuro, mas podemos criá-lo." Paul Pilzer

"Todo homem morre, mas são poucos os que realmente vivem." William Wallace

 



 

Conheça o Facebook do XTibia.com, lá você vê o melhor conteúdo do XTibia e ainda pode concorrer a prêmios incríveis!

 

facebooklogoq.jpg