ALO, COM QUEM EU FALO?

 

     Galera fui abrir meu Server de POkeTibia, porém apareçeu erros no Console quando fui logar-se e assim não consigui entrar no server

     Erro apresentado no Console:

 

Estarei disponibilisando os arquivos citados no erro.

 

Arquivo: Cooldown Bar

 

function getPlayerPokeballs(cid)

local ret = {}

local container = 0

 

if isCreature(cid) then

container = getPlayerSlotItem(cid, 3).uid

local myball = getPlayerSlotItem(cid, 8)

if myball.uid > 0 then

table.insert(ret, myball)

end

else

container = cid

end

 

if isContainer(container) and getContainerSize(container) > 0 then

for slot = 0, (getContainerSize(container) - 1) do

local item = getContainerItem(container, slot)

if isContainer(item.uid) then

local itemsbag = getPlayerPokeballs(item.uid)

if itemsbag and #itemsbag > 0 then

for i = 0, #itemsbag do

table.insert(ret, itemsbag)

end

end

elseif isPokeball(item.itemid) then

table.insert(ret, item)

end

end

end

return ret

end

 

function doUpdatePokemonsBar(cid)

local ret = "p#,"

local balls = getPlayerPokeballs(cid)

local times = 0

for a = 1, #balls do

local item = balls[a]

local hp = math.ceil(getItemAttribute(item.uid, "hp") * 100)

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

local port = getPlayerSlotItem(cid, CONST_SLOT_LEGS) 

if fotos[name] >= 11137 and fotos[name] <= 11387 then

   times = times + 1

   local foto = fotos[name] - 911

   doItemSetAttribute(item.uid, "ballorder", times)

   ret = ret..""..foto..","..name..""..times..","..hp..","

elseif fotos[name] >= 12577 then                                           --ainda ta com problema com os 2 novos portraits... 

   times = times + 1                                                       --depois tento da um jeito... ;x coisa tensaaaaaaa

   local foto = 11916                                                      --alterado v2.4

   doItemSetAttribute(item.uid, "ballorder", times)

   ret = ret..""..foto..","..name..""..times..","..hp..","

else

   times = times + 1

   local foto = fotos[name] - 928

   doItemSetAttribute(item.uid, "ballorder", times)

   ret = ret..""..foto..","..name..""..times..","..hp..","

end

end

doPlayerSendCancel(cid, ret)

end

 

function getNewMoveTable(table, n)

if n == 1 and table.move1 then

return table.move1

elseif n == 2 and table.move2 then

return table.move2

elseif n == 3 and table.move3 then

return table.move3

elseif n == 4 and table.move4 then

return table.move4

elseif n == 5 and table.move5 then

return table.move5

elseif n == 6 and table.move6 then

return table.move6

elseif n == 7 and table.move7 then

return table.move7

elseif n == 8 and table.move8 then

return table.move8

elseif n == 9 and table.move9 then

return table.move9

elseif n == 10 and table.move10 then

return table.move10

elseif n == 11 and table.move11 then

return table.move11

elseif n == 12 and table.move12 then

return table.move12

else

return false

end

end

 

 

function doUpdateMoves(cid)

local summon = getCreatureSummons(cid)[1]

local ret = "12&,"

if not summon then

   for a = 1, 12 do

       ret = ret.."n/n,"

   end

   doPlayerSendCancel(cid, ret)

   addEvent(doUpdateCooldowns, 100, cid)

   return true

end

local ret = "12&,"

if getCreatureName(summon) == "Ditto" and pokes[getPlayerStorageValue(summon, 1010)] and getPlayerStorageValue(summon, 1010) ~= "Ditto" then

   moves = movestable[getPlayerStorageValue(summon, 1010)]

else                                                       --alterado v2.6

   moves = movestable[getCreatureName(summon)]

end

for a = 1, 12 do

    local b = getNewMoveTable(moves, a)

    if b then

       ret = ret..""..b.name..","

    else

       ret = ret.."n/n,"

    end

end

doPlayerSendCancel(cid, ret)

addEvent(doUpdateCooldowns, 100, cid)

end

 

function doUpdateCooldowns(cid)

local a = getPlayerSlotItem(cid, 8)

local ret = "12|,"

if a.uid <= 0 or #getCreatureSummons(cid) <= 0 then

   for cds = 1, 12 do

       ret = useOTClient and ret.."-1|0," or ret.."-1,"  --alterado v2.7

   end

   doPlayerSendCancel(cid, ret)

return true

end

for cds = 1, 12 do                                                         --alterado v2.7 \/\/

    ----

    local summon = getCreatureSummons(cid)[1]

    if summon and getPlayerStorageValue(summon, 212123) >= 1 then

       cdzin = "cm_move"..cds

    else                       --alterado v1.5

       cdzin = "move"..cds

    end

    ----

    if getCreatureName(summon) == "Ditto" and pokes[getPlayerStorageValue(summon, 1010)] and getPlayerStorageValue(summon, 1010) ~= "Ditto" then

       moves = movestable[getPlayerStorageValue(summon, 1010)]

    else                                                       

       moves = movestable[getCreatureName(summon)]

    end

    local b = getNewMoveTable(moves, cds)

    ----

    if getCD(a.uid, cdzin) > 0 then                                                       --alterado v2.8

       ret = useOTClient and ret..""..(getCD(a.uid, cdzin)).."|"..b.level.."|".. getLevel(summon).."," or ret..""..(getCD(a.uid, cdzin) -1).."," 

    else

       ret = (useOTClient and b) and ret.."0|"..b.level.."|".. getLevel(summon).."," or ret.."0,"       --alterado v2.8

    end

end

doPlayerSendCancel(cid, ret)                                             -- alterado v2.7 /\/\

end

 

function getBallsAttributes(item)

local t = {"boffense", "bdefense", "bagility", "bsattack", "offense", "defense", "speed", "level", "specialattack", "poke", "gender", "vitality", "nick", 

"boost", "happy", "hunger", "hp", "description", "exp", "nextlevelexp", "transBegin", "transLeft", "transTurn", "transOutfit", "transName", "trans",

"light", "blink", "move1", "move2", "move3", "move4", "move5", "move6", "move7", "move8", "move9", "move10", "move11", "move12", "ballorder", 

"hands", "aura", "burn", "burndmg", "poison", "poisondmg", "confuse", "sleep", "miss", "missSpell", "missEff", "fear", "fearSkill", "silence", 

"silenceEff", "stun", "stunEff", "stunSpell", "paralyze", "paralyzeEff", "slow", "slowEff", "leech", "leechdmg", "Buff1", "Buff2", "Buff3", "Buff1skill",

"Buff2skill", "Buff3skill", "control", "unique", "task", "lock"} --alterado v2.8

local ret = {}

for a = 1, #t do

if getItemAttribute(item, t[a]) == "hands" then

return

end

ret[t[a]] = getItemAttribute(item, t[a]) or false

end

return ret

end

 

function doChangeBalls(cid, item1, item2)

if not isCreature(cid) then return true end

if item1.uid == item2.uid then

if #getCreatureSummons(cid) <= 0 then

doGoPokemon(cid, getPlayerSlotItem(cid, 8))

else

doReturnPokemon(cid, getCreatureSummons(cid)[1], getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect)

end

return true

end

 

if item1.uid > 0 and item2.uid > 0 then

local io = getBallsAttributes(item1.uid)

local it = getBallsAttributes(item2.uid)

for a, b in pairs (io) do

if b then

doItemSetAttribute(item2.uid, a, b)

else

doItemEraseAttribute(item2.uid, a)

end

end

for a, b in pairs (it) do

if b then

doItemSetAttribute(item1.uid, a, b)

else

doItemEraseAttribute(item1.uid, a)

end

end

local id = item2.itemid

doTransformItem(item2.uid, item1.itemid)

doTransformItem(item1.uid, id)

doGoPokemon(cid, getPlayerSlotItem(cid, 8))

else

local id = item2.itemid

local b = getBallsAttributes(item2.uid)

local a = doPlayerAddItem(cid, 2643, false)

for c, d in pairs (b) do

if d then

doItemSetAttribute(a, c, d)

else

doItemEraseAttribute(a, c)

end

end

doRemoveItem(item2.uid, 1)

doTransformItem(a, id)

doGoPokemon(cid, getPlayerSlotItem(cid, 8))

end

end

 

Arquivo: Login

 

local config = {

loginMessage = getConfigValue('loginMessage'),

useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))

}

 

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

 

function onLogin(cid)

 

if getPlayerLevel(cid) >= 1 and getPlayerLevel(cid) <= 10 then   --alterado v2.8

       doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 0)

    else     

       doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, (getPlayerLevel(cid) >= 200 and 100 or math.floor(getPlayerLevel(cid)/2)) )

end

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

 

                sendMsgToPlayer(cid, 20, "Bem-Vindo ao Server Pokemon by Gabrieltxu do tibiaking Bom Jogo a Todos! Bugs reportem No meu Topico")  -- alterado msg quando  o player entrar ao jogo

 

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, "dropStone")  --alterado v2.7

    --alterado v2.6.1

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

 

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) 

    if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then   

       sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")])                     --alterado v2.8

    end  

 

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

if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then   

           sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")])                     --alterado v2.8

        end 

 

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)

  if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then   

              sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")])                     --alterado v2.8

           end 

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, -getCreatureSpeed(cid))

        doChangeSpeed(cid, getPlayerStorageValue(cid, 5700))  --alterado v2.8

        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)

       setPlayerRecordWaves(cid)     --alterado v2.7 

    end

    

if useKpdoDlls then

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

doUpdatePokemonsBar(cid)

end

 

return true

end

 

POR FAVOR, ME AJUDEM PORQUE SEMPRE TENTO AJUDAR A TODOS

DAREI REP +

Obrigado

Editado Julho 10, 2014 10 anos por TsplayerT (veja o histórico de edições)

de vez em quando acontece esse bug, necessario voce criar outra conta para ver se der bug me avisa

 

 

 

qual servidor tu baixo ?

Editado Julho 10, 2014 10 anos por Valakinhas (veja o histórico de edições)

Eu msm to fazendo uma base PDA, utilizei arquivos de varios PDA'S inclusive de Tibia

de vez em quando acontece esse bug, necessario voce criar outra conta para ver se der bug me avisa

 

 

 

qual servidor tu baixo ?

OBRIGDO, RESOLVEU O PROBLEMA SÓ CRIAR NOVA CONTA E NOVO CHARACTER

 

REP+

humm eu aconselharia você usar a base do slicer 1.9.1 ´90% das bases de pokémon que contém aqui neste fórum é do slicer, pois ele contém menos bugs e mais espaços no cliente :PPP aah e nem sempre é bom pegar arquivos de tíbia e botar no sv de Poketibia

humm eu aconselharia você usar a base do slicer 1.9.1 ´90% das bases de pokémon que contém aqui neste fórum é do slicer, pois ele contém menos bugs e mais espaços no cliente :PPP aah e nem sempre é bom pegar arquivos de tíbia e botar no sv de Poketibia

Obrg, por me ajudar

 

POR FAVOR ME MANDE LINKS DOS MELHORES SERVER DELES

SE POSSIVEL ME ENVIE PDA COM LEVEL SYSTEM E/OU COM GENERO SYSTEM!