Ir para conteúdo
  • 0

Itens e Pokémon não estão indo para a bag


Alphapetboy

Pergunta

Gente, tenho um erro crítico, do servidor PokeSTL(PokeCamp). Comecei a editar esse server há uns três dias, estava adicionando pokémon como Mimikyu e outros da 7 geração.

Estava tudo ocorrendo bem até eu abrir com meus amigos para teste, no GOD, a bag comporta itens e pokémon, mas, no player, qualquer coisa que voce por na bag aparece uma mensagem que eu só posso carregar 6 pokémon(itens e pokemon) sendo que minha mochila está VAZIA.

Ja tentei ver se o erro era no account manager, criei conta por site, usei contas já existentes, tirei TODAS as edições e mesmo assim o erro continua lá(penso que seja algo na storage ou sei la..)

Por favor, preciso muito da ajuda de vocês!!!

16387205_1841674716080583_8967619665450581614_n.jpg

16387205_1841674716080583_8967619665450581614_n.jpg.50dffc7f94e34da6ebad0622e8448909.jpg

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

local config = {
    loginMessage = getConfigValue('loginMessage'),
    useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}

--alterado v2.6 tabelas soh em lib/configuration.lua;

function onLogin(cid)

    doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 100)
    doCreatureSetDropLoot(cid, false)

    local accountManager = getPlayerAccountManager(cid)

    if(accountManager == MANAGER_NONE) then
        local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage
        if(lastLogin > 0) then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)
            str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "."
        else
            str = str
        end

        doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)

    elseif(accountManager == MANAGER_NAMELOCK) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")
    elseif(accountManager == MANAGER_ACCOUNT) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.")
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.")
    end

    if getCreatureName(cid) == "Account Manager" then
        local outfit = {}
        if accountManagerRandomPokemonOutfit then
            outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])}
        else
            outfit = accountManagerOutfit
        end
    
        doSetCreatureOutfit(cid, outfit, -1)
    return true
    end

    if(not isPlayerGhost(cid)) then
        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
    end

    local outfit = {}

    if getPlayerVocation(cid) == 0 then
        doPlayerSetMaxCapacity(cid, 0)
        doPlayerSetVocation(cid, 1)
        setCreatureMaxMana(cid, 6)
        doPlayerAddSoul(cid, -getPlayerSoul(cid))
        setPlayerStorageValue(cid, 19898, 0)
            if getCreatureOutfit(cid).lookType == 128 then
                outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}
            elseif getCreatureOutfit(cid).lookType == 136 then
                outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}
            end
        doCreatureChangeOutfit(cid, outfit)
    end

    -- registerCreatureEvent(cid, "Duel")    --alterado v2.6 duel system
    registerCreatureEvent(cid, "ShowPokedex") --alterado v2.6
    registerCreatureEvent(cid, "ClosePokedex") --alterado v2.6
    registerCreatureEvent(cid, "WatchTv")
    registerCreatureEvent(cid, "StopWatchingTv")
    registerCreatureEvent(cid, "WalkTv")
    registerCreatureEvent(cid, "RecordTv")
    --registerCreatureEvent(cid, "Death")
    registerCreatureEvent(cid, "PlayerLogout")
    registerCreatureEvent(cid, "WildAttack")
    registerCreatureEvent(cid, "Idle")
    registerCreatureEvent(cid, "PokemonIdle")
    registerCreatureEvent(cid, "EffectOnAdvance")
    registerCreatureEvent(cid, "GeneralConfiguration")
    registerCreatureEvent(cid, "ReportBug")
    registerCreatureEvent(cid, "LookSystem")
    registerCreatureEvent(cid, "T1")
    registerCreatureEvent(cid, "T2")
    registerCreatureEvent(cid, "task_count")
    registerCreatureEvent(cid, "CofreLook")

    if getPlayerStorageValue(cid, 99284) == 1 then
        setPlayerStorageValue(cid, 99284, -1)
    end

    if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then
       setPlayerStorageValue(cid, 6598754, -1)
       setPlayerStorageValue(cid, 6598755, -1)
    end
    
    doChangeSpeed(cid, -(getCreatureSpeed(cid)))
    
    --///////////////////////////////////////////////////////////////////////////--
    local storages = {17000, 63215, 17001, 13008, 5700}
    for s = 1, #storages do
        if not tonumber(getPlayerStorageValue(cid, storages)) then
           if s == 3 then
              setPlayerStorageValue(cid, storages, 1)
           elseif s == 4 then
              setPlayerStorageValue(cid, storages, -1)
           else   
              if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then
                 setPlayerStorageValue(cid, storages, 1)                 --alterado v2.6
              else
                 setPlayerStorageValue(cid, storages, -1) 
              end
           end
           doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright")
        end
    end
    --/////////////////////////////////////////////////////////////////////////--
       
    if getPlayerStorageValue(cid, 17000) >= 1 then -- fly
        
        local item = getPlayerSlotItem(cid, 8):
        local poke = getItemAttribute(item.uid, "poke")
        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))
        doRemoveCondition(cid, CONDITION_OUTFIT)
        doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)

    local apos = getFlyingMarkedPos(cid)
    apos.stackpos = 0
        
            if getTileThingByPos(apos).itemid <= 2 then
                doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE)
                doCreateItem(460, 1, getFlyingMarkedPos(cid))
            end 

    doTeleportThing(cid, apos, false)  
 
    local posicao = getTownTemplePosition(getPlayerTown(cid))
    markFlyingPos(cid, posicao)
    
    elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf

        local item = getPlayerSlotItem(cid, 8):
        local poke = getItemAttribute(item.uid, "poke")
        doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v2.6
        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))

    elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride
        
        local item = getPlayerSlotItem(cid, 8):
        local poke = getItemAttribute(item.uid, "poke")
        
        
        if rides[poke] then
           doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))
           doRemoveCondition(cid, CONDITION_OUTFIT)
           doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)
        else
           setPlayerStorageValue(cid, 17001, -1)
           doRegainSpeed(cid)   --alterado v2.6
        end
    
        local posicao2 = getTownTemplePosition(getPlayerTown(cid))
        markFlyingPos(cid, posicao2)
        
    elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive
       if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then
            setPlayerStorageValue(cid, 13008, 0)
            doRegainSpeed(cid)              --alterado v2.6
            doRemoveCondition(cid, CONDITION_OUTFIT)
        return true
        end   
          
       if getPlayerSex(cid) == 1 then
          doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)
       else
          doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)
       end
       doChangeSpeed(cid, 800)

     elseif getPlayerStorageValue(cid, 5700) > 0 then   --bike
        doChangeSpeed(cid, getPlayerStorageValue(cid, 5700)) 
        if getPlayerSex(cid) == 1 then
           doSetCreatureOutfit(cid, {lookType = 1394}, -1)
        else
           doSetCreatureOutfit(cid, {lookType = 1393}, -1)
        end
     else
        doRegainSpeed(cid)  --alterado v2.6
     end
    
    if getPlayerStorageValue(cid, 22545) >= 1 then   --golden arena
       setPlayerStorageValue(cid, 22545, -1)              --alterado v2.4
       doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false) 
    end
    
    if useKpdoDlls then
        doUpdateMoves(cid)          --alterado v2.4 soh pra quem quiser... ;p
        doUpdatePokemonsBar(cid)
    end

    return true
