[AJUDA] Command: !pokeball não funciona.

Postado Junho 8, 2015 9 anos

Coloquei Icon System no meu PDA 1.9 e o comando !pokeballs para saber quantas broke você ja deu em certo pokemon parou de funcionar.

Aqui vai o script [Catch System] da pasta action/lib:

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, 71 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, 71 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

Citar

Mention

Respostas 8
Visualizações 1k
Created 9 anos9 anos
Última resposta 9 anos9 anos

Popular Days

Postado Junho 8, 2015 9 anos

Poste o comando na pasta talktions

Procuro pessoas para formar equipe para fazer um server baseado em mitlogia

Citar

Mention

Postado Junho 9, 2015 9 anos

Autor

local function sendBrokesMsg2(cid, name, str) --alterado v1.9 \/ TUDO!!

if not isCreature(cid) then return false end

local storage = getPlayerStorageValue(cid, str)

if storage == -1 then

return sendMsgToPlayer(cid, 27, "Você ainda não gastou nenhuma ball para catar esse pokemon!")

end

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

local msg = {}

table.insert(msg, "Você ja gastou: ")

for n, g, s, u, s2, d 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

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 doPlayerSendTextMessage(cid, 27, "Você ainda não gastou nenhuma ball para catar um "..name..".")

end

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

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

end

table.insert(msg, " tentando catar um "..name..".")

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

end

function onSay(cid, words, param)

if(param == '') then

doPlayerSendTextMessage(cid, 27, "Coloque um nome de pokemon...")

return true

end

if newpokedex[doCorrectPokemonName(param)] then

local storage = newpokedex[doCorrectPokemonName(param)].stoCatch

local name = doCorrectPokemonName(param)

sendBrokesMsg2(cid, name, storage)

else

doPlayerSendTextMessage(cid, 27, "Issu não e um pokemon...")

end

return true

end

Citar

Mention

Postado Junho 10, 2015 9 anos

Eu uso a mesma base que você cara, e acho que tu alterou algo dentro de outra pasta, não sei qual mas não ta conseguindo puchar os pokes.

Vou ver aqui se consigo uma solução kkk estou aprendendo ainda U.u

Procuro pessoas para formar equipe para fazer um server baseado em mitlogia

Citar

Mention

Postado Junho 15, 2015 9 anos

Autor

já que ninguém sabe resolver esse problema, como eu fecho esse tópico?

Citar

Mention

Participe da conversa

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

https://tibiaking.com/topic/58244-ajuda-command-pokeball-n%C3%A3o-funciona/

Seguidores

Ir para a lista de tópicos

Nenhum usuário registrado visualizando esta página.

🔥 [Atualização 04/06/2025] | Revolução no Desenvolvimento de Servidores Tibia – Conheça o Tibia-AI! 🔥
tibia ia

🔥 [Atualização 04/06/2025] | Revolução no Desenvolvimento de Servidores Tibia – Conheça o Tibia-AI! 🔥
Under · Abril 3 Abr 3
- free
- ia
- otserver
- premium
- (e 10 mais)
  Tags:
  
  free
  
  ia
  
  otserver
  
  premium
  
  rapido
  
  script
  
  script gratis
  
  scripting
  
  suporte
  
  suporte ot
  
  suporte server tibia
  
  suporte tibia
  
  tibia
  
  underewar
- 10 respostas
- 1947 visualizações
Under

Quarta às 18:022 dias
Pokémon Centurion [8.54] PDA
tfs 0.3

Pokémon Centurion [8.54] PDA
SlowK · Janeiro 20, 2014 11 anos
- pda
- 45 respostas
- 49492 visualizações
Samuel024820

Junho 7, 2024 1 ano
The Ruby Server - Base Pokémon TFS 1.2 - 9.80
tfs 1.2

The Ruby Server - Base Pokémon TFS 1.2 - 9.80
Leohige · Fevereiro 12, 2018 7 anos
- pokemon
- projeto
- 25 respostas
- 13305 visualizações
Ser Luck

Março 13, 2024 1 ano
Base Poke Hand antiga
tfs 0.3

Base Poke Hand antiga
alun0n0v0 · Setembro 8, 2020 4 anos
- pokemon
- 14 respostas
- 7487 visualizações
Zeon2024

Fevereiro 27 Fev 27
PokeGhost Project
tfs 0.3

PokeGhost Project
SwayaDzn · Março 27, 2023 2 anos
- pokemon
- 13 respostas
- 5211 visualizações
admledzem007

Março 31 Mar 31

Tópicos 96.9k
Posts 519.6k

Respostas 8
Visualizações 1k
Created 9 anos9 anos
Última resposta 9 anos9 anos

Entrar

[AJUDA] Command: !pokeball não funciona.

Featured Replies

Top Posters In This Topic

Popular Days

Participe da conversa

Quem Está Navegando 0

Conteúdo Similar

Estatísticas dos Fóruns

Top Posters In This Topic

Popular Days

Informação Importante

Account

Navigation

Pesquisar