Seja Patrocinado

PEEEEEEERFEITO ! Você ainda vai dominar este mundo, só faça isso em segredo!! kkkkk

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

where  is the link?