end

Não entendo porque está dando essas linhas no final mas é esse o login.lua...

Link para o comentário
Compartilhar em outros sites

  • 0
Spoiler
local config = {    loginMessage = getConfigValue('loginMessage'),    useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))}--alterado v2.6 tabelas soh em lib/configuration.lua;function onLogin(cid)    doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 100)    doCreatureSetDropLoot(cid, false)    local accountManager = getPlayerAccountManager(cid)    if(accountManager == MANAGER_NONE) then        local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage        if(lastLogin > 0) then            doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)            str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "."        else            str = str        end        doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)    elseif(accountManager == MANAGER_NAMELOCK) then        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")    elseif(accountManager == MANAGER_ACCOUNT) then        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.")    else        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.")    end    if getCreatureName(cid) == "Account Manager" then        local outfit = {}        if accountManagerRandomPokemonOutfit then            outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])}        else            outfit = accountManagerOutfit        end            doSetCreatureOutfit(cid, outfit, -1)    return true    end    if(not isPlayerGhost(cid)) then        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)    end    local outfit = {}    if getPlayerVocation(cid) == 0 then        doPlayerSetMaxCapacity(cid, 7)        doPlayerSetVocation(cid, 1)        setCreatureMaxMana(cid, 6)        doPlayerAddSoul(cid, -getPlayerSoul(cid))        setPlayerStorageValue(cid, 19898, 0)            if getCreatureOutfit(cid).lookType == 128 then                outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}            elseif getCreatureOutfit(cid).lookType == 136 then                outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}            end        doCreatureChangeOutfit(cid, outfit)    end    -- registerCreatureEvent(cid, "Duel")    --alterado v2.6 duel system    registerCreatureEvent(cid, "ShowPokedex") --alterado v2.6    registerCreatureEvent(cid, "ClosePokedex") --alterado v2.6    registerCreatureEvent(cid, "WatchTv")    registerCreatureEvent(cid, "StopWatchingTv")    registerCreatureEvent(cid, "WalkTv")    registerCreatureEvent(cid, "RecordTv")    --registerCreatureEvent(cid, "Death")    registerCreatureEvent(cid, "PlayerLogout")    registerCreatureEvent(cid, "WildAttack")    registerCreatureEvent(cid, "Idle")    registerCreatureEvent(cid, "PokemonIdle")    registerCreatureEvent(cid, "EffectOnAdvance")    registerCreatureEvent(cid, "GeneralConfiguration")    registerCreatureEvent(cid, "ReportBug")    registerCreatureEvent(cid, "LookSystem")    registerCreatureEvent(cid, "T1")    registerCreatureEvent(cid, "T2")    registerCreatureEvent(cid, "task_count")    registerCreatureEvent(cid, "CofreLook")    if getPlayerStorageValue(cid, 99284) == 1 then        setPlayerStorageValue(cid, 99284, -1)    end    if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then       setPlayerStorageValue(cid, 6598754, -1)       setPlayerStorageValue(cid, 6598755, -1)    end        doChangeSpeed(cid, -(getCreatureSpeed(cid)))        --///////////////////////////////////////////////////////////////////////////--    local storages = {17000, 63215, 17001, 13008, 5700}    for s = 1, #storages do        if not tonumber(getPlayerStorageValue(cid, storages)) then           if s == 3 then              setPlayerStorageValue(cid, storages, 1)           elseif s == 4 then              setPlayerStorageValue(cid, storages, -1)           else                 if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then                 setPlayerStorageValue(cid, storages, 1)                 --alterado v2.6              else                 setPlayerStorageValue(cid, storages, -1)               end           end           doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright")        end    end    --/////////////////////////////////////////////////////////////////////////--           if getPlayerStorageValue(cid, 17000) >= 1 then -- fly                local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))        doRemoveCondition(cid, CONDITION_OUTFIT)        doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)    local apos = getFlyingMarkedPos(cid)    apos.stackpos = 0                    if getTileThingByPos(apos).itemid <= 2 then                doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE)                doCreateItem(460, 1, getFlyingMarkedPos(cid))            end     doTeleportThing(cid, apos, false)       local posicao = getTownTemplePosition(getPlayerTown(cid))    markFlyingPos(cid, posicao)        elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf        local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")        doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v2.6        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))    elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride                local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")                        if rides[poke] then           doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))           doRemoveCondition(cid, CONDITION_OUTFIT)           doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)        else           setPlayerStorageValue(cid, 17001, -1)           doRegainSpeed(cid)   --alterado v2.6        end            local posicao2 = getTownTemplePosition(getPlayerTown(cid))        markFlyingPos(cid, posicao2)            elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive       if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then            setPlayerStorageValue(cid, 13008, 0)            doRegainSpeed(cid)              --alterado v2.6            doRemoveCondition(cid, CONDITION_OUTFIT)        return true        end                    if getPlayerSex(cid) == 1 then          doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)       else          doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)       end       doChangeSpeed(cid, 800)     elseif getPlayerStorageValue(cid, 5700) > 0 then   --bike        doChangeSpeed(cid, getPlayerStorageValue(cid, 5700))         if getPlayerSex(cid) == 1 then           doSetCreatureOutfit(cid, {lookType = 1394}, -1)        else           doSetCreatureOutfit(cid, {lookType = 1393}, -1)        end     else        doRegainSpeed(cid)  --alterado v2.6     end        if getPlayerStorageValue(cid, 22545) >= 1 then   --golden arena       setPlayerStorageValue(cid, 22545, -1)              --alterado v2.4       doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)     end        if useKpdoDlls then        doUpdateMoves(cid)          --alterado v2.4 soh pra quem quiser... ;p        doUpdatePokemonsBar(cid)    end    return trueend

 

 

