Estou com um problema, ao dar catch em qualquer pokemon da 3º geração aparece este erro na tela e não aparece a janela do catch xp mas o pokemon é capturado normalmente, os pokemons da 1º e 2º geração funciona de boa.
Catch System:
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 = "poke", v = 0},
{b = "great", v = 0},
{b = "super", v = 0},
{b = "ultra", v = 0},
{b = "saffari", v = 0},
{b = "dark", v = 0},
{b = "magu", v = 0},
{b = "sora", v = 0},
{b = "yume", v = 0},
{b = "dusk", v = 0},
{b = "tale", v = 0},
{b = "moon", v = 0},
{b = "net", v = 0},
{b = "premier", v = 0},
{b = "tinker", v = 0},
{b = "fast", v = 0},
{b = "heavy", v = 0},
}
for _, e in ipairs(tb) do
if e.b == ball then
e.v = 1
break
end
end
local strings = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-), magu = (.-), sora = (.-), yume = (.-), dusk = (.-), tale = (.-), moon = (.-), net = (.-), premier = (.-), tinker = (.-), fast = (.-), heavy = (.-);"
local t2 = ""
for n, g, s, u, s2, d, magu, sora, yume, dusk, tale, moon, net, premier, tinker, fast, heavy in strings: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)..", magu = "..(magu+tb[7].v)..", sora = "..(sora+tb[8].v)..", yume = "..(yume+tb[9].v)..", dusk = "..(dusk+tb[10].v)..", tale = "..(tale+tb[11].v)..", moon = "..(moon+tb[12].v)..", net = "..(net+tb[13].v)..", premier = "..(premier+tb[14].v)..", tinker = "..(tinker+tb[15].v)..", fast = "..(fast+tb[16].v)..", heavy = "..(heavy+tb[17].v)..";"
end
setPlayerStorageValue(cid, str, strings:gsub(t, t2))
end
function sendBrokesMsg(cid, str, ball, poke, catched)
if not isCreature(cid) then return true end
local strings = getPlayerStorageValue(cid, str)
if type(strings) == "number" or type(strings) ~= "string" or not string.find(strings, "magu") then --alterado v1.9
setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, dark = 0;")
strings = getPlayerStorageValue(cid, str) --alterado v1.9
end
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-), magu = (.-), sora = (.-), yume = (.-), dusk = (.-), tale = (.-), moon = (.-), net = (.-), premier = (.-), tinker = (.-), fast = (.-), heavy = (.-);"
local msg = {}
local countN, countG, countS, countU, countS2 = 0, 0, 0, 0, 0
local maguCount, soraCount, yumeCount, duskCount, taleCount, moonCount, netCount, premierCount, tinkerCount, fastCount, heavyCount = 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
table.insert(msg, "Você"..(catched == false and " já" or "").." gastou: ")
for n, g, s, u, s2, d, magu, sora, yume, dusk, tale, moon, net, premier, tinker, fast, heavy in strings:gmatch(t) do
if tonumber(n) and tonumber(n) > 0 then
table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
countN = tonumber(n)
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 ""))
countG = tonumber(g)
end
if tonumber(s) and tonumber(s) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Ultra ball".. (tonumber(s) > 1 and "s" or ""))
countS = tonumber(s)
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 ""))
countU = tonumber(u)
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 ""))
countS2 = tonumber(s2)
end
if tonumber(magu) and tonumber(magu) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(magu).." Magu ball".. (tonumber(magu) > 1 and "s" or ""))
maguCount = tonumber(magu)
end
if tonumber(sora) and tonumber(sora) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(sora).." Sora ball".. (tonumber(sora) > 1 and "s" or ""))
soraCount = tonumber(sora)
end
if tonumber(yume) and tonumber(yume) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(yume).." Yume ball".. (tonumber(yume) > 1 and "s" or ""))
yumeCount = tonumber(yume)
end
if tonumber(dusk) and tonumber(dusk) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(dusk).." Dusk ball".. (tonumber(dusk) > 1 and "s" or ""))
duskCount = tonumber(dusk)
end
if tonumber(tale) and tonumber(tale) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(tale).." Tale ball".. (tonumber(tale) > 1 and "s" or ""))
taleCount = tonumber(tale)
end
if tonumber(moon) and tonumber(moon) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(moon).." Moon ball".. (tonumber(moon) > 1 and "s" or ""))
moonCount = tonumber(moon)
end
if tonumber(net) and tonumber(net) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(net).." Net ball".. (tonumber(net) > 1 and "s" or ""))
netCount = tonumber(net)
end
if tonumber(premier) and tonumber(premier) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(premier).." Premier ball".. (tonumber(premier) > 1 and "s" or ""))
premierCount = tonumber(premier)
end
if tonumber(tinker) and tonumber(tinker) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(tinker).." Tinker ball".. (tonumber(tinker) > 1 and "s" or ""))
tinkerCount = tonumber(tinker)
end
if tonumber(fast) and tonumber(fast) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(fast).." Fast ball".. (tonumber(fast) > 1 and "s" or ""))
fastCount = tonumber(fast)
end
if tonumber(heavy) and tonumber(heavy) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(heavy).." Heavy ball".. (tonumber(heavy) > 1 and "s" or ""))
heavyCount = tonumber(heavy)
end
end
if #msg == 1 then
return true
end
if string.sub(msg[#msg], 1, 1) == "," then
msg[#msg] = " e".. string.sub(msg[#msg], 2, #msg[#msg])
end
table.insert(msg, " para"..(catched == false and " tentar" or "").." captura-lo.")
doPlayerSendTextMessage(cid, 27, table.concat(msg))
if catched then
local list = getCatchList(cid)
if not jaCapturou(cid, poke) then
local expssss = 100
for i = 1, #oldpokedexToCatch do
if not oldpokedexToCatch then
print("Pokemon expericiean em catch nao encontrado: " .. poke)
expssss = 100
break
end
if oldpokedexToCatch[1] == doCorrectString(poke) then
expssss = oldpokedexToCatch[4]
break
end
end
doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_CATCH, getPortraitClientID(poke) .. "-" .. expssss .. "-" .. poke .. "-" .. ballsCatchedString)
doPlayerAddExp(cid, expssss)
doSendAnimatedText(getThingPos(cid), expssss , 215)
doPlayerAddInKantoCatchs(cid, 1)
colocarNaListaDeCapturados(cid, poke)
CW_Caught(cid, poke)
end
end
end --alterado v1.9 /\
--------------------------------------------------------------------------------
function colocarNaListaDeCapturados(cid, poke)
setPlayerStorageValue(cid, fotos[poke], 1)
end
function jaCapturou(cid, poke)
local storage = getPlayerStorageValue(cid, fotos[poke])
if storage ~= -1 then
return true
end
return false
end
function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee, smeargleID) --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
if not getTopCorpse(topos) then
return false
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
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, smeargleID)
else
addEvent(doNotCapturePokemon, 3000, cid, name, typeee)
doSendMagicEffect(topos, fail)
end
end
function doCapturePokemon(cid, poke, ballid, status, typeee, smeargleID)
if not isCreature(cid) then
return true
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 pokeballs[poke] then
ballid = pokeballs[poke].on
end
local depot = false
if not hasCapacityForPokeball(cid) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
if typeee == "saffari" then
item = doCreateItemEx(ballid)
else
item = doCreateItemEx(ballid-1)
end
depot = true
else
item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)
end
if poke == "Smeargle" then
smeargles = {"Smeargle 1", "Smeargle 2", "Smeargle 3", "Smeargle 4", "Smeargle 5", "Smeargle 6", "Smeargle 7", "Smeargle 8"}
poke = smeargles[math.random(#smeargles)]
end
if poke == "Smeargle" or poke == "Smeargle 1" then
doItemSetAttribute(item, "SmeargleID", 1)
elseif poke == "Smeargle 2" then
doItemSetAttribute(item, "SmeargleID", 2)
elseif poke == "Smeargle 3" then
doItemSetAttribute(item, "SmeargleID", 3)
elseif poke == "Smeargle 4" then
doItemSetAttribute(item, "SmeargleID", 4)
elseif poke == "Smeargle 5" then
doItemSetAttribute(item, "SmeargleID", 5)
elseif poke == "Smeargle 6" then
doItemSetAttribute(item, "SmeargleID", 6)
elseif poke == "Smeargle 7" then
doItemSetAttribute(item, "SmeargleID", 7)
elseif poke == "Smeargle 8" then
doItemSetAttribute(item, "SmeargleID", ?
end
doItemSetAttribute(item, "poke", poke)
doItemSetAttribute(item, "hpToDraw", 0)
doItemSetAttribute(item, "ball", typeee)
doSetAttributesBallsByPokeName(cid, item, poke)
local pokeBallNamezin = getItemAttribute(ballid, "ball")
for _, oid in ipairs(getPlayersOnline()) do
doPlayerSendChannelMessage(oid, "Catch System", "O jogador [".. getCreatureName(cid) .."] capturou um ["..poke.."] usando "..typeee.." ball.", TALKTYPE_CHANNEL_W, 10)
end
--[[local description = "Contains a "..poke.."."
local cap = getPlayerFreeCap(cid)
if (cap <= 1 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, "hpToDraw", 0)
doItemSetAttribute(item, "ball", typeee)
doItemSetAttribute(item, "SmeargleID", smeargleID)
doSetAttributesBallsByPokeName(cid, item, poke)
if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then
doItemSetAttribute(item, "hands", 0)
end
if getPlayerStorageValue(cid, storages.catchAnuncio) == 1 then -- anuncio de catch no catch channel
for _, oid in ipairs(getPlayersOnline()) do
doPlayerSendChannelMessage(oid, "Catch System", "O jogador ".. getCreatureName(cid) .." capturou um "..poke..".", TALKTYPE_CHANNEL_W, 20)
end
end]]--
----------- 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')
end
if pokeballs[poke:lower()] then
doTransformItem(item, pokeballs[poke:lower()].on)
end
doItemSetAttribute(item, "ehDoChao", false)
if depot then
doPlayerSendMailByName(getCreatureName(cid), item, 1) --aqui dudu
end
if poke == tostring(getPlayerStorageValue(cid, catchModes.storage2)) and not hasCatched(cid) then
setDailyCatched(cid, true)
end
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")
--for _, oid in ipairs(getPlayersOnline()) do
--doPlayerSendChannelMessage(oid, cid,"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5)
--end
--[[for _, oid in ipairs(getPlayersOnline()) do
if getPokeLevel(poke) >= 80 then
doPlayerSendChannelMessage(oid, cid,"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5)
if isShinyName(poke) then
doPlayerSendChannelMessage(oid, cid,"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 22)
elseif getPokeLevel(poke) <= 79 and not isShinyName(poke) then
doPlayerSendTextMessage(cid, 25, "Voce pegou um poke!")
end
end
end]]--
local pokesCheck = {""}
if isInArray(pokesCheck, poke) or pokes[poke].level >= 80 or poke:find("Shiny") then
--if pokes[poke].level >= 80 or poke:find("Shiny") then
local text_color = poke:find("Shiny") and TALKTYPE_CHANNEL_O or TALKTYPE_CHANNEL_W
for _, oid in ipairs(getPlayersOnline()) do
doPlayerSendChannelMessage(oid, "[Catch Channel]", "O jogador ".. getCreatureName(cid) .." capturou um "..poke.."!", text_color, 5)
--doPlayerSendChannelMessage(oid, cid, "[Catch Channel] O jogador ".. getCreatureName(cid) .." capturou um "..poke.."!", text_color, 5)--, text_color, 5
end
end
--[[if cap <= 1 then
doPlayerSendMailByName(getCreatureName(cid), item, 1)
doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
end]]--
if depot == true then
addEvent(doPlayerSendTextMessage, 0, cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
end
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)
end
else
doSendMagicEffect(getThingPos(cid), 173)
end
if typeee == "master" then
doItemSetAttribute(item, "unique", true)
end
local storage = newpokedex[poke].stoCatch
sendBrokesMsg(cid, storage, typeee, poke, true)
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, dark = 0, magu = 0, sora = 0, yume = 0, dusk = 0, tale = 0, moon = 0, net = 0, premier = 0, tinker = 0, fast = 0, heavy = 0;") --alterado v1.9 /\
doIncreaseStatistics(poke, true, true)
end
function doNotCapturePokemon(cid, poke, typeee)
if not isCreature(cid) then
return true
end
if isInArray({"Castform Fire", "Castform Ice", "Castform Water"}, poke) then
poke = "Castform"
-- print(poke)
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 #getCreatureSummons(cid) >= 1 then
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 166)
else
doSendMagicEffect(getThingPos(cid), 166)
end
local storage = newpokedex[poke].stoCatch
doIncreaseStatistics(poke, true, false)
sendBrokesMsg(cid, str, ball, poke, false)
end
function getPlayerInfoAboutPokemon(cid, poke)
poke = doCorrectString(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
function getFreeSpacesSmeargleBall(ball, id)
local ret = id
for i = 1, id do
if getItemAttribute(ball, "sketch" .. i) then
ret = ret -1
end
end
return ret
end
function getSmeargleAttackNameFromSkactch(cid, name)
if not isCreature(cid) then return true end
local ret = ""
local ball = getPlayerSlotItem(getCreatureMaster(cid), 8).uid
for i = 1, 9 do
if getItemAttribute(ball, "sketchName" .. i) == name then
ret = getItemAttribute(ball, "sketch" .. i)
break
end
end
return ret
end
Pergunta
Taiger 286
Boa noite amigos.
Estou com um problema, ao dar catch em qualquer pokemon da 3º geração aparece este erro na tela e não aparece a janela do catch xp mas o pokemon é capturado normalmente, os pokemons da 1º e 2º geração funciona de boa.
Catch System:
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 = "poke", v = 0},
{b = "great", v = 0},
{b = "super", v = 0},
{b = "ultra", v = 0},
{b = "saffari", v = 0},
{b = "dark", v = 0},
{b = "magu", v = 0},
{b = "sora", v = 0},
{b = "yume", v = 0},
{b = "dusk", v = 0},
{b = "tale", v = 0},
{b = "moon", v = 0},
{b = "net", v = 0},
{b = "premier", v = 0},
{b = "tinker", v = 0},
{b = "fast", v = 0},
{b = "heavy", v = 0},
}
for _, e in ipairs(tb) do
if e.b == ball then
e.v = 1
break
end
end
local strings = getPlayerStorageValue(cid, str)
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-), magu = (.-), sora = (.-), yume = (.-), dusk = (.-), tale = (.-), moon = (.-), net = (.-), premier = (.-), tinker = (.-), fast = (.-), heavy = (.-);"
local t2 = ""
for n, g, s, u, s2, d, magu, sora, yume, dusk, tale, moon, net, premier, tinker, fast, heavy in strings: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)..", magu = "..(magu+tb[7].v)..", sora = "..(sora+tb[8].v)..", yume = "..(yume+tb[9].v)..", dusk = "..(dusk+tb[10].v)..", tale = "..(tale+tb[11].v)..", moon = "..(moon+tb[12].v)..", net = "..(net+tb[13].v)..", premier = "..(premier+tb[14].v)..", tinker = "..(tinker+tb[15].v)..", fast = "..(fast+tb[16].v)..", heavy = "..(heavy+tb[17].v)..";"
end
setPlayerStorageValue(cid, str, strings:gsub(t, t2))
end
function sendBrokesMsg(cid, str, ball, poke, catched)
if not isCreature(cid) then return true end
local strings = getPlayerStorageValue(cid, str)
if type(strings) == "number" or type(strings) ~= "string" or not string.find(strings, "magu") then --alterado v1.9
setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, dark = 0;")
strings = getPlayerStorageValue(cid, str) --alterado v1.9
end
local t = "normal = (.-), great = (.-), super = (.-), ultra = (.-), saffari = (.-), dark = (.-), magu = (.-), sora = (.-), yume = (.-), dusk = (.-), tale = (.-), moon = (.-), net = (.-), premier = (.-), tinker = (.-), fast = (.-), heavy = (.-);"
local msg = {}
local countN, countG, countS, countU, countS2 = 0, 0, 0, 0, 0
local maguCount, soraCount, yumeCount, duskCount, taleCount, moonCount, netCount, premierCount, tinkerCount, fastCount, heavyCount = 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
table.insert(msg, "Você"..(catched == false and " já" or "").." gastou: ")
for n, g, s, u, s2, d, magu, sora, yume, dusk, tale, moon, net, premier, tinker, fast, heavy in strings:gmatch(t) do
if tonumber(n) and tonumber(n) > 0 then
table.insert(msg, tostring(n).." Poke ball".. (tonumber(n) > 1 and "s" or ""))
countN = tonumber(n)
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 ""))
countG = tonumber(g)
end
if tonumber(s) and tonumber(s) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(s).." Ultra ball".. (tonumber(s) > 1 and "s" or ""))
countS = tonumber(s)
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 ""))
countU = tonumber(u)
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 ""))
countS2 = tonumber(s2)
end
if tonumber(magu) and tonumber(magu) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(magu).." Magu ball".. (tonumber(magu) > 1 and "s" or ""))
maguCount = tonumber(magu)
end
if tonumber(sora) and tonumber(sora) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(sora).." Sora ball".. (tonumber(sora) > 1 and "s" or ""))
soraCount = tonumber(sora)
end
if tonumber(yume) and tonumber(yume) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(yume).." Yume ball".. (tonumber(yume) > 1 and "s" or ""))
yumeCount = tonumber(yume)
end
if tonumber(dusk) and tonumber(dusk) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(dusk).." Dusk ball".. (tonumber(dusk) > 1 and "s" or ""))
duskCount = tonumber(dusk)
end
if tonumber(tale) and tonumber(tale) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(tale).." Tale ball".. (tonumber(tale) > 1 and "s" or ""))
taleCount = tonumber(tale)
end
if tonumber(moon) and tonumber(moon) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(moon).." Moon ball".. (tonumber(moon) > 1 and "s" or ""))
moonCount = tonumber(moon)
end
if tonumber(net) and tonumber(net) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(net).." Net ball".. (tonumber(net) > 1 and "s" or ""))
netCount = tonumber(net)
end
if tonumber(premier) and tonumber(premier) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(premier).." Premier ball".. (tonumber(premier) > 1 and "s" or ""))
premierCount = tonumber(premier)
end
if tonumber(tinker) and tonumber(tinker) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(tinker).." Tinker ball".. (tonumber(tinker) > 1 and "s" or ""))
tinkerCount = tonumber(tinker)
end
if tonumber(fast) and tonumber(fast) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(fast).." Fast ball".. (tonumber(fast) > 1 and "s" or ""))
fastCount = tonumber(fast)
end
if tonumber(heavy) and tonumber(heavy) > 0 then
table.insert(msg, (#msg > 1 and ", " or "").. tostring(heavy).." Heavy ball".. (tonumber(heavy) > 1 and "s" or ""))
heavyCount = tonumber(heavy)
end
end
if #msg == 1 then
return true
end
if string.sub(msg[#msg], 1, 1) == "," then
msg[#msg] = " e".. string.sub(msg[#msg], 2, #msg[#msg])
end
table.insert(msg, " para"..(catched == false and " tentar" or "").." captura-lo.")
doPlayerSendTextMessage(cid, 27, table.concat(msg))
if catched then
local ballsCatchedString = countN .. "-" .. countG .. "-" .. countS .. "-" .. countU .. "-" .. countS2 .. "-" .. maguCount .. "-" .. soraCount .. "-" .. yumeCount .. "-" .. duskCount .. "-" .. taleCount .. "-" .. moonCount .. "-" .. netCount .. "-" .. premierCount .. "-" .. tinkerCount .. "-" ..fastCount .. "-" .. heavyCount
local list = getCatchList(cid)
if not jaCapturou(cid, poke) then
local expssss = 100
for i = 1, #oldpokedexToCatch do
if not oldpokedexToCatch then
print("Pokemon expericiean em catch nao encontrado: " .. poke)
expssss = 100
break
end
if oldpokedexToCatch[1] == doCorrectString(poke) then
expssss = oldpokedexToCatch[4]
break
end
end
doSendPlayerExtendedOpcode(cid, opcodes.OPCODE_CATCH, getPortraitClientID(poke) .. "-" .. expssss .. "-" .. poke .. "-" .. ballsCatchedString)
doPlayerAddExp(cid, expssss)
doSendAnimatedText(getThingPos(cid), expssss , 215)
doPlayerAddInKantoCatchs(cid, 1)
colocarNaListaDeCapturados(cid, poke)
CW_Caught(cid, poke)
end
end
end --alterado v1.9 /\
--------------------------------------------------------------------------------
function colocarNaListaDeCapturados(cid, poke)
setPlayerStorageValue(cid, fotos[poke], 1)
end
function jaCapturou(cid, poke)
local storage = getPlayerStorageValue(cid, fotos[poke])
if storage ~= -1 then
return true
end
return false
end
function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee, smeargleID) --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
if not getTopCorpse(topos) then
return false
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, smeargleID)
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, smeargleID)
else
addEvent(doNotCapturePokemon, 3000, cid, name, typeee)
doSendMagicEffect(topos, fail)
end
end
function doCapturePokemon(cid, poke, ballid, status, typeee, smeargleID)
if not isCreature(cid) then
return true
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 pokeballs[poke] then
ballid = pokeballs[poke].on
end
local depot = false
if not hasCapacityForPokeball(cid) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
if typeee == "saffari" then
item = doCreateItemEx(ballid)
else
item = doCreateItemEx(ballid-1)
end
depot = true
else
item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)
end
if poke == "Smeargle" then
smeargles = {"Smeargle 1", "Smeargle 2", "Smeargle 3", "Smeargle 4", "Smeargle 5", "Smeargle 6", "Smeargle 7", "Smeargle 8"}
poke = smeargles[math.random(#smeargles)]
end
if poke == "Smeargle" or poke == "Smeargle 1" then
doItemSetAttribute(item, "SmeargleID", 1)
elseif poke == "Smeargle 2" then
doItemSetAttribute(item, "SmeargleID", 2)
elseif poke == "Smeargle 3" then
doItemSetAttribute(item, "SmeargleID", 3)
elseif poke == "Smeargle 4" then
doItemSetAttribute(item, "SmeargleID", 4)
elseif poke == "Smeargle 5" then
doItemSetAttribute(item, "SmeargleID", 5)
elseif poke == "Smeargle 6" then
doItemSetAttribute(item, "SmeargleID", 6)
elseif poke == "Smeargle 7" then
doItemSetAttribute(item, "SmeargleID", 7)
elseif poke == "Smeargle 8" then
doItemSetAttribute(item, "SmeargleID", ?
end
doItemSetAttribute(item, "poke", poke)
doItemSetAttribute(item, "hpToDraw", 0)
doItemSetAttribute(item, "ball", typeee)
doSetAttributesBallsByPokeName(cid, item, poke)
local pokeBallNamezin = getItemAttribute(ballid, "ball")
for _, oid in ipairs(getPlayersOnline()) do
doPlayerSendChannelMessage(oid, "Catch System", "O jogador [".. getCreatureName(cid) .."] capturou um ["..poke.."] usando "..typeee.." ball.", TALKTYPE_CHANNEL_W, 10)
end
--[[local description = "Contains a "..poke.."."
local cap = getPlayerFreeCap(cid)
if (cap <= 1 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, "hpToDraw", 0)
doItemSetAttribute(item, "ball", typeee)
doItemSetAttribute(item, "SmeargleID", smeargleID)
doSetAttributesBallsByPokeName(cid, item, poke)
if poke == "Hitmonchan" or poke == "Shiny Hitmonchan" then
doItemSetAttribute(item, "hands", 0)
end
if getPlayerStorageValue(cid, storages.catchAnuncio) == 1 then -- anuncio de catch no catch channel
for _, oid in ipairs(getPlayersOnline()) do
doPlayerSendChannelMessage(oid, "Catch System", "O jogador ".. getCreatureName(cid) .." capturou um "..poke..".", TALKTYPE_CHANNEL_W, 20)
end
end]]--
----------- 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')
end
if pokeballs[poke:lower()] then
doTransformItem(item, pokeballs[poke:lower()].on)
end
doItemSetAttribute(item, "ehDoChao", false)
if depot then
doPlayerSendMailByName(getCreatureName(cid), item, 1) --aqui dudu
end
if poke == tostring(getPlayerStorageValue(cid, catchModes.storage2)) and not hasCatched(cid) then
setDailyCatched(cid, true)
end
doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a pokemon ("..poke..")!")
--for _, oid in ipairs(getPlayersOnline()) do
--doPlayerSendChannelMessage(oid, cid,"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5)
--end
--[[for _, oid in ipairs(getPlayersOnline()) do
if getPokeLevel(poke) >= 80 then
doPlayerSendChannelMessage(oid, cid,"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5)
if isShinyName(poke) then
doPlayerSendChannelMessage(oid, cid,"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 22)
elseif getPokeLevel(poke) <= 79 and not isShinyName(poke) then
doPlayerSendTextMessage(cid, 25, "Voce pegou um poke!")
end
end
end]]--
local pokesCheck = {""}
if isInArray(pokesCheck, poke) or pokes[poke].level >= 80 or poke:find("Shiny") then
--if pokes[poke].level >= 80 or poke:find("Shiny") then
local text_color = poke:find("Shiny") and TALKTYPE_CHANNEL_O or TALKTYPE_CHANNEL_W
for _, oid in ipairs(getPlayersOnline()) do
doPlayerSendChannelMessage(oid, "[Catch Channel]", "O jogador ".. getCreatureName(cid) .." capturou um "..poke.."!", text_color, 5)
--doPlayerSendChannelMessage(oid, cid, "[Catch Channel] O jogador ".. getCreatureName(cid) .." capturou um "..poke.."!", text_color, 5)--, text_color, 5
end
end
--[[if cap <= 1 then
doPlayerSendMailByName(getCreatureName(cid), item, 1)
doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
end]]--
if depot == true then
addEvent(doPlayerSendTextMessage, 0, cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
end
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)
end
else
doSendMagicEffect(getThingPos(cid), 173)
end
if typeee == "master" then
doItemSetAttribute(item, "unique", true)
end
local storage = newpokedex[poke].stoCatch
sendBrokesMsg(cid, storage, typeee, poke, true)
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, dark = 0, magu = 0, sora = 0, yume = 0, dusk = 0, tale = 0, moon = 0, net = 0, premier = 0, tinker = 0, fast = 0, heavy = 0;") --alterado v1.9 /\
doIncreaseStatistics(poke, true, true)
end
function doNotCapturePokemon(cid, poke, typeee)
if not isCreature(cid) then
return true
end
if isInArray({"Castform Fire", "Castform Ice", "Castform Water"}, poke) then
poke = "Castform"
-- print(poke)
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
doIncreaseStatistics(poke, true, false)
sendBrokesMsg(cid, str, ball, poke, false)
end
function getPlayerInfoAboutPokemon(cid, poke)
poke = doCorrectString(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
function getFreeSpacesSmeargleBall(ball, id)
local ret = id
for i = 1, id do
if getItemAttribute(ball, "sketch" .. i) then
ret = ret -1
end
end
return ret
end
function getSmeargleAttackNameFromSkactch(cid, name)
if not isCreature(cid) then return true end
local ret = ""
local ball = getPlayerSlotItem(getCreatureMaster(cid), 8).uid
for i = 1, 9 do
if getItemAttribute(ball, "sketchName" .. i) == name then
ret = getItemAttribute(ball, "sketch" .. i)
break
end
end
return ret
end
Tabela do catch xp:
oldpokedexToCatch = {
{"Bulbasaur", 18, 1001, 10000},
{"Ivysaur", 38, 1002, 15000},
{"Venusaur", 75, 1003, 200000},
{"Charmander", 18, 1004, 10000},
{"Charmeleon", 38, 1005, 15000},
{"Charizard", 75, 1006, 200000},
{"Squirtle", 18, 1007, 10000},
{"Wartortle", 38, 1008, 15000},
{"Blastoise", 75, 1009, 200000},
{"Caterpie", 3, 1010, 500},
{"Metapod", 10, 1011, 3000},
{"Butterfree", 30, 1012, 10000},
{"Weedle", 3, 1013, 500},
{"Kakuna", 10, 1014, 3000},
{"Beedrill", 30, 1015, 10000},
{"Pidgey", 5, 1016, 500},
{"Pidgeotto", 20, 1017, 3000},
{"Pidgeot", 60, 1018, 200000},
{"Rattata", 3, 1019, 500},
{"Raticate", 20, 1020, 10000},
{"Spearow", 5, 1021, 500},
{"Fearow", 50, 1022, 50000},
{"Ekans", 12, 1023, 3000},
{"Arbok", 30, 1024, 15000},
{"Pikachu", 20, 1025, 15000},
{"Raichu", 50, 1026, 200000},
{"Sandshrew", 18, 1027, 3000},
{"Sandslash", 55, 1028, 100000},
{"Nidoran Female", 10, 1029, 3000},
{"Nidorina", 25, 1030, 10000},
{"Nidoqueen", 65, 1031, 100000},
{"Nidoran Male", 10, 1032, 3000},
{"Nidorino", 25, 1033, 10000},
{"Nidoking", 65, 1034, 100000},
{"Clefairy", 10, 1035, 15000},
{"Clefable", 35, 1036, 100000},
{"Vulpix", 16, 1037, 3000},
{"Ninetales", 65, 1038, 200000},
{"Jigglypuff", 10, 1039, 15000},
{"Wigglytuff", 42, 1040, 100000},
{"Zubat", 5, 1041, 3000},
{"Golbat", 30, 1042, 15000},
{"Oddish", 5, 1043, 500},
{"Gloom", 18, 1044, 10000},
{"Vileplume", 50, 1045, 50000},
{"Paras", 5, 1046, 500},
{"Parasect", 40, 1047, 50000},
{"Venonat", 14, 1048, 3000},
{"Venomoth", 40, 1049, 50000},
{"Diglett", 5, 1050, 3000},
{"Dugtrio", 35, 1051, 15000},
{"Meowth", 12, 1052, 3000},
{"Persian", 25, 1053, 50000},
{"Psyduck", 12, 1054, 3000},
{"Golduck", 55, 1055, 200000},
{"Mankey", 10, 1056, 3000},
{"Primeape", 45, 1057, 50000},
{"Growlithe", 16, 1058, 3000},
{"Arcanine", 70, 1059, 500000},
{"Poliwag", 5, 1060, 500},
{"Poliwhirl", 20, 1061, 3000},
{"Poliwrath", 60, 1062, 100000},
{"Abra", 12, 1063, 3000},
{"Kadabra", 40, 1064, 15000},
{"Alakazam", 70, 1065, 200000},
{"Machop", 16, 1066, 3000},
{"Machoke", 38, 1067, 15000},
{"Machamp", 70, 1068, 200000},
{"Bellsprout", 5, 1069, 500},
{"Weepinbell", 18, 1070, 3000},
{"Victreebel", 50, 1071, 50000},
{"Tentacool", 12, 1072, 3000},
{"Tentacruel", 70, 1073, 200000},
{"Geodude", 15, 1074, 3000},
{"Graveler", 40, 1075, 15000},
{"Golem", 70, 1076, 200000},
{"Ponyta", 15, 1077, 3000},
{"Rapidash", 55, 1078, 50000},
{"Slowpoke", 12, 1079, 3000},
{"Slowbro", 45, 1080, 15000},
{"Magnemite", 15, 1081, 3000},
{"Magneton", 38, 1082, 15000},
{"Farfetch'd", 35, 1083, 50000},
{"Doduo", 12, 1084, 3000},
{"Dodrio", 42, 1085, 15000},
{"Seel", 14, 1086, 3000},
{"Dewgong", 55, 1087, 15000},
{"Grimer", 12, 1088, 3000},
{"Muk", 30, 1089, 50000},
{"Shellder", 5, 1090, 3000},
{"Cloyster", 65, 1091, 100000},
{"Gastly", 14, 1092, 3000},
{"Haunter", 40, 1093, 15000},
{"Gengar", 70, 1094, 200000},
{"Onix", 50, 1095, 50000},
{"Drowzee", 18, 1096, 3000},
{"Hypno", 50, 1097, 50000},
{"Krabby", 5, 1098, 3000},
{"Kingler", 35, 1099, 15000},
{"Voltorb", 14, 1100, 3000},
{"Electrode", 38, 1101, 15000},
{"Exeggcute", 8, 1102, 3000},
{"Exeggutor", 48, 1103, 50000},
{"Cubone", 18, 1104, 3000},
{"Marowak", 45, 1105, 50000},
{"Hitmonlee", 60, 1106, 500000},
{"Hitmonchan", 60, 1107, 500000},
{"Lickitung", 45, 1108, 500000},
{"Koffing", 15, 1109, 3000},
{"Weezing", 30, 1110, 15000},
{"Rhyhorn", 35, 1111, 3000},
{"Rhydon", 65, 1112, 200000},
{"Chansey", 50, 1113, 500000},
{"Tangela", 35, 1114, 50000},
{"Kangaskhan", 65, 1115, 500000},
{"Horsea", 5, 1116, 3000},
{"Seadra", 40, 1117, 15000},
{"Goldeen", 10, 1118, 3000},
{"Seaking", 25, 1119, 15000},
{"Staryu", 15, 1120, 3000},
{"Starmie", 38, 1121, 15000},
{"Mr. Mime", 45, 1122, 500000},
{"Scyther", 60, 1123, 650000},
{"Jynx", 55, 1124, 500000},
{"Electabuzz", 60, 1125, 500000},
{"Magmar", 60, 1126, 500000},
{"Pinsir", 42, 1127, 200000},
{"Tauros", 40, 1128, 50000},
{"Magikarp", 1, 1129, 500},
{"Gyarados", 75, 1130, 500000},
{"Lapras", 65, 1131, 500000},
{"Ditto", 40, 1132, 350000},
{"Eevee", 20, 1133, 250000},
{"Vaporeon", 55, 1134, 300000},
{"Jolteon", 55, 1135, 300000},
{"Flareon", 55, 1136, 300000},
{"Porygon", 45, 1137, 250000},
{"Omanyte", 20, 1138, 50000},
{"Omastar", 70, 1139, 200000},
{"Kabuto", 20, 1140, 50000},
{"Kabutops", 70, 1141, 200000},
{"Aerodactyl", 85, 1142, 1000000},
{"Snorlax", 85, 1143, 650000},
{"Articuno", 100, 1144, 100000},
{"Zapdos", 100, 1145, 1000000},
{"Moltres", 100, 1146, 1000000},
{"Dratini", 15, 1147, 50000},
{"Dragonair", 45, 1148, 500000},
{"Dragonite", 85, 1149, 650000},
{"Mewtwo", 100, 1150, 1000000},
{"Mew", 100, 1151, 1000000},
-------------------old Shiny---------
{"Shiny Venusaur", 75, 10030, 300000},
{"Shiny Charizard", 75, 10060, 300000},
{"Shiny Blastoise", 75, 10090, 300000},
{"Shiny Butterfree", 30, 10120, 50000},
{"Shiny Beedrill", 30, 10150, 50000},
{"Shiny Pidgeot", 60, 10180, 200000},
{"Shiny Rattata", 3, 10190, 50000},
{"Shiny Raticate", 20, 10200, 70000},
{"Shiny Fearow", 50, 10220, 100000},
{"Shiny Raichu", 50, 10260, 100000},
{"Shiny Nidoking", 65, 10340, 100000},
{"Shiny Zubat", 5, 10410, 50000},
{"Shiny Golbat", 30, 10420, 70000},
{"Shiny Oddish", 5, 10430, 50000},
{"Shiny Vileplume", 50, 10450, 100000},
{"Shiny Paras", 5, 10460, 50000},
{"Shiny Parasect", 40, 10470, 70000},
{"Shiny Venonat", 14, 10480, 50000},
{"Shiny Venomoth", 40, 10490, 200000},
{"Shiny Growlithe", 16, 10580, 100000},
{"Shiny Arcanine", 70, 10590, 500000},
{"Shiny Abra", 12, 10630, 200000},
{"Shiny Alakazam", 70, 10650, 500000},
{"Shiny Tentacool", 12, 10720, 50000},
{"Shiny Tentacruel", 70, 10730, 200000},
{"Shiny Golem", 70, 10760, 200000},
{"Shiny Farfetch'd", 35, 10830, 300000},
{"Shiny Grimer", 12, 10880, 50000},
{"Shiny Muk", 30, 10890, 200000},
{"Shiny Gengar", 70, 10940, 500000},
{"Shiny Onix", 50, 10950, 500000},
{"Shiny Hypno", 50, 10970, 100000},
{"Shiny Krabby", 5, 10980, 50000},
{"Shiny Kingler", 35, 10990, 70000},
{"Shiny Voltorb", 14, 11000, 50000},
{"Shiny Electrode", 38, 11010, 70000},
{"Shiny Cubone", 18, 11040, 50000},
{"Shiny Marowak", 45, 11050, 100000},
{"Shiny Hitmonlee", 60, 11060, 200000},
{"Shiny Hitmonchan", 60, 11070, 200000},
{"Shiny Tangela", 35, 11140, 300000},
{"Shiny Horsea", 5, 11160, 50000},
{"Shiny Seadra", 40, 11170, 70000},
{"Shiny Scyther", 60, 11230, 750000},
{"Shiny Jynx", 55, 11240, 500000},
{"Shiny Electabuzz", 60, 11250, 500000},
{"Shiny Pinsir", 42, 11270, 100000},
{"Shiny Magikarp", 1, 11290, 50000},
{"Shiny Gyarados", 75, 11300, 500000},
{"Shiny Vaporeon", 55, 11340, 50000},
{"Shiny Jolteon", 55, 11350, 50000},
{"Shiny Flareon", 55, 11360, 50000},
{"Shiny Snorlax", 85, 11430, 200000},
{"Shiny Dratini", 15, 11470, 50000},
{"Shiny Dragonair", 45, 11480, 100000},
{"Shiny Dragonite", 85, 11490, 300000},
---------------old johto-----------
{"Chikorita", 18, 1152, 10000},
{"Bayleef", 38, 1153, 15000},
{"Meganium", 75, 1154, 200000},
{"Cyndaquil", 18, 1155, 10000},
{"Quilava", 38, 1156, 15000},
{"Typhlosion", 75, 1157, 200000},
{"Totodile", 18, 1158, 10000},
{"Croconaw", 38, 1159, 15000},
{"Feraligatr", 75, 1160, 200000},
{"Sentret", 3, 1161, 3000},
{"Furret", 28, 1162, 15000},
{"Hoothoot", 3, 1163, 10000},
{"Noctowl", 38, 1164, 100000},
{"Ledyba", 12, 1165, 3000},
{"Ledian", 30, 1166, 15000},
{"Spinarak", 15, 1167, 3000},
{"Ariados", 42, 1168, 50000},
{"Crobat", 70, 1169, 500000},
{"Chinchou", 14, 1170, 3000},
{"Lanturn", 38, 1171, 100000},
{"Pichu", 3, 1172, 10000},
{"Cleffa", 3, 1173, 10000},
{"Igglybuff", 3, 1174, 10000},
{"Togepi", 10, 1175, 50000},
{"Togetic", 45, 1176, 500000},
{"Natu", 15, 1177, 15000},
{"Xatu", 45, 1178, 200000},
{"Mareep", 12, 1179, 10000},
{"Flaaffy", 30, 1180, 15000},
{"Ampharos", 65, 1181, 200000},
{"Bellossom", 50, 1182, 50000},
{"Marill", 14, 1183, 10000},
{"Azumarill", 28, 1184, 100000},
{"Sudowoodo", 46, 1185, 500000},
{"Politoed", 60, 1186, 100000},
{"Hoppip", 10, 1187, 500},
{"Skiploom", 20, 1188, 10000},
{"Jumpluff", 30, 1189, 50000},
{"Aipom", 10, 1190, 150000},
{"Sunkern", 3, 1191, 500},
{"Sunflora", 50, 1192, 50000},
{"Yanma", 32, 1193, 50000},
{"Wooper", 18, 1194, 10000},
{"Quagsire", 55, 1195, 100000},
{"Espeon", 55, 1196, 100000},
{"Umbreon", 55, 1197, 100000},
{"Murkrow", 35, 1198, 50000},
{"Slowking", 60, 1199, 200000},
{"Misdreavus", 47, 1200, 1000000},
{"Unown", 15, 1201, 1000000},
{"Wobbuffet", 42, 1202, 1000000},
{"Girafarig", 42, 1203, 500000},
{"Pineco", 18, 1204, 3000},
{"Forretress", 55, 1205, 100000},
{"Dunsparce", 35, 1206, 15000},
{"Gligar", 30, 1207, 15000},
{"Steelix", 75, 1208, 650000},
{"Snubbull", 20, 1209, 10000},
{"Granbull", 42, 1210, 50000},
{"Qwilfish", 16, 1211, 100000},
{"Scizor", 75, 1212, 1000000},
{"Shuckle", 10, 1213, 3000},
{"Heracross", 60, 1214, 500000},
{"Sneasel", 50, 1215, 15000},
{"Teddiursa", 20, 1216, 500000},
{"Ursaring", 70, 1217, 650000},
{"Slugma", 18, 1218, 3000},
{"Magcargo", 40, 1219, 100000},
{"Swinub", 12, 1220, 3000},
{"Piloswine", 70, 1221, 100000},
{"Corsola", 42, 1222, 50000},
{"Remoraid", 14, 1223, 3000},
{"Octillery", 38, 1224, 100000},
{"Delibird", 25, 1225, 15000},
{"Mantine", 50, 1226, 500000},
{"Skarmory", 70, 1227, 500000},
{"Houndour", 18, 1228, 10000},
{"Houndoom", 70, 1229, 200000},
{"Kingdra", 75, 1230, 500000},
{"Phanpy", 12, 1231, 10000},
{"Donphan", 45, 1232, 200000},
{"Porygon2", 60, 1233, 350000},
{"Stantler", 35, 1234, 50000},
{"Smeargle", 28, 1235, 350000},
{"Tyrogue", 15, 1236, 200000},
{"Hitmontop", 60, 1237, 500000},
{"Smoochum", 3, 1238, 15000},
{"Elekid", 3, 1239, 15000},
{"Magby", 3, 1240, 15000},
{"Miltank", 32, 1241, 500000},
{"Blissey", 70, 1242, 650000},
{"Raikou", 100, 1243, 1000000},
{"Entei", 100, 1244, 1000000},
{"Suicune", 100, 1245, 1000000},
{"Larvitar", 10, 1246, 50000},
{"Pupitar", 50, 1247, 500000},
{"Tyranitar", 90, 1248}, 650000,
{"Lugia", 100, 1249, 1000000},
{"Ho-oh", 100, 1250, 1000000},
{"Celebi", 100, 1251, 1000000},
{"Shiny Hitmontop", 100, 11520, 600000},
{"Shiny Mr. Mime", 45, 11521, 600000}, --alterado v1.9
{"Shiny Ninetales", 65, 11522, 500000},
{"Shiny Ariados", 42, 11523, 100000},
{"Shiny Magneton", 38, 11524, 100000},
{"Shiny Espeon", 55, 11525, 50000},
{"Shiny Politoed", 60, 11526, 100000},
{"Shiny Umbreon", 55, 11527, 100000},
{"Shiny Stantler", 35, 11528, 100000},
{"Shiny Dodrio", 42, 11529, 100000},
{"Shiny Rhydon", 65, 11530, 500000},
{"Treecko", 20, 1252, 10000}, --hoenn
{"Grovyle", 40, 1253, 100000},
{"Sceptile", 80, 1254, 100000},
{"Mudkip", 20, 1255, 100000},
{"Marshtomp", 40, 1256, 100000},
{"Swampert", 80, 1257, 100000},
{"Torchic", 20, 1258, 100000},
{"Combusken", 40, 1259, 100000},
{"Blaziken", 80, 1260, 100000},
{"Poochyena", 20, 1261, 100000},
{"Mightyena", 80, 1262, 100000},
{"Zigzagoon", 20, 1263, 100000},
{"Linoone", 40, 1264, 100000},
{"Wurmple", 10, 1265, 100000},
{"Silcoon", 25, 1266, 100000},
{"Cascoon", 25, 1267, 100000},
{"Beautifly", 60, 1268, 100000},
{"Dustox", 60, 1269, 100000},
{"Lotad", 20, 1270, 100000},
{"Lombre", 40, 1271, 100000},
{"Ludicolo", 80, 1272, 100000},
{"Seedot", 20, 1273, 100000},
{"Nuzleaf", 40, 1274, 100000},
{"Shiftry", 80, 1275, 100000},
{"Nincada", 20, 1276, 100000},
{"Ninjask", 100, 1277, 100000},
{"Shedinja", 60, 1278, 100000},
{"Taillow", 20, 1279, 100000},
{"Swellow", 80, 1280, 100000},
{"Shroomish", 20, 1281, 100000},
{"Breloom", 80, 1282, 100000},
{"Spinda", 30, 1283, 100000},
{"Wingull", 20, 1284, 100000},
{"Pelipper", 80, 1285, 100000},
{"Surskit", 20, 1286, 100000},
{"Masquerain", 80, 1287, 100000},
{"Wailmer", 80, 1288, 100000},
{"Skitty", 20, 1289, 100000},
{"Delcatty", 60, 1290, 100000},
{"Baltoy", 20, 1291, 100000},
{"Claydol", 80, 1292, 100000},
{"Torkoal", 80, 1293, 100000},
{"Barboach", 20, 1294, 100000},
{"Whiscash", 60, 1295, 100000},
{"Luvdisc", 20, 1296, 100000},
{"Corphish", 20, 1297, 100000},
{"Crawdaunt", 80, 1298, 100000},
{"Feebas", 20, 1299, 100000},
{"Carvanha", 20, 1300, 100000},
{"Sharpedo", 80, 1301, 100000},
{"Trapinch", 20, 1302, 100000},
{"Vibrava", 40, 1303, 100000},
{"Flygon", 80, 1304, 100000},
{"Makuhita", 20, 1305, 100000},
{"Hariyama", 80, 1306, 100000},
{"Electrike", 20, 1307, 100000},
{"Manectric", 80, 1308, 100000},
{"Numel", 20, 1309, 100000},
{"Camerupt", 80, 1310, 100000},
{"Spheal", 20, 1311, 100000},
{"Sealeo", 60, 1312, 100000},
{"Walrein", 85, 1313, 100000},
{"Cacnea", 20, 1314, 100000},
{"Cacturn", 80, 1315, 100000},
{"Snorunt", 20, 1316, 100000},
{"Glalie", 80, 1317, 100000},
{"Spoink", 20, 1318, 100000},
{"Grumpig", 80, 1319, 100000},
{"Plusle", 30, 1320, 100000},
{"Minun", 30, 1321, 100000},
{"Mawile", 80, 1322, 100000},
{"Meditite", 20, 1323, 100000},
{"Medicham", 80, 1324, 100000},
{"Swablu", 20, 1325, 100000},
{"Duskull", 20, 1326, 100000},
{"Dusclops", 70, 1327, 100000},
{"Budew", 10, 1328, 100000},
{"Roselia", 30, 1329, 100000},
{"Roserade", 80, 1330, 100000},
{"Slakoth", 20, 1331, 100000},
{"Vigoroth", 40, 1332, 100000},
{"Gulpin", 200, 1333, 100000},
{"Swalot", 80, 1334, 100000},
{"Whismur", 20, 1335, 100000},
{"Loudred", 50, 1336, 100000},
{"Exploud", 80, 1337, 100000},
{"Clamperl", 20, 1338, 100000},
{"Huntail", 60, 1339, 100000},
{"Gorebyss", 60, 1340, 100000},
{"Shuppet", 30, 1341, 100000},
{"Banette", 70, 1342, 100000},
{"Seviper", 80, 1343, 100000},
{"Zangoose", 80, 1344, 100000},
{"Relicanth", 50, 1345, 100000},
{"Aron", 30, 1346, 100000},
{"Lairon", 40, 1347, 100000},
{"Aggron", 80, 1348, 100000},
{"Volbeat", 40, 1349, 100000},
{"Illumise", 40, 1350, 100000},
{"Lileep", 20, 1351, 100000},
{"Anorith", 20, 1352, 100000},
{"Ralts", 20, 1353, 100000},
{"Kirlia", 60, 1354, 100000},
{"Bagon", 20, 1355, 100000},
{"Shelgon", 60, 1356, 100000},
{"Beldum", 20, 1357, 100000},
{"Metang", 60, 1358, 100000},
{"Kecleon", 80, 1359, 100000},
{"Lunatone", 150, 1360, 100000},
{"Solrock", 150, 1361, 100000},
{"Castform", 80, 1362, 100000},
{"Cradily", 80, 1363, 100000},
{"Altaria", 80, 1364, 100000},
{"Armaldo", 80, 1365, 100000},
{"Gardevoir", 80, 1366, 100000},
{"Tropius", 100, 1367, 100000},
{"Slaking", 150, 1368, 100000},
{"Absol", 150, 1369, 100000},
{"Metagross", 150, 1370, 100000},
{"Salamence", 150, 1371, 100000},
{"Smeargle 1", 10, 11981, 100000},
{"Smeargle 2", 20, 11982, 100000},
{"Smeargle 3", 30, 11983, 100000},
{"Smeargle 4", 40, 11984, 100000},
{"Smeargle 5", 50, 11985, 100000},
{"Smeargle 6", 60, 11986, 100000},
{"Smeargle 7", 70, 11987, 100000},
{"Smeargle 8", 80, 11987, 100000},
{"Smeargle", 100, 11988, 100000},
{"Castform Fire", 100, 11989, 100000},
{"Castform Water", 100, 11990, 100000},
{"Castform Ice", 100, 11991, 100000},
}
Alguem faz ideia do que possa ser?
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados