Derivado (AJUDA) poke ball catch effect

wevertonvrb · Julho 18, 2015

bom gente eu gostaria de fazer com que apos capturar um pokemon solte um certo efeito
a pokeball ja tem seu efeito de quando se pega o pokemon mas eu quero adicionar mais um efeito que sera executado apos o efeito da ball

sera um efeito comemorativo por ter pego o pokemon eu preciso muito deste efeito

up???

up?

?

Editado Julho 17, 2015 por wevertonvrb (veja o histórico de edições)

wevertonvrb · Julho 19, 2015

alguem?

L3K0T · Julho 19, 2015

manda seu catch.lua

wevertonvrb · Julho 19, 2015

aqui esta

local ballcatch = {                    --id normal, id da ball shiy
[2394] = {cr = 7, on = 193, off = 192, ball = {11826, 11737}, send = 47, typeee = "normal", boost = "0"}, --alterado v1.9 \/
[2391] = {cr = 9, on = 198, off = 197, ball = {11832, 11740}, send = 48, typeee = "great", boost = "0"},
[2393] = {cr = 11, on = 202, off = 201, ball = {11835, 11743}, send = 46, typeee = "super", boost = "0"},
[2392] = {cr = 20, on = 200, off = 199, ball = {11829, 11746}, send = 49, typeee = "ultra", boost = "0"},
[12617] = {cr = 8, on = 204, off = 203, ball = {10975, 12621}, send = 35, typeee = "saffari", boost = "0"},
[12832] = {cr = 100000, on = 23, off = 24, ball = {12826, 12829}, send = 181, typeee = "dark", boost = "50"},
}

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, "You can't try to catch a pokemon in the Golden Arena!")
end

local name = string.lower(getItemNameById(item2.itemid))
      name = string.gsub(name, "fainted ", "")
      name = string.gsub(name, "defeated ", "")
      name = doCorrectPokemonName(name)
local x = pokecatches[name]

if not x then return true end

local shinys = {"Yanmega", "Shiny Tangela", "Shiny Alakazam", "Shiny Scyther", "Shiny Electivire", "Shiny Magmortar", "Shiny Salamence", "Shiny Magmar", "Shiny Mantine", "Shiny Gyarados", "Shiny Snorlax", "Shiny Onix", "Shiny Electabuzz", "Shiny Pidgeot", "Aerodactyl", "Ditto", "Shiny Gengar"}
if item.itemid == 12832 and isInArray(shinys, name) then
   doPlayerSendCancel(cid, "Você não pode catar esse pokemon com a master ball!")
return true
end

local storage = newpokedex[name].stoCatch
if getPlayerStorageValue(cid, storage) == -1 or not string.find(getPlayerStorageValue(cid, storage), ";") then --alterado v1.9
   setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, dark = 0;")             --alterado v1.9
end

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

if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner then
   doPlayerSendCancel(cid, "You are not allowed to catch this pokemon.")
   return true
end

local newidd = isShinyName(name) and ballcatch[item.itemid].ball[2] or ballcatch[item.itemid].ball[1] --alterado v1.9
local typeee = ballcatch[item.itemid].typeee
local boost = ballcatch[item.itemid].boost


local catchinfo = {}
      catchinfo.rate = ballcatch[item.itemid].cr
      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 v1.9
   setPlayerStorageValue(cid, 98796, -1)
   setPlayerStorageValue(cid, 98797, -1)
   doTeleportThing(cid, SafariOut, false)
   doSendMagicEffect(getThingPos(cid), 21)
   doPlayerSendTextMessage(cid, 27, "You spend all your saffari balls, good luck in the next time...")
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

L3K0T · Julho 19, 2015

me manda o catch system lá da lib agora que vi que é com level

Editado Julho 19, 2015 por alexxxxxxx (veja o histórico de edições)

wevertonvrb · Julho 19, 2015

me manda o catch system lá da lib agora que vi que é com level

não entendi isso de level mas ta ai oque pediu

e obrigado desde já

failmsgs = {

"Sorry, you didn't catch that pokemon.",

"Sorry, your pokeball broke.",

"Sorry, the pokemon escaped.",

}

function doBrokesCount(cid, str, ball) --alterado v1.9 \/

if not isCreature(cid) then return false end

local tb = {

{b = "normal", v = 0},

{b = "great", v = 0},

{b = "super", v = 0},

{b = "ultra", v = 0},

{b = "saffari", v = 0},

{b = "dark", v = 0},

}

