ZeNit91

@Nibelins cara faz um splier na sua sing com seus trabalhos, isso iria popal muito tempo de algumas pessoas.

@SoulOroshie [OFF] BORA UM (lol) VOUDAR UM TEMP NO MAPA TENHO QUE FAZER ALGO DIREFERETE POR ALGUNS MINUTOS. SE VC TIVER SKYPE ADD AE: alucardnit

@DUDU CARA NOSSO SERVER ESTA NO BACKUP DE NUMERO 38, ESSA SEMANA TENHO QUE FAZER UMA LIMPA

@NIBELISN CARA ADORO SEU TRABALHOS VC ESTA DE PARABENS, VC E O TIPO DE PESSO QUE NAO PODE FALTAR EM UMA EQUIPE, VC COMO PESSOA DEDICADA E NOTA 10. QUERIA VC NA MINHA EQUIPE =(

@all [off] Galera dem um olhada no meu site e me falem como esta ficando. (lick)

so add um if por status maguito

@kledstonsk8 Entra no msn que ti explico como arumar =) Andreynithack@homail.com

@koncikos You have all Pokemons Shyne? if not you download this monster pak http://adf.ly/5Mh0l (by FlamesAdmin) do not forget to remove the tag (spaw) of all monsters.

@Konciko Plz use it is code: creaturescripts/scripts/spawn.lua local shinys = { "Bulbasaur", "Ivysaur", "Venusaur", "Charmander", "Charmeleon", "Charizard", "Squirtle", "Wartortle", "Blastoise", "Caterpie", "Metapod", "Butterfree", "Weedle", "Kakuna", "Beedrill", "Pidgey", "Pidgeotto", "Pidgeot", "Rattata", "Raticate", "Spearow", "Fearow", "Ekans", "Arbok", "Pikachu", "Raichu", "Sandshrew", "Sandslash", "Nidoran Female", "Nidorina", "Nidoqueen", "Nidoran Male", "Nidorino", "Nidoking", "Clefairy", "Clefable", "Vulpix", "Ninetales", "Jigglytuff", "Wigglytuff", "Zubat", "Golbat", "Odish", "Gloom", "Vileplume", "Paras", "Parasect", "Venonat", "Venomoth", "Diglett", "Dugtrio", "Mewoth", "Persian", "Psyduck", "Golduck", "Mankey", "Primeape", "Growlithe", "Arcanine", "Poliwag", "Poliwhirl", "Poliwrath", "Abra", "Kadabra", "Alakazam", "Machop", "Machoke", "Machamp", "Bellsprout", "Weepinbell", "Victreebel", "Tentacool", "Tentacruel", "Geodude", "Graveler", "Golem", "Ponyta", "Rapidash", "Slowpoke", "Slowbro", "Magnamite", "Magneton", "Farfetch'd", "Doduo", "Dodrio", "Seel", "Dewgong", "Grimer", "Muk", "Shellder", "Cloyster", "Gastly", "Haunter", "Gengar", "Onix", "Drowzee", "Hypno", "Krabby", "Kingler", "Voltorb", "Electrode", "Exeggcute", "Exeggutor", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Lickitung", "Koffing", "Weezing", "Rhyhorn", "Rhydon", "Chansey", "Tangela", "Kangaskhan", "Horsea", "Seadra", "Goldeen", "Seaking", "Staryu", "Starmie", "Mr. Mime", "Scyther", "Jynx", "Electabuzz", "Magmar", "Pinsir", "Tauros", "Magikarp", "Gyarados", "Lapras", "Ditto", "Eevee", "Vaporeon", "Jolteon", "Flareon", "Porygon", "Omanyte", "Omastar", "Kabuto", "Kabutops", "Snorlax", "Dragonair", "Dratini" } local raros = {"Articuno", "Zapdos", "Moltreas", "Mew", "Mewtwo", "Dragonite", "Aerodactyl"} local function doPokemonRegisterLevel(cid) if not isCreature(cid) then return true end if getWildPokemonLevel(cid) == -1 then setWildPokemonLevel(cid) end end local function doSetRandomGender(cid) if not isCreature(cid) then return true end local gender = 0 local name = getCreatureName(cid) if not newpokedex[name] then return true end local rate = newpokedex[name].gender if rate == 0 then gender = 3 elseif rate == 1000 then gender = 4 elseif rate == -1 then gender = 0 elseif math.random(1, 1000) <= rate then gender = 4 else gender = 3 end doCreatureSetSkullType(cid, gender) end local function doShiny(cid) if isCreature(cid) then if isSummon(cid) then return true end if getPlayerStorageValue(cid, 74469) >= 1 then return true end if isNpcSummon(cid) then return true end if isInArray(shinys, getCreatureName(cid)) then transform = math.random(1, 100) --1% chance elseif isInArray(raros, getCreatureName(cid)) then transform = math.random(1, 1000) --0.1% chance elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(shinys, getCreatureName(cid)) then return true end if transform == 10 then doSendMagicEffect(getThingPos(cid), 18) local shi = doCreateMonster("Shiny ".. getCreatureName(cid) .."", getThingPos(cid)) setPlayerStorageValue(shi, 74469, 1) setPlayerStorageValue(cid, 74469, 1) doRemoveCreature(cid) else setPlayerStorageValue(cid, 74469, 1) end else return true end end function onSpawn(cid) registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "DirectionSystem") registerCreatureEvent(cid, "CastSystem") if isSummon(cid) then registerCreatureEvent(cid, "SummonDeath") return true end registerCreatureEvent(cid, "Experience") addEvent(doPokemonRegisterLevel, 5, cid) addEvent(doSetRandomGender, 5, cid) addEvent(doShiny, 10, cid) return true end Codec By Slicer @Konciko shyni by onswap and improvement and it will bring fewer problems you will have to remove the tag (<event name="Shinys"/>) of all monsters

@Konciko Correction Monster: <?xml version="1.0" encoding="UTF-8"?> <monster name="Abra" nameDescription="a abra" race="psychic" experience="204" speed="104" manacost="0"> <health now="30" max="30"/> <look type="613" head="10" body="30" legs="95" feet="113" corpse="11838"/> <targetchange interval="10000" chance="0"/> <strategy attack="100" defense="0"/> <flags> <flag summonable="1"/> <flag attackable="1"/> <flag hostile="1"/> <flag illusionable="1"/> <flag convinceable="1"/> <flag pushable="1"/> <flag canpushitems="0"/> <flag canpushcreatures="0"/> <flag targetdistance="3"/> <flag staticattack="100"/> <flag runonhealth="0"/> <flag hungerdelay="24"/> </flags> <attacks> <attack name="physical" interval="2000" chance="100" range="4" min="-50" max="-100"> <attribute key="shootEffect" value="eartharrow"/> </attack> <attack name="Confusion" interval="2617" chance="30" range="6"/> <attack name="Restore" interval="4920" chance="20" range="6"/> <attack name="Psy Pulse" interval="2852" chance="29" range="4"/> <attack name="Psycho Shift" interval="3040" chance="28" range="8"/> </attacks> <defenses armor="0" defense="0"/> <voices interval="5000" chance="10"> <voice sentence="ABRA!"/> </voices> <loot> <item id="12194" chance="4000" chance1="129" chancemax="156" count="1" countmax="1"/> </loot> <script> <event name="Spawn"/> </script> </monster> Remove Line <event name="Shinys"/>

@Koncikos Make sure you have all the monsters created in the event shine onSpaw mode and check if they are included in monster.xml

@DarkeyreN o meu server ta ficando melhor que o seu. LGV e um dos top so nao falo que o melhor por causa do upelink dele, o resto e muito bom. vc sera eternamente dispensado.

@ Regice Hexa Editor Tutorial Cara no lugar do tibia04.cipsoft.com o ip e 171.0.0.1 se eu nao me engane. @slicer Cara vc ta falando da box de info que monstrei ? eu quero saber como fazela =( para printar ela na tela no lugar da box de text padrao da pokedex

@REGICE ENTRA NO VAPUS.NET E FAZ UM CLIENTE COM O IP, PARA MUDAR O IP DO CLIENTE COM CDBAR TEM QUE USAR O HEXAEDITOR, TEM VARIOS TUTORIAIS AKI EXPLICANDO

Tipo do script: LUA Protocolo (versão do Tibia): 5.54 Servidor utilizado: tfs 0.3.6 Nível de experiência: medio Adicionais/Informações: Altera o modo de visualizacao da pokedex. Galera estou sofrendo aki, Gostaria de mudar o estilo que as informascoes aparecem quando voce dar dex em um pokemon de: Para: Os codigos da minha poke dex Pokedex (action) local rate = 4 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 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, "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, 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[i][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 Pokedex System (lib) 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." 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"} 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)", } 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" stt = stt.." • Critical: "..doMathDecimal(getPokemonCritical(item2.uid)).."%\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[b]], name) then abtexts = abtexts..""..skipline..""..skilldescr[skillcheck[b]].."" 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 Darei 1 semana de REP

