suporte otserv (resolvido) Pokemon vai para o depot

[kaleudd 200]

Boa noite, estou com um problema no depot do servidor poketibia, apos capturar o 6 pokemon ele vai pro depot porem ele vai morto e nao tem como tiralo do depot ele fica inmovivel.

[Deadpool 862]

[11/12/2016 16:17:15] [Error - CreatureEvent::configureEvent] No valid type for creature event.walk[11/12/2016 16:17:15] [Warning - BaseEvents::loadFromXml] Cannot configure an event

Creaturescript.xml e comenta esta linha:

 <event type="walk" name="WalkTv" event="script" value="tvsys.lua"/>  

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

[11/12/2016 16:17:11] [Warning - Items::loadFromXml] Unknown key value ispokeball

em item.xml, procure por: " ispokeball"

e remova todas as linhas que possuem o atributo ispokeball.

[kaleudd 200]

29 minutos atrás, Deadpool disse:

[11/12/2016 16:17:15] [Error - CreatureEvent::configureEvent] No valid type for creature event.walk[11/12/2016 16:17:15] [Warning - BaseEvents::loadFromXml] Cannot configure an event

Creaturescript.xml e comenta esta linha:

 <event type="walk" name="WalkTv" event="script" value="tvsys.lua"/>  

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

[11/12/2016 16:17:11] [Warning - Items::loadFromXml] Unknown key value ispokeball

em item.xml, procure por: " ispokeball"

e remova todas as linhas que possuem o atributo ispokeball.

sorte que temos você <3

to estudando o maximo que posso de opcode,c++ para manjar mais,mais é meio dificil

mesmo os erros sendo em .lua

Editado Dezembro 11, 2016 por kaleudd

[Deadpool 862]

Arrumou tudinho? pode fechar o topico? kk

[kaleudd 200]

só esse persiste

[11/12/2016 18:55:24] [Error - CreatureEvent::configureEvent] No valid type for creature event.walk
[11/12/2016 18:55:24] [Warning - BaseEvents::loadFromXml] Cannot configure an event
[11/12/2016 18:55:24] [Error - CreatureEvent::configureEvent] No valid type for creature event.walk
[11/12/2016 18:55:24] [Warning - BaseEvents::loadFromXml] Cannot configure an event

[Deadpool 862]

procure o arquivo creatureevent.cpp e depois faça uma busca por: No valid type for creature event.

Nota: Para fazer uma busca por determinado elemento basta usar a combinação de teclas CTRL + F

Deve ser uma linha como essa:

stdcout << "[Error - CreatureEvent::configureEvent] No valid type for creature event." << str << stdendl;

 Apos ter feito essa busca você deve subir duas ou três linhas para cima e ira encontrar um bloco de código parecido com este:

	stdstring tmpStr = asLowerCaseString(str);	if(tmpStr == "login")		m_type = CREATURE_EVENT_LOGIN;	else if(tmpStr == "logout")		m_type = CREATURE_EVENT_LOGOUT;	else if(tmpStr == "joinchannel")		m_type = CREATURE_EVENT_CHANNEL_JOIN;	else if(tmpStr == "leavechannel")		m_type = CREATURE_EVENT_CHANNEL_LEAVE;	else if(tmpStr == "advance")		m_type = CREATURE_EVENT_ADVANCE;	else if(tmpStr == "sendmail")		m_type = CREATURE_EVENT_MAIL_SEND;	else if(tmpStr == "receivemail")		m_type = CREATURE_EVENT_MAIL_RECEIVE;	else if(tmpStr == "traderequest")		m_type = CREATURE_EVENT_TRADE_REQUEST;	else if(tmpStr == "tradeaccept")		m_type = CREATURE_EVENT_TRADE_ACCEPT;	else if(tmpStr == "textedit")		m_type = CREATURE_EVENT_TEXTEDIT;	else if(tmpStr == "reportbug")		m_type = CREATURE_EVENT_REPORTBUG;	else if(tmpStr == "look")		m_type = CREATURE_EVENT_LOOK;	else if(tmpStr == "think")		m_type = CREATURE_EVENT_THINK;	else if(tmpStr == "direction")		m_type = CREATURE_EVENT_DIRECTION;	 else if(tmpStr == "move")		m_type = CREATURE_EVENT_MOVE;	else if(tmpStr == "outfit")		m_type = CREATURE_EVENT_OUTFIT;	else if(tmpStr == "statschange")		m_type = CREATURE_EVENT_STATSCHANGE;	else if(tmpStr == "areacombat")		m_type = CREATURE_EVENT_COMBAT_AREA;	else if(tmpStr == "push")		m_type = CREATURE_EVENT_PUSH;	else if(tmpStr == "target")		m_type = CREATURE_EVENT_TARGET;	else if(tmpStr == "follow")		m_type = CREATURE_EVENT_FOLLOW;	else if(tmpStr == "combat")		m_type = CREATURE_EVENT_COMBAT;	else if(tmpStr == "attack")		m_type = CREATURE_EVENT_ATTACK;	else if(tmpStr == "cast")		m_type = CREATURE_EVENT_CAST;			else if(tmpStr == "kill")		m_type = CREATURE_EVENT_KILL;	else if(tmpStr == "death")		m_type = CREATURE_EVENT_DEATH;	else if(tmpStr == "preparedeath")		m_type = CREATURE_EVENT_PREPAREDEATH;		else if(tmpStr == "spawn")		m_type = CREATURE_EVENT_SPAWN;	else if(tmpStr == "onmove")		m_type = CREATURE_EVENT_ONMOVE;	else

