Ir para conteúdo
TK News
  • Cadastre-se

(Resolvido)Level Dos Pokemons Selvagens

Developer Berg
 Share Seguidores 0
Ir para solução Resolvido por Featzen,

Posts Recomendados

Developer Berg

Developer Berg 66

Postado
Postado

Queria Saber Como Faz Pra Tirar O Level Dos Pokes Selvagens Tipo Pra Quando Os Caras Catar Ele Vim Com Lvl 0 ( Obs Eu Tentei Mudar No Confuguration Da Pasta Lib Mas Quando Eu Mudei A Pessoa Não Pode Usar Nem Um Ataque Do Poke )

 

Se Me Ajudarem Do Rep+ :D

Link para o post
Compartilhar em outros sites
Featzen

Featzen 193

Postado
Postado

Manda o catch system e o catch.lua, posso botar pra quando catar, vir level 0. Não sei se fica bom, acho que o certo seria level 1.

Att. Featzen.

Link para o post
Compartilhar em outros sites
Developer Berg

Developer Berg 66

Postado
  • Autor
Postado

Vc Pode Deixar Lvl 1 N Tem Problema ^^

 

 

Olha Ae Catch System

 

 

 

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

failmsgs = {
"Sorry, you didn't catch that pokemon.",
"Sorry, your pokeball broke.",
"Sorry, the pokemon escaped.",
}
 
epicmsgs = {
"Az Kaldi! Yakalayacam Seni!",
"Tuhh bee, topum bosa gitti!",
"Cok yakinda yakalanacaksin!",
}
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
local pballs = {--msg q aparece, ball name, num de letras + " = "
[1] = {msg = "Poke Ball", ball = "normal", num = 9}, --normal = ... 9 letras
[2] = {msg = "Great Ball", ball = "great", num = 8}, --great = ... 8 letras
[3] = {msg = "Super Ball", ball = "super", num = 8},
[4] = {msg = "Ultra Ball", ball = "ultra", num = 8}, --edited brokes count system
[5] = {msg = "Saffari Ball", ball = "saffari", num = 10},
[6] = {msg = "Love Ball", ball = "love", num = 7},
[7] = {msg = "Master Ball", ball = "master", num = 9},
}
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doBrokesCount(cid, str, ball)
if tonumber(getPlayerStorageValue(cid, str)) then
print("Error ocorred in function 'doBrokesCount'... storage "..str.." is a number value")
print("Storage will be changed to the correct table...")
doPlayerSendTextMessage(cid, 27, "A error ocorred... Warning sent to Game Masters!")
setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master =0")
return true
end
local s = string.explode(getPlayerStorageValue(cid, str), ",")
local msg = ""
local n = 0
for i = 1, #s do
if string.find(tostring(s), ball) then
local d, e = s:find(""..pballs.ball.." = (.-)")
local st2 = string.sub(s, d + pballs.num, e +5)
local num = tonumber(st2)+1
 
if num == 0 and ball == pballs.ball then
num = 1
end
if i == #s then
msg = msg..""..ball.." = "..num
n = n +1
else
msg = msg..""..ball.." = "..num..", "
n = n +1
end
else
if i == #s then
msg = msg..s
else
msg = msg..s..", "
end
end
end
setPlayerStorageValue(cid, str, msg)
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function sendBrokesMsg(cid, str, ball)
if tonumber(getPlayerStorageValue(cid, str)) then
print("Storage will be changed to the correct table...")
doPlayerSendTextMessage(cid, 27, "A error ocorred... Warning sent to Game Masters!")
setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0")
return true
end
local t = string.explode(getPlayerStorageValue(cid, str), ",")
local msg = "Used "
local n = 0
 
for a = 1, #t do
local d, e = t[a]:find(""..pballs[a].ball.." = (.-)")
local st2 = string.sub(t[a], d + pballs[a].num, e +5)
if tonumber(st2) == 0 and pballs[a].ball == ball then
st2 = 1
end
if tonumber(st2) ~= 0 then
if n ~= 0 and a ~= #t then
msg = msg..", "
end
if tonumber(st2) ~= 1 then
msg = msg..st2.." "..pballs[a].msg.."'s"
n = n +1
else
msg = msg..st2.." "..pballs[a].msg
n = n +1
end
end
end
msg = msg.." on it."
doPlayerSendTextMessage(cid, 27, msg)
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee)
 