@Nibelins Cara Parabens pelo seu trabalho, os pokes estao equilibrados deacordo com a natinal ? Sabe como posso diminuir o absorve da tangela ? @all ainda estou procurando como mudar a box text da pokedex para modo box send, se alguem suber como poso fazer isso ficarei grato.

@Nibelins Cara quase todos os pokes estao faltando certos loots, o loot do Flames ta certo, e com as % certas (+-), voce pode pegar o dele e fazer essa alteracoes Cara explica para galera que troca a pasta monster tem que intalar o sistema de passiva novamente --` @Gabrielzxzx cara Estou fazendo isso ja, falei para galera que quando terminar posto aki mais ultimamente estou meio sem tempo por causa do trabalho e do mapa. @all Estou a procura de 2 mapers esperientes, quem estiver afim de fazer parte do projeto da uma olhada no lik na minha sing e entre em contato comigo pelo msn ou pelo skype o msn e skype esta no meu perfil do xtibia.

@Nibelins So seu loot que ta errado =) o resto ta 10 parabens.

@SoulOroshie cara me da uma forma estava querendo o style box par apokedex como essa: Pode me dar uma dica de como fazer ?

@slicer cara vc deu um olhadinha no age system para mim ? Nao consegui resolver. @Slicer Sim cara ja tentei mais mais o erro continua e eu ja reportei la mais o cara parace puta so vem aki no forum quando quer algo.

@all Me dem um socorro aki to quenredo fazer o status aparecer em uma box de msn como essa, nao igual a ToplayersendText teria algum otro ? que faca de modo para ficar igual a esse ?

Servidor aki e pokegalaxy =) e esta em open teste cara vc que e azarao desliguei o server pq deu um bug no npc promotion kkkk

@Slicer Minha mae fala isso para mim agora quem fala e minha mulher kkkk Ela so nao gosta muito que eu fique ate as 4 da manha no pc Chego em casa fico com ela ate ela durmi depois pulo para o pc, se nao for assim nao usso computado, nao sou do tipo de homem que troca mulher por pc nem jogo.

@all Galera estou com um erro chato no System Promotion assim que resolver posto aki para todos 100% Ajudinha. Kct o Tangela lvl 65 ta dando + de 1 k no absorver, onde posso diminuir essa taxa ?