for _, e in ipairs(tb) do

if e.b == ball then

e.v = 1

break

end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local t2 = ""

for n, g, s, u, s2, d in string:gmatch(t) do

t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..", dark = "..(d+tb[6].v)..";"

end

return setPlayerStorageValue(cid, str, string:gsub(t, t2))

end

function sendBrokesMsg(cid, str, ball)

if not isCreature(cid) then return false end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local msg = {}

table.insert(msg, "You have wasted: ")

for n, g, s, u, s2, d in string:gmatch(t) do

if tonumber(n) and tonumber(n) > 0 then

table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

end

if tonumber(g) and tonumber(g) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

end

if tonumber(s) and tonumber(s) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

end

if tonumber(u) and tonumber(u) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

end

if tonumber(s2) and tonumber(s2) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

end

if tonumber(d) and tonumber(d) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(d).." Dark ball".. (tonumber(d) > 1 and "s" or ""))

end

if #msg == 1 then

return true

end

if string.sub(msg[#msg], 1, 1) == "," then

msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg])

end

table.insert(msg, " trying to catch it.")

sendMsgToPlayer(cid, 27, table.concat(msg))

end --alterado v1.9 /\

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

function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system

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

if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then

rate = 85

end

local corpse = getTopCorpse(topos).uid

if not isCreature(cid) then

doSendMagicEffect(topos, CONST_ME_POFF)

return true

end

doItemSetAttribute(corpse, "catching", 1)

local level = getItemAttribute(corpse, "level") or 0

local levelChance = level * 0.02

local totalChance = math.ceil(basechance * (1.2 + levelChance))

local thisChance = math.random(0, totalChance)

local myChance = math.random(0, totalChance)

local chance = (1 * rate + 1) / totalChance

chance = doMathDecimal(chance * 100)

if rate >= totalChance then

local status = {}

status.gender = getItemAttribute(corpse, "gender")

status.happy = 500

doRemoveItem(corpse, 1)

doSendMagicEffect(topos, catch)

addEvent(doCapturePokemon, 3000, 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.gender = getItemAttribute(corpse, "gender")

status.happy = 500

doRemoveItem(corpse, 1)

local doCatch = false

for check = 1, #myChances do

if thisChance == myChances[check] then

doCatch = true

end

if doCatch then

doSendMagicEffect(topos, catch)

addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)

else

addEvent(doNotCapturePokemon, 3000, cid, name, typeee)

doSendMagicEffect(topos, fail)

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 pokes[poke] then

local test = io.open("data/catch.txt", "a+")

local read = ""

if test then

read = test:read("*all")

test:close()

end

if string.find(poke, "Shiny") then

read = read.."\n\n\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

else

read = read.."\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

end

if newpokedex[poke].stoCatch ~= -1 then

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);"

local msg = {}

storage = getPlayerStorageValue(cid, newpokedex[poke].stoCatch)

for n, g, s, u, s2 in storage:gmatch(t) do

if tonumber(n) and tonumber(n) > 0 then

table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

end

if tonumber(g) and tonumber(g) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

end

if tonumber(s) and tonumber(s) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

end

if tonumber(u) and tonumber(u) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

end

if tonumber(s2) and tonumber(s2) > 0 then

table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

end

read = read.." - "..table.concat(msg)..""

end

local reopen = io.open("data/catch.txt", "w")

reopen:write(read)

reopen:close()

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

if icons[poke] then

ballid = icons[poke].on

end

local description = "Contains a "..poke.."."

local gender = status.gender

local happy = 200

--alterado v1.9 \/

if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then

item = doCreateItemEx(ballid)

else

item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)

end

doItemSetAttribute(item, "poke", poke)

doItemSetAttribute(item, "hp", 1)

doItemSetAttribute(item, "happy", happy)

doItemSetAttribute(item, "gender", gender)

doItemSetAttribute(item, "fakedesc", description)

doItemSetAttribute(item, "description", description)

if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then

doItemSetAttribute(item, "hands", 0)

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

----------- task clan ---------------------

if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then

sendMsgToPlayer(cid, 27, "Quest Done!")

doItemSetAttribute(item, "unique", getCreatureName(cid))

doItemSetAttribute(item, "task", 1)

setPlayerStorageValue(cid, 854788, 'done')

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

------------------------------------------- --alterado v1.9 \/

if getPlayerFreeCap(cid) >= 6 then

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

doPlayerSendMailByName(getCreatureName(cid), item, 1)

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

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

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

doPlayerSendTextMessage(cid, 27, "Digite !save para evitar perdas!")

end

local storage = newpokedex[poke].stoCatch

sendBrokesMsg(cid, storage, typeee)

setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0; dark = 0;") --alterado v1.9 /\

if #getCreatureSummons(cid) >= 1 then

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

if catchMakesPokemonHappier then

setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20)

if useOTClient then

doCreatureExecuteTalkAction(cid, "/salvar")

end

else

doSendMagicEffect(getThingPos(cid), 173)

end

doIncreaseStatistics(poke, true, true)

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)])

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)

doIncreaseStatistics(poke, true, false)

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

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

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

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), show)

end

Editado Julho 20, 2015 por wevertonvrb (veja o histórico de edições)

wevertonvrb · Julho 20, 2015

?

L3K0T · Julho 20, 2015

failmsgs = {
"Sorry, you didn't catch that pokemon.",
"Sorry, your pokeball broke.",
"Sorry, the pokemon escaped.",
}

function doBrokesCount(cid, str, ball)   --alterado v1.9 \/
if not isCreature(cid) then return false end
local tb = {
{b = "normal", v = 0},
{b = "great", v = 0},
{b = "super", v = 0},
{b = "ultra", v = 0},
{b = "saffari", v = 0},
{b = "dark", v = 0},
}
for _, e in ipairs(tb) do
    if e.b == ball then
       e.v = 1
       break
    end
end
local string = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"
local t2 = ""

for n, g, s, u, s2, d in string:gmatch(t) do
    t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..", dark = "..(d+tb[6].v)..";"
end
return setPlayerStorageValue(cid, str, string:gsub(t, t2))
end

function sendBrokesMsg(cid, str, ball)
if not isCreature(cid) then return false end
local string = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"
local msg = {}
table.insert(msg, "You have wasted: ")

for n, g, s, u, s2, d in string:gmatch(t) do
    if tonumber(n) and tonumber(n) > 0 then
       table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
    end
    if tonumber(g) and tonumber(g) > 0 then
       table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))
    end
    if tonumber(s) and tonumber(s) > 0 then
       table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))
    end
    if tonumber(u) and tonumber(u) > 0 then
       table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))
    end
    if tonumber(s2) and tonumber(s2) > 0 then
       table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))
    end
    if tonumber(d) and tonumber(d) > 0 then
       table.insert(msg, (#msg > 1 and ", " or "").. tostring(d).." Dark ball".. (tonumber(d) > 1 and "s" or ""))
    end
end
if #msg == 1 then
   return true
end
if string.sub(msg[#msg], 1, 1) == "," then
   msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg])
end
table.insert(msg, " trying to catch it.")
sendMsgToPlayer(cid, 27, table.concat(msg))
end                                                             --alterado v1.9 /\
--------------------------------------------------------------------------------

function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system

   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

   if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then
       rate = 85
    end

   local corpse = getTopCorpse(topos).uid

   if not isCreature(cid) then
       doSendMagicEffect(topos, CONST_ME_POFF)
   return true
   end

   doItemSetAttribute(corpse, "catching", 1)

local level = getItemAttribute(corpse, "level") or 0
local levelChance = level * 0.02

   local totalChance = math.ceil(basechance * (1.2 + levelChance))
   local thisChance = math.random(0, totalChance)
   local myChance = math.random(0, totalChance)
   local chance = (1 * rate + 1) / totalChance
       chance = doMathDecimal(chance * 100)

   if rate >= totalChance then
       local status = {}
              status.gender = getItemAttribute(corpse, "gender")
              status.happy = 500

       doRemoveItem(corpse, 1)
       doSendMagicEffect(topos, catch)
       addEvent(doCapturePokemon, 3000, 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.gender = getItemAttribute(corpse, "gender")
          status.happy = 500

   doRemoveItem(corpse, 1)

   local doCatch = false

   for check = 1, #myChances do
       if thisChance == myChances[check] then
           doCatch = true
       end
   end

   if doCatch then
       doSendMagicEffect(topos, catch)
       addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)
   else
       addEvent(doNotCapturePokemon, 3000, cid, name, typeee)
       doSendMagicEffect(topos, fail)
   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 pokes[poke] then
local test = io.open("data/catch.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
if string.find(poke, "Shiny") then
read = read.."\n\n\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""
else
read = read.."\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""
end

if newpokedex[poke].stoCatch ~= -1 then
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);"
local msg = {}
storage = getPlayerStorageValue(cid, newpokedex[poke].stoCatch)
for n, g, s, u, s2 in storage:gmatch(t) do
     if tonumber(n) and tonumber(n) > 0 then
        table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
     end
     if tonumber(g) and tonumber(g) > 0 then
        table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))
     end
     if tonumber(s) and tonumber(s) > 0 then
        table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))
     end
     if tonumber(u) and tonumber(u) > 0 then
        table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))
     end
     if tonumber(s2) and tonumber(s2) > 0 then
        table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))
     end
end
read = read.." - "..table.concat(msg)..""
end
local reopen = io.open("data/catch.txt", "w")
reopen:write(read)
reopen:close()
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

    if icons[poke] then
       ballid = icons[poke].on
    end

local description = "Contains a "..poke.."."

local gender = status.gender
local happy = 200
                                                   --alterado v1.9 \/
        if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
           item = doCreateItemEx(ballid)
        else
            item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)
        end

       doItemSetAttribute(item, "poke", poke)
       doItemSetAttribute(item, "hp", 1)
       doItemSetAttribute(item, "happy", happy)
       doItemSetAttribute(item, "gender", gender)
       doItemSetAttribute(item, "fakedesc", description)
       doItemSetAttribute(item, "description", description)
       if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then
           doItemSetAttribute(item, "hands", 0)
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
       end
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
       ----------- task clan ---------------------
        if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then
           sendMsgToPlayer(cid, 27, "Quest Done!")
           doItemSetAttribute(item, "unique", getCreatureName(cid))
           doItemSetAttribute(item, "task", 1)
           setPlayerStorageValue(cid, 854788, 'done')
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
        end
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
        -------------------------------------------                                  --alterado v1.9 \/
   if getPlayerFreeCap(cid) >= 6 then
doItemSetAttribute(item, "morta", "no")
doItemSetAttribute(item, "Icone", "yes")
doItemSetAttribute(item, "ball", "Icone")
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
        doPlayerSendMailByName(getCreatureName(cid), item, 1)
--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)
       doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")
       doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
       doPlayerSendTextMessage(cid, 27, "Digite !save para evitar perdas!")
    end

    local storage = newpokedex[poke].stoCatch
    sendBrokesMsg(cid, storage, typeee)
    setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0; dark = 0;") --alterado v1.9 /\

   if #getCreatureSummons(cid) >= 1 then
       doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173) -- efeito spóas pegar o pokemon só mudar
           if catchMakesPokemonHappier then
               setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20)
                   if useOTClient then
                doCreatureExecuteTalkAction(cid, "/salvar")
    end
           end
   else
       doSendMagicEffect(getThingPos(cid), 173) -- efeito spóas pegar o pokemon só mudar
   end

doIncreaseStatistics(poke, true, true)

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)])

   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)
doIncreaseStatistics(poke, true, false)

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), show)
end

Wakon · Julho 20, 2015

?

Amigo, cuidado com esse tipo de comentário, é considerado como flood! Leia as regras:

http://www.tibiaking.com/forum/topic/1281-regras-gerais/

2.4 - Mensagens inúteis:
Não poste mensagens sem conteúdo, que não contribuem em nada ou que não estejam relacionadas ao assunto do tópico. Mensagens assim são chamadas de Floods. Postar coisas como "haha", "lol", "me add no msn aí", entre outras, é o que considera-se completamente inútil. Postar várias mensagens iguais, mesmo que em tópicos diferentes, também pode ser considerado Flood.

wevertonvrb · Julho 22, 2015

failmsgs = {

"Sorry, you didn't catch that pokemon.",

"Sorry, your pokeball broke.",

"Sorry, the pokemon escaped.",

}

function doBrokesCount(cid, str, ball)   --alterado v1.9 \/

if not isCreature(cid) then return false end

local tb = {

{b = "normal", v = 0},

{b = "great", v = 0},

{b = "super", v = 0},

{b = "ultra", v = 0},

{b = "saffari", v = 0},

{b = "dark", v = 0},

}

for _, e in ipairs(tb) do

    if e.b == ball then

       e.v = 1

       break

    end

end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local t2 = ""

for n, g, s, u, s2, d in string:gmatch(t) do

    t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..", dark = "..(d+tb[6].v)..";"

end

return setPlayerStorageValue(cid, str, string:gsub(t, t2))

end

function sendBrokesMsg(cid, str, ball)

if not isCreature(cid) then return false end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local msg = {}

table.insert(msg, "You have wasted: ")

for n, g, s, u, s2, d in string:gmatch(t) do

    if tonumber(n) and tonumber(n) > 0 then

       table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

    end

    if tonumber(g) and tonumber(g) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

    end

    if tonumber(s) and tonumber(s) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

    end

    if tonumber(u) and tonumber(u) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

    end

    if tonumber(s2) and tonumber(s2) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

    end

    if tonumber(d) and tonumber(d) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(d).." Dark ball".. (tonumber(d) > 1 and "s" or ""))

    end

end

if #msg == 1 then

   return true

end

if string.sub(msg[#msg], 1, 1) == "," then

   msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg])

end

table.insert(msg, " trying to catch it.")

sendMsgToPlayer(cid, 27, table.concat(msg))

end                                                             --alterado v1.9 /\

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

function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system

   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



   if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then

       rate = 85

    end

   local corpse = getTopCorpse(topos).uid

   if not isCreature(cid) then

       doSendMagicEffect(topos, CONST_ME_POFF)

   return true

   end

   doItemSetAttribute(corpse, "catching", 1)

local level = getItemAttribute(corpse, "level") or 0

local levelChance = level * 0.02

   local totalChance = math.ceil(basechance * (1.2 + levelChance))

   local thisChance = math.random(0, totalChance)

   local myChance = math.random(0, totalChance)

   local chance = (1 * rate + 1) / totalChance

       chance = doMathDecimal(chance * 100)

   if rate >= totalChance then

       local status = {}

              status.gender = getItemAttribute(corpse, "gender")

              status.happy = 500

       doRemoveItem(corpse, 1)

       doSendMagicEffect(topos, catch)

       addEvent(doCapturePokemon, 3000, 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.gender = getItemAttribute(corpse, "gender")

          status.happy = 500

   doRemoveItem(corpse, 1)

   local doCatch = false

   for check = 1, #myChances do

       if thisChance == myChances[check] then

           doCatch = true

       end

   end

   if doCatch then

       doSendMagicEffect(topos, catch)

       addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)

   else

       addEvent(doNotCapturePokemon, 3000, cid, name, typeee)

       doSendMagicEffect(topos, fail)

   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 pokes[poke] then

local test = io.open("data/catch.txt", "a+")

local read = ""

if test then

read = test:read("*all")

test:close()

end

if string.find(poke, "Shiny") then

read = read.."\n\n\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

else

read = read.."\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

end

if newpokedex[poke].stoCatch ~= -1 then

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);"

local msg = {}

storage = getPlayerStorageValue(cid, newpokedex[poke].stoCatch)

for n, g, s, u, s2 in storage:gmatch(t) do

     if tonumber(n) and tonumber(n) > 0 then

        table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

     end

     if tonumber(g) and tonumber(g) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

     end

     if tonumber(s) and tonumber(s) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

     end

     if tonumber(u) and tonumber(u) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

     end

     if tonumber(s2) and tonumber(s2) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

     end

end

read = read.." - "..table.concat(msg)..""

end

local reopen = io.open("data/catch.txt", "w")

reopen:write(read)

reopen:close()

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

    if icons[poke] then

       ballid = icons[poke].on

    end



local description = "Contains a "..poke.."."

local gender = status.gender

local happy = 200

                                                   --alterado v1.9 \/

        if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then

           item = doCreateItemEx(ballid)

        else

            item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)

        end

       doItemSetAttribute(item, "poke", poke)

       doItemSetAttribute(item, "hp", 1)

       doItemSetAttribute(item, "happy", happy)

       doItemSetAttribute(item, "gender", gender)

       doItemSetAttribute(item, "fakedesc", description)

       doItemSetAttribute(item, "description", description)

       if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then

           doItemSetAttribute(item, "hands", 0)

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

       end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

       ----------- task clan ---------------------

        if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then

           sendMsgToPlayer(cid, 27, "Quest Done!")

           doItemSetAttribute(item, "unique", getCreatureName(cid))

           doItemSetAttribute(item, "task", 1)

           setPlayerStorageValue(cid, 854788, 'done')

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

        end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

        -------------------------------------------                                  --alterado v1.9 \/

   if getPlayerFreeCap(cid) >= 6 then

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

        doPlayerSendMailByName(getCreatureName(cid), item, 1)

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

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

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

       doPlayerSendTextMessage(cid, 27, "Digite !save para evitar perdas!")

    end



    local storage = newpokedex[poke].stoCatch

    sendBrokesMsg(cid, storage, typeee)

    setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0; dark = 0;") --alterado v1.9 /\

   if #getCreatureSummons(cid) >= 1 then

       doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173) -- efeito spóas pegar o pokemon só mudar

           if catchMakesPokemonHappier then

               setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20)

                   if useOTClient then

                doCreatureExecuteTalkAction(cid, "/salvar")

    end

           end

   else

       doSendMagicEffect(getThingPos(cid), 173) -- efeito spóas pegar o pokemon só mudar

   end