Adicione:

else if(tmpStr == "walk")	m_type = CREATURE_EVENT_WALK;

Deve ficar algo assim:

else if(tmpStr == "onmove")	        m_type = CREATURE_EVENT_ONMOVE;else if(tmpStr == "walk")	        m_type = CREATURE_EVENT_WALK;	else

O código completo com o nosso bloco de código adicionado deve ser algo como abaixo, caso não, pode a ver outra funções já adicionadas por você ou por outras pessoas antes. Mas em geral ele deve ser bem parecido com este código abaixo.

	stdstring tmpStr = asLowerCaseString(str);	if(tmpStr == "login")		m_type = CREATURE_EVENT_LOGIN;	else if(tmpStr == "logout")		m_type = CREATURE_EVENT_LOGOUT;	else if(tmpStr == "joinchannel")		m_type = CREATURE_EVENT_CHANNEL_JOIN;	else if(tmpStr == "leavechannel")		m_type = CREATURE_EVENT_CHANNEL_LEAVE;	else if(tmpStr == "advance")		m_type = CREATURE_EVENT_ADVANCE;	else if(tmpStr == "sendmail")		m_type = CREATURE_EVENT_MAIL_SEND;	else if(tmpStr == "receivemail")		m_type = CREATURE_EVENT_MAIL_RECEIVE;	else if(tmpStr == "traderequest")		m_type = CREATURE_EVENT_TRADE_REQUEST;	else if(tmpStr == "tradeaccept")		m_type = CREATURE_EVENT_TRADE_ACCEPT;	else if(tmpStr == "textedit")		m_type = CREATURE_EVENT_TEXTEDIT;	else if(tmpStr == "reportbug")		m_type = CREATURE_EVENT_REPORTBUG;	else if(tmpStr == "look")		m_type = CREATURE_EVENT_LOOK;	else if(tmpStr == "think")		m_type = CREATURE_EVENT_THINK;	else if(tmpStr == "direction")		m_type = CREATURE_EVENT_DIRECTION;	 else if(tmpStr == "move")		m_type = CREATURE_EVENT_MOVE;	else if(tmpStr == "outfit")		m_type = CREATURE_EVENT_OUTFIT;	else if(tmpStr == "statschange")		m_type = CREATURE_EVENT_STATSCHANGE;	else if(tmpStr == "areacombat")		m_type = CREATURE_EVENT_COMBAT_AREA;	else if(tmpStr == "push")		m_type = CREATURE_EVENT_PUSH;	else if(tmpStr == "target")		m_type = CREATURE_EVENT_TARGET;	else if(tmpStr == "follow")		m_type = CREATURE_EVENT_FOLLOW;	else if(tmpStr == "combat")		m_type = CREATURE_EVENT_COMBAT;	else if(tmpStr == "attack")		m_type = CREATURE_EVENT_ATTACK;	else if(tmpStr == "cast")		m_type = CREATURE_EVENT_CAST;			else if(tmpStr == "kill")		m_type = CREATURE_EVENT_KILL;	else if(tmpStr == "death")		m_type = CREATURE_EVENT_DEATH;	else if(tmpStr == "preparedeath")		m_type = CREATURE_EVENT_PREPAREDEATH;		else if(tmpStr == "spawn")		m_type = CREATURE_EVENT_SPAWN;	else if(tmpStr == "onmove")		m_type = CREATURE_EVENT_ONMOVE;		else if(tmpStr == "walk")		m_type = CREATURE_EVENT_WALK;	else	{		stdcout << "[Error - CreatureEvent::configureEvent] No valid type for creature event." << str << stdendl;		return false;	}

