Líderes

O PokeFans possui diversos sistemas novos que foram implementados em cima da base POTA, muitos mesmos, seria incapaz de nomear todos neste post, então deixo o link do https://trello.com/b/ELrkzeTi/pokefans IMAGENS/SISTEMAS/CONTEUDO DOWNLOAD https://www.mediafire.com/file/ejry9qxpe71mkvz/pokefans.rar/file SCAN https://www.virustotal.com/gui/url/d750e2fad1faab64b5f549c854ecddb03a27ff938e03981f0f696aa16eb4a818?nocache=1 Credito - Zayon Owatari

function onSay(cid, words, param) --[Configurações de Condição]__ config = { --[[verdadeiro / Falso]] needPa = false, -- Precisa de Premium Account? [true / false] needPz = false, -- Precisa estar em Protection Zone? [true / false] battle = false, -- Precisa estar sem Batlle para Resetar? [true / false] withe = false, -- Players PK Withe pode Resetar? [true / false] red = false, -- Players PK Red pode Resetar? [true / false] tp = false, -- Teleportar para o Templo após o reset? [true / false] look = true, -- Mostrar Resets no Look do Player? [true / false] addLimite = true, -- Abilitar Limite de Resets? [true / false] setClasse = false, -- Mudar Vocação do player quando resetar? [true / false] storage = 54676, -- Storage [valor] --[Configurações do Reset]__ resetStatus = { player = getPlayerGUID(cid), -- Não Mude. lvl = 717217, -- Level Necessário para Resetar. [valor] lvlreset = 1, -- Level que retornará após o Reset. [valor] limite = 100, -- Máximo de resets que um player pode chegar. [valor] newClasse = 0, -- Id da Nova Vocação após o Reset. [valor] tempo = 0 }, } --[Funções]__ function Reseting(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function noAll(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noTeleporting(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noLook(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noClasse(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function setClasse(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function look(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function teleporting(cid) resets = getResets(cid) setPlayerStorageValue(cid, config.storage, resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function getResets(cid) local resets = getPlayerStorageValue(cid, config.storage) -- If the storage value is less than 0 or invalid, set resets to 0 if type(resets) ~= "number" or resets < 0 then resets = 0 end return resets end -- Função para verificar se o jogador tem VIP (normal ou infinito) function hasVipAccess(cid) local vipInfiniteStorage = 13587 local vipNormalStorage = 13545 local currentTime = os.time() -- Verifica VIP infinito (valor máximo de int32) if getPlayerStorageValue(cid, vipInfiniteStorage) == 2^31 - 1 then return true end -- Verifica VIP normal (baseado no tempo) if getPlayerStorageValue(cid, vipNormalStorage) > currentTime then return true end return false end local resets = getResets(cid) local needLvl = "Você precisa de "..config.resetStatus.lvl-getPlayerLevel(cid).." level's para resetar." local msg = "~~[Reset: "..getResets(cid).."]~~ 'Sucesso ao Resetar! Você será deslogado em "..config.resetStatus.tempo.." Segundos." --[Condiçoes]__ -- Verifica se o jogador tem acesso VIP if not hasVipAccess(cid) then doPlayerSendTextMessage(cid, 22, "Você precisa ter VIP (normal ou infinito) para usar o sistema de reset.") return true elseif(config.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then doPlayerSendTextMessage(cid, 22, "Voce Precisa estar em Protection Zone Para Resetar.") return TRUE elseif(config.addLimite == true) and (getResets(cid) == config.resetStatus.limite) then doPlayerSendTextMessage(cid, 22, "Voce ja atingiu o Limite de Resets.") return TRUE elseif(config.withe == false) and (getCreatureSkullType(cid) == 3) then doPlayerSendTextMessage(cid, 22, "Voce ta PK White, por isso não pode resetar.") return TRUE elseif(config.red == false) and (getCreatureSkullType(cid) == 4) then doPlayerSendTextMessage(cid, 22, "Voce ta PK Red, por isso não pode resetar.") return TRUE elseif(config.needPa == true) and not isPremium(cid) then doPlayerSendTextMessage(cid, 22, "Voce Precisa ser Premium Account para Resetar.") return TRUE elseif(config.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then doPlayerSendTextMessage(cid, 22, "Voce Precisa estar sem Battle para Resetar.") return TRUE elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == true) then addEvent(Reseting, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == false) then addEvent(noAll, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == true) then addEvent(noTeleporting, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == true) then addEvent(noLook, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == false) then addEvent(noClasse, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == true) then addEvent(setClasse, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == false) then addEvent(look, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == false) then addEvent(teleporting, config.resetStatus.tempo* 1000, cid) doPlayerSendTextMessage(cid, 22, msg) elseif doPlayerSendCancel(cid, needLvl) then doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return TRUE end return TRUE end

local arrs = { { {0, 1, 0}, {1, 2, 1}, {0, 1, 0} }, { {0, 1, 1, 1, 0}, {1, 1, 0, 1, 1}, {1, 0, 2, 0, 1}, {1, 1, 0, 1, 1}, {0, 1, 1, 1, 0} }, { {0, 0, 1, 0, 1, 0, 0}, {0, 1, 0, 1, 0, 1, 0}, {1, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 2, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 1, 1, 0, 0} }, { {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 2, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0} } } local arr1 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} } local arr2 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 2, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} } local arr3 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} } local arr4 = { {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 2, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0} } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) local area3 = createCombatArea(arr3) local area4 = createCombatArea(arr4) -- Dano do spell - Fase 1 function onGetFormulaValues1(cid, level, maglevel) local min = 1 local max = 1 return -min, -max end -- Dano do spell - Fase 2 function onGetFormulaValues2(cid, level, maglevel) local min = 2 local max = 2 return -min, -max end -- Dano do spell - Fase 3 function onGetFormulaValues3(cid, level, maglevel) local min = 3 local max = 3 return -min, -max end -- Dano do spell - Fase 4 function onGetFormulaValues4(cid, level, maglevel) local min = 4 local max = 4 return -min, -max end -- Efeito visual para o alvo - Fase 1 function onTargetTile1(cid, pos) doSendDistanceShoot(getCreaturePosition(cid), pos, CONST_ANI_HOLY) return true end -- Efeito visual para o alvo - Fase 2 function onTargetTile2(cid, pos) doSendDistanceShoot(getCreaturePosition(cid), pos, CONST_ANI_HOLY) return true end -- Efeito visual para o alvo - Fase 3 function onTargetTile3(cid, pos) doSendDistanceShoot(getCreaturePosition(cid), pos, CONST_ANI_HOLY) return true end -- Efeito visual para o alvo - Fase 4 function onTargetTile4(cid, pos) doSendDistanceShoot(getCreaturePosition(cid), pos, CONST_ANI_HOLY) return true end -- Criação do combate - Fase 1 local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, CONST_ME_HOLYAREA) setCombatArea(combat1, area1) setCombatCallback(combat1, CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues1") setCombatCallback(combat1, CALLBACK_PARAM_TARGETTILE, "onTargetTile1") -- Criação do combate - Fase 2 local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE) setCombatArea(combat2, area2) setCombatCallback(combat2, CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues2") setCombatCallback(combat2, CALLBACK_PARAM_TARGETTILE, "onTargetTile2") -- Criação do combate - Fase 3 local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) setCombatParam(combat3, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE) setCombatArea(combat3, area3) setCombatCallback(combat3, CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues3") setCombatCallback(combat3, CALLBACK_PARAM_TARGETTILE, "onTargetTile3") -- Criação do combate - Fase 4 local combat4 = createCombatObject() setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) setCombatParam(combat4, COMBAT_PARAM_EFFECT, CONST_ME_GROUNDSHAKER) setCombatArea(combat4, area4) setCombatCallback(combat4, CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues4") setCombatCallback(combat4, CALLBACK_PARAM_TARGETTILE, "onTargetTile4") -- Funções para executar cada fase do spell function castSpell1(parameters) if isCreature(parameters.cid) then doCombat(parameters.cid, combat1, parameters.var) end return true end function castSpell2(parameters) if isCreature(parameters.cid) then doCombat(parameters.cid, combat2, parameters.var) end return true end function castSpell3(parameters) if isCreature(parameters.cid) then doCombat(parameters.cid, combat3, parameters.var) end return true end function castSpell4(parameters) if isCreature(parameters.cid) then doCombat(parameters.cid, combat4, parameters.var) end return true end function onCastSpell(cid, var) -- Executa a primeira fase imediatamente doCombat(cid, combat1, var) -- Agenda as próximas fases com atrasos diferentes local parameters = {cid = cid, var = var} addEvent(castSpell2, 100, parameters) addEvent(castSpell3, 250, parameters) addEvent(castSpell4, 500, parameters) return true end

