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

[olaia 0]

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

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

 

up

 

 

up

 

[Kyosen 8]

Poste o comando na pasta talktions

[olaia 0]

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

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

[Kyosen 8]

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

[olaia 0]

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

[Loouis 2]

Esse comando serve sim, no pokexcyan v2.0.... Só que quando você captura algum pokemon você não consegue ver o comando após. esse é o bug" você não pode ver quantas balls usou no poke depois que capturar" quando vc tentar [depois de capturado]diz que vc nao usou nenhuma ball

[rafanasser 12]

Em 02/11/2015 14:53:51, Loouis disse:

Esse comando serve sim, no pokexcyan v2.0.... Só que quando você captura algum pokemon você não consegue ver o comando após. esse é o bug" você não pode ver quantas balls usou no poke depois que capturar" quando vc tentar [depois de capturado]diz que vc nao usou nenhuma ball

Mas esse é o normal, tanto que até no pxg é assim amigao...

[Bruno Carvalho 837]

8 minutos atrás, rafanasser disse:

Mas esse é o normal, tanto que até no pxg é assim amigao...

 

Cara, você reviveu um post de 02/11/2015, cuidado ai... Veja a data antes de postar...

[rafanasser 12]

Agora, Comedinha disse:

 

Cara, você reviveu um post de 02/11/2015, cuidado ai... Veja a data antes de postar...

nossa, é mesmo, foi mal ai man, juro q nem me liguei, é que eu estava procurando algo sobre a !pokeball