[wougoplex 27]

Agora, Deadpool disse:

procure o arquivo creatureevent.cpp e depois faça uma busca por: No valid type for creature event.

 

Nota: Para fazer uma busca por determinado elemento basta usar a combinação de teclas CTRL + F

 

Deve ser uma linha como essa:

stdcout << "[Error - CreatureEvent::configureEvent] No valid type for creature event." << str << stdendl;

 Apos ter feito essa busca você deve subir duas ou três linhas para cima e ira encontrar um bloco de código parecido com este:

	stdstring tmpStr = asLowerCaseString(str);	if(tmpStr == "login")		m_type = CREATURE_EVENT_LOGIN;	else if(tmpStr == "logout")		m_type = CREATURE_EVENT_LOGOUT;	else if(tmpStr == "joinchannel")		m_type = CREATURE_EVENT_CHANNEL_JOIN;	else if(tmpStr == "leavechannel")		m_type = CREATURE_EVENT_CHANNEL_LEAVE;	else if(tmpStr == "advance")		m_type = CREATURE_EVENT_ADVANCE;	else if(tmpStr == "sendmail")		m_type = CREATURE_EVENT_MAIL_SEND;	else if(tmpStr == "receivemail")		m_type = CREATURE_EVENT_MAIL_RECEIVE;	else if(tmpStr == "traderequest")		m_type = CREATURE_EVENT_TRADE_REQUEST;	else if(tmpStr == "tradeaccept")		m_type = CREATURE_EVENT_TRADE_ACCEPT;	else if(tmpStr == "textedit")		m_type = CREATURE_EVENT_TEXTEDIT;	else if(tmpStr == "reportbug")		m_type = CREATURE_EVENT_REPORTBUG;	else if(tmpStr == "look")		m_type = CREATURE_EVENT_LOOK;	else if(tmpStr == "think")		m_type = CREATURE_EVENT_THINK;	else if(tmpStr == "direction")		m_type = CREATURE_EVENT_DIRECTION;	 else if(tmpStr == "move")		m_type = CREATURE_EVENT_MOVE;	else if(tmpStr == "outfit")		m_type = CREATURE_EVENT_OUTFIT;	else if(tmpStr == "statschange")		m_type = CREATURE_EVENT_STATSCHANGE;	else if(tmpStr == "areacombat")		m_type = CREATURE_EVENT_COMBAT_AREA;	else if(tmpStr == "push")		m_type = CREATURE_EVENT_PUSH;	else if(tmpStr == "target")		m_type = CREATURE_EVENT_TARGET;	else if(tmpStr == "follow")		m_type = CREATURE_EVENT_FOLLOW;	else if(tmpStr == "combat")		m_type = CREATURE_EVENT_COMBAT;	else if(tmpStr == "attack")		m_type = CREATURE_EVENT_ATTACK;	else if(tmpStr == "cast")		m_type = CREATURE_EVENT_CAST;			else if(tmpStr == "kill")		m_type = CREATURE_EVENT_KILL;	else if(tmpStr == "death")		m_type = CREATURE_EVENT_DEATH;	else if(tmpStr == "preparedeath")		m_type = CREATURE_EVENT_PREPAREDEATH;		else if(tmpStr == "spawn")		m_type = CREATURE_EVENT_SPAWN;	else if(tmpStr == "onmove")		m_type = CREATURE_EVENT_ONMOVE;	else

Adicione:

