poketibia Catch Pokemon No Default

Dilooow · April 30, 2020

Eu quero um script para quando algum player capturar um qualquer pokemon, aparecer no chat default para todos que ele capturou aquele pokemon.

Esse sistema eu vi no Exairos KPDO

Se for um pokemon normal aparecer em azul

Fulano acabou de capturar um Gloom

Se for um pokemon shiny aparecer em Vermelho

Fulano acabou de capturar um Shiny Gloom

exemplo 17:52 Parabens o jogador Dark Fisher Capturou um Shiny Seaking!!!.

quando for shiny aparece red

quando for um pokemon normal aparece isso

17:58 Parabens o jogador Juiz Capturou um pokemon raro Wooper!!!. < --- no default tbm

Edited May 1, 2020 by Dilooow

GamerGoiano · May 1, 2020

19 horas atrás, Dilooow disse:

Eu quero um script para quando algum player capturar um qualquer pokemon, aparecer no chat default para todos que ele capturou aquele pokemon.

Esse sistema eu vi no Exairos KPDO

Se for um pokemon normal aparecer em azul

Fulano acabou de capturar um Gloom

Se for um pokemon shiny aparecer em Vermelho

Fulano acabou de capturar um Shiny Gloom

exemplo 17:52 Parabens o jogador Dark Fisher Capturou um Shiny Seaking!!!.

quando for shiny aparece red

quando for um pokemon normal aparece isso

17:58 Parabens o jogador Juiz Capturou um pokemon raro Wooper!!!. < --- no default tbm

Dilooow · May 2, 2020

12 horas atrás, brazvct disse:

Esse é o mesmo do kpdo?

Eu olhei o tópico porém eles não ensina aonde vai as funções tipo

Exemplo data/action/scripte

Eles diz como pfvr

13 horas atrás, brazvct disse:

entao mano tentei nao vai da erro

olha ai meu catch e meu e chaneels me diz o que ta errado pfvr

<?xml version="1.0" encoding="UTF-8"?>
<channels>
   
   <channel id="1" name="Party">
       <vocation id="1;4"/>
   </channel>
   <channel id="2" name="Staff" logged="yes" access="3">
       <vocation id="1;4"/>
   </channel>
   <channel id="3" name="Rule Violations" logged="yes">
       <vocation id="1;4"/>
   </channel>
   </channel id="5" name="Catch-Channel" level="2" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">
<vocation id="1"/>
</channel>
   <channel id="6" name="Game-Chat EN" logged="yes" level="25">
       <vocation id="1;4"/>
   </channel>
   <channel id="8" name="Trade" level="25" logged="yes" muted="120" conditionId="2" conditionMessage="You may only place one offer in two minutes.">
       <vocation id="1;4"/>
   </channel>
   <channel id="4" name="Help" logged="yes" muted="60">
       <vocation id="1;4"/>
   </channel>
   <channel id="7" name="Game-Chat ES" logged="yes" level="25">
       <vocation id="1;4"/>
   </channel>
   <channel id="65535" name="Private Chat Channel"/>

local topquest = 1
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},
}
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(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 = 2 * 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)

       local quero_esses = {4,3}
   if rate >= totalChance then
       local status = {}
       status.gender = quero_esses[math.random(1, #quero_esses)]
       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 quero_esses = {4,3}
   local status = {}
   status.gender = quero_esses[math.random(1, #quero_esses)]
   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 quero_esses = {4,3}
if poke == "Porygon" or poke == "Metagross" or poke == "Porygon2" or poke == "Metang" or poke == "Beldum" or poke == "Shiny Metagross" or poke == "Solrock" then
gender = 1
else
gender = quero_esses[math.random(1, #quero_esses)]
end
local happy = 250
--alterado v1.9 \/
if getPlayerFreeCap(cid) <= 1 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, "exp", 0)
       doItemSetAttribute(item, "level", 1)
       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) <= 1 or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then
doPlayerSendMailByName(getCreatureName(cid), item, 1)
       doPlayerSendTextMessage(cid, 27, "Você capturou um pokémon! ("..poke..")!")
       doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")
else
       doPlayerSendTextMessage(cid, 27, "Você capturou um pokémon! ("..poke..")!")
end

   doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TALKTYPE_CHANNEL_W, 5) 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

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

   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)

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

Edited May 2, 2020 by Dilooow

GamerGoiano · May 2, 2020

Dica pra vc, baixe notepad ++

Dilooow · May 2, 2020

2 horas atrás, brazvct disse:

Dica pra vc, baixe notepad ++

Usei ele

2 horas atrás, brazvct disse:

2 horas atrás, brazvct disse:

Dica pra vc, baixe notepad ++

Fica dando erro

Marshmello · May 9, 2020

local topquest = 1
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},
}
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(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 = 2 * 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)

        
        local quero_esses = {4,3}
    if rate >= totalChance then
        local status = {}
              status.gender = quero_esses[math.random(1, #quero_esses)]
              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 quero_esses = {4,3}
    local status = {}
          status.gender =  quero_esses[math.random(1, #quero_esses)]
          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 quero_esses = {4,3}
if poke == "Porygon" or poke == "Metagross" or poke == "Porygon2" or poke == "Metang" or poke == "Beldum" or poke == "Shiny Metagross" or poke == "Solrock" then
gender = 1
else
gender = quero_esses[math.random(1, #quero_esses)]
end
local happy = 250
                                                   --alterado v1.9  \/                  
        if getPlayerFreeCap(cid) <= 1 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, "exp", 0)
        doItemSetAttribute(item, "level", 1)
        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) <= 1 or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then  
      doPlayerSendMailByName(getCreatureName(cid), item, 1)   
        doPlayerSendTextMessage(cid, 27, "Você capturou um pokémon! ("..poke..")!")
        doPlayerSendTextMessage(cid, 27, "Since you are already holding six pokemons, this pokeball has been sent to your depot.")     
    else
        doPlayerSendTextMessage(cid, 27, "Você capturou um pokémon! ("..poke..")!")
    end
    
if string.find(tostring(getCreatureName(poke), "Shiny") then
    doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TTALKTYPE_CHANNEL_O, 5) end
else
    doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um ["..poke.."]!.", TTALKTYPE_CHANNEL_W, 5) end
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


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


    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)   

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

Sign In

poketibia Catch Pokemon No Default

Question

Dilooow 6

Link to comment

Share on other sites

5 answers to this question

Recommended Posts

GamerGoiano 183

Link to comment

Share on other sites

Dilooow 6

Link to comment

Share on other sites

GamerGoiano 183

Link to comment

Share on other sites

Dilooow 6

Link to comment

Share on other sites

Marshmello 271

Link to comment

Share on other sites

Recently Browsing 0 members

Similar Content

[Aberto] Base PokeHand Servidor+Cliente+Soucer (2025)

base cyan [Cyan] Base PokeHand 2025 1 2 3

poketibia Tempo entre os Moves - PoDT

divulgação Bleach Shadows Rising [BSROT] | 18.08.2025 Beta Test

Erro ao compilar Source no Dve c++

Forums

Tutoriais

Suporte