Link para o comentário
Compartilhar em outros sites

  • 0
20 horas atrás, Pokemon x Fire disse:

esta usando sqlite ou website?

 

altere a sua cap :

 

400 para 500

Onde altero isso?

20 horas atrás, Deadpool disse:
  Mostrar conteúdo oculto
local config = {    loginMessage = getConfigValue('loginMessage'),    useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))}--alterado v2.6 tabelas soh em lib/configuration.lua;function onLogin(cid)    doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 100)    doCreatureSetDropLoot(cid, false)    local accountManager = getPlayerAccountManager(cid)    if(accountManager == MANAGER_NONE) then        local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage        if(lastLogin > 0) then            doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)            str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "."        else            str = str        end        doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)    elseif(accountManager == MANAGER_NAMELOCK) then        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")    elseif(accountManager == MANAGER_ACCOUNT) then        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.")    else        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.")    end    if getCreatureName(cid) == "Account Manager" then        local outfit = {}        if accountManagerRandomPokemonOutfit then            outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])}        else            outfit = accountManagerOutfit        end            doSetCreatureOutfit(cid, outfit, -1)    return true    end    if(not isPlayerGhost(cid)) then        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)    end    local outfit = {}    if getPlayerVocation(cid) == 0 then        doPlayerSetMaxCapacity(cid, 7)        doPlayerSetVocation(cid, 1)        setCreatureMaxMana(cid, 6)        doPlayerAddSoul(cid, -getPlayerSoul(cid))        setPlayerStorageValue(cid, 19898, 0)            if getCreatureOutfit(cid).lookType == 128 then                outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}            elseif getCreatureOutfit(cid).lookType == 136 then                outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}            end        doCreatureChangeOutfit(cid, outfit)    end    -- registerCreatureEvent(cid, "Duel")    --alterado v2.6 duel system    registerCreatureEvent(cid, "ShowPokedex") --alterado v2.6    registerCreatureEvent(cid, "ClosePokedex") --alterado v2.6    registerCreatureEvent(cid, "WatchTv")    registerCreatureEvent(cid, "StopWatchingTv")    registerCreatureEvent(cid, "WalkTv")    registerCreatureEvent(cid, "RecordTv")    --registerCreatureEvent(cid, "Death")    registerCreatureEvent(cid, "PlayerLogout")    registerCreatureEvent(cid, "WildAttack")    registerCreatureEvent(cid, "Idle")    registerCreatureEvent(cid, "PokemonIdle")    registerCreatureEvent(cid, "EffectOnAdvance")    registerCreatureEvent(cid, "GeneralConfiguration")    registerCreatureEvent(cid, "ReportBug")    registerCreatureEvent(cid, "LookSystem")    registerCreatureEvent(cid, "T1")    registerCreatureEvent(cid, "T2")    registerCreatureEvent(cid, "task_count")    registerCreatureEvent(cid, "CofreLook")    if getPlayerStorageValue(cid, 99284) == 1 then        setPlayerStorageValue(cid, 99284, -1)    end    if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then       setPlayerStorageValue(cid, 6598754, -1)       setPlayerStorageValue(cid, 6598755, -1)    end        doChangeSpeed(cid, -(getCreatureSpeed(cid)))        --///////////////////////////////////////////////////////////////////////////--    local storages = {17000, 63215, 17001, 13008, 5700}    for s = 1, #storages do        if not tonumber(getPlayerStorageValue(cid, storages)) then           if s == 3 then              setPlayerStorageValue(cid, storages, 1)           elseif s == 4 then              setPlayerStorageValue(cid, storages, -1)           else                 if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then                 setPlayerStorageValue(cid, storages, 1)                 --alterado v2.6              else                 setPlayerStorageValue(cid, storages, -1)               end           end           doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright")        end    end    --/////////////////////////////////////////////////////////////////////////--           if getPlayerStorageValue(cid, 17000) >= 1 then -- fly                local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))        doRemoveCondition(cid, CONDITION_OUTFIT)        doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)    local apos = getFlyingMarkedPos(cid)    apos.stackpos = 0                    if getTileThingByPos(apos).itemid <= 2 then                doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE)                doCreateItem(460, 1, getFlyingMarkedPos(cid))            end     doTeleportThing(cid, apos, false)       local posicao = getTownTemplePosition(getPlayerTown(cid))    markFlyingPos(cid, posicao)        elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf        local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")        doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v2.6        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))    elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride                local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")                        if rides[poke] then           doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))           doRemoveCondition(cid, CONDITION_OUTFIT)           doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)        else           setPlayerStorageValue(cid, 17001, -1)           doRegainSpeed(cid)   --alterado v2.6        end            local posicao2 = getTownTemplePosition(getPlayerTown(cid))        markFlyingPos(cid, posicao2)            elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive       if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then            setPlayerStorageValue(cid, 13008, 0)            doRegainSpeed(cid)              --alterado v2.6            doRemoveCondition(cid, CONDITION_OUTFIT)        return true        end                    if getPlayerSex(cid) == 1 then          doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)       else          doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)       end       doChangeSpeed(cid, 800)     elseif getPlayerStorageValue(cid, 5700) > 0 then   --bike        doChangeSpeed(cid, getPlayerStorageValue(cid, 5700))         if getPlayerSex(cid) == 1 then           doSetCreatureOutfit(cid, {lookType = 1394}, -1)        else           doSetCreatureOutfit(cid, {lookType = 1393}, -1)        end     else        doRegainSpeed(cid)  --alterado v2.6     end        if getPlayerStorageValue(cid, 22545) >= 1 then   --golden arena       setPlayerStorageValue(cid, 22545, -1)              --alterado v2.4       doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)     end        if useKpdoDlls then        doUpdateMoves(cid)          --alterado v2.4 soh pra quem quiser... ;p        doUpdatePokemonsBar(cid)    end    return trueend

 

 

Quando fui testar com meu amigo o 6 poke tava indo pro cp e nao ia nada para o depot </3

Tá podendo carregar apenas 5 pokes :(

Link para o comentário
Compartilhar em outros sites

  • 0

 


local config = {

loginMessage = getConfigValue('loginMessage'),

useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))

}

--alterado v2.6 tabelas soh em lib/configuration.lua;

function onLogin(cid)

doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 100)

doCreatureSetDropLoot(cid, false)

local accountManager = getPlayerAccountManager(cid)

if(accountManager == MANAGER_NONE) then

local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage

if(lastLogin > 0) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)

str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "."

else

str = str

end

doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)

elseif(accountManager == MANAGER_NAMELOCK) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")

elseif(accountManager == MANAGER_ACCOUNT) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.")

else

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.")

end

if getCreatureName(cid) == "Account Manager" then

local outfit = {}

if accountManagerRandomPokemonOutfit then

outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])}

else

outfit = accountManagerOutfit

end

 

doSetCreatureOutfit(cid, outfit, -1)

return true

end

if(not isPlayerGhost(cid)) then

doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)

end

local outfit = {}

if getPlayerVocation(cid) == 0 then

doPlayerSetMaxCapacity(cid, 7)

doPlayerSetVocation(cid, 1)

setCreatureMaxMana(cid, 7)

doPlayerAddSoul(cid, -getPlayerSoul(cid))

setPlayerStorageValue(cid, 19898, 0)

if getCreatureOutfit(cid).lookType == 128 then

outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}

elseif getCreatureOutfit(cid).lookType == 136 then

outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}

end

doCreatureChangeOutfit(cid, outfit)

end

-- registerCreatureEvent(cid, "Duel") --alterado v2.6 duel system

registerCreatureEvent(cid, "ShowPokedex") --alterado v2.6

registerCreatureEvent(cid, "ClosePokedex") --alterado v2.6

registerCreatureEvent(cid, "WatchTv")

registerCreatureEvent(cid, "StopWatchingTv")

registerCreatureEvent(cid, "WalkTv")

registerCreatureEvent(cid, "RecordTv")

--registerCreatureEvent(cid, "Death")

registerCreatureEvent(cid, "PlayerLogout")

registerCreatureEvent(cid, "WildAttack")

registerCreatureEvent(cid, "Idle")

registerCreatureEvent(cid, "PokemonIdle")

registerCreatureEvent(cid, "EffectOnAdvance")

registerCreatureEvent(cid, "GeneralConfiguration")

registerCreatureEvent(cid, "ReportBug")

registerCreatureEvent(cid, "LookSystem")

registerCreatureEvent(cid, "T1")

registerCreatureEvent(cid, "T2")

registerCreatureEvent(cid, "task_count")

registerCreatureEvent(cid, "CofreLook")

if getPlayerStorageValue(cid, 99284) == 1 then

setPlayerStorageValue(cid, 99284, -1)

end

if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then

setPlayerStorageValue(cid, 6598754, -1)

setPlayerStorageValue(cid, 6598755, -1)

end

 

doChangeSpeed(cid, -(getCreatureSpeed(cid)))

 

--///////////////////////////////////////////////////////////////////////////--

local storages = {17000, 63215, 17001, 13008, 5700}

for s = 1, #storages do

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

if s == 3 then

setPlayerStorageValue(cid, storages, 1)

elseif s == 4 then

setPlayerStorageValue(cid, storages, -1)

else

if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then

setPlayerStorageValue(cid, storages, 1) --alterado v2.6

else

setPlayerStorageValue(cid, storages, -1)

end

end

doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright")

end

end

--/////////////////////////////////////////////////////////////////////////--

 

if getPlayerStorageValue(cid, 17000) >= 1 then -- fly

 

local item = getPlayerSlotItem(cid, 8)

local poke = getItemAttribute(item.uid, "poke")

doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))

doRemoveCondition(cid, CONDITION_OUTFIT)

doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)

local apos = getFlyingMarkedPos(cid)

apos.stackpos = 0

 

if getTileThingByPos(apos).itemid <= 2 then

doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE)

doCreateItem(460, 1, getFlyingMarkedPos(cid))

end

doTeleportThing(cid, apos, false)

 

local posicao = getTownTemplePosition(getPlayerTown(cid))

markFlyingPos(cid, posicao)

 

elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf

local item = getPlayerSlotItem(cid, 8)

local poke = getItemAttribute(item.uid, "poke")

doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v2.6

doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))

elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride

 

local item = getPlayerSlotItem(cid, 8)

local poke = getItemAttribute(item.uid, "poke")

 

 

if rides[poke] then

doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))

doRemoveCondition(cid, CONDITION_OUTFIT)

doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)

else

setPlayerStorageValue(cid, 17001, -1)

doRegainSpeed(cid) --alterado v2.6

end

 

local posicao2 = getTownTemplePosition(getPlayerTown(cid))

markFlyingPos(cid, posicao2)

 

elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive

if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then

setPlayerStorageValue(cid, 13008, 0)

doRegainSpeed(cid) --alterado v2.6

doRemoveCondition(cid, CONDITION_OUTFIT)

return true

end

 

if getPlayerSex(cid) == 1 then

doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)

else

doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)

end

doChangeSpeed(cid, 800)

elseif getPlayerStorageValue(cid, 5700) > 0 then --bike

doChangeSpeed(cid, getPlayerStorageValue(cid, 5700))

if getPlayerSex(cid) == 1 then

doSetCreatureOutfit(cid, {lookType = 1394}, -1)

else

doSetCreatureOutfit(cid, {lookType = 1393}, -1)

end

else

doRegainSpeed(cid) --alterado v2.6

end

 

if getPlayerStorageValue(cid, 22545) >= 1 then --golden arena

setPlayerStorageValue(cid, 22545, -1) --alterado v2.4

doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)

end

 

if useKpdoDlls then

doUpdateMoves(cid) --alterado v2.4 soh pra quem quiser... ;p

doUpdatePokemonsBar(cid)

end

return true

end

 

faz o mesmo processo

 

 

Link para o comentário
Compartilhar em outros sites

  • 0
5 horas atrás, Deadpool disse:
local config = {    loginMessage = getConfigValue('loginMessage'),    useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))}--alterado v2.6 tabelas soh em lib/configuration.lua;function onLogin(cid)    doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 100)    doCreatureSetDropLoot(cid, false)    local accountManager = getPlayerAccountManager(cid)    if(accountManager == MANAGER_NONE) then        local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage        if(lastLogin > 0) then            doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)            str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "."        else            str = str        end        doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)    elseif(accountManager == MANAGER_NAMELOCK) then        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")    elseif(accountManager == MANAGER_ACCOUNT) then        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.")    else        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.")    end    if getCreatureName(cid) == "Account Manager" then        local outfit = {}        if accountManagerRandomPokemonOutfit then            outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])}        else            outfit = accountManagerOutfit        end            doSetCreatureOutfit(cid, outfit, -1)    return true    end    if(not isPlayerGhost(cid)) then        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)    end    local outfit = {}    if getPlayerVocation(cid) == 0 then        doPlayerSetMaxCapacity(cid, 7)        doPlayerSetVocation(cid, 1)        setCreatureMaxMana(cid, 7)        doPlayerAddSoul(cid, -getPlayerSoul(cid))        setPlayerStorageValue(cid, 19898, 0)            if getCreatureOutfit(cid).lookType == 128 then                outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}            elseif getCreatureOutfit(cid).lookType == 136 then                outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}            end        doCreatureChangeOutfit(cid, outfit)    end    -- registerCreatureEvent(cid, "Duel")    --alterado v2.6 duel system    registerCreatureEvent(cid, "ShowPokedex") --alterado v2.6    registerCreatureEvent(cid, "ClosePokedex") --alterado v2.6    registerCreatureEvent(cid, "WatchTv")    registerCreatureEvent(cid, "StopWatchingTv")    registerCreatureEvent(cid, "WalkTv")    registerCreatureEvent(cid, "RecordTv")    --registerCreatureEvent(cid, "Death")    registerCreatureEvent(cid, "PlayerLogout")    registerCreatureEvent(cid, "WildAttack")    registerCreatureEvent(cid, "Idle")    registerCreatureEvent(cid, "PokemonIdle")    registerCreatureEvent(cid, "EffectOnAdvance")    registerCreatureEvent(cid, "GeneralConfiguration")    registerCreatureEvent(cid, "ReportBug")    registerCreatureEvent(cid, "LookSystem")    registerCreatureEvent(cid, "T1")    registerCreatureEvent(cid, "T2")    registerCreatureEvent(cid, "task_count")    registerCreatureEvent(cid, "CofreLook")    if getPlayerStorageValue(cid, 99284) == 1 then        setPlayerStorageValue(cid, 99284, -1)    end    if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then       setPlayerStorageValue(cid, 6598754, -1)       setPlayerStorageValue(cid, 6598755, -1)    end        doChangeSpeed(cid, -(getCreatureSpeed(cid)))        --///////////////////////////////////////////////////////////////////////////--    local storages = {17000, 63215, 17001, 13008, 5700}    for s = 1, #storages do        if not tonumber(getPlayerStorageValue(cid, storages)) then           if s == 3 then              setPlayerStorageValue(cid, storages, 1)           elseif s == 4 then              setPlayerStorageValue(cid, storages, -1)           else                 if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then                 setPlayerStorageValue(cid, storages, 1)                 --alterado v2.6              else                 setPlayerStorageValue(cid, storages, -1)               end           end           doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright")        end    end    --/////////////////////////////////////////////////////////////////////////--           if getPlayerStorageValue(cid, 17000) >= 1 then -- fly                local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))        doRemoveCondition(cid, CONDITION_OUTFIT)        doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)    local apos = getFlyingMarkedPos(cid)    apos.stackpos = 0                    if getTileThingByPos(apos).itemid <= 2 then                doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE)                doCreateItem(460, 1, getFlyingMarkedPos(cid))            end     doTeleportThing(cid, apos, false)       local posicao = getTownTemplePosition(getPlayerTown(cid))    markFlyingPos(cid, posicao)        elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf        local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")        doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v2.6        doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))    elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride                local item = getPlayerSlotItem(cid, 8)        local poke = getItemAttribute(item.uid, "poke")                        if rides[poke] then           doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))           doRemoveCondition(cid, CONDITION_OUTFIT)           doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)        else           setPlayerStorageValue(cid, 17001, -1)           doRegainSpeed(cid)   --alterado v2.6        end            local posicao2 = getTownTemplePosition(getPlayerTown(cid))        markFlyingPos(cid, posicao2)            elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive       if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then            setPlayerStorageValue(cid, 13008, 0)            doRegainSpeed(cid)              --alterado v2.6            doRemoveCondition(cid, CONDITION_OUTFIT)        return true        end                    if getPlayerSex(cid) == 1 then          doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)       else          doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)       end       doChangeSpeed(cid, 800)     elseif getPlayerStorageValue(cid, 5700) > 0 then   --bike        doChangeSpeed(cid, getPlayerStorageValue(cid, 5700))         if getPlayerSex(cid) == 1 then           doSetCreatureOutfit(cid, {lookType = 1394}, -1)        else           doSetCreatureOutfit(cid, {lookType = 1393}, -1)        end     else        doRegainSpeed(cid)  --alterado v2.6     end        if getPlayerStorageValue(cid, 22545) >= 1 then   --golden arena       setPlayerStorageValue(cid, 22545, -1)              --alterado v2.4       doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)     end        if useKpdoDlls then        doUpdateMoves(cid)          --alterado v2.4 soh pra quem quiser... ;p        doUpdatePokemonsBar(cid)    end    return trueend

faz o mesmo processo

Continuou do mesmo jeito :/ continua aceitando no maximo 5 pokemon e os que capturo nao vao p depot

 

Link para o comentário
Compartilhar em outros sites

  • 0
Spoiler

------------------------------------------------------------------------------------------------------------------
failmsgs = {
"Sorry, you didn't catch that pokemon.",
"Sorry, your pokeball broke.",
"Sorry, the pokemon escaped.",
}

epicmsgs = {
"Broke!",
}
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
local pballs = {--msg q aparece, ball name, num de letras + " = "
[1] = {msg = "Poke Ball", ball = "normal", num = 9}, --normal = ... 9 letras
[2] = {msg = "Great Ball", ball = "great", num = 8}, --great = ... 8 letras
[3] = {msg = "Super Ball", ball = "super", num = 8},
[4] = {msg = "Ultra Ball", ball = "ultra", num = 8}, --edited brokes count system
[5] = {msg = "Saffari Ball", ball = "saffari", num = 10},
[6] = {msg = "GS Ball", ball = "gs", num = 5},
[7] = {msg = "Master Ball", ball = "master", num = 9},
}


------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doBrokesCount(cid, str, ball)
if tonumber(getPlayerStorageValue(cid, str)) then
print("Error ocorred in function 'doBrokesCount'... storage "..str.." is a number value")
print("Storage will be changed to the correct table...")
doPlayerSendTextMessage(cid, 27, "A error ocorred... Warning sent to Game Masters!")
setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, love = 0, master =0")
return true
end
local s = string.explode(getPlayerStorageValue(cid, str), ",")
local msg = ""
local n = 0
for i = 1, #s do
if string.find(tostring(s), ball) then
local d, e = s:find(""..pballs.ball.." = (.-)")
local st2 = string.sub(s, d + pballs.num, e +5)
local num = tonumber(st2)+1

if num == 0 and ball == pballs.ball then
num = 1
end
if i == #s then
msg = msg..""..ball.." = "..num
n = n +1
else
msg = msg..""..ball.." = "..num..", "
n = n +1
end
else
if i == #s then
msg = msg..s
else
msg = msg..s..", "
end
end
end
setPlayerStorageValue(cid, str, msg)
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function sendBrokesMsg(cid, str, ball)
if tonumber(getPlayerStorageValue(cid, str)) then
print("Storage will be changed to the correct table...")
doPlayerSendTextMessage(cid, 27, "A error ocorred... Warning sent to Game Masters!")
setPlayerStorageValue(cid, str, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, gs = 0, master = 0")
return true
end
local t = string.explode(getPlayerStorageValue(cid, str), ",")
local msg = "Used "
local n = 0

for a = 1, #t do
local d, e = t[a]:find(""..pballs[a].ball.." = (.-)")
local st2 = string.sub(t[a], d + pballs[a].num, e +5)
if tonumber(st2) == 0 and pballs[a].ball == ball then
st2 = 1
end
if tonumber(st2) ~= 0 then
if n ~= 0 and a ~= #t then
msg = msg..", "
end
if tonumber(st2) ~= 1 then
msg = msg..st2.." "..pballs[a].msg.."'s"
n = n +1
else
msg = msg..st2.." "..pballs[a].msg
n = n +1
end
end
end
msg = msg.." on it."
doPlayerSendTextMessage(cid, 27, msg)
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
function doSendPokeBall(cid, catchinfo, showmsg, fullmsg, typeee)

    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

    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") * 1 --0.3

    local totalChance = math.ceil(basechance * (1.2 + levelChance))
    local thisChance = math.random(1, totalChance)  -- 0
    local myChance = math.random(1, totalChance)        --- 0
    local leveltable = getPokemonExperienceTable(name)
    local chance = (1 * rate + 1) / totalChance
    
        chance = doMathDecimal(chance * 100)

    
    if rate >= totalChance then
        local status = {}
              status.clevel = tonumber(getItemAttribute(corpse, "level"))
        local clevel = status.clevel
          status.cexp = leveltable[clevel]
        local cexp = status.cexp
              status.cnext = leveltable[clevel+1] - cexp
              status.coffense = getItemAttribute(corpse, "offense")
              status.cdefense = getItemAttribute(corpse, "defense")
              status.cspeed = getItemAttribute(corpse, "speed")
              status.cvitality = getItemAttribute(corpse, "vitality")
              status.cspatk = getItemAttribute(corpse, "spattack")
              status.gender = getItemAttribute(corpse, "gender")
              status.happy = 160

        doRemoveItem(corpse, 1)
        doSendMagicEffect(topos, catch)
        addEvent(doCapturePokemon, 4000, 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.clevel = tonumber(getItemAttribute(corpse, "level"))
    local clevel = status.clevel
      status.cexp = leveltable[clevel]
    local cexp = status.cexp
          status.cnext = leveltable[clevel+1] - cexp
          status.coffense = getItemAttribute(corpse, "offense")
          status.cdefense = getItemAttribute(corpse, "defense")
          status.cspeed = getItemAttribute(corpse, "speed")
          status.cvitality = getItemAttribute(corpse, "vitality")
          status.cspatk = getItemAttribute(corpse, "spattack")
          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
    
    --------------------------- GOD MODE SYSTEM ---------------------------
    if (getPlayerStorageValue(cid,102001) >= 1) then
        doCatch = true
    end
    -----------------------------------------------------------------------
    
    if doCatch then
        doSendMagicEffect(topos, catch)
        addEvent(doCapturePokemon, 4000, cid, name, newid, status, typeee)
        
    else
        addEvent(doNotCapturePokemon, 4000, 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 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 = "It contains a "..poke.."."

local leveltable = getPokemonExperienceTable(poke)

local clevel = status.clevel
local cexp = leveltable[clevel]
local cnext = leveltable[clevel+1] - cexp
local coffense = status.coffense
local cdefense = status.cdefense
local cspeed = status.cspeed
local cvitality = status.cvitality
local cspatk = status.cspatk
local gender = status.gender
local happy = 250
local pname = getCreatureName(cid)


local item = doCreateItemEx(ballid)
    local storage = newpokedex[poke].stoCatch
    
 

         
        
        doItemSetAttribute(item, "poke", poke)
        doItemSetAttribute(item, "hp", 1)        
        doItemSetAttribute(item, "offense", coffense)
        doItemSetAttribute(item, "level", clevel)
        doItemSetAttribute(item, "exp", cexp)
        doItemSetAttribute(item, "nextlevelexp", cnext)
        doItemSetAttribute(item, "defense", cdefense)
        doItemSetAttribute(item, "speed", cspeed)
        doItemSetAttribute(item, "vitality", cvitality)
        doItemSetAttribute(item, "specialattack", cspatk)
        doItemSetAttribute(item, "happy", happy)
        doItemSetAttribute(item, "gender", gender)    
        doItemSetAttribute(item, "fakedesc", description)
        doItemSetAttribute(item, "description", description)
        doItemSetAttribute(item, "addon", 0)

        


    


--for _, oid in ipairs(getPlayersOnline()) do
-- if (getPlayerFreeCap(cid) <= 1 and not isInArray({3, 2}, getPlayerGroupId(cid))) or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then         
if getPlayerFreeCap(cid) <= 1  or not hasSpaceInContainer(getPlayerSlotItem(cid, 3).uid) then         
doPlayerSendMailByName(getCreatureName(cid), item, 1) 
doPlayerAddSkillTry(cid,2,10)----1
doPlayerSendTextMessage(cid, 27, "[Parabens] Voce Capturou Um Pokemon: "..poke.." ["..clevel.."]. E a Ball Foi (Bloqueada) Enviada Pelo Cp! .")
--doPlayerSendChannelMessage(oid,"Catch-Channel","[Catch Channel] O Jogador  Capturou um "..poke.." ["..clevel.."]!.", TALKTYPE_CHANNEL_Y, 5)
--doBroadcastMessage("[Catch Cast] O Jogador ("..getCreatureName(cid).. ") Capturou um Pokemon: "..poke.." ["..clevel.."]!",18)

setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, gs = 0, master = 0")
else
   
            
   
 
doAddContainerItemEx(getPlayerSlotItem(cid, 3).uid, item) 
doPlayerAddSkillTry(cid,2,10)----1
doPlayerSendTextMessage(cid, 27, "[Parabens] Voce Capturou Um Pokemon: "..poke.." ["..clevel.."] - (Para Visualizar Todos os Catch do Server Abre o Canal Catch Channel)!.")
--doBroadcastMessage("[Catch Cast] O Jogador ("..getCreatureName(cid).. ") Capturou um Pokemon: "..poke.." ["..clevel.."]!",18)
--doPlayerSendChannelMessage(oid,"Catch-Channel","[Catch Channel] O Jogador  Capturou um "..poke.." ["..clevel.."]!.", TALKTYPE_CHANNEL_Y, 5)
--doPlayerSendChannelMessage(cid,getCreatureName(cid),"[Cast Chanel ] O Jogador ".. getCreatureName(cid) .." Capturou um "..poke.." ["..clevel.."]!.", TALKTYPE_CHANNEL_W,CHANNEL_HELP)
setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0, gs = 0, master = 0")

    end
 
      for _, oid in ipairs(getPlayersOnline()) do
      doPlayerSendChannelMessage(oid,getCreatureName(cid),"[Catch Channel] O Jogador [".. getCreatureName(cid) .."] Capturou um "..poke.." ["..clevel.."]!.", TALKTYPE_CHANNEL_W, 5)
       end

    if #getCreatureSummons(cid) >= 1 then
        doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 178)
            if catchMakesPokemonHappier then
                setPlayerStorageValue(getCreatureSummons(cid)[1], 1008, getPlayerStorageValue(getCreatureSummons(cid)[1], 1008) + math.floor(clevel / 2))
            end
    else
        doSendMagicEffect(getThingPos(cid), 178)
    end

doIncreaseStatistics(poke, true, true)

    if getPlayerStorageValue(cid, 50004) >= 1 then
        doItemSetAttribute(item, "firstpoke", pname)
        setPlayerStorageValue(cid,50004,-1)
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You got your first pokemon!!.")
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Don\'t forget to use your pokedex on every undiscovered pokemon!")
    end
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

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

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)
CW_Count(cid, poke, 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 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, 13258), show)
end
------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------

Catch System /\

Quando eu logo com o player aparece uma ball no slot do pokémon, sem descrição e sem nada. Ai quando coloco um poke nela ela some, sera que pode ser isso?

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...