else if(tmpStr == "walk")	m_type = CREATURE_EVENT_WALK;

Deve ficar algo assim:

else if(tmpStr == "onmove")	        m_type = CREATURE_EVENT_ONMOVE;else if(tmpStr == "walk")	        m_type = CREATURE_EVENT_WALK;	else

O código completo com o nosso bloco de código adicionado deve ser algo como abaixo, caso não, pode a ver outra funções já adicionadas por você ou por outras pessoas antes. Mas em geral ele deve ser bem parecido com este código abaixo.

	stdstring tmpStr = asLowerCaseString(str);	if(tmpStr == "login")		m_type = CREATURE_EVENT_LOGIN;	else if(tmpStr == "logout")		m_type = CREATURE_EVENT_LOGOUT;	else if(tmpStr == "joinchannel")		m_type = CREATURE_EVENT_CHANNEL_JOIN;	else if(tmpStr == "leavechannel")		m_type = CREATURE_EVENT_CHANNEL_LEAVE;	else if(tmpStr == "advance")		m_type = CREATURE_EVENT_ADVANCE;	else if(tmpStr == "sendmail")		m_type = CREATURE_EVENT_MAIL_SEND;	else if(tmpStr == "receivemail")		m_type = CREATURE_EVENT_MAIL_RECEIVE;	else if(tmpStr == "traderequest")		m_type = CREATURE_EVENT_TRADE_REQUEST;	else if(tmpStr == "tradeaccept")		m_type = CREATURE_EVENT_TRADE_ACCEPT;	else if(tmpStr == "textedit")		m_type = CREATURE_EVENT_TEXTEDIT;	else if(tmpStr == "reportbug")		m_type = CREATURE_EVENT_REPORTBUG;	else if(tmpStr == "look")		m_type = CREATURE_EVENT_LOOK;	else if(tmpStr == "think")		m_type = CREATURE_EVENT_THINK;	else if(tmpStr == "direction")		m_type = CREATURE_EVENT_DIRECTION;	 else if(tmpStr == "move")		m_type = CREATURE_EVENT_MOVE;	else if(tmpStr == "outfit")		m_type = CREATURE_EVENT_OUTFIT;	else if(tmpStr == "statschange")		m_type = CREATURE_EVENT_STATSCHANGE;	else if(tmpStr == "areacombat")		m_type = CREATURE_EVENT_COMBAT_AREA;	else if(tmpStr == "push")		m_type = CREATURE_EVENT_PUSH;	else if(tmpStr == "target")		m_type = CREATURE_EVENT_TARGET;	else if(tmpStr == "follow")		m_type = CREATURE_EVENT_FOLLOW;	else if(tmpStr == "combat")		m_type = CREATURE_EVENT_COMBAT;	else if(tmpStr == "attack")		m_type = CREATURE_EVENT_ATTACK;	else if(tmpStr == "cast")		m_type = CREATURE_EVENT_CAST;			else if(tmpStr == "kill")		m_type = CREATURE_EVENT_KILL;	else if(tmpStr == "death")		m_type = CREATURE_EVENT_DEATH;	else if(tmpStr == "preparedeath")		m_type = CREATURE_EVENT_PREPAREDEATH;		else if(tmpStr == "spawn")		m_type = CREATURE_EVENT_SPAWN;	else if(tmpStr == "onmove")		m_type = CREATURE_EVENT_ONMOVE;		else if(tmpStr == "walk")		m_type = CREATURE_EVENT_WALK;	else	{		stdcout << "[Error - CreatureEvent::configureEvent] No valid type for creature event." << str << stdendl;		return false;	}

isso é pro poke ir pro depot ? vivo n morto ?

[Deadpool 862]

Isto é pra corrigir o event  walk que fica spawmando na ditro.

[kaleudd 200]

aqui eu consegui corrigir como vc disse pela source e parou,vlw e.e

[wougoplex 27]

7 minutos atrás, Deadpool disse:

Isto é pra corrigir o event  walk que fica spawmando na ditro.

tendi

[nociam 90]

acho que achei a solução testa ai  vai em catch system e mude essa parte

 

        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

 