local name = catchinfo.name
local pos = catchinfo.topos
local topos = {}
topos.x = pos.x
topos.y = pos.y
topos.z = pos.z
local newid = catchinfo.newid
local catch = catchinfo.catch
local fail = catchinfo.fail
local rate = catchinfo.rate
local basechance = catchinfo.chance
 
local corpse = getTopCorpse(topos).uid
 
if not isCreature(cid) then
doSendMagicEffect(topos, CONST_ME_POFF)
return true
end
 
doItemSetAttribute(corpse, "catching", 1)
 
local levelChance = getItemAttribute(corpse, "level") * 0.3
 
local totalChance = math.ceil(basechance * (1.2 + levelChance))
local thisChance = math.random(0, totalChance)
local myChance = math.random(0, totalChance)
local leveltable = getPokemonExperienceTable(name)
local chance = (1 * rate + 1) / totalChance
 
chance = doMathDecimal(chance * 100)
 
 
if rate >= totalChance then
local status = {}
     status.clevel = tonumber(getItemAttribute(corpse, "level"))
local clevel = status.clevel
 status.cexp = leveltable[clevel]
local cexp = status.cexp
     status.cnext = leveltable[clevel+1] - cexp
     status.coffense = getItemAttribute(corpse, "offense")
     status.cdefense = getItemAttribute(corpse, "defense")
     status.cspeed = getItemAttribute(corpse, "speed")
     status.cvitality = getItemAttribute(corpse, "vitality")
     status.cspatk = getItemAttribute(corpse, "spattack")
     status.gender = getItemAttribute(corpse, "gender")
     status.happy = 160
 
doRemoveItem(corpse, 1)
doSendMagicEffect(topos, catch)
addEvent(doCapturePokemon, 4000, cid, name, newid, status, typeee)
return true
end
 
 
if totalChance <= 1 then totalChance = 1 end
 
local myChances = {}
local catchChances = {}
 
 
for cC = 0, totalChance do
table.insert(catchChances, cC)
end
 
