Arrumando Cath Balls Pokemon Dash Advenced

823692
Por 823692
em Actions e Talkactions

823692

Psico Tali
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 21/10/11Posts: 21Char no Tibia: Overdoin

é o seguinte eu quando baixei o servidor a ultra ball estava bugada então , resolvi vim quebrar o galho para alguns ADMS .

 

 

va em data/actions/scripts abra a pasta cath la estara :

 

 

local ballcatch = {

[2394] = {cr = 3, on = 24, off = 23, ball = 11826, send = 47},

[2393] = {cr = 8, on = 202, off = 201, ball = 11835, send = 46},

[2391] = {cr = 14, on = 198, off = 197, ball = 11832, send = 48},

[2392] = {cr = 18, on = 200, off = 199, ball = 11829, send = 49},

}

 

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

 

local item2 = getTopCorpse(topos)

if item2 == null then

return true

end

 

if getItemAttribute(item2.uid, "catching") == 1 then

return true

end

 

local name = string.lower(getItemNameById(item2.itemid))

name = string.gsub(name, "fainted ", "")

name = string.gsub(name, "defeated ", "")

 

local x = pokecatches[doCorrectPokemonName(name)]

 

if not x then return true end

 

local owner = getItemAttribute(item2.uid, "corpseowner")

 

if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner and isInArray({1,8}, getPlayerGroupId(cid)) then

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

return true

end

 

local catchinfo = {}

catchinfo.rate = ballcatch[item.itemid].cr

catchinfo.catch = ballcatch[item.itemid].on

catchinfo.fail = ballcatch[item.itemid].off

catchinfo.newid = ballcatch[item.itemid].ball

catchinfo.name = doCorrectPokemonName(name)

catchinfo.topos = topos

catchinfo.chance = x.chance

 

doSendDistanceShoot(getThingPos(cid), topos, ballcatch[item.itemid].send)

doRemoveItem(item.uid, 1)

 

local d = getDistanceBetween(getThingPos(cid), topos)

 

addEvent(doSendPokeBall, d * 70 + 100 - (d * 14) , cid, catchinfo, false, false)

addEvent(doSendMagicEffect, (d * 70 + 100 - (d * 14)) - 100, topos, 3)

 

return true

end

 

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

vermelho : Cath mude para qual você quizer mais o meu ja esta editado ce quizer diminuir a ultra o serto mesmo é 16 + weiwoeiwo '

 

Credits : Bruno123

 

te ajudei REP +

 

 

Atenciosamente

x Yurnero x

Lukasmap

avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 26/11/11Posts: 145

VLW eu tinha achado mais nao tinha etendido muito bem!

PzUBY.png

Em Breve SERVER ON!

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

Msn: lucasasiqueira@hotmail.com

Group: group259294@groupsim.com

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

Meus Trabalhos: