Pesquisar na Comunidade

Já imaginou jogar um servidor de Pokémon Online LIVRE DE VENDA DE ITENS ABSURDOS ? Aqui no PokeOnline.com.br é possivel ! Um servidor inteiramente dedicado a jogabilidade dos jogadores com intuito maior focado no divertimento de todos.. • Recebe 2 dias VIP ao criar sua conta • Recebe Box +1 e +2 ao iniciar com seu Personagem • Teleport System • Blink System • Ditto System • Fly System • Ride System • Dive System • Ski System • Board System • Mega System • Outfits exclusivas • Shinys Pokémons • Torneio PVP todos os dias ao 12:00h • Torneio Duelo todos os dias as 18:00h • Duelo 1x1, 2x2, 3x3 (Time) 1 a 6 Pokémons • Clan System com missoes • Todas Outlands com tasks • Quests exclusivas e muito mais.. Inauguramos no dia 25/02 com mais de 150 Jogadores Online! Acesse e Confira: http://www.pokeonline.com.br

• [PokeCentro] - Servidor de Pokémon, 3 anos online! ~http://pokecentro.net • Recebe 2 dias VIP ao criar sua conta • Recebe Box +1, +2 e +3 ao iniciar com seu Personagem • Teleport System • Blink System • Ditto System • Fly System • Ride System • Dive System • Ski System • Board System • Mega System • Outfits exclusivas • Shinys Pokémons • Torneio PVP todos os dias ao 12:00h • Torneio Duelo todos os dias as 18:00h • Duelo 1x1, 2x2, 3x3 (Time) 1 a 6 Pokémons • Clan System com missoes • Todas Outlands com tasks • Quests exclusivas e muito mais.. para conferir videos, pesquise no youtube "PokeCentro" Página Oficial do Servidor: www.facebook.com/facepokecentro Site Oficial: http://pokecentro.net ------------------------------------------------------------------------------------------------ No dia 28/01 - 10:00h (Sábado) teremos a inauguração do novo servidor Brass! Com o intuito focado nos jogadores que estão cansado de upar e nunca superar os jogadores que jogam a mais tempo no servidor Evento de Estreia: O Primeiro jogador a atingir o level 250 (Experiencia é fácil) irá receber um Belissimo Shiny Magmar! O que está esperando ? Crie já seu personagem no novo servidor Brass e aguarde a estreia! http://pokecentro.net

Olá geral do xtibia! agora a pouco um cara que nao tem oque fazer ficou de expertinho e consegueu accesar numa copia velinha do meu ex-server Pokemon TES mts conenheram esse ot pois estaba bem avançado e bem dahora! tristemente pelas limitaçoes do PDA (nao ter sources) fikei limitado enquanto updates alem de ter um bug q nao consegui arrumar q crashaba o server (nao esta nessa versao só na mais nova q nao esta liberada) entao o cara que consegueu pegar minha base e agora ta tentando deixar igual a original que eu tinha mas tb esta mostrando o meu Trabalho como se for dele e isso é nem é tolerado! entao irei deixar por aqui a versao que ele baixou em caso q alguem quizer usar-la pra alguma coisa • Menu: ├ Informações; ├ Ediçoes; ├ Erros; ├ Prints; ├ Download; └ Creditos. • Informações Basicas • • Edições / Ajustes • • Erros Do Servidor • • Prints • • Download • • Creditos • Lembrando que é uma versão antiga, e contens alguns erros a mais nova ta cmg. Para quem quiser os codigos das spells mostradas nas prints adicionar em pokemon moves:

• [PokeCentro] - Servidor de Pokémon, 3 anos online! ~http://pokecentro.net • Recebe 2 dias VIP ao criar sua conta • Recebe Box +1, +2 e +3 ao iniciar com seu Personagem • Teleport System • Blink System • Ditto System • Fly System • Ride System • Dive System • Ski System • Board System • Mega System • Outfits exclusivas • Shinys Pokémons • Torneio PVP todos os dias ao 12:00h • Torneio Duelo todos os dias as 18:00h • Duelo 1x1, 2x2, 3x3 (Time) 1 a 6 Pokémons • Clan System com missoes • Todas Outlands com tasks • Quests exclusivas e muito mais.. Evento Big Snorlax em 2012: Servidor em 2013: para conferir mais videos, pesquise no youtube "PokeCentro" Página Oficial do Servidor: www.facebook.com/facepokecentro Site Oficial: http://pokecentro.net

Se eu der fly no tile das escadas o cliente trava e tem q relogar e eu tenho q fazer restart ao server, e na distro dá esse erro repetindo infinitamente até fazer restart: [Error - CreatureEvent::executeWalk] Call stack overflow. [Error - CreatureEvent::executeWalk] Call stack overflow. [Error - CreatureEvent::executeWalk] Call stack overflow. [Error - CreatureEvent::executeWalk] Call stack overflow. Uma coisa que é estranha é que n pode subir escadas estando no fly, acho q é isso que causa o problema, alguem sabe como permitir o player subir de escadas no fly?

PDA By God Anna(EDITADO POR ME) [+] NOVIDADES [+] Adicionado mais de 150 Pokes(71 Normais,33 Shinys e 30 Megas, alem de 11 MINI LENDAS),mas tem muita sprite no cliente, Alguns pokes na IMG Shiny Stone,mega stone(Free e Donate, eu ia abrir mas sai do projeto), e boost stone(falta add sh e boost stone no actions Novos Respawns no mapa(Algumas ilhas criada por mim, tem tp que leva ate la) Algumas novas sprites(ou remake, sla como se fala, n ligo pra sprite msm) no cliente e servidor [+] Algumas coisinhas importantes ;v [+] [-] 4 Pokebolas(ja configuradas) [-] GoBack funfando [-] Bike Funfando [-] Umas HELDS(que a Anna pois no servidor, porem não testei) [-] Novas quests pelo mapa [-] Box 1,2,3,4 e Shiny box(configurada com todos os pokes novos) [+] Alguns Errinhos no Server [+] Alguns pokes não estao configurados no Monster.xml Alguns novos comandos não estao na pasta Talkactions FOTO DO CP Bem, e So isso,era pra ter mais, mas por conta de briga na staff, tive q sair, junto com a base Creditos: ANNA(Por editar e postar a base) Um monte de lek(Inclusive o lek que criou o pda) Eu por editar 5% do server(So add poke :v) DOWNLOAD:http://www.4shared.com/zip/O_nUnixpce/PDA_By_Bolz_Verso_Poke_Green.html SCAN:4 Shared ja faz SCAN

Base ANONYMOUS Sem Lenda Bem você que esta ai, lendo Não você não esta Crazy [-]Informações Básicas[-] Fly,Surf,Dig - 100% 5 Pokébolas incluindo master ball Box 1,2,3 e 4(tem box 5,6,7,8 e 9, no Itens.XML e OTB) Mapa PDA By God Anna(sem quests) Catch esta difícil(Configurado no catch.lua e configurations.lua) Experiência Razoável(não esta configurado em stages.xml) Comandos NOVOS: !bug,!salvar,!rename,!ta(da itens para todos on),!tcp(teletransporta todos pro cp) !afk on e off,!anuncio [+] NOVIDADES [+] [-] Pokémons da 1° ,2° e Inicias da 3° Geração adicionados no servidor, com 74 Shinys(da 1° e 2°), no cliente tem da 3° a 6° Geração(E alguns shinys TBM) [-] Mega Stone(com quest no Center Pokémon de Saffron), o servidor tem ao todo 21 MEGAS [-] CP de saffron reformulado(tá uma merda por que não sou mapper experiente,mas tentei fazer o melhor) [-] Novos Remakes( pokémons,mapa e paredes, mas algumas não estão configuradas,mas estão no cliente) [+] Bugzinhos arrumados [+] [-] bug das boxes arrumados(quando você tinha 6 pokes, e abria 1 box, o poke n ia pro cp, mas agora vai) [+] Alguns bugs não arrumados [+] [+] São apenas esses dois,mas eles não dão problema algum ao servidor, espero :v Bem Galera, e só isso ai :v No servidor pode ter uns errinhos,mas da pra consertar Download:http://www.4shared.com/archive/7e3Ubh_8ba/Servidor_Pokemon_Anonymous_30.html SCAN: 4Shared ja faz SCAN Créditos PokemonLight(pelas sprites) o mlk que liberou a base anonymous(eu n sei quem foi) Bolz(por editar a base pda by bolz, alguns scripts estão no server :v) Anna(por editar a base pda by god anna, alguns scripts estão no server) Eu por editar menos de 5% do servidor FOTO DO CP

REMOVIDO POR CONTA DE BUG NA SOURCE EM BREVE POSTAREI ELA ARRUMADA

PATCH: EXTRAIA ESSE ARQUIVO NA PASTA DATA DO SERVIDOR E SUBSTITUA PARA EVITAR ERROS ! XML.rar • Menu: ├ Informações; ├ Edições; ├ Erros; ├ Prints; ├ Mapa ├ Download; ├ Atualização; ├ Utilitários; └ Créditos. • Informações Basicas • (+)1 a 3 Gen (Completa) (+)Bike System (+)Tournament System (+)Clã System (+)Boost Stone (+)VIP System 100% Fucional Entre outras coisas... • Edições / Ajustes • (+)Retirados alguns Bugs do server (+)Implantado remakes da 1 a 3 Gen (+)Adicionados alguns comandos e system. (+)Nova raça de pokémons FAIRY,DARK,STEEL (+)Adicionado Level System com balanceamento (+)Foi balanceado mais de 123 pokémons (+)Megas Pokémon no client,não deu tempo de serem add (+)Outland (+)PERFECT NICK SYSTEM C++ (+)PRICE SYSTEM (+)Summon Teleport C++ + CONFIG.LUA • Erros Do Servidor • Nenhum que eu saiba. • PrintScreen • Todas as prints: http://imgur.com/a/vTHfl Em breve posto mais prints!! • Download's • SERVER + SOURCE + CLIENT: http://www.4shared.com/rar/ona5VVkmce/PDA_2016_Open_Source.html? • SCAN • 4SHARED JÁ FAZ SCAN • Creditos • DASH TEAM - PELA BASE PokeCamp -- pelas sprites e alguns sistemas PDA BY GOD ANNA - PELO MAPA E POR ULTIMO EU <3 CONTRIBUIÇÃO PARA A MARATONA DE PROJETOS ! XML.rar

Olá queria saber se alguém consegui mi ajudar com um script, tipo os players no servidor ao jogar a vara na agua eles conseguem ficar jogando a vara toda hora assim bugando o tempo de puxar o pokemon puxando varios de em pouco tempo queria saber se alguém consegue colocar uma função que ele so pode usar a vara novamente assim que ele puxar o pokemon. Ou um tempo em segundos que ele só pode usar a vara depois que esse tempo acabar! local fishing = {[-1] = { segs = 500, pokes = {{"Magikarp", 1}} },[3976] = { segs = 500, pokes = {{"Horsea", 1}, {"Remoraid", 1}, {"Goldeen", 1}, {"Poliwag", 1}} }, -- pega no client da pxg[12855] = { segs = 500, pokes = {{"Tentacool", 1}, {"Staryu", 1}, {"Krabby", 1}, {"Shellder", 1} } },[12854] = { segs = 500, pokes = {{"Seel", 1}, {"Chinchou", 1} } },[12858] = { segs = 500, pokes = {{"Seaking", 1}, {"Seadra", 1}, {"Poliwhirl", 1}} },[12857] = { segs = 500, pokes = {{"Starmie", 1}, {"Kingler", 1}, {"Corsola", 1}, {"Qwilfish", 1}} }, -- pega no client da pxg[12860] = { segs = 500, pokes = {{"Lanturn", 1}, {"Dewgong", 1}}},[12859] = { segs = 500, pokes = {{"Cloyster", 1}, {"Poliwrath", 1}, {"Politoed", 1}, {"Octillery", 1}} },[12856] = { segs = 500, pokes = {{"Dratini", 1}, {"Dragonair", 1} }},[12853] = { segs = 500, pokes = {{"Gyarados", 1}, {"Mantine", 1}, {"Tentacruel", 1}, {"Kingdra", 1}} },}local storageP = 154584local sto_iscas = 5648454 --muda aki pra sto q ta no script da iscalocal bonus = 15local limite = 100local fightcondition = createConditionObject(CONDITION_INFIGHT)setConditionParam(fightcondition, CONDITION_PARAM_TICKS, 5 * 1000)function fightCondic(cid) if not isCreature(cid) then return true end if not isCreature(getCreatureTarget(cid)) then return true end doAddCondition(cid, fightcondition)addEvent(fightCondic, 1000, cid)endlocal function doFish(cid, pos, ppos, interval) if not isCreature(cid) then return false end if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then return false end doSendMagicEffect(pos, CONST_ME_LOSEENERGY) if interval > 0 then addEvent(doFish, 1000, cid, pos, ppos, interval-1) return true end local peixe = 0 local playerpos = getClosestFreeTile(cid, getThingPos(cid)) local fishes = fishing[getPlayerStorageValue(cid, sto_iscas)] local random = {} if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus * 5) end --[[if math.random(1, 100) <= chance then if getPlayerSkillLevel(cid, 6) < limite then doPlayerAddSkillTry(cid, 6, bonus * 5) end]] random = fishes.pokes[math.random(#fishes.pokes)] for i = 1, math.random(random[2]) do peixe = doSummonCreature(random[1], playerpos) if not isCreature(peixe) then setPlayerStorageValue(cid, storageP, -1) doRemoveCondition(cid, CONDITION_OUTFIT) return true end setPokemonPassive(peixe, true) doSetPokemonAgressiveToPlayer(peixe, cid) setPlayerStorageValue(peixe, storageP, 1) fightCondic(cid) if #getCreatureSummons(cid) >= 1 then doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 0) doChallengeCreature(getCreatureSummons(cid)[1], peixe) else doSendMagicEffect(getThingPos(cid), 0) doChallengeCreature(cid, peixe) end end setPlayerStorageValue(cid, storageP, -1) doRemoveCondition(cid, CONDITION_OUTFIT)return trueendlocal waters = {11756}local times = {s = 2256891, -- n mexaexhau = 5 -- tempo em seegundos para salvar denovo}function onUse(cid, item, fromPos, itemEx, toPos)if isWatchingTv(cid) thenreturn trueendlocal checkPos = toPoscheckPos.stackpos = 0if getTileThingByPos(checkPos).itemid <= 0 then return trueendif not isInArray(waters, getTileInfo(toPos).itemid) then return trueendif isRiderOrFlyOrSurf(cid) and not canFishWhileSurfingOrFlying then doPlayerSendCancel(cid, "You can't fish while surfing/flying.") return trueendif getTileInfo(getThingPos(getCreatureSummons(cid)[1] or cid)).protection then doPlayerSendCancel(cid, "You can't fish pokémons if you or your pokémon is in protection zone.")return trueendlocal delay = fishing[getPlayerStorageValue(cid, sto_iscas)].segsif getPlayerStorageValue(cid, sto_iscas) ~= -1 then if getPlayerItemCount(cid, getPlayerStorageValue(cid, sto_iscas)) >= 1 then doPlayerRemoveItem(cid, getPlayerStorageValue(cid, sto_iscas), 1) else setPlayerStorageValue(cid, sto_iscas, -1) endendif getPlayerSex(cid) == 1 thenif getCreatureOutfit(cid).lookType ~= 520 then ---- Outfit necessaria para usar o fishingdoPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você precisa estar com a outfit de pesca para pescar.")return falseendelseif getCreatureOutfit(cid).lookType ~= 521 then ---- Outfit necessaria para usar o fishingdoPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você precisa estar com a outfit de pesca para pescars.")return falseendendlocal outfit = getCreatureOutfit(cid)local out = getPlayerSex(cid) == 0 and 1467 or 1468doSetCreatureOutfit(cid, {lookType = out, lookHead = outfit.lookHead, lookBody = outfit.lookBody, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)setPlayerStorageValue(cid, storageP, 1) --alterei looktypedoCreatureSetNoMove(cid, false)local pos2 = getThingPos(itemEx.uid)doCreatureSetLookDir(cid, getLookToFish(getThingPos(cid), pos2)) --alterado ver depoisdoFish(cid, toPos, getThingPos(cid), math.random(5, delay))return trueendfunction getLookToFish(pos, pos2)local x1, y1 = pos.x, pos.ylocal x2, y2 = pos2.x, pos2.yif x1-x2 <= 0 and y1-y2 > 0 then return NORTHelseif x1-x2 < 0 and y1-y2 == 0 then return EASTelseif x1-x2 < 0 and y1-y2 < 0 then return EASTelseif x1-x2 > 0 and y1-y2 < 0 then return SOUTHelseif x1-x2 > 0 and y1-y2 <= 0 then return WESTelseif x1-x2 > 0 and y1-y2 >= 0 then return WESTelseif x1-x2 < 0 and y1-y2 < 0 then return EASTelseif x1-x2 == 0 and y1-y2 < 0 then return SOUTHendreturn WESTend--[[-- resulatados em linha reta(exatos)if x1 == x2 then -- virar para norte if (y1 - y2) > 0 then -- virar para cima return NORTH elseif (y1 - y2) < 0 then -- virar para baixo return SOUTH endelseif y1 == y2 then if (x1 - x2) > 0 then -- virar para OESTE << return WEST elseif (x1 - x2) < 0 then -- virar para LESTE >> return EAST endend-- resulatados em linha reta(exatos)if (x1 ~= x2) or (y1 ~= y2) then if (x1 - x2) < 0 then return EAST -- virar para LESTE >> elseif (x1 - x2) > 0 then return WEST endend]]

[x]PokexNinja Novo Serve ==> Base cyan editada ==>Dificuldade media/facio ==>cath medio/facio ==> dedicado 24h online ==>staff seria ==>abriu agora ==>Com shinys e megas ==>Eh Muito maiis Confira ==>Sem Vagas ==>Sem Hamachi ou Ip Changer ==>Site:http://pokexninja.wixsite.com/pokexninja ==>Grupo:https://www.facebook.com/groups/472051769668363/ ==>Equipe PXN Agradece ==>Entre em nosso grupo para fica por dentro de todas atualizaçoes Espero Vcs Lah

Cria um arquivo chamado namer.xml em data/npc e cole isso <?xml version="1.0" encoding="UTF-8"?><npc name="Namer" script="nick.lua" walkinterval="350000" floorchange="0" speed="0" lookdir="2"> <health now="150" max="150"/> <look type="614" head="115" body="122" legs="0" feet="76"/> <parameters> </parameters></npc> Agora, cria outro arquivo chamado Nick.lua em data/npc/scripts e cole isso local focus = 0local talk_start = 0local conv = 0local target = 0local following = falselocal attacking = falselocal talkState = {}local finalname = ""function onThingMove(creature, thing, oldpos, oldstackpos)endfunction onCreatureAppear(creature)endfunction onCreatureDisappear(cid, pos)if focus == cid thenselfSay('Good bye sir!')focus = 0talk_start = 0endendfunction onCreatureTurn(creature)endfunction msgcontains(txt, str)return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))endfunction onCreatureSay(cid, type, msge)local msg = string.lower(msge)local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid if focus == cid then talk_start = os.clock() endlocal auras = {"red aura", "blue aura", "green aura", "yellow aura", "white aura", "gray aura", "cyan aura", "purple aura", "orange aura"}if (msgcontains(msg, 'hi') and (focus == 0) and (getDistanceToCreature(cid) <= 4)) then focus = cid conv = 1 talk_start = os.clock() selfSay("Ola, "..getCreatureName(cid).."! Eu posso dar apelido ao seu pokemonou uma aura elementar se tiver pelo menos com boost 50+.")elseif (msgcontains(msg, "no") or msgcontains(msg, "bye")) and focus == cid and conv ~= 3 then selfSay("Sem problema entao senhor, volte quando estiver disposto!") focus = 0elseif (msgcontains(msg, "apelido") or msgcontains(msg, "nickname")) and focus == cid and conv == 1 then if getPlayerSlotItem(cid, 8).uid <= 0 then selfSay("Desculpe, voce nao tem um pokemon no slot principal!") focus = 0 return true end selfSay("Coloque o pokemon que ira receber um apelido no slot principal e me diga, qual sera seu apelido?") conv = 3 elseif msgcontains(msg, "aura") and focus == cid and conv == 1 then if getPlayerSlotItem(cid, 8).uid <= 0 then selfSay("Desculpe, mas voce nao tem um pokemon no slot principal!") focus = 0 return true end local pb = getPlayerSlotItem(cid, 8).uid if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 50 then selfSay("Desculpe mas seu pokemon nao possui boost +50!") focus = 0 return true end if getItemAttribute(pb, "aura") and getItemAttribute(pb, "aura") ~= "" then selfSay("Desculpe, mas seu pokemon ja possui uma aura elementar.") focus = 0 return true end if #getCreatureSummons(cid) >= 1 then selfSay("Retorne seu pokemon para a pokebola!") focus = 0 return true end selfSay("Escolha uma destas auras: red aura, blue aura, green aura, yellow aura, white aura, gray aura, cyan aura, purple aura, orange aura. Which one do you prefer?") conv = 9 elseif isInArray(auras, msg) and focus == cid and conv == 9 then selfSay("Are you sure that you want to put a "..msg.." in your pokemon?") conv = 11 local d, e = msg:find('(.-) aura') auraFinal = string.sub(msg, d -1, e - 5) elseif msgcontains(msg, "yes") and focus == cid and conv == 11 then if getPlayerSlotItem(cid, 8).uid <= 0 then selfSay("Me perdoe mas voce nao tem um pokemon no slot principal!") focus = 0 return true end local pb = getPlayerSlotItem(cid, 8).uid if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 50 then selfSay("Desculpe mas seu pokemon nao possui boost +50!") focus = 0 return true end if #getCreatureSummons(cid) >= 1 then selfSay("Retorne seu pokemon para a pokebola!") focus = 0 return true end doItemSetAttribute(pb, "aura", auraFinal) selfSay("Pronto! Agora seu pokemon possui uma nova aura elementar. Aproveite") focus = 0 conv = 0 elseif conv == 3 and focus == cid then local tablee = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "x", "w", "y", "z", ".", ":", "'", '"', "~", "^", "@", "#", "$", "%", "&", "*", "(", ")", "-", "+", "_", "?", ">", "<", "•", ";", "°", "¹", "²", "³", "£", "¢", "¬", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"} local table = {"'", '"', "!", "ã", "õ", "ç", "´", "`", "á", "à", "ó", "ò", "é", "è", "í", "ì", "ú", "ù", "¹", "²", "³", "£", "¢", "¬", "§", "°", "º", "ª", "•", "|"} for a = 1, #table do if string.find(msg, table[a]) then selfSay("Lamento, este apelido tem simbolos invaidos.") return true end end if string.len(msg) <= 1 or string.len(msg) >= 19 then selfSay("Lamento, este apelido e muito longo ou muito curto!") return true end local pokename = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke") selfSay("Voce tem certeza que quer alterar o nome de seu pokemon de "..pokename.." para \""..msge.."\"? isto vai custar 10 hundred dollars.") conv = 5 finalname = msgeelseif msgcontains(msg, "yes") and focus == cid and conv == 5 then if getPlayerSlotItem(cid, 8).uid <= 0 then selfSay("Onde esta seu pokemon?! Coloque ele no slot principal!") focus = 0 return true end if doPlayerRemoveMoney(cid, 100000) == false then selfSay("Voce nao tenho dinheiro suficiente para me pagar pelos meus serviços, volte mais tarde.") focus = 0 conv = 0 return true end local nick = ""..finalname.."" local description = "Contem um "..getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke").."." selfSay("Pronto! Agora seu pokemon tem um novo apelido, aproveite!") doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "nick", nick) local newdes = description.."\nIt's nickname is: "..finalname.."." doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "description", newdes) local hp = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "happy") doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "happy", hp + 25) if #getCreatureSummons(cid) >= 1 then adjustStatus(getCreatureSummons(cid)[1], getPlayerSlotItem(cid, 8).uid) end focus = 0 conv = 0 endend local intervalmin = 38local intervalmax = 70local delay = 25local number = 1local messages = {"Quer dar apelido ao seu pokemon? Fale comigo!", "Voce sabia que seu pokemon fica mais feliz quando voce o da um apelido?", "Todos seus pokemons querem ter um apelido, converse comigo", "Pokemons amam apelidos, voce deve dar os seus um.", }function onThink() if focus == 0 then selfTurn(1) delay = delay - 0.5 if delay <= 0 then selfSay(messages[number]) number = number + 1 if number > #messages then number = 1 end delay = math.random(intervalmin, intervalmax) end return true else if not isCreature(focus) then focus = 0 return true end local npcpos = getThingPos(getThis()) local focpos = getThingPos(focus) if npcpos.z ~= focpos.z then focus = 0 return true end if (os.clock() - talk_start) > 45 then focus = 0 selfSay("Volte outra hora!") end if getDistanceToCreature(focus) > 3 then selfSay("Enjoy!") focus = 0 return true end local dir = doDirectPos(npcpos, focpos) selfTurn(dir) endreturn trueend Prints: Créditos Bluester

Adicione a linha no Actions.xml Crie um arquivo no com o nome addonsys.xml em <action itemid="ID DO ADDON ANTES DE APLICAR NO POKEMON" event="script" value="addonsys.lua"/> Actions/Data/addonsys.xml function onUse(cid, item, fromPosition, itemEx, toPosition) local addons = { [12595] = {pokemon= "Arcanine" , looktype = 1469, fly = 0, ride = 1470, surf = 0}, [12686] = {pokemon= "Lucario" , looktype = 1494, fly = 0, ride = 0, surf = 0}, [12685] = {pokemon= "Electabuzz" , looktype = 1493, fly = 0, ride = 0, surf = 0}, [12684] = {pokemon= "Noctowl" , looktype = 1495, fly = 1496, ride = 0, surf = 0}, [12699] = {pokemon= "Shiny Electabuzz" , looktype = 1497, fly = 0, ride = 0, surf = 0}, [ID DO ADDON] = {pokemon= "NOME DO POKEMON" , looktype = O ID DO POKEMON COM A ROUPA, fly = 0, ride = 0, surf = 0}, } if #getCreatureSummons(cid) > 0 then doPlayerSendCancel(cid, "Please back your pokemon.") return false end local addon = addons[item.itemid].looktype local fly = addons[item.itemid].fly local ride = addons[item.itemid].ride local surf = addons[item.itemid].surf -- local addonItem = addons[item.itemid] local pb = getPlayerSlotItem(cid, 8).uid local pk = addons[item.itemid].pokemon if getItemAttribute(pb,"poke") ~= pk then doPlayerSendCancel(cid, "Sorry, you can't use this addon on this poke.") return false end if getItemAttribute(pb,"addon") >= 0 then doRemoveItem(item.uid, 1) doPlayerSendTextMessage(cid, 27, "Congratulations! Your Pokémon received a Addon.") doSetItemAttribute(pb,"addon",addon) doSetItemAttribute(pb,"addonItem",addonItem) doSetItemAttribute(pb,"addonfly",fly) doSetItemAttribute(pb,"addonride",ride) doSetItemAttribute(pb,"addonsurf",surf) return true end if getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ehditto") or getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ehshinyditto") thendoPlayerSendCancel(cid, "Você não pode usar Addons em Dittos transformados.")end return trueend No goback.lua antes de return true end Adicione: local pk = getCreatureSummons(cid)[1] local pb = getPlayerSlotItem(cid, 8).uid local look = getItemAttribute(pb,"addon") if not look then doSetItemAttribute(pb,"addon",0) return false end if look > 0 then doSetCreatureOutfit(pk, {lookType = look}, -1) return true endelse doPlayerSendCancel(cid, "This pokemon is fainted.")end Prints: Créditos Bluester

Salve galera! Como estou parando com pokétibia vou liberar a base do PokeCamp para vocês, a source que contém nela é a source mais próxima da original do PDA, então façam bom proveito. Uma base muito boa para começar um projeto, pelo fato de ser PDA e uma source limpa e organizada. Changelog 0.1 Prints:

Boa noite familia Xtibiana! Hoje vim fazer um PEDIDO de script de algumas passivas pra add no meu servidor (OBS: Base PDA - Cyan) *Early Bird: O pokemon acorda mais rapidamente de sleeps, exemplo: Ao tomar um sleep de 8 segundos, ele fixamente reduzirá 5 segundos do sleep, logo no total ele só ficaria 3 segundos adormecido ... Cooldown: Nenhum, ela deve ficar sempre ativa; Segundos de sleep reduzido: 5 Efeito: Nenhum *Insomnia: Mais uma passiva relacionada á sleep, porém dessa vez os pokemons que tem essa passiva nunca tomarão sleep ... Cooldown: Nenhum, sempre ativa; Efeito: Nenhum, gostaria que aparecesse escrito em cima do pokemon "INSOMNIA" toda vez que ele tomasse um sleep e a passiva anulasse! Esses são meus pedidos, como não manjo de script gostaria muito de uma ajudinha nisso, acredito que não é algo muito dificil, porém pra quem não sabe programar é complicado. Agradeço desde já!

Boa Noite Galera do EKZ! bom eu adaptei uma source no famoso Cyan ja que com vários servidores bons postados continuam usando o Cyan ... então é isso CREDITOS: Brun - Por Criar o Servidor Slicer - Por Editar o Servidor Mulurka - Pelas outfits Stylo - Pelo tuto do ícone system Noninhu - Por ajudar em alguns spells Dandanrvb - Pelos scripts do icone system Erondino - Por algumas caves ih é só bjundão a all Tioj - Pelas edições Kuuhaku - Pela cave dos geot . AnnaFeeh - Pelo script do ditto system pxg Vudi - Por ter postado originalmente Gabrielbsales pedrojosex - Por ter editado um pouco mais Jairkevick - por ter modificado/editado a base. OBS: todos os helds estão funcionando perfeitamente • Menu: ├ Informações; ├ Edições; ├ Erros; ├ Prints; ├ Mapa ├ Download; ├ Atualização; ├ Utilitários; └ Créditos. • Informações Básicas • • Edições / Ajustes • • Erros do Servidor • • Prints• • MAPA • • Downloads •

Olá Xtibia, Gostaria de saber de vocês um bug que vem em praticamente todas atualizações do PDA, mas nunca vi ninguém falando nada a respeito.. é sobre um bug que o pokemon some na bag ao relogar. Isso já aconteceu algumas vezes comigo em meu servidor, ao relogar o pokemon some sozinho da bag. Alguém saberia a solução deste problema? Grato desde já!!!

Olá XTibia, estou com um grande problema ao chamar Duel no meu servidor. Quando chamo Duelo tendo 2 pokemons na bag, da pra chamar Duel para 4 pokemons.. ou seja, está contando 2 pokemons a mais na bag na hora de chamar o Duel. alguem poderia me ajudar? segue a função que está sendo usada para checar os pokemons na bag: creaturescripts/scripts/tvsys.lua ---------------- Proteçao para os 2 players terem a qntdade de pokes pro duel local pokes1 = getLivePokeballs(cid, getPlayerSlotItem(cid, 3).uid, true) local pokes2 = getLivePokeballs(sid, getPlayerSlotItem(sid, 3).uid, true) if #pokes1 < (channelId-12) or #pokes2 < (channelId-12) then local tpw = getPlayerStorageValue(cid, 52480) > 1 and "ally" or "opponent" doPlayerSendTextMessage(cid, 20, "You or your "..tpw.." doesn't have that amount of pokemons in their bags! Duel are canceled!") doPlayerSetVocation(cid, 1) for i = 1, #storagesDuel do setPlayerStorageValue(cid, storagesDuel[i], -1) end doCreatureSetSkullType(cid, 0) return false end ---------------- e sobre esta função "getLivePokeballs" está armazenada em some functions.lua em /lib. Segue a função "getLivePokeballs". function getLivePokeballs(cid, container, duel) --alterado v2.8 if not isCreature(cid) then return {} end if not isContainer(container) then return {} end local items = {} --- local ballSlot = getPlayerSlotItem(cid, 8) if ballSlot.uid ~= 0 then for a, b in pairs (pokeballs) do if ballSlot.itemid == b.on or ballSlot.itemid == b.use then if duel and getPlayerLevel(cid) >= (pokes[getItemAttribute(ballSlot.uid, "poke")].level + getPokeballBoost(ballSlot)) then table.insert(items, ballSlot.uid) --alterado v2.8 elseif not duel then table.insert(items, ballSlot.uid) end end end end --- if isContainer(container) and getContainerSize(container) > 0 then for slot=0, (getContainerSize(container)-1) do local item = getContainerItem(container, slot) if isContainer(item.uid) then local itemsbag = getPokeballsInContainer(item.uid) for i=0, #itemsbag do if not isInArray(items, itemsbag[i]) then table.insert(items, itemsbag[i]) end end elseif isPokeball(item.itemid) then for a, b in pairs (pokeballs) do if item.itemid == b.on then if duel and getPlayerLevel(cid) >= (pokes[getItemAttribute(item.uid, "poke")].level + getPokeballBoost(item)) then table.insert(items, item.uid) --alterado v2.8 elseif not duel then table.insert(items, item.uid) end end end end end endreturn itemsend Grato desde já para quem me ajudar! Atenciosamente, Lucas.

Pokemon Pyrus ot Creditos: 50% MEU 50% DE QUEM POSTOU A BASE PYRUS 10% por quem disponibilizou o Pokexcyan para download não sei quem foi... BUGS ERRO NO ACCMANANGER ! CRIAÇÃO SOMENTE POR SITE Download Servidor + Cliente: http://www.mediafire.com/download/54qnheos5vw8s65/Pyrus_Open_Source.rar Download Source:

Então galera sou novo no fórum e eu peguei um pda editei bastante base Pokemon Stage, cheguei a tirar muitos bugs, e deixei ele online por 1 semana, recorde de 102 pessoas online, mas nao tem sources e depois de tantas edições nao estava afim de recomeçar tudo com o "Dxp", então caso alguem se disponibilize para colocar sources no meu pda entre em contato por favor. Facebook:https://www.facebook.com/pedro.bertoluchi

Eae Galerinha do Xtibia, estou aqui para trazer um "Sistema" que não achei no fórum e fuçando aqui acabei encontrando, O sistema serve para deixar as skills e o Goback "Vá Charmander", em laranja seguindo a imagem: http://imgur.com/a/MoN1I http://imgur.com/a/KCN7j Então vamos ao assunto... Primeiramente vá em "Data/lib", abra o arquivo some functions.lua e procure por: doCreatureSay(cid, mbk, TALKTYPE_SAY) e mude para: doCreatureSay(cid, mbk, TALKTYPE_ORANGE_1) Até aqui editamos só para ficar em laranja o Soltar e Voltar o Pokemon... Para mudar as skills vá em "Data/Talkactions" abra o arquivo move1.lua e procure por: doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_SAY) e mude para para: doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_ORANGE_1) e para mudar o soltar o pokemon para ficar em laranja vá em "Actions" abra o arquivo Goback.lua e procure por "doCreatureSay(cid, mgo, TALKTYPE_SAY)",e troque por "doCreatureSay(cid, mgo, TALKTYPE_ORANGE_1) é isso então qualquer erro deixe ai que eu tento ajudar :3, lembrando que não sou "Scripter", eu só entendo um pouco. OBS: Testado apenas em PDA, e desculpe pela mal organização não sei colocar Spoiler, deixa ai nos comentários como faz que eu edito o tópico. OBS: Meu servidor https://www.facebook.com/pokemonlegendaryy/ /\/\/\/\/\//\/\/\/\//\/\/\/\/\/\ O server está em manutenção mais fique ligado para quando voltar. Se Ajudei REP+.

Olá,sempre vejo o pessoal falando que pda não tem futuro principalmente pelo fato de que não tem soucer,e gostaria de saber a opinião de vocês sobre o assunto,afina lé possivel levar um pda pra frente?,creio eu que por mais dificil que seja,se a pessoa se esforçar ela consegue... um exemplo forte que posso dar é o pokepro que é um pda(open soucer),que já está online a 3 anos,e meu servidor (pokehand),que apesar de passar por dificuldade as vezes (como todo server).está onlne a 7 messes.....Então na opinião de vocês é possivel fazer um pda crescer e evoluir?.se sim poderiam me dar dicas para aumentar a qualdiade/durabildade do meu pda? OPS:Meu server tem média de 80~130 players online...

Informaçoes Bug's Print's Scan Download Creditos

• Menu: ├ Informações; ├ Edições; ├ Erros; ├ Prints; ├ Mapa ├ Download; ├ Atualização; ├ Utilitários; └ Créditos. • Informações Basicas • (+)1 a 3 Gen (Completa) (+)Bike System (+)Tournament System (+)Clã System (+)Boost Stone (+)Shiny Stone (+)VIP System 100% Fucional (+)Moto System Entre outras coisas... • Edições / Ajustes • (+)Retirados alguns Bugs do server (+)Implantado remakes da 1 a 4 Gen. (+)Adicionados alguns comandos e system. (+)Nova raça de pokémons FAIRY (+)Adicionado Level System com balanceamento (+)Foi balanceado mais de 123 pokémons (+)Megas Pokémon no client,não deu tempo de serem add (+)Alguns Pokémon da 5 Gen. • Erros Do Servidor • Nenhum que eu saiba XD • PrintScreen • Em breve posto mais prints!! • Download's • Client e Server:https://www.sendspace.com/filegroup/2JkNESDqZBTn2xsIGFMPzg • Creditos • AnjoCelestial Gabrieltxu Kalvin Zeref Shirou • Scan • Server: https://www.virustotal.com/pt/file/58dcb515a65fed349f13172c81de8208d66e674d372824baaa5c2c8754106816/analysis/1431740265/ Client: https://www.virustotal.com/pt/file/162a9ec7ff56ef1af0450b7f83af402f8b112be560df7cc3a2a827aafd2f8237/analysis/

Eu queria que me ajudassem em uma pequena edição na spell do barrier (Barreira) Edição: Queria que quando a spell fosse ativada o Pokemon que usasse trocaria de outfit ate a spell terminar. Este video Pode mostrar como e usado a barrier (Barreira)