Zeon

E aí Rapaziada Vim Aqui Liberar Uma Base Antiga Para Vocês Utilizarem Vamos lá sem enrolação Bora para o que interessa Base PDA Servidor Só Shiny Vou Postar o Servidor Completinho Aqui Para Vocês A SOURCE Do Servidor Totalmente Modificada Pelo Tungs Client : [Hidden Content] Scan Client : [Hidden Content] Servidor : [Hidden Content] Scan Servido : [Hidden Content] Sources : [Hidden Content] Scan Sources : [Hidden Content] [OTC] PYRUS 0.2.rar Source.rar Pyrus Servidor.rar

E aí Galera Beleza Vim Aqui Postar Esse Módulo Que Já Foi Disponibilizado No TK Sou Apenas Estou Repostando Para Vocês Aqui Vou Deixar Os Créditos Originais Do Dono o modulo é um Shiny Ditto Memory para PDA ,o melhor é que nao precisa de source e é bem simples de instalar ! 1° ponto - Adicionar o memory sistem por TalkAction do @zipter98 (fiz algumas correçoes e melhorias no script para funcionar de uma melhor forma com o modulo) em Talkactions.xml adicione a tag : <talkaction words="/memory;!memory" event="script" value="sdittomemory.lua"/> 2° - Em talkaction/script ,crie um arquivo sdittomemory.lua e cole esse script : local maxSlots = 3 --Quantia máxima de slots. function getDittoSlots(item) if not item or item < 1 then return false elseif not getItemAttribute(item, "ehshinyditto") and getItemAttribute(item, "poke") ~= "Shiny Ditto" then return false end local slots = {} for i = 1, maxSlots do local attr = getItemAttribute(item, "memory"..i) if attr then slots[i] = attr end end return slots end function hasDittoSavedPokemon(item, name) if not item or item < 1 then return false elseif not getItemAttribute(item, "ehshinyditto") and getItemAttribute(item, "poke") ~= "Shiny Ditto" then return false end local check for i = 1, maxSlots do local attr = getItemAttribute(item, "memory"..i) if attr and attr == name then check = true break end end return check end function onSay(cid, words, param) local item = getPlayerSlotItem(cid, 8).uid if item < 1 then doPlayerSendCancel(cid, "Put a pokeball in the pokeball slot.") elseif not getItemAttribute(item, "ehshinyditto") and getItemAttribute(item, "poke") ~= "Shiny Ditto" then doPlayerSendCancel(cid, "Put a pokeball with a Ditto in the pokeball slot.") elseif param == "" then doPlayerSendCancel(cid, "Especify a param.") else param = param:lower() if param == "check" then local str = "" for i = 1, maxSlots do local attr = getItemAttribute(item, "memory"..i) or "No memory" if str == "" then str = i.." - "..attr else str = str.."\n"..i.." - "..attr end end doPlayerPopupFYI(cid, "Ditto Memory:\n"..str.."") elseif param:find("delete") then local slot = tonumber(param:match("delete (.+)")) if slot and slot <= maxSlots and slot > 0 then if getDittoSlots(item)[slot] then doItemSetAttribute(item, "memory"..slot, false) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "[Ditto Memory] Slot "..slot.." deleted.") else doPlayerSendCancel(cid, "This slot is empty.") end else doPlayerSendCancel(cid, "Invalid slot.") end else local summons = getCreatureSummons(cid) if #summons == 0 then doPlayerSendCancel(cid, "You don't have any pokemon out of the pokeball.") else if param:find("save") then local transformedPoke = getItemAttribute(item, "poke") if transformedPoke and type(transformedPoke) == "string" and transformedPoke ~= "Shiny Ditto" then local slot = tonumber(param:match("save (.+)")) if slot and slot <= maxSlots and slot > 0 then if not getDittoSlots(item)[slot] and not hasDittoSavedPokemon(item, transformedPoke) then doItemSetAttribute(item, "memory"..slot, transformedPoke) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "[Ditto Memory] You saved at the slot "..slot..": "..transformedPoke..".") else doPlayerSendCancel(cid, "This slot isn't empty or your Ditto already has this pokemon saved in his memory.") end else doPlayerSendCancel(cid, "Invalid slot.") end else doPlayerSendCancel(cid, "Your Ditto isn't transformed in any pokemon.") end else local slot = tonumber(param) local transformPoke = getDittoSlots(item)[slot] local pok = getCreatureMaster(summons[1]) local pos = getCreaturePosition(summons[1]) local cd = 2 if not slot then doPlayerSendCancel(cid, "Invalid param.") elseif slot <= 0 or slot > maxSlots then doPlayerSendCancel(cid, "Use a valid slot.") elseif not transformPoke then doPlayerSendCancel(cid, "This slot is empty.") elseif getPlayerStorageValue(summons[1], 1010) == transformPoke then doPlayerSendCancel(cid, "Your Ditto is already transformed in this pokemon.") else if getPlayerStorageValue(cid, 918351) > os.time () then doPlayerSendCancel(cid, "Espere "..getPlayerStorageValue(cid, 918351) - os.time ().." segundo(s) para trocar") return true end local needCds = true if needCds then for i = 1, 12 do if getCD(getPlayerSlotItem(cid, 8).uid, "move"..i) > 0 then return doPlayerSendCancel(cid, "Para trocar, todas os moves precisam esta carregados.") end end end setPlayerStorageValue(cid, 918351, os.time () + cd) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "[Ditto Memory] Using the slot "..slot..", your Ditto transformed into a "..transformPoke..".") setPlayerStorageValue(summons[1], 1010, transformPoke) doSetCreatureOutfit(summons[1], {lookType = getPokemonXMLOutfit(transformPoke)}, -1) doSendMagicEffect(getThingPos(summons[1]), 184) doCreatureSay(summons[1], "TRANSFORM!", TALKTYPE_MONSTER) doItemSetAttribute(item, "poke", transformPoke) doRemoveCreature(summons[1]) doSummonMonster(pok, transformPoke) doTeleportThing(getCreatureSummons(pok)[1], pos, false) adjustStatus(getCreatureSummons(pok)[1], getPlayerSlotItem(pok, 8).uid, true, false) doCreatureSetNick(getCreatureSummons(pok)[1], "Ditto") if useKpdoDlls then doUpdateMoves(cid) end end end end end end return true end em : local cd = 2 (em segundos) mude para o numero que desejar como cooldown para efetuar a troca . Para efetuar a troca o pokemon precisa esta com os Moves 100% ,caso contrario ira mandar uma mensagem de bloqueio. 3° - em somefunctions.lua adicione essas funçoes ! function doDittoTransform(ditto, pokemon) local sid = getCreatureMaster(ditto) local eff = 184 local name = pokemon local pos = getCreaturePosition(ditto) local outfit = getPokemonXMLOutfit(pokemon) doSendMagicEffect(getThingPosWithDebug(ditto), eff) doSetCreatureOutfit(ditto, {lookType = outfit}, -1) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "poke", name) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "ehditto", 1) doPlayerSay(sid, ""..getPokeName(ditto)..", transform into "..getArticle(pokemon).." "..pokemon.."!", 1) doCreatureSay(ditto, "TRANSFORM!", TALKTYPE_MONSTER) doRemoveCreature(ditto) doSummonMonster(sid, name) doTeleportThing(getCreatureSummons(sid)[1], pos, false) adjustStatus(getCreatureSummons(sid)[1], getPlayerSlotItem(sid, 8).uid, true, false) doCreatureSetNick(getCreatureSummons(sid)[1], "Ditto") doUpdateMoves(sid) return true end function doDittoRevert(m) local sid = m local eff = 184 local name = "Ditto" local outfit = getPokemonXMLOutfit(name) if #getCreatureSummons(sid) <= 0 then doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "poke", name) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "ehditto", 1) elseif #getCreatureSummons(sid) == 1 then local ditto = getCreatureSummons(sid)[1] local pos = getCreaturePosition(ditto) if getCreatureName(ditto) == "Ditto" then return true end doSendMagicEffect(getThingPosWithDebug(ditto), eff) doSetCreatureOutfit(ditto, {lookType = outfit}, -1) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "poke", name) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "ehditto", 1) doPlayerSay(sid, ""..getPokeName(ditto)..", untransfrom!", 1) doCreatureSay(ditto, "TRANSFORM!", TALKTYPE_MONSTER) doRemoveCreature(ditto) doSummonMonster(sid, name) doTeleportThing(getCreatureSummons(sid)[1], pos, false) adjustStatus(getCreatureSummons(sid)[1], getPlayerSlotItem(sid, 8).uid, true, false) doUpdateMoves(sid) end end function doShinyDittoTransform(ditto, pokemon) local sid = getCreatureMaster(ditto) local eff = 184 local name = pokemon local pos = getCreaturePosition(ditto) local outfit = getPokemonXMLOutfit(pokemon) doSendMagicEffect(getThingPosWithDebug(ditto), eff) doSetCreatureOutfit(ditto, {lookType = outfit}, -1) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "poke", name) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "ehshinyditto", 1) doPlayerSay(sid, ""..getPokeName(ditto)..", transform into "..getArticle(pokemon).." "..pokemon.."!", 1) doCreatureSay(ditto, "TRANSFORM!", TALKTYPE_MONSTER) doRemoveCreature(ditto) doSummonMonster(sid, name) doTeleportThing(getCreatureSummons(sid)[1], pos, false) adjustStatus(getCreatureSummons(sid)[1], getPlayerSlotItem(sid, 8).uid, true, false) doCreatureSetNick(getCreatureSummons(sid)[1], "Ditto") doUpdateMoves(sid) return true end function doShinyDittoRevert(m) local sid = m local eff = 184 local name = "Shiny Ditto" local outfit = getPokemonXMLOutfit(name) if #getCreatureSummons(sid) <= 0 then doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "poke", name) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "ehshinyditto", 1) elseif #getCreatureSummons(sid) == 1 then local ditto = getCreatureSummons(sid)[1] local pos = getCreaturePosition(ditto) if getCreatureName(ditto) == "Shiny Ditto" then return true end doSendMagicEffect(getThingPosWithDebug(ditto), eff) doSetCreatureOutfit(ditto, {lookType = outfit}, -1) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "poke", name) doItemSetAttribute(getPlayerSlotItem(sid, 8).uid, "ehshinyditto", 1) doPlayerSay(sid, ""..getPokeName(ditto)..", untransfrom!", 1) doCreatureSay(ditto, "TRANSFORM!", TALKTYPE_MONSTER) doRemoveCreature(ditto) doSummonMonster(sid, name) doTeleportThing(getCreatureSummons(sid)[1], pos, false) adjustStatus(getCreatureSummons(sid)[1], getPlayerSlotItem(sid, 8).uid, true, false) doUpdateMoves(sid) end end tem umas correções q eu mesmo fiz no ditto system e shiny ditto system ,e é necessario pro modulo funcionar 100% . 4° - extraia e adicione o arquivo na pasta Modulos do seu OTClient ! pronto , com isso vai funcionar o modulo 1 - no icone salvar , vc consegue salvar o pokemon que o ditto esta transformado em cada slot (pokebola) e reverter o ditto. 2 - no icone check , vc consegue remover uma memoria ou checar quais memorias o seu ditto esta usando. 3 - e no icone transformar vc transforma em cada memoria salva no s.ditto e tbm consegue reverter para virar um pokemon novo sem usar a memori etc.. entao é isso galera , espero que seja util . CREDITOS : @zipter98 @usoparagames game_memory.rar

