Postado Janeiro 8, 2015 10 anos Diretor usa a minha que modifiquei local rate = 30 function onUse(cid, item, fromPos, item2, toPos) if not isCreature(item2.uid) then return true end if isPlayer(item2.uid) then return doPlayerSendCancel(cid, "Você só pode usar pokedex em pokemons DBR!") end local poke = getCreatureName(item2.uid) if isMonster(item2.uid) then local this = newpokedex[getCreatureName(item2.uid)] local leveltable = getPokemonExperienceTable(getCreatureName(item2.uid)) local myball = 0 if isSummon(item2.uid) then myball = getPlayerSlotItem(getCreatureMaster(item2.uid), 8) end if not getPlayerInfoAboutPokemon(cid, poke).dex then local exp = this.level * rate doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, você acabou de desbloquear "..getCreatureName(item2.uid).." em sua pokedex!") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Como recompensa, você ganhou "..exp.." de experiência.") doSendMagicEffect(getThingPos(cid), 210) doPlayerAddExperience(cid, exp) doAddPokemonInDexList(cid, poke) else doShowPokedexRegistration(cid, item2, myball, leveltable) end return true end if not isPlayer(item2.uid) then return true end local unlock = 0 for i = 1, #oldpokedex do if getPlayerInfoAboutPokemon(item2.uid, oldpokedex[1]).dex then unlock = unlock + 1 end end local str = "" local lnl = 0 local poks = "" local player = getRecorderPlayer(toPos, cid) for x = 1001, 1251 do local y = tonumber(x - 1000) if getPlayerInfoAboutPokemon(player, oldpokedex[y][1]).dex then if isPokemonInOwnList(player, oldpokedex[y][1]) then str = str.."\n["..threeNumbers(y).."] - "..oldpokedex[y][1].." (•)" lnl = lnl + 1 else str = str.."\n["..threeNumbers(y).."] - "..oldpokedex[y][1].."" end else str = str.."\n["..threeNumbers(y).."] - ?" end end if cid == player then doPlayerSendTextMessage(cid, 27, "You can open a pokedex entry by typing \"/dex <name>\". Example: \"/dex Pikachu\".") str = "Pokédex Information:\n\n- Unlocked pokémon species: "..unlock.."\n- Pokémon species that you own: "..lnl.."\n\n(•) means that you have already used that pokémon species.\n\nPokémon Database:\n"..str.."" if string.len(str) <= 8192 then doShowTextDialog(cid, 2382, str) end else doPlayerSendTextMessage(cid, 27, getPlayerName(player).." has unlocked "..unlock.."/251 pokémons already, and has captured "..lnl.." pokemons until now.") end return true end Eu sou um entusiasta da programação apaixonado por ajudar a comunidade open source a crescer. Sempre em busca de novos desafios e oportunidades para contribuir com meu código. #OpenSource #Programação #Contribuição
Postado Janeiro 8, 2015 10 anos hum... talves Posto o meu Server Original com pokes de Unova para vcs!! mais para eu Postar quero REP++ sei que nãoo vale para nada mais eu quero xD por mim é rep+ posta ai pra gente,vai ajudar muito
Postado Janeiro 9, 2015 10 anos Autor Galera faz tempo isso ... fez 2 anos ... nao mecho mais com esse servidor faz tempo Meu Ultimo projeto em desenvolvimento! http://www.tibiaking.com/forum/topic/47753-show-off-ultimo-projeto-para-download/ Grupo do facebook para OtServidores! (Divulgação + Criação de Equipe) https://www.facebook.com/groups/otservidores/
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.