Eai galera, blz?
 
Bom, vim trazer pra vcs a versão 1.0 do mod de pokedex que eu desenvolvi mês passado visando aprendizado no mundo de OTC, com o objetivo também de mostrar que o otclient é flexível suficiente para se fazer muitas coisas sem a necessidade das sources tanto do servidor quanto do client...
 
Para aqueles que não conhecem, vejam o Show Off desse trabalho. 
Eu fiz essa versão com o objetivo de não fazer alterações no servidor... Ou seja, tem apenas edições no OTC.
 
 
Atualizações:
 
1. Adicionado um pack com 276 imagens de pokemons (16,1MB);
2. Pokemons shiny tem a exibição da imagem de pokemons normais (para alterar, basta remover
a linha 75 do arquivo game_pokedex.lua, na pasta modules/game_pokedex de seu client);
3. Pokedex fecha ao se deslogar do char com ela aberta [créditos a @Soulviling pela ideia];
 
 
Bom, sem mais delongas;
 
 
Instalação fácil:
 
Passo 1. Faça o download do arquivo RAR (download no final do tópico);
Passo 2. Copie a pasta modules pro seu client;
Passo 3. "Deseja substituir?" [X]Sim  [  ]Não
Passo 4. Só vai até o passo 3;
 
Bom, segue uma imagem ATUALIZADA

 
Download e Scan

Fala galera, beleza ? 
 
 
Esse é meu primeiro tópico no fórum e venho trazer a vocês a versão 1.0 do mod de pokedex desenvolvido pelo david0703 no tópico : http://www.tibiaking.com/forum/topic/56524-mod-pokedex-window-para-base-pda-v10/
Eu adicionei novas imagens de pokémons que estavam faltando e fiz um simples recolor.
 
 
Atualizações : 
 
- Adicionada Imagens da 1,2,3 geração completas e junto um background editável para novas imagens;
- Lembrando que pokémons shinys tem a mesma imagem que as do pokémons normais ( Para alterar, basta remover a linha 75 do arquivo game_pokedex.lua, na pasta modules/game_pokedex de seu client ) dito no tópico do david0703;
- Novo recolor ( cor ) da pokedex;
 
 
Como instalar :
 
1 - Fazer o Download do arquivo .rar no final do tópico;
2 - Copie a pasta modules pro seu client;
3 - Substitua os arquivos;
 
Segue uma imagem atualizada da pokedex : 
 

 
 
 
 
Download : 
Opção 1 (Dropbox) : https://www.dropbox.com/s/89vshj7oplx2xpt/modules.rar?dl=0
Opção 2 (Google Drive) : https://drive.google.com/open?id=0B20tGF1vePLLUGxZZ0o3bzljSmM
Opção 3 (4Shared) : http://www.4shared.com/rar/28Z3A-bece/modules.html?
Opção 4 (Mediafire) : http://www.mediafire.com/download/fe366mxgr4ctmaf/modules.rar
Opção 5 (Sendspace) : https://www.sendspace.com/file/8f6kyz
 
Scan : 
Dropbox: https://www.virustotal.com/pt/url/f8bf595b2881615777ac3ea27181d81dadc9457158d14818b8ec1f6393f60df3/analysis/1464223801/
Google Drive: https://www.virustotal.com/pt/url/12752f92323aae975c0a59ccd9c4854fe3118a0cee7178231e25c7ba38f1fbe8/analysis/1464223450/
4Shared: https://www.virustotal.com/pt/url/0e6a5bb535b01eda4433c760cca295d85488318f705b025d6ed5559a744e6eb3/analysis/1464223772/
Mediafire: https://www.virustotal.com/pt/url/fab687cb595a04b29175decb3c06200190d79d8da99d362e6e7d58305b6ffa2f/analysis/1464224350/
Sendspace: https://www.virustotal.com/pt/url/dfa7a05d8df51422a5b06f0a055d897ac3105ad38a835ccef382236fb987ff16/analysis/1464224097/
 
Caso um Link esteja quebrado tente outros, se todos estiverem quebrados avise !
 
 
 
 
                                                  AJUDEI ? REP +  
 

Galera, eu tava vendo uns fóruns ai e tipo, muitos a maior parte é poketibia, e o que me lembrei em poketibia tem a pokedex, entao fiquei pensando...porque nao criar um item de informação para tibia...seria assim mais ou menos.
 
Acho que seria interessante e "inovador"

Bom galera eu estava tentando arrumar a dex do pda porque quando você tenta adicionar novos pokes de outras gerações eles simplesmente não apareciam na dex ou no comando /dex, bom com essas gambiarras modificações que eu fiz está dando certo e não vejo nenhum erro (até agora).
 
bom vamos as scripts:
 
data>actions>scripts>pokedex.lua
 
substitua todo o arquivo por esse:


  agora vá em data>creaturescripts>scripts>newpokedex.lua   e substitua tudu por esse:  
  e essa é quando o player da dex em si mostrando o total de pokes descobertos e seus catchs (catch é mostrado pelo simbolo (.) do lado do nome do poke)  
  ah é claro a newpokedex e oldpokedex do configuration.lua, não se esqueçam de adicionar as storages certinho em!  
bom se aparecer alguma mensagem assim na distro 'Sheer Cold Faltando' você deve adicionar o move (sheer cold) no arquivo moves.lua da pasta lib   Bom é isso galera, não sou scripter tudo que sei aprendiz lendo elas e tentando algumas coisas, se tiver algum erro ou duvida perguntem que eu irei tentar dar suporte o máximo possível e é claro no  meu limite de conhecimento das scripts. Bjundao pra todos e bom uso

Alguem ae q entende sobre scipt poderia ajuda é q minha poke dex n esta mostrando o lvl nesscesario para usar o pokemon
so mostra o st (stage) do pokemon
 
 
O Scipt:
 
 
 
local skills = specialabilities
function doAddPokemonInDexList(cid, poke)
 if getPlayerInfoAboutPokemon(cid, poke).dex then return true end
 local a = newpokedex[poke]
 local b = getPlayerStorageValue(cid, a.storage)
 setPlayerStorageValue(cid, a.storage, b.." dex,")
end
function getPokemonEvolutionDescription(name, blank)
 local kev = poevo[name]
 local stt = ""
 local sss = "  "--blank and "      " or "  "
 if isInArray(specialevo, name) then
  if name == "Poliwhirl" then
   stt = stt.."\n"..sss.."~ Evolves to Poliwrath starting at\n    "..sss.."level 36."
   stt = stt.."\n"..sss.."~ Evolves to Politoed using\n    "..sss.."a water stone and a king's rock."
  elseif name == "Gloom" then
   stt = stt.."\n"..sss.."~ Evolves to Vileplume using\n    "..sss.."a leaf stone and a venom stone."
   stt = stt.."\n"..sss.."~ Evolves to Bellosom using\n    "..sss.."a leaf stone and a sun stone."
  elseif name == "Slowpoke" then
   stt = stt.."\n"..sss.."~ Evolves to Slowbro starting at\n    "..sss.."level 28."
   stt = stt.."\n"..sss.."~ Evolves to Slowking using\n    "..sss.."a king's rock."
  elseif name == "Tyrogue" then
   stt = stt.."\n"..sss.."• Evolves starting at level 20 to:"
   stt = stt.."\n"..sss.."     ~ Hitmonlee if offense is higher\n"..sss.."         than defense."
   stt = stt.."\n"..sss.."     ~ Hitmonchan if defense is higher\n"..sss.."         than offense."
   stt = stt.."\n"..sss.."     ~ Hitmontop if defense is equal to\n"..sss.."         offense."
  elseif name == "Eevee" then
   stt = stt.."\n"..sss.."~ Evolves to Flareon using\n    "..sss.."a fire stone."
   stt = stt.."\n"..sss.."~ Evolves to Vaporeon using\n    "..sss.."a water stone."
   stt = stt.."\n"..sss.."~ Evolves to Jolteon using\n    "..sss.."a thunder stone."
   stt = stt.."\n"..sss.."~ Evolves to Espeon when\n    "..sss.."leveled up very happy during\n    "..sss.."daytime."
   stt = stt.."\n"..sss.."~ Evolves to Umbreon when\n    "..sss.."leveled up very happy during\n    "..sss.."nighttime."
            elseif name == "Shiny Eevee" then
   stt = stt.."\n"..sss.."~ Evolves to Shiny Flareon using\n    "..sss.."a shining fire stone."
   stt = stt.."\n"..sss.."~ Evolves to Shiny Vaporeon using\n    "..sss.."a shining water stone."
   stt = stt.."\n"..sss.."~ Evolves to Shiny Jolteon using\n    "..sss.."a shining thunder stone."
            elseif name == "Shiny Gloom" then
   stt = stt.."\n"..sss.."~ Evolves to Shiny Vileplume using\n    "..sss.."a shining leaf stone and a shining venom stone."
            elseif name == "Shiny Slowpoke" then
   stt = stt.."\n"..sss.."~ Evolves to Shiny Slowbro starting at\n    "..sss.."level 28."
            elseif name == "Shiny Poliwhirl" then
        stt = stt.."\n"..sss.."~ Evolves to Shiny Poliwrath starting at\n    "..sss.."level 36."
  end
 elseif kev then
  stt = stt.."\n"..sss.."• Evolves to "..kev.evolution..""
  if kev.level >= 7 then
   stt = stt.." starting at\n   "..sss.."level "..kev.level.."."
  elseif kev.count >= 1 then
   stt = stt.." using\n"
   local id = tonumber(kev.stoneid)
   local id2 = tonumber(kev.stoneid2)
   if id > 1 then
    local info = getItemInfo(id)
    local a = kev.count == 1 and info.article or kev.count
    local s = kev.count == 1 and "" or "s"
    stt = stt.."   "..sss..""..a.." "..info.name..""..s..""
   end
   if id2 > 1 then
    local info2 = getItemInfo(id2)
    local b = kev.count == 1 and info2.article or kev.count
    stt = stt.." and "..b.." "..info2.name..""
   end
   stt = stt.."."
  else
   stt = stt.." when it\n   "..sss.."levels up very happy."
  end
  stt = stt..""..getPokemonEvolutionDescription(kev.evolution, true)..""
 elseif not blank then
  stt = stt.."\n   It doesn't evolve."
 end
return stt
end
local skillcheck = {"fly", "ride", "surf", "teleport", "rock smash", "cut", "dig", "light", "blink", "ghostwalk", "headbutt"}
local skilldescr = {
["fly"] = "   • Fly:\n     #You can mount this pokemon and fly with it to reach other places through the sky (use order on yourself)",
["ghostwalk"] = "   • Ghost Walk:\n     #This pokemon can walk through walls and unpassable terrain. This pokemon is also invulnerable to physical attacks.",
["ride"] = "   • Ride:\n     #You can mount this pokemon to move faster on land (use order on yourself)",
["rock smash"] = "   • Rock Smash:\n     #This pokemon is able to break smashable rocks (use order on the rock)",
["cut"] = "   • Cut:\n     #This pokemon is able to cut cuttable bushes (use order on the bush)",
["dig"] = "   • Dig:\n     #This pokemon is able to dig holes and make them exploitable (use order on a closed hole)",
["light"] = "   • Flash:\n     #This pokemon is able to illuminate a place (use order on the pokemon)",
["blink"] = "   • Blink:\n     #This pokemon can teleport itself to another place (use order on the desired place)",
["teleport"] = "   • Teleport:\n     #This pokemon can teleport itself and it's trainer to another city (type either h\" or /h)",
["surf"] = "   • Surf:\n     #You can mount this pokemon and swim with it (just walk on the water)",
["headbutt"] = "   • Headbutt:\n     #You can use the Pokemon with this ability Headbutt",
}
local function doCheckMoveTarget(table)
 if not table then return true end
 if table.target == 1 then
  return "Yes ("..table.dist.. " max. range)."
 else
  return "No."
 end
end
local function getMoveDexDescr(name, number)
 local x = movestable[name]
 local y = {}
 local z = "\n"
 if number == 1 and x.move1 then
  y = x.move1
  z = ""
 elseif number == 2 and x.move2 then
  y = x.move2
 elseif number == 3 and x.move3 then
  y = x.move3
 elseif number == 4 and x.move4 then
  y = x.move4
 elseif number == 5 and x.move5 then
  y = x.move5
 elseif number == 6 and x.move6 then
  y = x.move6
 elseif number == 7 and x.move7 then
  y = x.move7
 elseif number == 8 and x.move8 then
  y = x.move8
 elseif number == 9 and x.move9 then
  y = x.move9
 elseif number == 10 and x.move10 then
  y = x.move10
 elseif number == 11 and x.move11 then
  y = x.move11
 elseif number == 12 and x.move12 then
  y = x.move12
 elseif number == 13 and x.move13 then
  y = x.move13
 elseif number == 14 and x.move14 then
  y = x.move14
 elseif number == 15 and x.move15 then
  y = x.move15
 else
  return ""
 end
if not movesinfo[y.name] then
print(""..y.name.." faltando")
return "unknown error"
end
local txt = ""..z.."\n • "..y.name.." (move "..number.." / m"..number.."):\n #Required level: "..y.level.."\n #Type: "..movesinfo[y.name].t.."\n #Cooldown: "..y.cd.." seconds.\n #Needs target: "..doCheckMoveTarget(y)..""
return txt
end
--#Required level: "..y.level.."\n     
function doShowPokedexRegistration(cid, pokemon, ball, table)
  local item2 = pokemon
  local virtual = false
   if type(pokemon) == "string" then
    virtual = true
   end
  local myball = ball
  local name = virtual and pokemon or getCreatureName(item2.uid)
  local leveltable = table
   local v = fotos[name]
   local stt = ""
   stt = "-General:\n  It's named "..name.." "
   if pokes[name].type2 and pokes[name].type2 ~= "no type" then
    stt = stt.."("..pokes[name].type.."/"..pokes[name].type2..")."
   else
    stt = stt.."("..pokes[name].type..")."
   end
   if virtual then
    stt = stt.."\n"
   else
    if isSummon(item2.uid) then
     stt = stt.."\n  It belongs to "..getCreatureName(getCreatureMaster(item2.uid)).."."
     if getItemAttribute(myball.uid, "nick") then
      stt = stt.."\n  It's nickname is: "..getItemAttribute(myball.uid, "nick").."."
     end
    end
    stt = stt.."\n\n-Status:\n"
    stt = stt.."  • Level: "..getLevel(item2.uid)..""
    if isSummon(item2.uid) then
     local boost = getItemAttribute(myball.uid, "boost")
     if boost then
      stt = stt.." +"..boost.."\n"
     else
      stt = stt.."\n"
     end
     local boff = getItemAttribute(myball.uid, "boffense") and " + "..math.floor(getItemAttribute(myball.uid, "boffense")).." trans. bonus" or ""
     local bdef = getItemAttribute(myball.uid, "bdefense") and " + "..math.floor(getItemAttribute(myball.uid, "bdefense")).." trans. bonus" or ""
     local bagi = getItemAttribute(myball.uid, "bagility") and " + "..math.floor(getItemAttribute(myball.uid, "bagility")).." trans. bonus" or ""
     local bspa = getItemAttribute(myball.uid, "bsattack") and " + "..math.floor(getItemAttribute(myball.uid, "bsattack")).." trans. bonus" or ""
     stt = stt.."  • Vitality: "..math.floor(getItemAttribute(myball.uid, "vitality")).."\n"
     stt = stt.."  • Offense: "..math.floor(getItemAttribute(myball.uid, "offense"))..""..boff.."\n"
     stt = stt.."  • Defense: "..math.floor(getItemAttribute(myball.uid, "defense"))..""..bdef.."\n"
     stt = stt.."  • Spc. Atk.: "..math.floor(getItemAttribute(myball.uid, "specialattack"))..""..bspa.."\n"
     stt = stt.."  • Agility: "..math.floor(getItemAttribute(myball.uid, "speed"))..""..bagi.."\n"
    else
     stt = stt.."\n"
     stt = stt.."  • Vitality: "..getVitality(item2.uid).."\n"
     stt = stt.."  • Offense: "..getOffense(item2.uid).."\n"
     stt = stt.."  • Defense: "..getDefense(item2.uid).."\n"
     stt = stt.."  • Spc. Atk.: "..getSpecialAttack(item2.uid).."\n"
     stt = stt.."  • Agility: "..getSpeed(item2.uid).."\n"
    end
    if isSummon(item2.uid) then
     local myexp = getItemAttribute(myball.uid, "exp")
     local nlexp = getItemAttribute(myball.uid, "nextlevelexp")
     local expdesselevel = myexp - leveltable[getLevel(item2.uid)]
     local faltadesselevel = myexp + nlexp - leveltable[getItemAttribute(myball.uid, "level")]
     local percent = math.floor(expdesselevel / faltadesselevel * 100)
     if getPokemonLevel(item2.uid) == 100 then
      stt = stt.."  • Experience: "..leveltable[100].." (max)\n"
     else
      local exptext = ""..myexp.." / "..(myexp + nlexp).." ("..percent.."%)"
      local art = "Experience"
      if string.len(exptext) > 22 then
       art = "Exp."
      end
      stt = stt.."  • "..art..": "..exptext.."\n"
      stt = stt.."  • Exp. to level up: "..getItemAttribute(getPlayerSlotItem(getCreatureMaster(item2.uid), 8).uid, "nextlevelexp").."\n"
     end
    end
   end
   stt = stt.."\n-Evolutions:"
    stt = stt..""..getPokemonEvolutionDescription(name).."\n"
   stt = stt.."\n-Moves and attacks:"
   if name == "Ditto" then
    if virtual then
     stt = stt.."\n   It doesn't use any moves until\n   transformed."
    elseif getPlayerStorageValue(item2.uid, 1010) == "Ditto" then
     stt = stt.."\n   It doesn't use any moves until\n   transformed."
    else
     for a = 1, 15 do
      stt = stt..""..getMoveDexDescr(getPlayerStorageValue(item2.uid, 1010), a)..""
      end
    end
   else
    for a = 1, 15 do
     stt = stt..""..getMoveDexDescr(name, a)..""
     end
   end
   local totalab = 0
   local abtexts = ""
   local skipline = ""
   for b = 1, #skillcheck do
    if isInArray(skills[skillcheck], name) then
     abtexts = abtexts..""..skipline..""..skilldescr[skillcheck]..""
     totalab = totalab + 1
     skipline = "\n \n"
    end
   end
   if totalab == 0 then
    if name == "Ditto" then
     stt = stt.."\n\n-Special abilities:\n   • Transform:\n     #Ditto can transform into any other species of pokémon for 2 minutes with 40 seconds cooldown (use order on any pokemon)"
    else
     stt = stt.."\n\n-Special abilities:\n    none."
    end
   else
    stt = stt.."\n\n-Special abilities:\n"..abtexts..""
   end
  
  if string.len(stt) > 8192 then
   print("Error while making pokedex info with pokemon named "..name..".\n   Pokedex registration has more than 8192 letters (it has "..string.len(stt).." letters), it has been blocked to prevent fatal error.")
   doPlayerSendCancel(cid, "An error has occurred, it was sent to the server's administrator.")
  return true
  end 
  doShowTextDialog(cid, v, stt)
end