Só Estou Repostando Essa Base Aqui No Fórum Porque Tem Muitas Pessoas Que Gostam Dela Pokémon Stage, ( Só avisando, é PDA e contém bugs que não são difíceis de se resolver ) Bom, Então Vamos Ao Que interessa ? • Menu: ├ Informações; ├ Erros/bugs; ├ Sistemas básicos; ├ Prints; ├ Download; └ Creditos - Informações Básicas - Pokémons da 1° até a 4° geração (incompleta); Novos Shinys; Mega Evoluções; Servidor sem level nos Pokémons; Sprites atualizadas Cla Ironhard adicionado; Novas Quests, items, etc. - Vídeo do Servidor - - Erros/Bugs - Tem alguns erros na Distro que são fáceis de arrumar, mexi muito nesse servidor, aí virou gambiarra... Saffron está com as houses bugadas, só trocar as sprites das portas na SPR e refazer as houses; Caso tenha mais algum, avisem. - Sistemas básicos - go/back 100% taunt system 100% catch system 100% nurse system 100% icon system 100% boost system 100% aura system 100% entre outros. - Downloads - Servidor + Client (Mediafire): [Hidden Content] Scan : [Hidden Content] (Sprites do Cllient estão na pasta: Client/data/images/topbuttons/ui/854 Scan: Caso alguém possa fazer scan para mim, agradeço... Minha net está ruim. Mas creio que tenha algumas DLLs podem ser acusadas como arquivos maliciosos, mas nada que afete o PC. - Creditos - Eu - Bluester vudi Slicer GabrielTXU Jair Kevick por alguns prints Se tiver mais alguém, me avisem. Não autorizo postar esse Servidor em outro fórum. Conteúdo do Tibiadevs

A Solução é Utilizando Um Site é Muito Melhor e Mais Fácil

Spr Dat pxg 2k22 Link: [Hidden Content]

a Tag dele coloca aonde actions?

ONE PIECE.rar

PDA

felizmente não sei mas tem um site que você pode descobrir [Hidden Content]

utilize o Site do dxp para criar conta

no caso tem que reformular essa Source

vi que você foi para outro projeto aí postei esse para a comunidade só esqueci de citar seu nome mesmo Hirxzsx

irei colocar

Spr Dat OTAvatar que postei o sevidor! Link: [Hidden Content]

Servidor OT Avatar. Façam bom uso... créditos pelo vazamento P4Z Servidor Só Serve Para Aproveitar Sistemas Scan Avatar Client : [Hidden Content] Scan Servidor : [Hidden Content] Scan Sources : [Hidden Content] Link Original Do Vazamento : [Hidden Content] Avatar Client - Beta.rar sources.rar Avatar Servidor.rar

Servidor ArcansOrigin. Façam bom uso... Scan Cliente : [Hidden Content] Scan Source Server : [Hidden Content] Scan Server : [Hidden Content] Do Servidor só foi removido executável e as dll o Servidor Você Precisa Compilar Espero Ter Ajudado créditos Servidor Desenvolvido Hirxzsx Source Server.rar ArcansOrigins (BR) 2.0.rar Servidor ArcansOrigins 2.0.rar

um abençoado ajudou a colocar o script para monstro créditos Lightwood lembrando Isso serve para cliente V8

Quem conseguir fazer essa mesma função para monstro agradeço demais poste aqui para ajudar a comunidade game_titles.zip

Base Descontinuada fecha tópico

ou um começo para Nova Geração

Adiciona eu no discord : zeon0456

esse tem que compilar o cliente e o servidor

oi

não cheguei a testar mas eu acho que é possível

você tem que descompactar ali está a Criptografia dele