charlie brown JR

Aguem sabe se existe um tipo de Ragnarök tibia ou se pode ser criado um servidor de tibia baseado em Ragnarök ???

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

Tem PK nesse servidor tipo um play ataca o outro injustamente ?

explica isso direito pf eu n intendi nada

VLW cara vc é o irmão q eu nunca quis ter !

é o seguinte os pokes são shinys mas n aparece o nome shiny so o nome do poke exemplo o shiny snorlax so aparece snorlax! da REp+ nessa bagaça!

Eu gostaria de saber como adiciono novos pokémons no meu servidor pro que todas as vezes que eu adiciono exemplo um no meu cliente veio mais de 5 tipos de sprits do snorlax quando eu copio o id fica como se fosse o shiny snorlax e nem fica o nome que eu coloquei big snorlax e não aparece!

Eu sou novo aki mas o tibiaking tem min ajudado muito na criação do meu servidor pokétibia e seu que vai continuar ajudando Vlw o baguio é doido!

Ate q gostei desse serve mas os centureon são melhores!