local config = { {item = 8310, qntd_max = 2, chance = 45, nome = "Gold Ingot"}, {item = 12635, qntd_max = 1, chance = 25, nome = "Mechanic Box"}, {item = 12636, qntd_max = 1, chance = 15, nome = "Surprise Box"}, {item = 9971, qntd_max = 50, chance = 50, nome = "Gold Coin"}, {item = 11390, qntd_max = 1, chance = 20, nome = "Platinum Amulet", raro = true}, } function onUse(cid, item, fromPos, itemEx, toPos) local msgsucesso = "Você abriu uma box e encontrou: " local check = 0 local ganhou = false local itensGanhos = {} for _, var in pairs(config) do if math.random(1, 100) <= var.chance and check < 5 then doPlayerAddItem(cid, var.item, var.qntd_max) check = check + 1 ganhou = true -- Adiciona à lista de itens ganhos table.insert(itensGanhos, var.qntd_max .. "x " .. var.nome) -- Se for um item raro, notifica todo o servidor if var.raro then local playerName = getCreatureName(cid) local msgRaro = playerName .. " encontrou um item raro: " .. var.nome .. "!" doBroadcastMessage(msgRaro, MESSAGE_STATUS_WARNING) end end end if ganhou then -- Cria mensagem com itens ganhos local mensagemFinal = msgsucesso .. table.concat(itensGanhos, ", ") -- Exibe mensagem flutuante acima do jogador doCreatureSay(cid, mensagemFinal, TALKTYPE_ORANGE_1) doSendMagicEffect(getCreaturePosition(cid), 49) doRemoveItem(item.uid, 1) else -- Caso não ganhe nada doCreatureSay(cid, "Você abriu a box mas não encontrou nada de valor.", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) end return true end