doIncreaseStatistics(poke, true, true)

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)])

   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)

doIncreaseStatistics(poke, true, false)

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), show)

end

obrigado pela ajuda, mas não esta sendo executado no local certo, esta sendo executado encima do pokemon que estou usando, este efeito tem que ser executado logo apos o efeito da poke ball e tem que ser executado exatamente onde eu usei a pokeball ou seja onde estava o pokemon q eu peguei

atualmente existem estes efeitos e toda vez que voce usa uma ball sera executado um deles

exempro:

então vou colocar parte do catch.lua

local ballcatch = { --id normal, id da ball shiy

[2394] = {cr = 7, on = 193, off = 192, ball = {11826, 11737}, send = 47, typeee = "normal", boost = "0"},

[2391] = {cr = 9, on = 198, off = 197, ball = {11832, 11740}, send = 48, typeee = "great", boost = "0"},

[2393] = {cr = 11, on = 202, off = 201, ball = {11835, 11743}, send = 46, typeee = "super", boost = "0"},

[2392] = {cr = 20, on = 200, off = 199, ball = {11829, 11746}, send = 49, typeee = "ultra", boost = "0"},

[12617] = {cr = 8, on = 204, off = 203, ball = {10975, 12621}, send = 35, typeee = "saffari", boost = "0"},

[12832] = {cr = 100000, on = 23, off = 24, ball = {12826, 12829}, send = 181, typeee = "dark", boost = "50"},

então eu quero que fique mais ou menos assim (não entendo muito de script então espero que entenda)

[2394] = {cr = 7, on = 193, on2 = 13, off = 192, off2= 14 ou seja quero que um efeito seja executado assim que o outro termine e no mesmo local

espero que possa me ajudar vou deichar o catch.lua e o catch system.lua

catch.lua

local ballcatch = {                    --id normal, id da ball shiy

[2394] = {cr = 7, on = 193, off = 192, ball = {11826, 11737}, send = 47, typeee = "normal", boost = "0"}, --alterado v1.9 \/

[2391] = {cr = 9, on = 198, off = 197, ball = {11832, 11740}, send = 48, typeee = "great", boost = "0"},

[2393] = {cr = 11, on = 202, off = 201, ball = {11835, 11743}, send = 46, typeee = "super", boost = "0"},

[2392] = {cr = 20, on = 200, off = 199, ball = {11829, 11746}, send = 49, typeee = "ultra", boost = "0"},

[12617] = {cr = 8, on = 204, off = 203, ball = {10975, 12621}, send = 35, typeee = "saffari", boost = "0"},

[12832] = {cr = 100000, on = 23, off = 24, ball = {12826, 12829}, send = 181, typeee = "dark", boost = "50"},

}

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, "You can't try to catch a pokemon in the Golden Arena!")

end

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

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

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

      name = doCorrectPokemonName(name)

local x = pokecatches[name]

if not x then return true end

local shinys = {"Yanmega", "Shiny Tangela", "Shiny Alakazam", "Shiny Scyther", "Shiny Electivire", "Shiny Magmortar", "Shiny Salamence", "Shiny Magmar", "Shiny Mantine", "Shiny Gyarados", "Shiny Snorlax", "Shiny Onix", "Shiny Electabuzz", "Shiny Pidgeot", "Aerodactyl", "Ditto", "Shiny Gengar"}

if item.itemid == 12832 and isInArray(shinys, name) then

   doPlayerSendCancel(cid, "Você não pode catar esse pokemon com a master ball!")

return true

end



local storage = newpokedex[name].stoCatch

if getPlayerStorageValue(cid, storage) == -1 or not string.find(getPlayerStorageValue(cid, storage), ";") then --alterado v1.9

   setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, dark = 0;")             --alterado v1.9

end

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



if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner then

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

   return true

end

local newidd = isShinyName(name) and ballcatch[item.itemid].ball[2] or ballcatch[item.itemid].ball[1] --alterado v1.9

local typeee = ballcatch[item.itemid].typeee

local boost = ballcatch[item.itemid].boost



local catchinfo = {}

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

      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 v1.9

   setPlayerStorageValue(cid, 98796, -1)

   setPlayerStorageValue(cid, 98797, -1)

   doTeleportThing(cid, SafariOut, false)

   doSendMagicEffect(getThingPos(cid), 21)

   doPlayerSendTextMessage(cid, 27, "You spend all your saffari balls, good luck in the next time...")

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

catch system.lua

failmsgs = {

"Sorry, you didn't catch that pokemon.",

"Sorry, your pokeball broke.",

"Sorry, the pokemon escaped.",

}

function doBrokesCount(cid, str, ball)   --alterado v1.9 \/

if not isCreature(cid) then return false end

local tb = {

{b = "normal", v = 0},

{b = "great", v = 0},

{b = "super", v = 0},

{b = "ultra", v = 0},

{b = "saffari", v = 0},

{b = "dark", v = 0},

}

for _, e in ipairs(tb) do

    if e.b == ball then

       e.v = 1

       break

    end

end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local t2 = ""

for n, g, s, u, s2, d in string:gmatch(t) do

    t2 = "normal = "..(n+tb[1].v)..", great = "..(g+tb[2].v)..", super = "..(s+tb[3].v)..", ultra = "..(u+tb[4].v)..", saffari = "..(s2+tb[5].v)..", dark = "..(d+tb[6].v)..";"

end

return setPlayerStorageValue(cid, str, string:gsub(t, t2))

end

function sendBrokesMsg(cid, str, ball)

if not isCreature(cid) then return false end

local string = getPlayerStorageValue(cid, str)

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-);"