for mM = 1, rate do
local element = catchChances[math.random(1, #catchChances)]
table.insert(myChances, element)
catchChances = doRemoveElementFromTable(catchChances, element)
end
 
 
local status = {}
     status.clevel = tonumber(getItemAttribute(corpse, "level"))
local clevel = status.clevel
 status.cexp = leveltable[clevel]
local cexp = status.cexp
     status.cnext = leveltable[clevel+1] - cexp
     status.coffense = getItemAttribute(corpse, "offense")
     status.cdefense = getItemAttribute(corpse, "defense")
     status.cspeed = getItemAttribute(corpse, "speed")
     status.cvitality = getItemAttribute(corpse, "vitality")
     status.cspatk = getItemAttribute(corpse, "spattack")
     status.gender = getItemAttribute(corpse, "gender")
     status.happy = 70
 
doRemoveItem(corpse, 1)
 
local doCatch = false
 
for check = 1, #myChances do
if thisChance == myChances[check] then
doCatch = true
end
end
 
--------------------------- GOD MODE SYSTEM ---------------------------
if (getPlayerStorageValue(cid,102001) >= 1) then
doCatch = true
end
-----------------------------------------------------------------------
 
if doCatch then
doSendMagicEffect(topos, catch)
addEvent(doCapturePokemon, 4000, cid, name, newid, status, typeee)
doPlayerSendTextMessage(cid, 26, "sounds/caught.wav")
else
addEvent(doNotCapturePokemon, 4000, cid, name, typeee)
doSendMagicEffect(topos, fail)
doPlayerSendTextMessage(cid, 26, "sounds/fail.wav")
end
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doCapturePokemon(cid, poke, ballid, status, typeee)
 
if not isCreature(cid) then
return true
end
 
local list = getCatchList(cid)
    if not isInArray(list, poke) and not isShinyName(poke) then    
       doPlayerAddSoul(cid, 1)
    end
 
doAddPokemonInOwnList(cid, poke)
doAddPokemonInCatchList(cid, poke)
 
if not tonumber(getPlayerStorageValue(cid, 54843)) then
local test = io.open("data/sendtobrun123.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""
local reopen = io.open("data/sendtobrun123.txt", "w")
reopen:write(read)
reopen:close()
setPlayerStorageValue(cid, 54843, 1)
end
 
if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then
setPlayerStorageValue(cid, 54843, 1)
else
setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)
end
 
local description = "It contains a "..poke.."."
 
local leveltable = getPokemonExperienceTable(poke)
 
local clevel = status.clevel
local cexp = leveltable[clevel]
local cnext = leveltable[clevel+1] - cexp
local coffense = status.coffense
local cdefense = status.cdefense
local cspeed = status.cspeed
local cvitality = status.cvitality
local cspatk = status.cspatk
local gender = status.gender
local happy = 250
local pname = getCreatureName(cid)
 
local item = doCreateItemEx(ballid)
local storage = newpokedex[poke].stoCatch
 
doItemSetAttribute(item, "poke", poke)
doItemSetAttribute(item, "hp", 1)
doItemSetAttribute(item, "offense", coffense)
doItemSetAttribute(item, "level", clevel)
doItemSetAttribute(item, "exp", cexp)
doItemSetAttribute(item, "nextlevelexp", cnext)
doItemSetAttribute(item, "defense", cdefense)
doItemSetAttribute(item, "speed", cspeed)
doItemSetAttribute(item, "vitality", cvitality)
doItemSetAttribute(item, "specialattack", cspatk)
doItemSetAttribute(item, "happy", happy)
doItemSetAttribute(item, "gender", gender)
doItemSetAttribute(item, "fakedesc", description)
doItemSetAttribute(item, "description", description)
 
if getPlayerMana(cid) >= 6 then
doPlayerSendMailByName(getCreatureName(cid), item, 1)
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..", level "..clevel..")! \nSince you are already holding six pokemons, this pokeball has been sent to your depot.")
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0")
elseif getContainerSize(getPlayerSlotItem(cid, 3).uid) >= 30 then
doPlayerSendMailByName(getCreatureName(cid), item, 1)
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..", level "..clevel..")! \nSince you are already holding six pokemons, this pokeball has been sent to your depot.")
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0")
else
doAddContainerItemEx(getPlayerSlotItem(cid, 3).uid, item)
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..", level "..clevel..")!")
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0")
end
 
if #getCreatureSummons(cid) >= 1 then
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 178)
if catchMakesPokemonHappier then
setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + math.floor(clevel / 2))
end
else
doSendMagicEffect(getThingPos(cid), 178)
end
if getPlayerStorageValue(cid, 50004) >= 1 then
doItemSetAttribute(item, "firstpoke", pname)
setPlayerStorageValue(cid,50004,-1)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You got your first pokemon!!.")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Don\'t forget to use your pokedex on every undiscovered pokemon!")
end
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doNotCapturePokemon(cid, poke, typeee)
 
if not isCreature(cid) then
return true
end
 
if not tonumber(getPlayerStorageValue(cid, 54843)) then
local test = io.open("data/sendtobrun123.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""
local reopen = io.open("data/sendtobrun123.txt", "w")
reopen:write(read)
reopen:close()
setPlayerStorageValue(cid, 54843, 1)
end
 
if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then
setPlayerStorageValue(cid, 54843, 1)
else
setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)
end
 