Tenho todas as sprites para extrair! Só Que elas vem cortadas quando Extraidas! Alguém tem alguma Solução para as Sprites ao extrair sair juntas, Ou um Jeito fácil de junta-las? Estarei disponibilizando Todas elas Para download para a comunidade caso alguém tenha uma solução!

Estou postando novamente a base Diamond, pois meu post original foi excluído Basicamente essa é uma base de poketibia em tfs 1.4.2 e cliente 10.98, ela foi feita por mim, adaptando o PokeGold para tfs mais atualizado A base em si não contém sources, e também não pretendo vender elas, mas é uma base muito boa pra quem quer começar um projeto. Não se enganem, usar tfs atual da uma melhora significativa para qualquer servidor Ela contém inúmeros sistemas para otimizar o servidor, diminuir ping, e tornar a base compatível com o tfs. O cliente é o Otcv8, com vários sistemas implementados na source, como o new walk, aura, shader, wing, stack 10k, salvar bags abertas no logout, shop, entre outros Prints: Download: Créditos:

Olá a todos, para quem não me conhece sou o dono da base PokeNumb, e estou postando ela novamente, porque o post original do xtibia caiu após eu atualizar o link e ninguém aprovar a edição... Informações da base: Observações Úteis: Sistemas: Fotos: Vídeos: Créditos: Download a Scam: Atualizações da base: Contato:

Após anos contribuindo pro desenvolver do DB.D, venho com muita dor no coração, disponibilizar para todos essa base(2018) que por anos fez a felicidade de muitos players e que com certeza trás nostalgia só de citar o nome. Infelizmente tem algumas pessoas usando o nome do Moz# e o meu (Abreu) e o nome D.UD em outros servidores, oportunismo e coisa de retardado (sinceramente). O servidor tem bastante gambiarras e coisas a ser arrumada, mas é um bom ponto de partida pra quem quer um bom servidor. Espero que façam bom proveito.

Versão corrigida pelo @Jair Kevick https://mega.nz/file/bkFmDaIZ#dvrsamLjPvCzIhq-OmT8_xAlj97fiy8QUYIApL3csGM Me mandaram esse servidor e eu decidi deixar ele jogável porque muita gente tinha dificuldade em deixar online. Como deixar online: Basta criar um banco de dados com o xampp (use o xampp mais recente), com o nome poketibia e do lado onde está utf, escolhe Agrupamento (Colation) após isso é só importar o banco de dados que ta junto com o servidor. Ai é só abrir o servidor, esperar carregar e depois abrir o cliente e logar Conta god: GOD / 123456 Download: https://www.mediafire.com/file/3atv44omlf3f036/PokeAimar.rar/file Vem com Sources e SPR+Dat Editável Scan: https://www.virustotal.com/gui/file/828a6e443c29221b9cd46f3fffe5f65c63bbb8e8ffc109a4fc91554d9c10e752/detection Créditos: Kaboflow, PDA, Psoul, Pstorm, Gengo, TFS Team, Cipsoft, DxP, PokemasterX. É um mistão de scripts do fórum + scripts próprios, acima listados os responsáveis pela criação do datapack e servidor. Descrição: Level System 100% 1ª e 2ª geração completos Kanto e Ilhas Laranjas 100% Tv System 100% (Techinical Machine) Ensinar Moves pros Pokes 100% Daycare e Egg System 100% Duel System (PVP) 100% Gym System 100% Berries (Plantar, Colher e Usar) 100% Fly, Surf, Ride, Dive e Headbutt 100% Mastery System (Especializar em Elemento) 100% Tournament System 100% Saffari Zone 100% Poke Balls Effects 100% Pokemons na Character List 100% Poke Bar 100% Atravessar seu pokemon 100% Relógio In-Game 100% New Pokedex 100%

function onCastSpell(cid, var) local duration = 20 -- tempo em segundos local exhaust = 2 -- cooldown da magia local target = getCreatureTarget(cid) local storage = 3001 if not isCreature(target) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Escolha um alvo antes.") return false end if exhaustion.check(cid, storage) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Aguarde " .. exhaustion.get(cid, storage) .. " segundos para usar a spell novamente.") return false end exhaustion.set(cid, storage, exhaust) doSendMagicEffect(getCreaturePosition(cid), 31) --31 é o efeito que sai em cima de quem usou, ou seja, o sharingan addEvent(goToTarget, 100, cid, target, duration-1) return true end function goToTarget(cid, target, duration, pos) if not isCreature(target) then return false end local pos = pos or getCreaturePosition(cid) local target = getCreatureTarget(cid) > 0 and getCreatureTarget(cid) or target local tpos = getCreaturePosition(target) if pos.x == tpos.x and pos.y == tpos.y then nextPos = pos else nextPos = getPosByDir(pos, getDirectionTo(pos, tpos)) end doAreaCombatHealth(cid, storage, 1, nextPos, 0, -100, -200, 42) -- 42 é o efeito do amaterasu if duration > 0 then addEvent(goToTarget, 100, cid, target, duration-1, nextPos) end end

poden subir de mapa de novo??

eu tenho um amaterasu aqui que funciona da seguinte forma, tu ataca alguém no caso seleciona o target, usa o amaterasu e ele corre atrás do player e quando pega no oponente fica queimando até que ele saia da visão do usuário ou até que o efeito acabe, tudo nele é de fácil configuração, o efeito que sai no usuário(ex: o manguekyu sharingan ao usar), a velocidade com que o amaterasu se movimenta, e o dano obviamente, se servir pra você te passo agora.

Infelizmente não manjo muito de programação e nem muito de script, mas o meu problema é o seguinte... Queria ataques com seus respectivos leveis para serem usados e suas vocações. A base que estou usando é a Tibia_Gun TFS 1.3 A base já tem skills/spells que eu gostei, o problema é que pra conseguir as skills/spells voce precisa fazer quest, oque é chato... Queria botar por vocações, spells para certas vocações, com seus leveis para serem usados e etc... Tô dando uma contribuiçãozinha pra quem me ajudar ai Xml e Spells.rar