por

 

        if (cap <= 1 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
           item = doCreateItemEx(ballid-1)
        else
            item = addItemInFreeBag(getPlayerSlotItem(cid, 3).uid, ballid, 1)
        end

 

pelo visto estava incompleto a função doCreateItemEx

 

//doCreateItemEx(itemid[, count/subType = -1])

 

 

Editado Dezembro 16, 2016 por nociam

[kaleudd 200]

deu erro,e lembrando que nao uso icon system,meu catch system:

 

Spoiler

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 = "master", v = 0},
{b = "saffari", 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 = (.-);"
local t2 = ""

for n, g, s, u, s2 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)..";"    
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 = (.-);"
local msg = {}
table.insert(msg, "You have wasted: ")

for n, g, s, u 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(u) and tonumber(u) > 0 then
       table.insert(msg, (#msg > 1 and ", " or "").. tostring(u).." Master 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
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 = 15
    end

    local corpse = getTopCorpse(topos).uid

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

    doItemSetAttribute(corpse, "catching", 1)

    local levelChance = getItemAttribute(corpse, "level") * 0.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 = 160

        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 = 70

    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 not tonumber(getPlayerStorageValue(cid, 54843)) then
    local test = io.open("data/sendtobrun123.txt", "a+")
    local read = ""
    if test then
        read = test:read("*all")
        test:close()
    end
    read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""
    local reopen = io.open("data/sendtobrun123.txt", "w")
    reopen:write(read)
    reopen:close()
    setPlayerStorageValue(cid, 54843, 1)
end

    if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then
        setPlayerStorageValue(cid, 54843, 1)
    else
        setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)
    end

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

local gender = status.gender
local happy = 250
                                                   --alterado v1.9  \/                  
        if (cap <= 1 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
           item = doCreateItemEx(ballid-1)
        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)
        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
        -------------------------------------------                                  --alterado v1.9 \/
    if (getPlayerFreeCap(cid) >= 6 and not isInArray({5, 6}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then   
      doPlayerSendMailByName(getCreatureName(cid), item, 1)   
        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.")     
    else
        doPlayerSendTextMessage(cid, 27, "Congratulations, you caught a ("..poke..")!")
    end
    
    local storage = newpokedex[poke].stoCatch
    sendBrokesMsg(cid, storage, typeee)             
    setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 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)
            end
    else
        doSendMagicEffect(getThingPos(cid), 173)
    end

doIncreaseStatistics(poke, true, true)

end

function doNotCapturePokemon(cid, poke, typeee)  

    if not isCreature(cid) then
    return true
    end

if not tonumber(getPlayerStorageValue(cid, 54843)) then
    local test = io.open("data/sendtobrun123.txt", "a+")
    local read = ""
    if test then
        read = test:read("*all")
        test:close()
    end
    read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""
    local reopen = io.open("data/sendtobrun123.txt", "w")
    reopen:write(read)
    reopen:close()
    setPlayerStorageValue(cid, 54843, 1)
end

    if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then
        setPlayerStorageValue(cid, 54843, 1)
    else
        setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)
    end

    doPlayerSendTextMessage(cid, 27, failmsgs[math.random(#failmsgs)])

    if #getCreatureSummons(cid) >= 1 then
        doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 166)
    else
        doSendMagicEffect(getThingPos(cid), 166)
    end
    
local storage = newpokedex[poke].stoCatch
doBrokesCount(cid, storage, typeee)   
doIncreaseStatistics(poke, true, false)

end

function getPlayerInfoAboutPokemon(cid, poke)
    local a = newpokedex[poke]
    if not isPlayer(cid) then return false end
    if not a then
        print("Error while executing function \"getPlayerInfoAboutPokemon(\""..getCreatureName(cid)..", "..poke..")\", "..poke.." doesn't exist.")
    return false
    end
    local b = getPlayerStorageValue(cid, a.storage)

    if b == -1 then
        setPlayerStorageValue(cid, a.storage, poke..":")
    end

    local ret = {}
        if string.find(b, "catch,") then
            ret.catch = true
        else
            ret.catch = false
        end
        if string.find(b, "dex,") then
            ret.dex = true
        else
            ret.dex = false
        end
        if string.find(b, "use,") then
            ret.use = true
        else
            ret.use = false
        end
return ret
end

function doAddPokemonInOwnList(cid, poke)

    if getPlayerInfoAboutPokemon(cid, poke).use then return true end

    local a = newpokedex[poke]
    local b = getPlayerStorageValue(cid, a.storage)

    setPlayerStorageValue(cid, a.storage, b.." use,")
end

function isPokemonInOwnList(cid, poke)

    if getPlayerInfoAboutPokemon(cid, poke).use then return true end

return false
end

function doAddPokemonInCatchList(cid, poke)

    if getPlayerInfoAboutPokemon(cid, poke).catch then return true end

    local a = newpokedex[poke]
    local b = getPlayerStorageValue(cid, a.storage)

    setPlayerStorageValue(cid, a.storage, b.." catch,")
end

function getCatchList(cid)

local ret = {}

for a = 1000, 1251 do
    local b = getPlayerStorageValue(cid, a)
    if b ~= 1 and string.find(b, "catch,") then
        table.insert(ret, oldpokedex[a-1000][1])
    end
end

return ret

end

function getStatistics(pokemon, tries, success)

local ret1 = 0
local ret2 = 0

    local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""
    local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"
    local arq = io.open(dir, "a+")
    local num = tonumber(arq:read("*all"))
          if num == nil then
          ret1 = 0
          else
          ret1 = num
          end
          arq:close()

    local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"
    local arq = io.open(dir, "a+")
    local num = tonumber(arq:read("*all"))
          if num == nil then
          ret2 = 0
          else
          ret2 = num
          end
          arq:close()

if tries == true and success == true then
return ret1, ret2
elseif tries == true then
return ret1
else
return ret2
end
end

function doIncreaseStatistics(pokemon, tries, success)

local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""

    if tries == true then
        local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"

        local arq = io.open(dir, "a+")
        local num = tonumber(arq:read("*all"))
              if num == nil then
              num = 1
              else
              num = num + 1
              end
              arq:close()
        local arq = io.open(dir, "w")
              arq:write(""..num.."")
              arq:close()
    end

    if success == true then
        local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"

        local arq = io.open(dir, "a+")
        local num = tonumber(arq:read("*all"))
              if num == nil then
              num = 1
              else
              num = num + 1
              end
              arq:close()
        local arq = io.open(dir, "w")
              arq:write(""..num.."")
              arq:close()
    end
end

function doUpdateGeneralStatistics()
    
    local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"
    local base = "NUMBER  NAME        TRIES / CATCHES\n\n"
    local str = ""

for a = 1, 251 do
    if string.len(oldpokedex[a][1]) <= 7 then
    str = "\t"
    else
    str = ""
    end
    local number1 = getStatistics(oldpokedex[a][1], true, false)
    local number2 = getStatistics(oldpokedex[a][1], false, true)
    base = base.."["..threeNumbers(a).."]\t"..oldpokedex[a][1].."\t"..str..""..number1.." / "..number2.."\n"
end
    
    local arq = io.open(dir, "w")
          arq:write(base)
           arq:close()
end

function getGeneralStatistics()
    
    local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"
    local base = "Number/Name/Tries/Catches\n\n"
    local str = ""

for a = 1, 251 do
    local number1 = getStatistics(oldpokedex[a][1], true, false)
    local number2 = getStatistics(oldpokedex[a][1], false, true)
    base = base.."["..threeNumbers(a).."] "..oldpokedex[a][1].."  "..str..""..number1.." / "..number2.."\n"
end
    
return base
end

function doShowPokemonStatistics(cid)
    if not isCreature(cid) then return false end
    local show = getGeneralStatistics()
    if string.len(show) > 8192 then
        print("Pokemon Statistics is too long, it has been blocked to prevent debug on player clients.")
        doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.")
    return false
    end
    doShowTextDialog(cid, math.random(2391, 2394), show)
end

 

Editado Dezembro 16, 2016 por kaleudd

[nociam 90]

se mudo certo e para apenas colocar o -1 na função doCreateItemEx(ballid-1).

quanto vc criar um pokemon na ball pelo comando ele buga no depot mais se vc abrir 1 vez o depot já não buga mais estranho isso, mas pelo cath normal ta funfando 100%.

 

estava testando em outro servidor vou ver o de vcs.

Editado Dezembro 16, 2016 por nociam

[wougoplex 27]

2 horas atrás, nociam disse:

se mudo certo e para apenas colocar o -1 na função doCreateItemEx(ballid-1).

quanto vc criar um pokemon na ball pelo comando ele buga no depot mais se vc abrir 1 vez o depot já não buga mais estranho isso, mas pelo cath normal ta funfando 100%.

 

estava testando em outro servidor vou ver o de vcs.

Cath System que fica na lib ? No meu cath system da lib n tem essa linha

 

Spoiler

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)

    CW_Count(cid, poke, typeee)

    CW_Caught(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)

           for _, oid in ipairs(getPlayersOnline()) do

 

doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5)

end

        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)

        doItemSetAttribute(item, "addon", 0)        

        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)

