Pokebola

[Nightz 7]

Achei um BUG ! Voce pega 2 ball, captura uma tarantula na primeira e um rat na segunda, ai quando tu manda a tarantula da primeira vai sair o rat, que foi o ultimo que tu capturo... LOL !

Editado 12 Dezembro, 2009 por Nightz

[1254 0]

Amigao,

 

Ficou 10000 esse script, funcionaria em ot 8.1?

 

Obrigado!

[subdark 0]

Bem massa vlws ae por compartilhar,

 

Ps: so precisa configurar, o cara ja compartilho agora e so editar ue ai nao pega os npcs nem os monstros foda

[Welkin Guide 0]

Axei bastante interessante.

Parabéns ficou legal.

[zeruel12 0]

naum gostei

[Gustavo Benzi 0]

cara meu ot nao tem global functions ond eu ponho?

[Windows32 0]

Eu baixei um otserv 8.4 e não tem a pasta global fuction .-.

Alguem ajuda ai?

[ushoriuma 0]

aew vlws msm facilito meu trabalho no POBR Oficial!!! vlws msm!!!

Editado 2 Janeiro, 2010 por ushoriuma

[blitzkrieng123 0]

as vezes em alguns servers dá um bug por causa da verificação de se vc está em pz ou nao, entao eu modifiquei uma simples coisa se vc nao se importa , é para que esse bug saia,

 

local notAllowed = {"Ferumbras", "Demon"}
local storage = {
   status = 15244,
   pokeName = 15212
}
local actionid_used = 7510

function onUse(cid, item, fromPos, item2, toPos)
   local pokeballStatus = getPlayerStorageValue(cid, storage.status)
   local pokeName = getPlayerStorageString(cid, storage.pokeName)
   pos = getPlayerPosition(cid) pos.stackpos = 0        
[color=red][b]        if getTilePzInfo(pos) == FALSE then[/b][/color]
       if pokeballStatus <= 0 then
           toPos.stackpos = 253
           local pokeThing = getThingfromPos(toPos)
           if isCreature(pokeThing.uid) == TRUE then
               if isPlayer(pokeThing.uid) == FALSE then
                   local pokename_ = getCreatureName(pokeThing.uid)
                   if item.actionid ~= actionid_used then
                   --    local maxHealth = 400
                   --    local creatureHealth = getCreatureHealth(pokeThing.uid)
                   --    local divNum = (string.len(maxHealth)-1)^2
                   --    local result = math.floor((creatureHealth/divNum)/10)
                   --    local chance = math.random(1, math.random(4, math.random(7, math.max(result, 7))))
                   --    if chance == result then
                           if isInTable(notAllowed, pokename_) == TRUE then
                               doPlayerSendCancel(cid, "You cannot catch this creature")
                           else
                               setPlayerStorageString(cid, storage.pokeName, pokename_)
                               doRemoveCreature(pokeThing.uid)
                               doSendDistanceShoot(fromPos, toPos, 37)
                               setPlayerStorageValue(cid, storage.status, 1)
                               doSetItemSpecialDescription(item.uid, "it contains a " .. pokename_ .. ".")
                               doSetItemActionId(item.uid, actionid_used)
                           end
                   --    else
                   --        doSendMagicEffect(fromPos, 2)
                   --        doPlayerSendCancel(cid, "The Pokemom Escaped")
                   --    end
                   elseif item.actionid == actionid_used and pokename_  == pokeName then
                       doCreatureSay(cid, pokeName .. " Back!!", TALKTYPE_SAY)
                       doRemoveCreature(pokeThing.uid)
                       doSetItemSpecialDescription(item.uid, "it contains a " .. pokename_ .. ".")
                       setPlayerStorageValue(cid, storage.status, 1)
                       doSendDistanceShoot(fromPos, toPos, 37)
                   else
                       doSendMagicEffect(fromPos, 2)
                       doPlayerSendCancel(cid, "This pokeball is already used")
                   end
               else
                   doPlayerSendCancel(cid, "You cannot catch this creature")
               end
           else
               doPlayerSendCancel(cid, "Creature not found")
           end
       elseif pokeballStatus == 1 then
       --    summons = getCreatureSummons(cid)
       --    if #summons >= 2 then
       --        doPlayerSendCancel(cid, "You cannot call more pokemons")
       --    else
               doConvinceSummon(cid, pokeName, 0, toPos)
               doSendDistanceShoot(fromPos, toPos, 37)
               doCreatureSay(cid, pokeName .. " Go!!", TALKTYPE_SAY)
               setPlayerStorageValue(cid, storage.status, 0)
               doSetItemSpecialDescription(item.uid, "it is empty.")
       --    end
       end
   else
       doPlayerSendCancel(cid, "You cannot use pokeballs in protection zone.")
   end
   return 1
end 

function isInTable(t, val)
   for _, v in pairs(t) do
       if v == val then
           return TRUE
       end
   end
   return LUA_ERROR
end

 

pronto ;D vou tentar dar um jeito de tipo .. voce poder capturar 2 pets e poder usar os 2, acabei de virar scripter e ja vo começar bem u.u ahusuhauh se o dono do script autorizar é claro ..

 

ae, e pra qm n tem o globalfunctions só é ir em data/lib/functions.lua ou data/functions.lua e adcionar o script q ele falou, espero ter ajudado ^^

 

gostei bastante da pokebola, vou tentar deixar esse script impecavel pelo menos no meu ot, e se o dono do script autorizar eu posto aqui pra voces

[Snows 0]

isso dai da pra server de TIBIA 8.50

sem ser pokemon

please responde awe

[Nenzzy 0]

dahora,

OLD

[Mickfern 32]

Sistema de pokebola ?

ROX <<<<

[dragonlorde 0]

Acho que ate vou reportar voces por flood por que esse sistema nem funciona direito -.- e voces ficam falando palhaçada pra ganha post ne? que divertido -,-

Quando voce vai botar + de 1 pokemon da erro...