local msg = {}

table.insert(msg, "You have wasted: ")

for n, g, s, u, s2, d in string:gmatch(t) do

    if tonumber(n) and tonumber(n) > 0 then

       table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

    end

    if tonumber(g) and tonumber(g) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

    end

    if tonumber(s) and tonumber(s) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

    end

    if tonumber(u) and tonumber(u) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

    end

    if tonumber(s2) and tonumber(s2) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

    end

    if tonumber(d) and tonumber(d) > 0 then

       table.insert(msg, (#msg > 1 and ", " or "").. tostring(d).." Dark ball".. (tonumber(d) > 1 and "s" or ""))

    end

end

if #msg == 1 then

   return true

end

if string.sub(msg[#msg], 1, 1) == "," then

   msg[#msg] = " and".. string.sub(msg[#msg], 2, #msg[#msg])

end

table.insert(msg, " trying to catch it.")

sendMsgToPlayer(cid, 27, table.concat(msg))

end                                                             --alterado v1.9 /\

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

function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee) --Edited brokes count system

   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



   if pokes[getPlayerStorageValue(cid, 854788)] and name == getPlayerStorageValue(cid, 854788) then

       rate = 85

    end

   local corpse = getTopCorpse(topos).uid

   if not isCreature(cid) then

       doSendMagicEffect(topos, CONST_ME_POFF)

   return true

   end

   doItemSetAttribute(corpse, "catching", 1)

local level = getItemAttribute(corpse, "level") or 0

local levelChance = level * 0.02

   local totalChance = math.ceil(basechance * (1.2 + levelChance))

   local thisChance = math.random(0, totalChance)

   local myChance = math.random(0, totalChance)

   local chance = (1 * rate + 1) / totalChance

       chance = doMathDecimal(chance * 100)

   if rate >= totalChance then

       local status = {}

              status.gender = getItemAttribute(corpse, "gender")

              status.happy = 500

       doRemoveItem(corpse, 1)

       doSendMagicEffect(topos, catch)

       addEvent(doCapturePokemon, 3000, 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.gender = getItemAttribute(corpse, "gender")

          status.happy = 500

   doRemoveItem(corpse, 1)

   local doCatch = false

   for check = 1, #myChances do

       if thisChance == myChances[check] then

           doCatch = true

       end

   end

   if doCatch then

       doSendMagicEffect(topos, catch)

       addEvent(doCapturePokemon, 3000, cid, name, newid, status, typeee)

   else

       addEvent(doNotCapturePokemon, 3000, cid, name, typeee)

       doSendMagicEffect(topos, fail)

   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 pokes[poke] then

local test = io.open("data/catch.txt", "a+")

local read = ""

if test then

read = test:read("*all")

test:close()

end

if string.find(poke, "Shiny") then

read = read.."\n\n\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

else

read = read.."\nName: "..getCreatureName(cid).." - Pokémon: "..poke..""

end

if newpokedex[poke].stoCatch ~= -1 then

local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-);"

local msg = {}

storage = getPlayerStorageValue(cid, newpokedex[poke].stoCatch)

for n, g, s, u, s2 in storage:gmatch(t) do

     if tonumber(n) and tonumber(n) > 0 then

        table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))

     end

     if tonumber(g) and tonumber(g) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(g).." Great ball".. (tonumber(g) > 1 and "s" or ""))

     end

     if tonumber(s) and tonumber(s) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Super ball".. (tonumber(s) > 1 and "s" or ""))

     end

     if tonumber(u) and tonumber(u) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Ultra ball".. (tonumber(u) > 1 and "s" or ""))

     end

     if tonumber(s2) and tonumber(s2) > 0 then

        table.insert(msg, (#msg > 1 and ", " or "").. tostring(s2).." Saffari ball".. (tonumber(s2) > 1 and "s" or ""))

     end

end

read = read.." - "..table.concat(msg)..""

end

local reopen = io.open("data/catch.txt", "w")

reopen:write(read)

reopen:close()

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

    if icons[poke] then

       ballid = icons[poke].on

    end



local description = "Contains a "..poke.."."

local gender = status.gender

local happy = 200

                                                   --alterado v1.9 \/

        if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then

           item = doCreateItemEx(ballid)

        else

            item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)

        end

       doItemSetAttribute(item, "poke", poke)

       doItemSetAttribute(item, "hp", 1)

       doItemSetAttribute(item, "happy", happy)

       doItemSetAttribute(item, "gender", gender)

       doItemSetAttribute(item, "fakedesc", description)

       doItemSetAttribute(item, "description", description)

       if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then

           doItemSetAttribute(item, "hands", 0)

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

       end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

       ----------- task clan ---------------------

        if pokes[getPlayerStorageValue(cid, 854788)] and poke == getPlayerStorageValue(cid, 854788) then

           sendMsgToPlayer(cid, 27, "Quest Done!")

           doItemSetAttribute(item, "unique", getCreatureName(cid))

           doItemSetAttribute(item, "task", 1)

           setPlayerStorageValue(cid, 854788, 'done')

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

        end

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

        -------------------------------------------                                  --alterado v1.9 \/

   if getPlayerFreeCap(cid) >= 6 then

doItemSetAttribute(item, "morta", "no")

doItemSetAttribute(item, "Icone", "yes")

doItemSetAttribute(item, "ball", "Icone")

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

        doPlayerSendMailByName(getCreatureName(cid), item, 1)

--doTransformItem(item, icons[getItemAttribute(item, "poke")].on)

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

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

       doPlayerSendTextMessage(cid, 27, "Digite !save para evitar perdas!")

    end



    local storage = newpokedex[poke].stoCatch

    sendBrokesMsg(cid, storage, typeee)

    setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0; dark = 0;") --alterado v1.9 /\

   if #getCreatureSummons(cid) >= 1 then

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

           if catchMakesPokemonHappier then

               setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + 20)

                   if useOTClient then

                doCreatureExecuteTalkAction(cid, "/salvar")

    end

           end

   else

       doSendMagicEffect(getThingPos(cid), 173)

   end

doIncreaseStatistics(poke, true, true)

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)])

   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)

doIncreaseStatistics(poke, true, false)

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), show)

end

up

up?

Editado Julho 21, 2015 por wevertonvrb (veja o histórico de edições)

Snowsz · Julho 22, 2015

O tópico foi movido para a área correta, preste mais atenção da próxima vez!
Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:
De: "OTServ → Suporte OTServ → Suporte de OTServ Geral"
Para: "OTServ → Suporte OTServ → Suporte de Scripts"

wevertonvrb · Julho 23, 2015

up

wevertonvrb · Agosto 1, 2015

up?

up

wevertonvrb · Agosto 2, 2015

ninguem?

wevertonvrb · Setembro 5, 2015

up

Entrar

Derivado (AJUDA) poke ball catch effect

Posts Recomendados

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Participe da conversa

Quem Está Navegando 0 membros estão online

Conteúdo Similar

TibiaKing

Open Tibia Server

Redes Sociais

Anuncie no TibiaKing

Informação Importante