-
Total de Posts
139 -
Registro em
-
Última visita
-
Dias Ganhos
225
Tipo de Conteúdo
Fóruns
Downloads
Galeria
Perfis
Tudo que Zeon postou
-
.DAT E .SPR DA PokeBR Poke Arkus pokeSHIELD 2023 [P/ RETIRAR SPRITES]
Zeon postou um tópico no fórum em Compartilhe suas sprites
Download : [Hidden Content] Download : [Hidden Content] Download : [Hidden Content]- 5 respostas
-
- 162
-
- pokebr
- poke arkus
-
(e 2 mais)
Tags:
-
Ajuda No Script DE BOSS ALEATORIO BASE PDA
Zeon respondeu ao tópico de Zeon em TFS 0.X, Compartilhe seu código C++, LUA, PHP e etc
algum administrador Pode fechar o tópico -
Ajuda No Script DE BOSS ALEATORIO BASE PDA
Zeon respondeu ao tópico de Zeon em TFS 0.X, Compartilhe seu código C++, LUA, PHP e etc
Consegui Obrigado -
Ajuda No Script DE BOSS ALEATORIO BASE PDA
Zeon postou um tópico no fórum em TFS 0.X, Compartilhe seu código C++, LUA, PHP e etc
Eu Adicionei Phenac no Meu Servidor e tô Querendo Adicionar os Boss Para Nascer lá Aleatório Alguém Tem um Script aí Para Disponibilizar Para PDA -
Tô Repostando a Base Aqui Porque Já Sumiu De Vários Fórum
- 1 resposta
-
- 57
-
Só faltou lançar de OTClient
-
[TFS 1.2] COMO AUMENTAR O STACK DE ITENS?
Zeon respondeu ao tópico de Luis_Dias em Suporte C++, LUA E etc
Deixa o código aqui que você utilizou talvez a gente consiga adaptar- 3 respostas
-
- stack
- limite de itens
-
(e 1 mais)
Tags:
-
[Aberto] Base Poke Sekai Servidor+Cliente+Soucer Estilo Master X [2024]
Zeon respondeu ao tópico de Zeon em Servidores Poketibia
ele não foi postado porque tava acusando vírus PokeSekai.rar- 24 respostas
-
- poke sekai
- base sekai
-
(e 1 mais)
Tags:
-
[Aberto] Base Poke Sekai Servidor+Cliente+Soucer Estilo Master X [2024]
Zeon respondeu ao tópico de Zeon em Servidores Poketibia
já tem no arquivo completo a versão Windows já com executável- 24 respostas
-
- poke sekai
- base sekai
-
(e 1 mais)
Tags:
-
o dxp funciona mano mas o mapa oficial do game só comprando com o dono
-
Dá Para Aproveitar o Módulo do Marketing e Fazer Uma Nova programação Para Ele
-
Obrigado Pela informação Isso vai ser útil para Quem Tá Pensando Em Fazer um Projeto Nela
-
ele funciona agora é só verificar se tem algum bug de clonar itens
-
- 27 respostas
-
- 201
-
Não consigo mudar o arquivo .spr e .dat do Remeres Map Editor 4.1
Zeon respondeu ao tópico de Abyss em Suporte Remeres map editor
vou deixar o link aqui disponível do mais atualizado que vai pegar aí perfeitamente É só baixar normal : [Hidden Content]- 10 respostas
-
- 13
-
[Aberto] Base Poke Sekai Servidor+Cliente+Soucer Estilo Master X [2024]
Zeon postou um tópico no fórum em Servidores Poketibia
Boa Tarde Tibiadevs Vim Aqui Postar Uma Base Que Está Parada No Meu Drive Não Utilizo ela Por isso Que Estou Disponibilizando Aqui Espero Que Ajude Para Quem Tá Querendo Começar Um Projeto Na Base Master X Algumas informações Que Eu Sei Da Base é Que Ela Tem Profissão e o Sistema de DZ e Vários Outros Sistemas- 24 respostas
-
- 265
-
- poke sekai
- base sekai
-
(e 1 mais)
Tags:
-
Calculadora in game
Zeon respondeu ao tópico de 50cent em TFS 1.X, Compartilhe seu código C++, LUA, PHP e etc
-
Mensagem para o servidor quando staff logar.
Zeon respondeu ao tópico de Sanzenkai em TFS 0.X, Compartilhe seu código C++, LUA, PHP e etc
ao tentar adicionar o script começou a dar erro na minha distro data/creaturescripts/scripts/stafflogin.lua:3: syntax error near 'if' Aqui está a correção : function onLogin(cid) local playerGroup = getPlayerGroupId(cid) -- Fix: Missing argument 'cid' in getPlayerGroupId function call if playerGroup >= 5 then -- Fix: Missing parentheses in getPlayerGroupId function call doBroadcastMessage("O membro da staff " .. getPlayerName(cid) .. " acabou de entrar no jogo!", MESSAGE_STATUS_WARNING) end return true end -
Mensagem para o servidor quando staff logar.
Zeon respondeu ao tópico de Sanzenkai em TFS 0.X, Compartilhe seu código C++, LUA, PHP e etc
Gostei dos scripts se puder trazer mais para comunidade a gente agradece ❤️ -
ANSWERED [Aberto] PDA Base Pyrus Servidor+Cliente+Soucer (2024)
Zeon respondeu ao tópico de Zeon em Servidores Poketibia
é Cyan -
sprites psoul 2022 [Hidden Content]
- 9 respostas
-
- 62
-
ANSWERED [Aberto] PDA Base Pyrus Servidor+Cliente+Soucer (2024)
Zeon respondeu ao tópico de Zeon em Servidores Poketibia
Pasta Do MediaFire Que Está Os Links Completo : [Hidden Content] -
ANSWERED [Aberto] PDA Base Pyrus Servidor+Cliente+Soucer (2024)
Zeon postou um tópico no fórum em Servidores Poketibia
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- 8 respostas
-
- 168
-
ANSWERED OTClient Shiny Ditto Memory [Modulo] 2024
Zeon postou um tópico no fórum em OTClient Mehah, V8 e derivados
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
- 2 respostas
-
- 35
- Criar Novo...