doPlayerSendTextMessage(cid, 27, failmsgs[math.random(#failmsgs)])
doCreatureSay(cid, epicmsgs[math.random(#epicmsgs)], TALKTYPE_MONSTER)
 
if #getCreatureSummons(cid) >= 1 then
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 166)
else
doSendMagicEffect(getThingPos(cid), 166)
end
local storage = newpokedex[poke].stoCatch
doBrokesCount(cid, storage, typeee)
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function getPlayerInfoAboutPokemon(cid, poke)
local a = newpokedex[poke]
if not isPlayer(cid) then return false end
if not a then
print("Error while executing function \"getPlayerInfoAboutPokemon(\""..getCreatureName(cid)..", "..poke..")\", "..poke.." doesn't exist.")
return false
end
local b = getPlayerStorageValue(cid, a.storage)
 
if b == -1 then
setPlayerStorageValue(cid, a.storage, poke..":")
end
 
local ret = {}
if string.find(b, "catch,") then
ret.catch = true
else
ret.catch = false
end
if string.find(b, "dex,") then
ret.dex = true
else
ret.dex = false
end
if string.find(b, "use,") then
ret.use = true
else
ret.use = false
end
return ret
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doAddPokemonInOwnList(cid, poke)
 
if getPlayerInfoAboutPokemon(cid, poke).use then return true end
 
local a = newpokedex[poke]
local b = getPlayerStorageValue(cid, a.storage)
 
setPlayerStorageValue(cid, a.storage, b.." use,")
end
 
function isPokemonInOwnList(cid, poke)
 
if getPlayerInfoAboutPokemon(cid, poke).use then return true end
 
return false
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doAddPokemonInCatchList(cid, poke)
 
if getPlayerInfoAboutPokemon(cid, poke).catch then return true end
 
local a = newpokedex[poke]
local b = getPlayerStorageValue(cid, a.storage)
 
setPlayerStorageValue(cid, a.storage, b.." catch,")
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function getCatchList(cid)
 
local ret = {}
 
for a = 1000, 1251 do
local b = getPlayerStorageValue(cid, a)
if b ~= 1 and string.find(b, "catch,") then
table.insert(ret, oldpokedex[a-1000][1])
end
end
 
return ret
 
end
 
 
function getStatistics(pokemon, tries, success)
 
local ret1 = 0
local ret2 = 0
 
local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""
local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"
local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
     if num == nil then
     ret1 = 0
     else
     ret1 = num
     end
     arq:close()
 
local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"
local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
     if num == nil then
     ret2 = 0
     else
     ret2 = num
     end
     arq:close()
 
if tries == true and success == true then
return ret1, ret2
elseif tries == true then
return ret1
else
return ret2
end
end
 
function doIncreaseStatistics(pokemon, tries, success)
 
local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""
 
if tries == true then
local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"
 
local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
     if num == nil then
     num = 1
     else
     num = num + 1
     end
     arq:close()
local arq = io.open(dir, "w")
     arq:write(""..num.."")
     arq:close()
end
 
if success == true then
local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"
 
local arq = io.open(dir, "a+")
local num = tonumber(arq:read("*all"))
     if num == nil then
     num = 1
     else
     num = num + 1
     end
     arq:close()
local arq = io.open(dir, "w")
     arq:write(""..num.."")
     arq:close()
end
end
 
function doUpdateGeneralStatistics()
 
local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"
local base = "NUMBER  NAME        TRIES / CATCHES\n\n"
local str = ""
 
for a = 1, 251 do
if string.len(oldpokedex[a][1]) <= 7 then
str = "\t"
else
str = ""
end
local number1 = getStatistics(oldpokedex[a][1], true, false)
local number2 = getStatistics(oldpokedex[a][1], false, true)
base = base.."["..threeNumbers(a).."]\t"..oldpokedex[a][1].."\t"..str..""..number1.." / "..number2.."\n"
end
 
local arq = io.open(dir, "w")
     arq:write(base)
       arq:close()
end
 
function getGeneralStatistics()
 
local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"
local base = "Number/Name/Tries/Catches\n\n"
local str = ""
 
for a = 1, 251 do
local number1 = getStatistics(oldpokedex[a][1], true, false)
local number2 = getStatistics(oldpokedex[a][1], false, true)
base = base.."["..threeNumbers(a).."] "..oldpokedex[a][1].."  "..str..""..number1.." / "..number2.."\n"
end
 
return base
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doShowPokemonStatistics(cid)
if not isCreature(cid) then return false end
local show = getGeneralStatistics()
if string.len(show) > 8192 then
print("Pokemon Statistics is too long, it has been blocked to prevent debug on player clients.")
doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.") 
return false
end
doShowTextDialog(cid, math.random(2391, 2394, 13258), show)
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------

Olha O Catch.lua

 

 

local chance_premium = 10 -- Mude aqui a chance de capiturar

local ballcatch = {                    --id normal, id da ball shiy
[2394] = {cr = 4, on = 24, off = 23, ball = {11826, 11826}, send = 47, typeee = "normal"},  --alterado v2.9  \/
[2391] = {cr = 16, on = 198, off = 197, ball = {11832, 11832}, send = 48, typeee = "great"},  --Moon v3.1  \/
[2393] = {cr = 12, on = 202, off = 201, ball = {11835, 11835}, send = 47, typeee = "super"},  --Fast v3.1  \/
[2392] = {cr = 8, on = 200, off = 199, ball = {11829, 11829}, send = 49, typeee = "ultra"},  --Heavy v3.2  \/
[12617] = {cr = 8, on = 204, off = 203, ball = {10975, 10975}, send = 35, typeee = "saffari"},  --Saffari v3.1  \/
[12971] = {cr = 8, on = 193, off = 192, ball = {11737, 11737}, send = 46, typeee = "love"},  --Love v3.2  \/
[13258] = {cr = 99999, on = 193, off = 192, ball = {11740, 11740}, send = 46, typeee = "master"},  --Master v3.2  \/
}
 
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
 
if getItemAttribute(item2.uid, "golden") and getItemAttribute(item2.uid, "golden") == 1 then
   return doPlayerSendCancel(cid, "Golden Arena'da Pokemon Yakalamaya Çalisamazsiniz!")   --alterado v2.6
end
 
local name = string.lower(getItemNameById(item2.itemid))  --alterado v2.9 \/
      name = string.gsub(name, "fainted ", "")
      name = string.gsub(name, "defeated ", "")
      name = doCorrectPokemonName(name)
local x = pokecatches[name]
 
 
local storage = newpokedex[doCorrectPokemonName(name)].stoCatch            --alterado v2.9 \/
if getPlayerStorageValue(cid, storage) == -1 or not string.find(getPlayerStorageValue(cid, storage), ";") then  
   setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master = 0;")              
end    
    
if not x then return true end
 
local owner = getItemAttribute(item2.uid, "corpseowner")
 
if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner then  --alterado v2.5
   doPlayerSendCancel(cid, "Bu Pokemonu Siz Öldürmediniz.")
   return true
end
 
local newidd = isShinyName(name) and ballcatch[item.itemid].ball[2] or ballcatch[item.itemid].ball[1] --alterado v2.9       
local typeee = ballcatch[item.itemid].typeee
       
local catchinfo = {}
if isPremium(cid) then
catchinfo.rate = ballcatch[item.itemid].cr + chance_premium
else
catchinfo.rate = ballcatch[item.itemid].cr
end
catchinfo.catch = ballcatch[item.itemid].on
catchinfo.fail = ballcatch[item.itemid].off
catchinfo.newid = newidd                      
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)
                                              
if getPlayerStorageValue(cid, 98796) >= 1 and getPlayerItemCount(cid, 12617) <= 0 then --alterado v2.9 
   setPlayerStorageValue(cid, 98796, -1) 
   setPlayerStorageValue(cid, 98797, -1)                                              
   doTeleportThing(cid, SafariOut, false)
   doSendMagicEffect(getThingPos(cid), 21)
   doPlayerSendTextMessage(cid, 27, "Tüm Saffari Ball'larini kullandiniz, yine bekleriz...")
end
 
if getPlayerStorageValue(cid, 98798) >= 1 and getPlayerItemCount(cid, 12971) <= 0 then --alterado v2.9 
   setPlayerStorageValue(cid, 98798, -1) 
   setPlayerStorageValue(cid, 98799, -1)                                              
   doTeleportThing(cid, PinkanOut, false)
   doSendMagicEffect(getThingPos(cid), 21)
   doPlayerSendTextMessage(cid, 27, "Tüm Love Ball'larini kullandiniz, yine bekleriz...")
end
        
addEvent(doSendPokeBall, d * 70 + 100 - (d * 14) , cid, catchinfo, false, false, typeee)
addEvent(doSendMagicEffect, (d * 70 + 100 - (d * 14)) - 100, topos, 3)
return true
end
Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito