Scripting Pokedex System

[brunei 4]

fala ae glr, eu uso a base pokexcyan(PDA ) e gostaria de colocar a dex mostrando quando um pokemon foi capturado com uma simples bolinha do lado no nome 

e se possivel adicionar na pokedex no final da descriçaõ  , uma parte em que mostrasse o loot do pokemon .

 

 

segue minha  pokedex.lua.

  Mostrar conteúdo oculto

local function checkDex(cid)
    local unlock = 0
        for i = 1, #oldpokedex do
                if getPlayerInfoAboutPokemon(cid, oldpokedex[1]).dex then
                       unlock = unlock + 1
                end
        end
    return unlock
end

local rate = 50
local rewards = {
    [10] = {{11638, 1}},
    [25] = {{11638, 1}},
    [50] = {{11639, 1}},
    [75] = {{11639, 1}},
    [100] = {{11640, 1}},
    [125] = {{11640, 1}},
    [150] = {{11641, 1}},
    [175] = {{11641, 1}},
    [270] = {{12339, 1}},
}
local sto = 63999

function onUse(cid, item, fromPos, item2, toPos)
     
    if not isCreature(item2.uid) then
        return true
    end
    
    local poke = getCreatureName(item2.uid)
    
        if isMonster(item2.uid) then
               local this = newpokedex[getCreatureName(item2.uid)]
               local myball = 0
               if isSummon(item2.uid) then
                      myball = getPlayerSlotItem(getCreatureMaster(item2.uid), ?
               end
               if not getPlayerInfoAboutPokemon(cid, poke).dex then
                      local exp = this.level * rate
                      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have unlocked ".. getCreatureName(item2.uid).." in your pokedex!")
                      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have gained "..exp.." experience points.")
                      doSendMagicEffect(getThingPos(cid), 210)
                      doPlayerAddExperience(cid, exp)
                      doAddPokemonInDexList(cid, poke)
               else
                      doShowPokedexRegistration(cid, item2, myball)
               end
               local list = checkDex(cid)
               local r = rewards
        
        
               if r and getPlayerStorageValue(cid, sto) < list then
                   for _, TABLE in ipairs(r) do
                         doPlayerAddItem(cid, TABLE[1], TABLE[2])
                       sendMsgToPlayer(cid, 27, "Voce ganhou "..TABLE[2].." ".. getItemNameById(TABLE[1]).."!")
                      end
                      setPlayerStorageValue(cid, sto, list)
            
               end
            return true
        end
    
    if not isPlayer(item2.uid) then return true end
    
        local kanto = 0
        local johto = 0
        local hoen = 0
        local sinoh = 0
                                        --alterado v1.7 \/\/
        for i = 1, #oldpokedex do
                if getPlayerInfoAboutPokemon(item2.uid, oldpokedex[1]).dex then
                       if i <= 151 then
                              kanto = kanto+1
                       elseif i <= 251 then
                              johto = johto+1
                       elseif i <= 386 then
                                hoen = hoen+1
                       elseif i <= 494 then
                                sinoh = sinoh+1
                       end
                end
        end                                                      --alterado v1.6
    
        local player = getRecorderPlayer(toPos, cid)
    
        if cid == player then
                doPlayerSendTextMessage(cid, 27, "You has unlocked "..kanto.." kanto's and "..johto.." johto's and "..hoen.." hoen's and "..sinoh.." sinoh's pokémons until now.") 
                doPlayerSetVocation(cid, 9) --alterado v1.6
                openChannelDialog(cid)
        end
    
    return true
end

 

 

 

pokedex system.lua

  Mostrar conteúdo oculto

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, next)
            local kev = poevo[name]
            local stt = {}
            if isInArray(specialevo, name) then
                       if name == "Poliwhirl" then
                                  if next then
                                             return "\nPoliwrath or Politoed, requires level 60."
                                  end   
                                  table.insert(stt, "Evolve Stone: Water Stone and Punch Stone or Water Stone and Earth Stone\n\n")
                                  table.insert(stt, "Evolutions:\nPoliwrath, requires level 60.\nPolitoed, requires level 60.")
                       elseif name == "Gloom" then
                                  if next then
                                             return "\nVileplume or Bellossom, requires level 50."
                                  end
                                  table.insert(stt, "Evolve Stone: 2 Leaf Stone or Leaf Stone and Venom Stone\n\n")
                                  table.insert(stt, "Evolutions:\nVileplume, requires level 50.\nBellossom, requires level 50.")
                          elseif name == "Nincada" then
                                  if next then
                                             return "\nNinjask or Shedinja, requires level 80."
                                  end
                                  table.insert(stt, "Evolve Stone: 2 Coccon Stone or Coccon Stone and Darkness Stone\n\n")
                                  table.insert(stt, "Evolutions:\nNinjask, requires level 80.\nShedinja, requires level 60.")
                       elseif name == "Slowpoke" then
                                  if next then
                                             return "\nSlowbro, requires level 50.\nSlowking, requires level 100."
                                  end
                                  table.insert(stt, "Evolve Stone: Enigma Stone or Ancient Stone\n\n")
                                  table.insert(stt, "Evolutions:\nSlowbro, requires level 50.\nSlowking, requires level 100.")
                       elseif name == "Eevee" then
                                  if next then
                                             return "\nVaporeon, requires level 60.\nJolteon, requires level 60.\nFlareon, requires level 60.\nUmbreon, requires level 60.\nEspeon, requires level 60.\nSylveon, requires level 100."
                                  end
                                  table.insert(stt, "Evolve Stone: Water Stone or Thunder Stone or Fire Stone or Darkness Stone or Enigma Stone or Shiny Stone\n\n")
                                  table.insert(stt, "Evolutions:\nVaporeon, requires level 60.\nJolteon, requires level 60.\nFlareon, requires level 60.\nUmbreon, requires level 60.\nEspeon, requires level 60.\nSylveon, requires level 100.")
                       elseif name == "Tyrogue" then
                                  if next then
                                             return "\nHitmonlee, requires level 60.\nHitmonchan, requires level 60.\nHitmontop, requires level 60."
                                  end
                                  table.insert(stt, "Evolve Stone: Punch Stone\n\n")   
                                  table.insert(stt, "Evolutions:\nHitmonlee, requires level 60.\nHitmonchan, requires level 60.\nHitmontop, requires level 60.")
                       end
            elseif kev then
                       if next then
                                  table.insert(stt, "\n"..kev.evolution..", requires level "..kev.level..".")
                                  return table.concat(stt)
                       end
                       local id = tonumber(kev.stoneid)
                       local id2 = tonumber(kev.stoneid2)
                       local stone = ""
                       if tonumber(kev.count) == 2 then
                                  stone = doConvertStoneIdToString(id).." (2x)"
                       else
                                  stone = id2 == 0 and doConvertStoneIdToString(id) or doConvertStoneIdToString(id).." and "..doConvertStoneIdToString(id2)
                       end
                       table.insert(stt, "Evolve Stone: "..stone.."\n\n")
                       table.insert(stt, "Evolutions:\n"..kev.evolution..", requeris level "..kev.level..".")
                       table.insert(stt, getPokemonEvolutionDescription(kev.evolution, true))
            else
                        if not next then
                                   table.insert(stt, "Evolutions:\nIt doen't evolve.")
                        end
            end   
        return table.concat(stt)
end

local function getMoveDexDescr(cid, name, number)
        local x = movestable[name]
        if not x then return "" end
         
        local z = "\n"
        local tables = {x.move1, x.move2, x.move3, x.move4, x.move5, x.move6, x.move7, x.move8, x.move9, x.move10, x.move11, x.move12}
        local y = tables[number]
        if not y then return "" end
         
        if not movesinfo[y.name] then
                print(""..y.name.." faltando")
                return "unknown error"
        end
        local txt = ""..z.." "..y.name.." (move "..number.."):\n Type: "..movesinfo[y.name].t.."\n #Cooldown: "..y.cd.." seconds.\n"
        return txt
end
                                                                                                                                 --alterado v1.8
local skillcheck = {"fly", "ride", "surf", "teleport", "rock smash", "cut", "dig", "light", "blink", "control mind", "transform", "levitate_fly"}
local passivas = {
        ["Shock Counter"] = {"Elekid", "Raikou", tpw = "electric"},
        ["Lava-Counter"] = {"Magby", "Entei", tpw = "fire"},
        ["Flame Bloody"] = {"Magmar", "Magmortar", "Chandelure", "Shiny Magmar", tpw = "fire"},
        ["Counter Helix"] = {"Scyther", "Shiny Scyther", tpw = "bug"},
        ["Giroball"] = {"Pineco", "Forretress", tpw = "steel"},
        ["Sturdy"] = {"Sudowoodo", "Aggron", tpw = "rock"},
        ["Counter Claw"] = {"Scizor", tpw = "bug"},
        ["Poison Reaction"] = {"Shiny Vileplume", tpw = "poison"},
        ["Prankster"] = {"Sableye", tpw = "ghost"},
        ["Static-Magnet"] = {"Electabuzz", "Shiny Electrode", "Shiny Electabuzz", tpw = "electric"},
        ["Counter Spin"] = {"Hitmontop", "Shiny Hitmontop", tpw = "fighting"},
        ["Demon Kicker"] = {"Hitmonlee", "Shiny Hitmonlee", "Gardestriker Shiny Hitmonlee", tpw = "fighting"},
        ["Demon Puncher"] = {"Hitmonchan", "Shiny Hitmonchan", "Gardestriker Shiny Hitmonchan", tpw = "unknow"},               --alterado v1.6
        ["Stunning Confusion"] = {"Psyduck", "Golduck", "Wobbuffet", tpw = "psychic"},
        ["Groundshock"] = {"Kangaskhan", tpw = "normal"},
        ["Electric Charge"] = {"Pikachu", "Raichu", "Shiny Raichu", tpw = "electric"},
        ["Melody"] = {"Wigglytuff", tpw = "normal"},
        ["Truant"] = {"Slaking", tpw = "normal"},
        ["Hyper Cutter"] = {"Gliscor", tpw = "flying"},
        ["Dragon Rage"] = {"Dratini", "Dragonair", "Dragonite", "Gyarados", "Shiny Gyarados", "Shiny Dratini", "Shiny Dragonair", "Shiny Dragonite", tpw = "dragon"},
        ["Fury"] = {"Persian", "Raticate", "Shiny Raticate", tpw = "normal"},
        ["Mega Drain"] = {"Oddish", "Gloom", "Vileplume", "Kabuto", "Kabutops", "Parasect", "Tangela", "Shiny Vileplume", "Shiny Tangela", tpw = "grass"},
        ["Spores Reaction"] = {"Oddish", "Gloom", "Tangrowth", "Vileplume", "Shiny Vileplume", tpw = "grass"},
        ["Amnesia"] = {"Wooper", "Quagsire", "Swinub", "Piloswine", tpw = "psychic"},
        ["Zen Mind"] = {"Slowking", tpw = "psychic"},
        ["Shed Skin"] = {"Seviper", tpw = "normal"}, 
        ["Magnet Rise"] = {"Electivire", "Pachirisu", "Magnezone", tpw = "electric"}, 
        ["Solid Rock"] = {"Rhyperior", "Camerupt", tpw = "rock"}, 
        ["Water Sport"] = {"Ludicolo", "Empoleon", tpw = "water"}, 
        ["Anticipation"] = {"Toxicroak", tpw = "fighting"}, 
        ["Mirror Coat"] = {"Wobbuffet", tpw = "psychic"},
        ["Lifesteal"] = {"Zubat", "Golbat", "Crobat", "Shiny Zubat", "Shiny Golbat", "Shiny Crobat", tpw = "poison"},
        ["Evasion"] = {"Scyther", "Scizor", "Hitmonlee", "Lucario", "Hitmonchan", "Ninjask", "Hitmontop", "Tyrogue", "Shiny Scyther", "Shiny Hitmonchan", "Shiny Hitmonlee", "Shiny Hitmontop", "Ledian", "Ledyba", "Sneasel", tpw = "normal"},
        ["Foresight"] = {"Machamp", "Shiny Hitmonchan", "Lucario", "Shiny Hitmonlee", "Shiny Hitmontop", "Hitmontop", "Hitmonlee", "Hitmonchan", tpw = "fighting"},
        ["Levitate"] = {"Gengar", "Haunter", "Gastly", "Misdreavus", "Bronzor", "Bronzong", "Weezing", "Koffing", "Unown", "Shiny Gengar", tpw = "ghost"},
        ["Bone Spin"] = {"Cubone", "Marowak", "Shiny Cubone", "Shiny Marowak", tpw = "ground"},
        ["Illusion"] = {"Misdreavus", tpw = "ghost"},
        ["Wond Guard"] = {"Shedinja", tpw = "ghost"},
        ["Ninja Slice"] = {"Ninjask", tpw = "bug"},
        ["Speed Boost"] = {"Ninjask", tpw = "normal"},
        ["Night Strike"] = {"Shedinja", tpw = "ghost"},
        ["Absolute Zero"] = {"Glalie", tpw = "ice"},
        ["Uproar"] = {"Whismur", "Loudred", "Shiny Dodrio", "Exploud", tpw = "normal"},
        ["Clorophyl"] = {"Shiny Vileplume", "Nuzleaf", "Shiftry", tpw = "grass"},
        ["Leftovers"] = {"Whismur", "Loudred", "Exploud", tpw = "normal"},
        ["Water Sport"] = {"Ludicolo", "Empoleon", tpw = "water"},
        ["Volt Absorb"] = {"Pachirisu", tpw = "electric"},
        ["Ion Deluge"] = {"Pachirisu", tpw = "electric"},
        ["Pixilate"] = {"Granbull", tpw = "fairy"},
        ["Solid Rock"] = {"Rhyperior", tpw = "rock"},
        ["Tick Fat"] = {"Venusaur", "Shiny Venusaur", "Grumpig", tpw = "rock"},
        ["Super Power"] = {"Lucario", "Riolu", tpw = "fighting"},
        ["Spike Skin"] = {"Qwilfish", tpw = "ground"},
        ["Flash Fire"] = {"Heatran", tpw = "psychic"},
        ["Imunity"] = {"Zangoose", tpw = "normal"},
        ["Magnet Field"] = {"Magnezone", tpw = "electric"},
}