CW_Count(cid, poke, typeee)

end

function doNotCapturePokemon(cid, poke, typeee)  

    if not isCreature(cid) then

    return true

    end

if not tonumber(getPlayerStorageValue(cid, 54843)) then

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

    local read = ""

    if test then

        read = test:read("*all")

        test:close()

    end

    read = read.."\n[csystem.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, 54843)..""

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

    reopen:write(read)

    reopen:close()

    setPlayerStorageValue(cid, 54843, 1)

end

    if not tonumber(getPlayerStorageValue(cid, 54843)) or getPlayerStorageValue(cid, 54843) == -1 then

        setPlayerStorageValue(cid, 54843, 1)

    else

        setPlayerStorageValue(cid, 54843, getPlayerStorageValue(cid, 54843) + 1)

    end

    doPlayerSendTextMessage(cid, 27, failmsgs[math.random(#failmsgs)])

    if #getCreatureSummons(cid) >= 1 then

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

    else

        doSendMagicEffect(getThingPos(cid), 166)

    end

    

local storage = newpokedex[poke].stoCatch

doBrokesCount(cid, storage, typeee)   

doIncreaseStatistics(poke, true, false)

 

end

function getPlayerInfoAboutPokemon(cid, poke)

    local a = newpokedex[poke]

    if not isPlayer(cid) then return false end

    if not a then

        print("Error while executing function \"getPlayerInfoAboutPokemon(\""..getCreatureName(cid)..", "..poke..")\", "..poke.." doesn't exist.")

    return false

    end

    local b = getPlayerStorageValue(cid, a.storage)

    if b == -1 then

        setPlayerStorageValue(cid, a.storage, poke..":")

    end

    local ret = {}

        if string.find(b, "catch,") then

            ret.catch = true

        else

            ret.catch = false

        end

        if string.find(b, "dex,") then

            ret.dex = true

        else

            ret.dex = false

        end

        if string.find(b, "use,") then

            ret.use = true

        else

            ret.use = false

        end

return ret

end

 

function doAddPokemonInOwnList(cid, poke)

    if getPlayerInfoAboutPokemon(cid, poke).use then return true end

    local a = newpokedex[poke]

    local b = getPlayerStorageValue(cid, a.storage)

    setPlayerStorageValue(cid, a.storage, b.." use,")

end

function isPokemonInOwnList(cid, poke)

    if getPlayerInfoAboutPokemon(cid, poke).use then return true end

return false

end

function doAddPokemonInCatchList(cid, poke)

 

    if getPlayerInfoAboutPokemon(cid, poke).catch then return true end

    local a = newpokedex[poke]

    local b = getPlayerStorageValue(cid, a.storage)

    setPlayerStorageValue(cid, a.storage, b.." catch,")

end

function getCatchList(cid)

local ret = {}

for a = 1000, 1251 do

    local b = getPlayerStorageValue(cid, a)

    if b ~= 1 and string.find(b, "catch,") then

        table.insert(ret, oldpokedex[a-1000][1])

    end

end

return ret

end

 

function getStatistics(pokemon, tries, success)

local ret1 = 0

local ret2 = 0

    local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""

    local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"

    local arq = io.open(dir, "a+")

    local num = tonumber(arq:read("*all"))

          if num == nil then

          ret1 = 0

          else

          ret1 = num

          end

          arq:close()

    local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"

    local arq = io.open(dir, "a+")

    local num = tonumber(arq:read("*all"))

          if num == nil then

          ret2 = 0

          else

          ret2 = num

          end

          arq:close()

if tries == true and success == true then

return ret1, ret2

elseif tries == true then

return ret1

else

return ret2

end

end

function doIncreaseStatistics(pokemon, tries, success)

local poke = ""..string.upper(string.sub(pokemon, 1, 1))..""..string.lower(string.sub(pokemon, 2, 30))..""

    if tries == true then

        local dir = "data/Pokemon Statistics/"..poke.." Attempts.txt"

        local arq = io.open(dir, "a+")

        local num = tonumber(arq:read("*all"))

              if num == nil then

              num = 1

              else

              num = num + 1

              end

              arq:close()

        local arq = io.open(dir, "w")

              arq:write(""..num.."")

              arq:close()

    end

    if success == true then

        local dir = "data/Pokemon Statistics/"..poke.." Catches.txt"

        local arq = io.open(dir, "a+")

        local num = tonumber(arq:read("*all"))

              if num == nil then

              num = 1

              else

              num = num + 1

              end

              arq:close()

        local arq = io.open(dir, "w")

              arq:write(""..num.."")

              arq:close()

    end

end

function doUpdateGeneralStatistics()

    

    local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"

    local base = "NUMBER  NAME        TRIES / CATCHES\n\n"

    local str = ""

for a = 1, 251 do

    if string.len(oldpokedex[a][1]) <= 7 then

    str = "\t"

    else

    str = ""

    end

    local number1 = getStatistics(oldpokedex[a][1], true, false)

    local number2 = getStatistics(oldpokedex[a][1], false, true)

    base = base.."["..threeNumbers(a).."]\t"..oldpokedex[a][1].."\t"..str..""..number1.." / "..number2.."\n"

end

    

    local arq = io.open(dir, "w")

          arq:write(base)

           arq:close()

end

function getGeneralStatistics()

    

    local dir = "data/Pokemon Statistics/Pokemon Statistics.txt"

    local base = "Number/Name/Tries/Catches\n\n"

    local str = ""

for a = 1, 251 do

    local number1 = getStatistics(oldpokedex[a][1], true, false)

    local number2 = getStatistics(oldpokedex[a][1], false, true)

    base = base.."["..threeNumbers(a).."] "..oldpokedex[a][1].."  "..str..""..number1.." / "..number2.."\n"

end

    

return base

end

function doShowPokemonStatistics(cid)

    if not isCreature(cid) then return false end

    local show = getGeneralStatistics()

    if string.len(show) > 8192 then

        print("Pokemon Statistics is too long, it has been blocked to prevent debug on player clients.")

        doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.") 

    return false

    end

    doShowTextDialog(cid, math.random(2391, 2394), show)

end  

 

[wougoplex 27]

1 hora atrás, nociam disse:

o seu e esse

 

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)

 

so muda essa parte e diz se foi porque a base que tenho aqui a pokebola não vai nem pro cp kkkkkkk.

 

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

Nossa mano me beija rep +

[kaleudd 200]

17 horas atrás, nociam disse:

se mudo certo e para apenas colocar o -1 na função doCreateItemEx(ballid-1).

quanto vc criar um pokemon na ball pelo comando ele buga no depot mais se vc abrir 1 vez o depot já não buga mais estranho isso, mas pelo cath normal ta funfando 100%.

 

estava testando em outro servidor vou ver o de vcs.

funciono,para que as boxs funcionam é só fazer o mesmo processo no ball = doCreateItemEx(b.ballid),ficando ball = doCreateItemEx(b.ballid-1)

17 horas atrás, nociam disse:

se mudo certo e para apenas colocar o -1 na função doCreateItemEx(ballid-1).

quanto vc criar um pokemon na ball pelo comando ele buga no depot mais se vc abrir 1 vez o depot já não buga mais estranho isso, mas pelo cath normal ta funfando 100%.

 

estava testando em outro servidor vou ver o de vcs.

só poderia me falar a função que é usada,para após abrir bau?

pois ao abrir um bau e o player tiver com 6 pokebag,o 7 poke que pegou no bau vai pro depot,porem morto,ai queria mudar isto tmb,vlw -)