function doShowPokedexRegistration(cid, pokemon, ball)
        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 v  = fotos[name]
        local stt = {}
        
        table.insert(stt, "Name: "..name.."\n")
        
        if pokes[name].type2 and pokes[name].type2 ~= "no type" then
                table.insert(stt, "Type: "..pokes[name].type.."/"..pokes[name].type2)
        else
                table.insert(stt, "Type: "..pokes[name].type)
        end
        
        if virtual then
                   table.insert(stt, "\nRequired level: "..pokes[name].level.."\n")
        else
                   table.insert(stt, "\nRequired level: ".. getPokemonLevel(item2.uid, true) .."\n")  --alterado v1.9
        end
        
        table.insert(stt, "\n"..getPokemonEvolutionDescription(name).."\n")
        
        table.insert(stt, "\nMoves:")
        
        if name == "Ditto" or name == "Shiny Ditto" then
                   if virtual then
                              table.insert(stt, "\nIt doesn't use any moves until transformed.")
                   elseif getPlayerStorageValue(item2.uid, 1010) == "Ditto" or getPlayerStorageValue(item2.uid, 1010) == -1 then
                              table.insert(stt, "\nIt doesn't use any moves until transformed.")
                              for a = 1, 15 do
                                         table.insert(stt, getMoveDexDescr(item2.uid, getPlayerStorageValue(item2.uid, 1010), a))
                              end
                   end
        else
                   for a = 1, 15 do
                              table.insert(stt, getMoveDexDescr(item2.uid, name, a))
                   end
        end
        
        for e, f in pairs(passivas) do
                   if isInArray(passivas[e], name) then
                              local tpw = passivas[e].tpw
                              if name == "Pineco" and passivas[e] == "Giroball" then
                                         tpw = "bug"
                              end
                              table.insert(stt, "\n"..e.." - passive - "..tpw)
                   end
        end
                    
        table.insert(stt, "\n\nAbility:\n") 
        local abilityNONE = true                   --alterado v1.8 \/
                    
        for b, c in pairs(skills) do
                   if isInArray(skillcheck, b) then
                              if isInArray(c, name) then
                                         table.insert(stt, (b == "levitate_fly" and "Levitate" or doCorrectString(b)).."\n")
                                         abilityNONE = false
                              end
                   end
        end
        if abilityNONE then
                   table.insert(stt, "None")
        end
                
        if string.len(table.concat(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, table.concat(stt))
end

 

 

 

LOOT

 

e a parte do loot eu editei uma script que ta mostrando o loot dos pokes certinho só que é por TalkAction gostaria de colocar na dex segue o script.

 

     function onSay(cid, words, param, channel)
         local monster = getMonsterInfo(param)
         
         if not monster then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Esse poke nao existe.")
            return true
         end 
         
         local header = "Monster info: " .. monster.name .. "\n\n"
         str = header .. "Loot:\n"
         local lootList = getMonsterLootList(param)
         for _, item in pairs(lootList) do
            str = str .. getItemNameById(item.id) .. " (Drop: " .. item.chance/100 .. "%)\n"
         end
         doPlayerPopupFYI(cid, str)
         return true
      end

 

 

se tiver como colocar esse loot na dex me ajudaria muito   desde ja obrigado   

Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui.

[Soleister 15]

Acredito que para funcionar dessa forma seria necessário criar um botão, porém infelizmente eu não sei como fazer

[brunei 4]

alguem me ajuda ai ,ainda estou precisando haha