pedido

Tempo Para Usar Uma Talkaction

Por mikedbr, 16 de set. de 2012 em Scripts

script

3.3k

mikedbrEU QUE FIZ AQUELE POST O.o >>>>MCampones

info

Grupo: Campones

Registrado: 02/10/11

Posts: 47

Reputação: +1

Char no Tibia: Soul Dementor

16 de setembro de 2012 às 17:45

como posso colocar um "exhausted" para usar uma talkaction ?

exemplo: os players usam muito a talkaction !resetar que buga o server se usar rapidamente, eu queria que só pudesse usar a talkaction !resetar a cada 30 segundos.

a minha talkaction !resetar é essa

--[[ <(Advanced Reset System 2.0)>

Autor: Juniior Cwb ;*. Contato: (Juniior_Cwb@hotmail.com)

Versão: 2.0

Testado em: 8.50 e 8.60

TFS: 0.3.6 and 0.4.0

Atenção , Se Achar Esse Sistema em outro site ou forum favor comunicar Eu ( Juniior Cwb ) Juniior_Cwb@hotmail.com )

-=[Características]=-

~( Versão 2.0 )~

- Resets agora Armazenados na DataBase; (Sem Valor de Storage)

- Instala o System e cria a Tabela de Resets com o comando "/installreset";

- Resets no Look do jogador ex: 22:10 You see Marcello [Reset 2] (Level 8). He is an elder druid.;

- [sTAGES] para "Premium Account" e "Free Account"; ]]

--=[Functions]=--

-- installReset()' [instala o Sistema.]

-- tableResetInstall()' [Verifica Se o Sistema ja foi instaladao.]

-- nowReseting()' [Verifica, retorna o erro ou reseta.]

-- getPlayerReset(cid)' [Pega numero de resets do player.]

-- checLevelStageReset(cid)' [Verifica o Level para Resetar.]

-- newReset(cid)' [Verifica todas as Condições de Reset.]

-- addValue(value)' [Adiciona numero de resets.]

--=[Comandos de Jogadores]=--

-- "/installreset" -- Só será usado uma vez, para instalar o sistema.

-- "!resetar" -- Para Resetar.

function onSay(cid, words, param)

if words =="!resetar" then

--[ Condições de Reset ] --

local coNdConf = {

needPz = false, -- Precisa estar em Pz pra resetar? [true, false]

needPa = false, -- Precisa ser Premium Account Pra resetar? [true, false]

withe = false, -- Players com Pk Withe podem resetar? [true, false]

red = true, -- Players com Pk Red pode resetar? [true, false]

battle = false, -- Players precisão estar sem battle pra resetar? [true, false]

teleport = false, -- Teleportar Player para o templo após resetar? [true, false]

look = true, -- Aparecer Resets no Look do Player? [true, false]

pid = getPlayerGUID(cid), -- Não Mexer.

--[ Configurações do Reset ] --

resetConf = {

Level = 350, -- Level Necessário para Resetar. [Valor]

backLvl = 8, -- Level que voltará após o Reset. [Valor]

time = 2, -- Tempo para o Player deslogar ao resetar, em segundos. [Valor]

},

}

--[[>> STAGES <<]]--

x=true;X=true -- Não Mexer.

local stage = {Abilitar = {x}, Desabilitar = {}, --<< Abilitar Stages?? >>-- [{x};{}]

-- [RESETS] | [PREMMY] | [FREE]

stage1= {resets= 4, premmy= 350, free= 350},

stage2= {resets= 9, premmy= 360, free= 360}, -- EXPLICANDO e Configurando stages. (Se estiver Abilitado [Abilitar = {x}])

stage3= {resets= 14, premmy= 370, free= 370}, -- resets = Número de resets para o Stage;

stage4= {resets= 19, premmy= 380, free= 380}, -- premmy = Level necessário para Premium Accounts;

stage5= {resets= 24, premmy= 390, free= 390}, -- free = Level necessário para Free Accounts;

stage6= {resets= 29, premmy= 400, free= 400}, -- Coloque em Ordem...

stage7= {resets= 34, premmy= 420, free= 420}, -- [OBS: MARQUE UM "X" PARA ABILITAR OU DESABILITAR OS STAGES]

stage8= {resets= 39, premmy= 440, free= 440}, -- EX: para desabilitar mude: Abilitar = {}, Desabilitar = {x}

stage9= {resets= 44, premmy= 460, free= 460},

stage10={resets= 49, premmy= 480, free= 480},

stage11={resets= 54, premmy= 500, free= 500},

stage12={resets= 59, premmy= 525, free= 525},

stage13={resets= 64, premmy= 550, free= 550},

stage14={resets= 69, premmy= 575, free= 575},

stage15={resets= 74, premmy= 600, free= 600},

stage16={resets= 79, premmy= 650, free= 650},

stage17={resets= 84, premmy= 700, free= 700},

stage18={resets= 89, premmy= 750, free= 750},

stage19={resets= 94, premmy= 800, free= 800},

stage20={resets= 99, premmy= 1000, free= 1000},

}

--[[>> FIM STAGES <<]]--

--=[Pega Valor de Resets]=--

function getPlayerReset(cid)

local qr = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";")

rss = qr:getDataInt("reset", coNdConf.pid)

if rss < 0 then

rss = 0

end

return rss

end

local success = " ~~ Sucesso! ~~ \nVocê tem agora "..(getPlayerReset(cid)+1).." resets. \nVocê será deslogado em "..coNdConf.resetConf.time.." segundos." ;err = doPlayerSendTextMessage

local qrt = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";");rss_db = qrt:getDataInt("reset", coNdConf.pid)

local lvl_query = "UPDATE `players` SET `level` = "..(coNdConf.resetConf.backLvl)..", `experience` = 0 WHERE `id`= " .. coNdConf.pid .. ";"

local reset_query = "UPDATE `players` SET `reset` = "..(getPlayerReset(cid)+(1)).." WHERE `id`= " .. coNdConf.pid .. ";"

local nolook_query = "UPDATE `players` SET `description` = '' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

local look_query = "UPDATE `players` SET `description` = ' [Reset "..(getPlayerReset(cid)+(1)).."]' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

--=[Reseta]=--

function addValue(value)

if coNdConf.look == false then

doRemoveCreature(cid)

db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(nolook_query)

else

doRemoveCreature(cid)

db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(look_query)

return LUA_NO_ERROR

end

end

function nowReseting()

if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")

return true

end

if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then

doPlayerPopupFYI(cid, success)

addEvent(addValue, coNdConf.resetConf.time*1000, value)

else

doPlayerPopupFYI(cid, success)

addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))

addEvent(addValue, coNdConf.resetConf.time*1000, value)

return true

end

end

--[sTAGES Nao mexer em nada.]--

function checkLevelStageReset(cid)

local stages = {

{resets= stage.stage1.resets, premmy= stage.stage1.premmy, free= stage.stage1.free},

{resets= stage.stage2.resets, premmy= stage.stage2.premmy, free= stage.stage2.free},

{resets= stage.stage3.resets, premmy= stage.stage3.premmy, free= stage.stage3.free},

{resets= stage.stage4.resets, premmy= stage.stage4.premmy, free= stage.stage4.free},

{resets= stage.stage5.resets, premmy= stage.stage5.premmy, free= stage.stage5.free},

{resets= stage.stage6.resets, premmy= stage.stage6.premmy, free= stage.stage6.free},

{resets= stage.stage7.resets, premmy= stage.stage7.premmy, free= stage.stage7.free},

{resets= stage.stage8.resets, premmy= stage.stage8.premmy, free= stage.stage8.free},

{resets= stage.stage9.resets, premmy= stage.stage9.premmy, free= stage.stage9.free},

{resets=stage.stage10.resets, premmy=stage.stage10.premmy, free=stage.stage10.free},

{resets=stage.stage11.resets, premmy=stage.stage11.premmy, free=stage.stage11.free},

{resets=stage.stage12.resets, premmy=stage.stage12.premmy, free=stage.stage12.free},

{resets=stage.stage13.resets, premmy=stage.stage13.premmy, free=stage.stage13.free},

{resets=stage.stage14.resets, premmy=stage.stage14.premmy, free=stage.stage14.free},

{resets=stage.stage15.resets, premmy=stage.stage15.premmy, free=stage.stage15.free},

{resets=stage.stage16.resets, premmy=stage.stage16.premmy, free=stage.stage16.free},

{resets=stage.stage17.resets, premmy=stage.stage17.premmy, free=stage.stage17.free},

{resets=stage.stage18.resets, premmy=stage.stage18.premmy, free=stage.stage18.free},

{resets=stage.stage19.resets, premmy=stage.stage19.premmy, free=stage.stage19.free},

{resets=stage.stage20.resets, premmy=stage.stage20.premmy, free=stage.stage20.free},

}

local resets = getPlayerReset(cid)

for i, tab in ipairs(stages) do

if resets <= tab.resets then

coNdConf.resetConf.Level = isPremium(cid) and tab.premmy or tab.free

break

end

end

if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then

err(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")

return TRUE

end

if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then

doPlayerPopupFYI(cid, success)

addEvent(addValue, coNdConf.resetConf.time*1000, value)

else

doPlayerPopupFYI(cid, success)

addEvent(addValue, coNdConf.resetConf.time*1000, value)

addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))

return true

end

end

function newReset(cid)

if(coNdConf.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar em Protection Zone Para Resetar. -") return TRUE end

if(coNdConf.needPa == true) and not isPremium(cid) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa ser Premium Account para Resetar. -") return TRUE end

if(coNdConf.withe == false) and (getCreatureSkullType(cid) == 3) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Withe. -") return TRUE end

if(coNdConf.red == false) and (getCreatureSkullType(cid) == 4) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Red. -") return TRUE end

if(coNdConf.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar sem Battle para Resetar. -") return TRUE end

local xy = {true,false}

table.insert(stage.Abilitar, false)

table.insert(stage.Desabilitar, false)

if stage.Abilitar[1] == xy[1] and stage.Desabilitar[1] == xy[2] then

checkLevelStageReset(cid)

elseif stage.Abilitar[1] == xy[2] and stage.Desabilitar[1] == xy[1] then

nowReseting()

else

doPlayerPopupFYI(cid, "LUA_ERROR; Configure corretamente o Sistema de STAGES!")

end

return true

end

function tableResetInstall()

print(not rss_db and LUA_ERROR or "Tabela de Resets: Instalada ... [success] ")

addEvent(newReset, 1000, cid)

return false

end

if tableResetInstall() then

end

end

--=[install System]=--

function installReset()

if db.executeQuery("ALTER TABLE `players` ADD reset INT(11) NOT NULL DEFAULT 0;") then

print("[MarcelloMkez] -= Advanced Reset System 2.0 por DataBase =- Instalado com sucesso!")

return TRUE

end

print('[Advanced Reset System/MarcelloMkez] Não foi possível instalar o Sistema.')

return FALSE

end

local tt = {

"Preparando Instalação...",

"Instalando: TableReset Db...",

"Instalando: getPlayerReset()...",

"Instalando: addValue()...",

"Instalando: checkLevelStageReset()...",

"Instalando: newReset() and nowReseting()...",

"Finalizando Instalação...",

"...",

success = {

"Iniciando...",

"function: TableReset Db... [success]",

"function: getPlayerReset()... [success]",

"function: addValue(value)... [success]",

"function: checkLevelStageReset()... [success]",

"function: newReset() and nowReseting()... [success]",

"Fim da Instalação. ",

"by: ~~ MarcelloMkez ~~ \nContato: marcello_dirt@hotmail.com",

inst = {"MarcelloMkez","Advanced Reset System 2.0 por DataBase"

},

},

}

if words == "/installreset" and getPlayerAccess(cid) >= 3 then

function install()

if installReset() then

print(""..tt.success[7].."")

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..tt.success[8].."")

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] -="..tt.success.inst[2].."=- Instalado com sucesso!")

else

print("["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")

end

return 1

end

function concl(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[7].."")

print(""..tt[8].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[7].."")

doPlayerSendTextMessage(cid, typetx,""..tt[8].."")

addEvent(install, 1000,cid)

end

function finall(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[6].."")

print(""..tt[7].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[6].."")

doPlayerSendTextMessage(cid, typetx,""..tt[7].."")

addEvent(concl, 3000,cid)

end

function installDd(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[5].."")

print(""..tt[6].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[5].."")

doPlayerSendTextMessage(cid, typetx,""..tt[6].."")

addEvent(finall, 1000,cid)

end

function installCc(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[4].."")

print(""..tt[5].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[4].."")

doPlayerSendTextMessage(cid, typetx,""..tt[5].."")

addEvent(installDd, 1000,cid)

end

function installBb(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[3].."")

print(""..tt[4].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[3].."")

doPlayerSendTextMessage(cid, typetx,""..tt[4].."")

addEvent(installCc, 1000,cid)

end

function installAa(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[2].."")

print(""..tt[3].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[2].."")

doPlayerSendTextMessage(cid, typetx,""..tt[3].."")

addEvent(installBb, 1000,cid)

end

function toInstall()

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[1].."")

print(""..tt[2].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[1].."")

doPlayerSendTextMessage(cid, typetx,""..tt[2].."")

addEvent(installAa, 1000,cid)

end

function preparation()

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt[1].."")

doPlayerSendTextMessage(cid, typetx,""..tt[1].."")

addEvent(toInstall, 3000,cid)

end

if preparation() then

end

end

return 1

end

--=[by: Juniior Cwb ;* ]=--

OU ALGUEM PODERIA ARRUMAR ESSE ERRO ?

TODA VEZ QUE ALGUEM FALA !RESETAR, A TABELA DE RESETS É INSTALADA

eu ja vi um tópico sobre esse mesmo assunto, porém não funcionou nenhuma talk.

vale REP+

Editado Setembro 17 por MiKeZeerA

SkymagnumHamburguerSMarquês

info

Grupo: Marquês

Registrado: 02/08/12

Posts: 1k

Reputação: +234

Char no Tibia: Maurolkit

16 de setembro de 2012 às 17:56

Coloca isso no script aonde ele é kickado

setPlayerStorageValue(cid, 1243, os.time() + 2 * 1000)

depois isso

if getPlayerStorageValue(cid, 1243) - os.time() > 0 then
    doPlayerSendCancel(cid, "You need wait [ " .. getPlayerStorageValue(cid, 1243) - os.time() .. " ] seconds.")
end

mikedbrEU QUE FIZ AQUELE POST O.o >>>>MCampones

info

Grupo: Campones

Registrado: 02/10/11

Posts: 47

Reputação: +1

Char no Tibia: Soul Dementor

16 de setembro de 2012 às 20:27

Coloca isso no script aonde ele é kickado

setPlayerStorageValue(cid, 1243, os.time() + 2 * 1000)

depois isso

if getPlayerStorageValue(cid, 1243) - os.time() > 0 then
 doPlayerSendCancel(cid, "You need wait [ " .. getPlayerStorageValue(cid, 1243) - os.time() .. " ] seconds.")
end

não sei fazer isso u-u

não deu certo, alguem ajuda ai dou rep+ :~

Editado Setembro 16 por MiKeZeerA

Fir3element FConde Conde

info

Grupo: Conde

Registrado: 16/06/08

Posts: 998

Reputação: +185

Gênero: Masculino

16 de setembro de 2012 às 20:36

Configura aqui:

  	 local _storage, _duration = 1243, 1000

1243 = storage

1000 = 1 segundo

--[[ <(Advanced Reset System 2.0)>

   Autor: Juniior Cwb ;*. Contato: (Juniior_Cwb@hotmail.com)
   Versão: 2.0
   Testado em: 8.50 e 8.60
   TFS: 0.3.6 and 0.4.0
   Atenção , Se Achar Esse Sistema em outro site ou forum favor comunicar Eu ( Juniior Cwb ) Juniior_Cwb@hotmail.com )

   -=[Características]=-
   ~( Versão 2.0 )~

   - Resets agora Armazenados na DataBase; (Sem Valor de Storage)
   - Instala o System e cria a Tabela de Resets com o comando "/installreset";
   - Resets no Look do jogador ex: 22:10 You see Marcello [Reset 2] (Level 8). He is an elder druid.;
- [sTAGES] para "Premium Account" e "Free Account"; ]]

--=[Functions]=--

-- installReset()' [instala o Sistema.]
-- tableResetInstall()' [Verifica Se o Sistema ja foi instaladao.]
-- nowReseting()' [Verifica, retorna o erro ou reseta.]
-- getPlayerReset(cid)' [Pega numero de resets do player.]
-- checLevelStageReset(cid)' [Verifica o Level para Resetar.]
-- newReset(cid)' [Verifica todas as Condições de Reset.]
-- addValue(value)' [Adiciona numero de resets.]

--=[Comandos de Jogadores]=--
-- "/installreset" -- Só será usado uma vez, para instalar o sistema.
-- "!resetar" -- Para Resetar.

function onSay(cid, words, param)

   if words =="!resetar" then

       --[ Condições de Reset ] --
       local coNdConf = {

           needPz = false, -- Precisa estar em Pz pra resetar? [true, false]
           needPa = false, -- Precisa ser Premium Account Pra resetar? [true, false]
           withe = false, -- Players com Pk Withe podem resetar? [true, false]
           red = true, -- Players com Pk Red pode resetar? [true, false]
           battle = false, -- Players precisão estar sem battle pra resetar? [true, false]
           teleport = false, -- Teleportar Player para o templo após resetar? [true, false]
           look = true, -- Aparecer Resets no Look do Player? [true, false]
           pid = getPlayerGUID(cid), -- Não Mexer.


           --[ Configurações do Reset ] --
           resetConf = {

               Level = 350, -- Level Necessário para Resetar. [Valor]
               backLvl = 8, -- Level que voltará após o Reset. [Valor]
               time = 2, -- Tempo para o Player deslogar ao resetar, em segundos. [Valor]

           },
       }
       --[[>> STAGES <<]]--
       x=true;X=true -- Não Mexer.
       local stage = {Abilitar = {x}, Desabilitar = {}, --<< Abilitar Stages?? >>-- [{x};{}]

           -- [RESETS] | [PREMMY] | [FREE]
           stage1= {resets= 4, premmy= 350, free= 350},
           stage2= {resets= 9, premmy= 360, free= 360}, -- EXPLICANDO e Configurando stages. (Se estiver Abilitado [Abilitar = {x}])
           stage3= {resets= 14, premmy= 370, free= 370}, -- resets = Número de resets para o Stage;
           stage4= {resets= 19, premmy= 380, free= 380}, -- premmy = Level necessário para Premium Accounts;
           stage5= {resets= 24, premmy= 390, free= 390}, -- free = Level necessário para Free Accounts;
           stage6= {resets= 29, premmy= 400, free= 400}, -- Coloque em Ordem...
           stage7= {resets= 34, premmy= 420, free= 420}, -- [OBS: MARQUE UM "X" PARA ABILITAR OU DESABILITAR OS STAGES]
           stage8= {resets= 39, premmy= 440, free= 440}, -- EX: para desabilitar mude: Abilitar = {}, Desabilitar = {x}
           stage9= {resets= 44, premmy= 460, free= 460},
           stage10={resets= 49, premmy= 480, free= 480},
           stage11={resets= 54, premmy= 500, free= 500},
           stage12={resets= 59, premmy= 525, free= 525},
           stage13={resets= 64, premmy= 550, free= 550},
           stage14={resets= 69, premmy= 575, free= 575},
           stage15={resets= 74, premmy= 600, free= 600},
           stage16={resets= 79, premmy= 650, free= 650},
           stage17={resets= 84, premmy= 700, free= 700},
           stage18={resets= 89, premmy= 750, free= 750},
           stage19={resets= 94, premmy= 800, free= 800},
           stage20={resets= 99, premmy= 1000, free= 1000},

       }
       --[[>> FIM STAGES <<]]--

       --=[Pega Valor de Resets]=--
       function getPlayerReset(cid)
           local qr = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";")
           rss = qr:getDataInt("reset", coNdConf.pid)
           if rss < 0 then
               rss = 0
           end
           return rss
       end

       local success = " ~~ Sucesso! ~~ \nVocê tem agora "..(getPlayerReset(cid)+1).." resets. \nVocê será deslogado em "..coNdConf.resetConf.time.." segundos." ;err = doPlayerSendTextMessage
       local qrt = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";");rss_db = qrt:getDataInt("reset", coNdConf.pid)
       local lvl_query = "UPDATE `players` SET `level` = "..(coNdConf.resetConf.backLvl)..", `experience` = 0 WHERE `id`= " .. coNdConf.pid .. ";"
       local reset_query = "UPDATE `players` SET `reset` = "..(getPlayerReset(cid)+(1)).." WHERE `id`= " .. coNdConf.pid .. ";"
       local nolook_query = "UPDATE `players` SET `description` = '' WHERE `players`.`id`= " .. coNdConf.pid .. ";"
       local look_query = "UPDATE `players` SET `description` = ' [Reset "..(getPlayerReset(cid)+(1)).."]' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

       --=[Reseta]=--
       local _storage, _duration = 1243, 1000
       if getPlayerStorageValue(cid, 1243) - os.time() > 0 then
           doPlayerSendCancel(cid, "You need wait [ " .. getPlayerStorageValue(cid, _storage) - os.time() .. " ] seconds.")
           return false
       end

       function addValue(value)
           if coNdConf.look == false then
               doRemoveCreature(cid)
               db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(nolook_query)
               setPlayerStorageValue(cid, _storage, os.time() + 2 * _duration)
           else
               doRemoveCreature(cid)
               db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(look_query)
               setPlayerStorageValue(cid, _storage, os.time() + 2 * _duration)
               return LUA_NO_ERROR
           end
       end

       function nowReseting()
           if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
               return true
           end
           if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
               doPlayerPopupFYI(cid, success)
               addEvent(addValue, coNdConf.resetConf.time*1000, value)
           else
               doPlayerPopupFYI(cid, success)
               addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
               addEvent(addValue, coNdConf.resetConf.time*1000, value)
               return true
           end
       end

       --[sTAGES Nao mexer em nada.]--
       function checkLevelStageReset(cid)

           local stages = {
               {resets= stage.stage1.resets, premmy= stage.stage1.premmy, free= stage.stage1.free},
               {resets= stage.stage2.resets, premmy= stage.stage2.premmy, free= stage.stage2.free},
               {resets= stage.stage3.resets, premmy= stage.stage3.premmy, free= stage.stage3.free},
               {resets= stage.stage4.resets, premmy= stage.stage4.premmy, free= stage.stage4.free},
               {resets= stage.stage5.resets, premmy= stage.stage5.premmy, free= stage.stage5.free},
               {resets= stage.stage6.resets, premmy= stage.stage6.premmy, free= stage.stage6.free},
               {resets= stage.stage7.resets, premmy= stage.stage7.premmy, free= stage.stage7.free},
               {resets= stage.stage8.resets, premmy= stage.stage8.premmy, free= stage.stage8.free},
               {resets= stage.stage9.resets, premmy= stage.stage9.premmy, free= stage.stage9.free},
               {resets=stage.stage10.resets, premmy=stage.stage10.premmy, free=stage.stage10.free},
               {resets=stage.stage11.resets, premmy=stage.stage11.premmy, free=stage.stage11.free},
               {resets=stage.stage12.resets, premmy=stage.stage12.premmy, free=stage.stage12.free},
               {resets=stage.stage13.resets, premmy=stage.stage13.premmy, free=stage.stage13.free},
               {resets=stage.stage14.resets, premmy=stage.stage14.premmy, free=stage.stage14.free},
               {resets=stage.stage15.resets, premmy=stage.stage15.premmy, free=stage.stage15.free},
               {resets=stage.stage16.resets, premmy=stage.stage16.premmy, free=stage.stage16.free},
               {resets=stage.stage17.resets, premmy=stage.stage17.premmy, free=stage.stage17.free},
               {resets=stage.stage18.resets, premmy=stage.stage18.premmy, free=stage.stage18.free},
               {resets=stage.stage19.resets, premmy=stage.stage19.premmy, free=stage.stage19.free},
               {resets=stage.stage20.resets, premmy=stage.stage20.premmy, free=stage.stage20.free},

           }
           local resets = getPlayerReset(cid)
           for i, tab in ipairs(stages) do
               if resets <= tab.resets then
                   coNdConf.resetConf.Level = isPremium(cid) and tab.premmy or tab.free
                   break
               end
           end
           if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
               err(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
               return TRUE
           end

           if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
               doPlayerPopupFYI(cid, success)
               addEvent(addValue, coNdConf.resetConf.time*1000, value)
           else
               doPlayerPopupFYI(cid, success)
               addEvent(addValue, coNdConf.resetConf.time*1000, value)
               addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
               return true
           end
       end
       function newReset(cid)
           if(coNdConf.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then
           err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar em Protection Zone Para Resetar. -") return TRUE end
           if(coNdConf.needPa == true) and not isPremium(cid) then
           err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa ser Premium Account para Resetar. -") return TRUE end
           if(coNdConf.withe == false) and (getCreatureSkullType(cid) == 3) then
           err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Withe. -") return TRUE end
           if(coNdConf.red == false) and (getCreatureSkullType(cid) == 4) then
           err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Red. -") return TRUE end
           if(coNdConf.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
           err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar sem Battle para Resetar. -") return TRUE end

           local xy = {true,false}
           table.insert(stage.Abilitar, false)
           table.insert(stage.Desabilitar, false)
           if stage.Abilitar[1] == xy[1] and stage.Desabilitar[1] == xy[2] then
               checkLevelStageReset(cid)
           elseif stage.Abilitar[1] == xy[2] and stage.Desabilitar[1] == xy[1] then
               nowReseting()
           else
               doPlayerPopupFYI(cid, "LUA_ERROR; Configure corretamente o Sistema de STAGES!")
           end
           return true
       end
       function tableResetInstall()
           print(not rss_db and LUA_ERROR or "Tabela de Resets: Instalada ... [success] ")
           addEvent(newReset, 1000, cid)
           return false
       end
       if tableResetInstall() then
       end
   end
   --=[install System]=--
   function installReset()
       if db.executeQuery("ALTER TABLE `players` ADD reset INT(11) NOT NULL DEFAULT 0;") then
           print("[MarcelloMkez] -= Advanced Reset System 2.0 por DataBase =- Instalado com sucesso!")
           return TRUE
       end
       print('[Advanced Reset System/MarcelloMkez] Não foi possível instalar o Sistema.')
       return FALSE
   end
   local tt = {
       "Preparando Instalação...",
       "Instalando: TableReset Db...",
       "Instalando: getPlayerReset()...",
       "Instalando: addValue()...",
       "Instalando: checkLevelStageReset()...",
       "Instalando: newReset() and nowReseting()...",
       "Finalizando Instalação...",
       "...",
       success = {
           "Iniciando...",
           "function: TableReset Db... [success]",
           "function: getPlayerReset()... [success]",
           "function: addValue(value)... [success]",
           "function: checkLevelStageReset()... [success]",
           "function: newReset() and nowReseting()... [success]",
           "Fim da Instalação. ",
           "by: ~~ MarcelloMkez ~~ \nContato: marcello_dirt@hotmail.com",
           inst = {"MarcelloMkez","Advanced Reset System 2.0 por DataBase"

           },

       },

   }
   if words == "/installreset" and getPlayerAccess(cid) >= 3 then
       function install()
           if installReset() then
               print(""..tt.success[7].."")
               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..tt.success[8].."")
               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] -="..tt.success.inst[2].."=- Instalado com sucesso!")
           else
               print("["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
               doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
           end
           return 1
       end
       function concl(cid)
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt.success[7].."")
           print(""..tt[8].."")
           doPlayerSendTextMessage(cid, typetx,""..tt.success[7].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[8].."")
           addEvent(install, 1000,cid)
       end
       function finall(cid)
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt.success[6].."")
           print(""..tt[7].."")
           doPlayerSendTextMessage(cid, typetx,""..tt.success[6].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[7].."")
           addEvent(concl, 3000,cid)
       end
       function installDd(cid)
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt.success[5].."")
           print(""..tt[6].."")
           doPlayerSendTextMessage(cid, typetx,""..tt.success[5].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[6].."")
           addEvent(finall, 1000,cid)
       end
       function installCc(cid)
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt.success[4].."")
           print(""..tt[5].."")
           doPlayerSendTextMessage(cid, typetx,""..tt.success[4].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[5].."")
           addEvent(installDd, 1000,cid)
       end
       function installBb(cid)
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt.success[3].."")
           print(""..tt[4].."")
           doPlayerSendTextMessage(cid, typetx,""..tt.success[3].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[4].."")
           addEvent(installCc, 1000,cid)
       end
       function installAa(cid)
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt.success[2].."")
           print(""..tt[3].."")
           doPlayerSendTextMessage(cid, typetx,""..tt.success[2].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[3].."")
           addEvent(installBb, 1000,cid)
       end
       function toInstall()
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt.success[1].."")
           print(""..tt[2].."")
           doPlayerSendTextMessage(cid, typetx,""..tt.success[1].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[2].."")
           addEvent(installAa, 1000,cid)
       end
       function preparation()
           local typetx = MESSAGE_STATUS_CONSOLE_BLUE
           print(""..tt[1].."")
           doPlayerSendTextMessage(cid, typetx,""..tt[1].."")
           addEvent(toInstall, 3000,cid)
       end
       if preparation() then
       end
   end
   return 1
end
--=[by: Juniior Cwb ;* ]=--

Editado Setembro 16 por fireelement

mikedbrEU QUE FIZ AQUELE POST O.o >>>>MCampones

info

Grupo: Campones

Registrado: 02/10/11

Posts: 47

Reputação: +1

Char no Tibia: Soul Dementor

16 de setembro de 2012 às 21:05

Configura aqui:

  	 local _storage, _duration = 1243, 1000

1243 = storage

1000 = 1 segundo

--[[ <(Advanced Reset System 2.0)>

Autor: Juniior Cwb ;*. Contato: (Juniior_Cwb@hotmail.com)
Versão: 2.0
Testado em: 8.50 e 8.60
TFS: 0.3.6 and 0.4.0
Atenção , Se Achar Esse Sistema em outro site ou forum favor comunicar Eu ( Juniior Cwb ) Juniior_Cwb@hotmail.com )

-=[Características]=-
~( Versão 2.0 )~

- Resets agora Armazenados na DataBase; (Sem Valor de Storage)
- Instala o System e cria a Tabela de Resets com o comando "/installreset";
- Resets no Look do jogador ex: 22:10 You see Marcello [Reset 2] (Level 8). He is an elder druid.;
- [sTAGES] para "Premium Account" e "Free Account"; ]]

--=[Functions]=--

-- installReset()' [instala o Sistema.]
-- tableResetInstall()' [Verifica Se o Sistema ja foi instaladao.]
-- nowReseting()' [Verifica, retorna o erro ou reseta.]
-- getPlayerReset(cid)' [Pega numero de resets do player.]
-- checLevelStageReset(cid)' [Verifica o Level para Resetar.]
-- newReset(cid)' [Verifica todas as Condições de Reset.]
-- addValue(value)' [Adiciona numero de resets.]

--=[Comandos de Jogadores]=--
-- "/installreset" -- Só será usado uma vez, para instalar o sistema.
-- "!resetar" -- Para Resetar.

function onSay(cid, words, param)

if words =="!resetar" then

	--[ Condições de Reset ] --
	local coNdConf = {

		needPz = false, -- Precisa estar em Pz pra resetar? [true, false]
		needPa = false, -- Precisa ser Premium Account Pra resetar? [true, false]
		withe = false, -- Players com Pk Withe podem resetar? [true, false]
		red = true, -- Players com Pk Red pode resetar? [true, false]
		battle = false, -- Players precisão estar sem battle pra resetar? [true, false]
		teleport = false, -- Teleportar Player para o templo após resetar? [true, false]
		look = true, -- Aparecer Resets no Look do Player? [true, false]
		pid = getPlayerGUID(cid), -- Não Mexer.


		--[ Configurações do Reset ] --
		resetConf = {

			Level = 350, -- Level Necessário para Resetar. [Valor]
			backLvl = 8, -- Level que voltará após o Reset. [Valor]
			time = 2, -- Tempo para o Player deslogar ao resetar, em segundos. [Valor]

		},
	}
	--[[>> STAGES <<]]--
	x=true;X=true -- Não Mexer.
	local stage = {Abilitar = {x}, Desabilitar = {}, --<< Abilitar Stages?? >>-- [{x};{}]

		-- [RESETS] | [PREMMY] | [FREE]
		stage1= {resets= 4, premmy= 350, free= 350},
		stage2= {resets= 9, premmy= 360, free= 360}, -- EXPLICANDO e Configurando stages. (Se estiver Abilitado [Abilitar = {x}])
		stage3= {resets= 14, premmy= 370, free= 370}, -- resets = Número de resets para o Stage;
		stage4= {resets= 19, premmy= 380, free= 380}, -- premmy = Level necessário para Premium Accounts;
		stage5= {resets= 24, premmy= 390, free= 390}, -- free = Level necessário para Free Accounts;
		stage6= {resets= 29, premmy= 400, free= 400}, -- Coloque em Ordem...
		stage7= {resets= 34, premmy= 420, free= 420}, -- [OBS: MARQUE UM "X" PARA ABILITAR OU DESABILITAR OS STAGES]
		stage8= {resets= 39, premmy= 440, free= 440}, -- EX: para desabilitar mude: Abilitar = {}, Desabilitar = {x}
		stage9= {resets= 44, premmy= 460, free= 460},
		stage10={resets= 49, premmy= 480, free= 480},
		stage11={resets= 54, premmy= 500, free= 500},
		stage12={resets= 59, premmy= 525, free= 525},
		stage13={resets= 64, premmy= 550, free= 550},
		stage14={resets= 69, premmy= 575, free= 575},
		stage15={resets= 74, premmy= 600, free= 600},
		stage16={resets= 79, premmy= 650, free= 650},
		stage17={resets= 84, premmy= 700, free= 700},
		stage18={resets= 89, premmy= 750, free= 750},
		stage19={resets= 94, premmy= 800, free= 800},
		stage20={resets= 99, premmy= 1000, free= 1000},

	}
	--[[>> FIM STAGES <<]]--

	--=[Pega Valor de Resets]=--
	function getPlayerReset(cid)
		local qr = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";")
		rss = qr:getDataInt("reset", coNdConf.pid)
		if rss < 0 then
			rss = 0
		end
		return rss
	end

	local success = " ~~ Sucesso! ~~ \nVocê tem agora "..(getPlayerReset(cid)+1).." resets. \nVocê será deslogado em "..coNdConf.resetConf.time.." segundos." ;err = doPlayerSendTextMessage
	local qrt = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";");rss_db = qrt:getDataInt("reset", coNdConf.pid)
	local lvl_query = "UPDATE `players` SET `level` = "..(coNdConf.resetConf.backLvl)..", `experience` = 0 WHERE `id`= " .. coNdConf.pid .. ";"
	local reset_query = "UPDATE `players` SET `reset` = "..(getPlayerReset(cid)+(1)).." WHERE `id`= " .. coNdConf.pid .. ";"
	local nolook_query = "UPDATE `players` SET `description` = '' WHERE `players`.`id`= " .. coNdConf.pid .. ";"
	local look_query = "UPDATE `players` SET `description` = ' [Reset "..(getPlayerReset(cid)+(1)).."]' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

	--=[Reseta]=--
	local _storage, _duration = 1243, 1000
	if getPlayerStorageValue(cid, 1243) - os.time() > 0 then
		doPlayerSendCancel(cid, "You need wait [ " .. getPlayerStorageValue(cid, _storage) - os.time() .. " ] seconds.")
		return false
	end

	function addValue(value)
		if coNdConf.look == false then
			doRemoveCreature(cid)
			db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(nolook_query)
			setPlayerStorageValue(cid, _storage, os.time() + 2 * _duration)
		else
			doRemoveCreature(cid)
			db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(look_query)
			setPlayerStorageValue(cid, _storage, os.time() + 2 * _duration)
			return LUA_NO_ERROR
		end
	end

	function nowReseting()
		if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
			return true
		end
		if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
			doPlayerPopupFYI(cid, success)
			addEvent(addValue, coNdConf.resetConf.time*1000, value)
		else
			doPlayerPopupFYI(cid, success)
			addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
			addEvent(addValue, coNdConf.resetConf.time*1000, value)
			return true
		end
	end

	--[sTAGES Nao mexer em nada.]--
	function checkLevelStageReset(cid)

		local stages = {
			{resets= stage.stage1.resets, premmy= stage.stage1.premmy, free= stage.stage1.free},
			{resets= stage.stage2.resets, premmy= stage.stage2.premmy, free= stage.stage2.free},
			{resets= stage.stage3.resets, premmy= stage.stage3.premmy, free= stage.stage3.free},
			{resets= stage.stage4.resets, premmy= stage.stage4.premmy, free= stage.stage4.free},
			{resets= stage.stage5.resets, premmy= stage.stage5.premmy, free= stage.stage5.free},
			{resets= stage.stage6.resets, premmy= stage.stage6.premmy, free= stage.stage6.free},
			{resets= stage.stage7.resets, premmy= stage.stage7.premmy, free= stage.stage7.free},
			{resets= stage.stage8.resets, premmy= stage.stage8.premmy, free= stage.stage8.free},
			{resets= stage.stage9.resets, premmy= stage.stage9.premmy, free= stage.stage9.free},
			{resets=stage.stage10.resets, premmy=stage.stage10.premmy, free=stage.stage10.free},
			{resets=stage.stage11.resets, premmy=stage.stage11.premmy, free=stage.stage11.free},
			{resets=stage.stage12.resets, premmy=stage.stage12.premmy, free=stage.stage12.free},
			{resets=stage.stage13.resets, premmy=stage.stage13.premmy, free=stage.stage13.free},
			{resets=stage.stage14.resets, premmy=stage.stage14.premmy, free=stage.stage14.free},
			{resets=stage.stage15.resets, premmy=stage.stage15.premmy, free=stage.stage15.free},
			{resets=stage.stage16.resets, premmy=stage.stage16.premmy, free=stage.stage16.free},
			{resets=stage.stage17.resets, premmy=stage.stage17.premmy, free=stage.stage17.free},
			{resets=stage.stage18.resets, premmy=stage.stage18.premmy, free=stage.stage18.free},
			{resets=stage.stage19.resets, premmy=stage.stage19.premmy, free=stage.stage19.free},
			{resets=stage.stage20.resets, premmy=stage.stage20.premmy, free=stage.stage20.free},

		}
		local resets = getPlayerReset(cid)
		for i, tab in ipairs(stages) do
			if resets <= tab.resets then
				coNdConf.resetConf.Level = isPremium(cid) and tab.premmy or tab.free
				break
			end
		end
		if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
			err(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
			return TRUE
		end

		if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
			doPlayerPopupFYI(cid, success)
			addEvent(addValue, coNdConf.resetConf.time*1000, value)
		else
			doPlayerPopupFYI(cid, success)
			addEvent(addValue, coNdConf.resetConf.time*1000, value)
			addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
			return true
		end
	end
	function newReset(cid)
		if(coNdConf.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then
		err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar em Protection Zone Para Resetar. -") return TRUE end
		if(coNdConf.needPa == true) and not isPremium(cid) then
		err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa ser Premium Account para Resetar. -") return TRUE end
		if(coNdConf.withe == false) and (getCreatureSkullType(cid) == 3) then
		err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Withe. -") return TRUE end
		if(coNdConf.red == false) and (getCreatureSkullType(cid) == 4) then
		err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Red. -") return TRUE end
		if(coNdConf.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
		err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar sem Battle para Resetar. -") return TRUE end

		local xy = {true,false}
		table.insert(stage.Abilitar, false)
		table.insert(stage.Desabilitar, false)
		if stage.Abilitar[1] == xy[1] and stage.Desabilitar[1] == xy[2] then
			checkLevelStageReset(cid)
		elseif stage.Abilitar[1] == xy[2] and stage.Desabilitar[1] == xy[1] then
			nowReseting()
		else
			doPlayerPopupFYI(cid, "LUA_ERROR; Configure corretamente o Sistema de STAGES!")
		end
		return true
	end
	function tableResetInstall()
		print(not rss_db and LUA_ERROR or "Tabela de Resets: Instalada ... [success] ")
		addEvent(newReset, 1000, cid)
		return false
	end
	if tableResetInstall() then
	end
end
--=[install System]=--
function installReset()
	if db.executeQuery("ALTER TABLE `players` ADD reset INT(11) NOT NULL DEFAULT 0;") then
		print("[MarcelloMkez] -= Advanced Reset System 2.0 por DataBase =- Instalado com sucesso!")
		return TRUE
	end
	print('[Advanced Reset System/MarcelloMkez] Não foi possível instalar o Sistema.')
	return FALSE
end
local tt = {
	"Preparando Instalação...",
	"Instalando: TableReset Db...",
	"Instalando: getPlayerReset()...",
	"Instalando: addValue()...",
	"Instalando: checkLevelStageReset()...",
	"Instalando: newReset() and nowReseting()...",
	"Finalizando Instalação...",
	"...",
	success = {
		"Iniciando...",
		"function: TableReset Db... [success]",
		"function: getPlayerReset()... [success]",
		"function: addValue(value)... [success]",
		"function: checkLevelStageReset()... [success]",
		"function: newReset() and nowReseting()... [success]",
		"Fim da Instalação. ",
		"by: ~~ MarcelloMkez ~~ \nContato: marcello_dirt@hotmail.com",
		inst = {"MarcelloMkez","Advanced Reset System 2.0 por DataBase"

		},

	},

}
if words == "/installreset" and getPlayerAccess(cid) >= 3 then
	function install()
		if installReset() then
			print(""..tt.success[7].."")
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..tt.success[8].."")
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] -="..tt.success.inst[2].."=- Instalado com sucesso!")
		else
			print("["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
		end
		return 1
	end
	function concl(cid)
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt.success[7].."")
		print(""..tt[8].."")
		doPlayerSendTextMessage(cid, typetx,""..tt.success[7].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[8].."")
		addEvent(install, 1000,cid)
	end
	function finall(cid)
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt.success[6].."")
		print(""..tt[7].."")
		doPlayerSendTextMessage(cid, typetx,""..tt.success[6].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[7].."")
		addEvent(concl, 3000,cid)
	end
	function installDd(cid)
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt.success[5].."")
		print(""..tt[6].."")
		doPlayerSendTextMessage(cid, typetx,""..tt.success[5].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[6].."")
		addEvent(finall, 1000,cid)
	end
	function installCc(cid)
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt.success[4].."")
		print(""..tt[5].."")
		doPlayerSendTextMessage(cid, typetx,""..tt.success[4].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[5].."")
		addEvent(installDd, 1000,cid)
	end
	function installBb(cid)
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt.success[3].."")
		print(""..tt[4].."")
		doPlayerSendTextMessage(cid, typetx,""..tt.success[3].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[4].."")
		addEvent(installCc, 1000,cid)
	end
	function installAa(cid)
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt.success[2].."")
		print(""..tt[3].."")
		doPlayerSendTextMessage(cid, typetx,""..tt.success[2].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[3].."")
		addEvent(installBb, 1000,cid)
	end
	function toInstall()
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt.success[1].."")
		print(""..tt[2].."")
		doPlayerSendTextMessage(cid, typetx,""..tt.success[1].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[2].."")
		addEvent(installAa, 1000,cid)
	end
	function preparation()
		local typetx = MESSAGE_STATUS_CONSOLE_BLUE
		print(""..tt[1].."")
		doPlayerSendTextMessage(cid, typetx,""..tt[1].."")
		addEvent(toInstall, 3000,cid)
	end
	if preparation() then
	end
end
return 1
end
--=[by: Juniior Cwb ;* ]=--

não deu '-', os players simplesmente conseguem falar !resetar freneticamente u-u

Leoxtibia LVisconde

info

Grupo: Visconde

Registrado: 22/06/08

Posts: 489

Reputação: +137

Gênero: Masculino

16 de setembro de 2012 às 21:28

Edite em :

resetConf = {

exausthed = 60, -- tempo em segundos

--[[ <(Advanced Reset System 2.0)>

Autor: Juniior Cwb ;*. Contato: (Juniior_Cwb@hotmail.com)
Versão: 2.0
Testado em: 8.50 e 8.60
TFS: 0.3.6 and 0.4.0
Atenção , Se Achar Esse Sistema em outro site ou forum favor comunicar Eu ( Juniior Cwb ) Juniior_Cwb@hotmail.com )

-=[Características]=-
~( Versão 2.0 )~

- Resets agora Armazenados na DataBase; (Sem Valor de Storage)
- Instala o System e cria a Tabela de Resets com o comando "/installreset";
- Resets no Look do jogador ex: 22:10 You see Marcello [Reset 2] (Level 8). He is an elder druid.;
- [sTAGES] para "Premium Account" e "Free Account"; ]]

--=[Functions]=--

-- installReset()' [instala o Sistema.]
-- tableResetInstall()' [Verifica Se o Sistema ja foi instaladao.]
-- nowReseting()' [Verifica, retorna o erro ou reseta.]
-- getPlayerReset(cid)' [Pega numero de resets do player.]
-- checLevelStageReset(cid)' [Verifica o Level para Resetar.]
-- newReset(cid)' [Verifica todas as Condições de Reset.]
-- addValue(value)' [Adiciona numero de resets.]

--=[Comandos de Jogadores]=--
-- "/installreset" -- Só será usado uma vez, para instalar o sistema.
-- "!resetar" -- Para Resetar.

function onSay(cid, words, param)

if words =="!resetar" then

--[ Condições de Reset ] --
local coNdConf = {

needPz = false, -- Precisa estar em Pz pra resetar? [true, false]
needPa = false, -- Precisa ser Premium Account Pra resetar? [true, false]
withe = false, -- Players com Pk Withe podem resetar? [true, false]
red = true, -- Players com Pk Red pode resetar? [true, false]
battle = false, -- Players precisão estar sem battle pra resetar? [true, false]
teleport = false, -- Teleportar Player para o templo após resetar? [true, false]
look = true, -- Aparecer Resets no Look do Player? [true, false]
pid = getPlayerGUID(cid), -- Não Mexer.


--[ Configurações do Reset ] --
resetConf = {
exausthed = 60, -- tempo em segundos
Level = 350, -- Level Necessário para Resetar. [Valor]
backLvl = 8, -- Level que voltará após o Reset. [Valor]
time = 2, -- Tempo para o Player deslogar ao resetar, em segundos. [Valor]

},
}
--[[>> STAGES <<]]--
x=true;X=true -- Não Mexer.
local stage = {Abilitar = {x}, Desabilitar = {}, --<< Abilitar Stages?? >>-- [{x};{}]

-- [RESETS] | [PREMMY] | [FREE]
stage1= {resets= 4, premmy= 350, free= 350},
stage2= {resets= 9, premmy= 360, free= 360}, -- EXPLICANDO e Configurando stages. (Se estiver Abilitado [Abilitar = {x}])
stage3= {resets= 14, premmy= 370, free= 370}, -- resets = Número de resets para o Stage;
stage4= {resets= 19, premmy= 380, free= 380}, -- premmy = Level necessário para Premium Accounts;
stage5= {resets= 24, premmy= 390, free= 390}, -- free = Level necessário para Free Accounts;
stage6= {resets= 29, premmy= 400, free= 400}, -- Coloque em Ordem...
stage7= {resets= 34, premmy= 420, free= 420}, -- [OBS: MARQUE UM "X" PARA ABILITAR OU DESABILITAR OS STAGES]
stage8= {resets= 39, premmy= 440, free= 440}, -- EX: para desabilitar mude: Abilitar = {}, Desabilitar = {x}
stage9= {resets= 44, premmy= 460, free= 460},
stage10={resets= 49, premmy= 480, free= 480},
stage11={resets= 54, premmy= 500, free= 500},
stage12={resets= 59, premmy= 525, free= 525},
stage13={resets= 64, premmy= 550, free= 550},
stage14={resets= 69, premmy= 575, free= 575},
stage15={resets= 74, premmy= 600, free= 600},
stage16={resets= 79, premmy= 650, free= 650},
stage17={resets= 84, premmy= 700, free= 700},
stage18={resets= 89, premmy= 750, free= 750},
stage19={resets= 94, premmy= 800, free= 800},
stage20={resets= 99, premmy= 1000, free= 1000},

}
--[[>> FIM STAGES <<]]--

--=[Pega Valor de Resets]=--
function getPlayerReset(cid)
local qr = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";")
rss = qr:getDataInt("reset", coNdConf.pid)
if rss < 0 then
rss = 0
end
return rss
end

local success = " ~~ Sucesso! ~~ \nVocê tem agora "..(getPlayerReset(cid)+1).." resets. \nVocê será deslogado em "..coNdConf.resetConf.time.." segundos." ;err = doPlayerSendTextMessage
local qrt = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";");rss_db = qrt:getDataInt("reset", coNdConf.pid)
local lvl_query = "UPDATE `players` SET `level` = "..(coNdConf.resetConf.backLvl)..", `experience` = 0 WHERE `id`= " .. coNdConf.pid .. ";"
local reset_query = "UPDATE `players` SET `reset` = "..(getPlayerReset(cid)+(1)).." WHERE `id`= " .. coNdConf.pid .. ";"
local nolook_query = "UPDATE `players` SET `description` = '' WHERE `players`.`id`= " .. coNdConf.pid .. ";"
local look_query = "UPDATE `players` SET `description` = ' [Reset "..(getPlayerReset(cid)+(1)).."]' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

--=[Reseta]=--
function addValue(value)
if coNdConf.look == false then
doRemoveCreature(cid)
db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(nolook_query)
else
doRemoveCreature(cid)
db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(look_query)
return LUA_NO_ERROR
end
end

function nowReseting()
if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
return true
end
if getPlayerStorageValue(cid, 5411) > os.time() then
doPlayerSendCancel(cid, "Voce so pode utilizar esse comando a cada "..resetConf.exausthed.." segundos!")
return false
end
if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
doPlayerPopupFYI(cid, success)
addEvent(addValue, coNdConf.resetConf.time*1000, value)
setPlayerStorageValue(cid, 5411, os.time() + resetConf.exausthed)
else
doPlayerPopupFYI(cid, success)
addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
addEvent(addValue, coNdConf.resetConf.time*1000, value)
setPlayerStorageValue(cid, 5411, os.time() + resetConf.exausthed)
return true
end
end

--[sTAGES Nao mexer em nada.]--
function checkLevelStageReset(cid)

local stages = {
{resets= stage.stage1.resets, premmy= stage.stage1.premmy, free= stage.stage1.free},
{resets= stage.stage2.resets, premmy= stage.stage2.premmy, free= stage.stage2.free},
{resets= stage.stage3.resets, premmy= stage.stage3.premmy, free= stage.stage3.free},
{resets= stage.stage4.resets, premmy= stage.stage4.premmy, free= stage.stage4.free},
{resets= stage.stage5.resets, premmy= stage.stage5.premmy, free= stage.stage5.free},
{resets= stage.stage6.resets, premmy= stage.stage6.premmy, free= stage.stage6.free},
{resets= stage.stage7.resets, premmy= stage.stage7.premmy, free= stage.stage7.free},
{resets= stage.stage8.resets, premmy= stage.stage8.premmy, free= stage.stage8.free},
{resets= stage.stage9.resets, premmy= stage.stage9.premmy, free= stage.stage9.free},
{resets=stage.stage10.resets, premmy=stage.stage10.premmy, free=stage.stage10.free},
{resets=stage.stage11.resets, premmy=stage.stage11.premmy, free=stage.stage11.free},
{resets=stage.stage12.resets, premmy=stage.stage12.premmy, free=stage.stage12.free},
{resets=stage.stage13.resets, premmy=stage.stage13.premmy, free=stage.stage13.free},
{resets=stage.stage14.resets, premmy=stage.stage14.premmy, free=stage.stage14.free},
{resets=stage.stage15.resets, premmy=stage.stage15.premmy, free=stage.stage15.free},
{resets=stage.stage16.resets, premmy=stage.stage16.premmy, free=stage.stage16.free},
{resets=stage.stage17.resets, premmy=stage.stage17.premmy, free=stage.stage17.free},
{resets=stage.stage18.resets, premmy=stage.stage18.premmy, free=stage.stage18.free},
{resets=stage.stage19.resets, premmy=stage.stage19.premmy, free=stage.stage19.free},
{resets=stage.stage20.resets, premmy=stage.stage20.premmy, free=stage.stage20.free},

}
local resets = getPlayerReset(cid)
for i, tab in ipairs(stages) do
if resets <= tab.resets then
coNdConf.resetConf.Level = isPremium(cid) and tab.premmy or tab.free
break
end
end
if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
err(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
return TRUE
end

if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
doPlayerPopupFYI(cid, success)
addEvent(addValue, coNdConf.resetConf.time*1000, value)
else
doPlayerPopupFYI(cid, success)
addEvent(addValue, coNdConf.resetConf.time*1000, value)
addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
return true
end
end
function newReset(cid)
if(coNdConf.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar em Protection Zone Para Resetar. -") return TRUE end
if(coNdConf.needPa == true) and not isPremium(cid) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa ser Premium Account para Resetar. -") return TRUE end
if(coNdConf.withe == false) and (getCreatureSkullType(cid) == 3) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Withe. -") return TRUE end
if(coNdConf.red == false) and (getCreatureSkullType(cid) == 4) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Red. -") return TRUE end
if(coNdConf.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar sem Battle para Resetar. -") return TRUE end

local xy = {true,false}
table.insert(stage.Abilitar, false)
table.insert(stage.Desabilitar, false)
if stage.Abilitar[1] == xy[1] and stage.Desabilitar[1] == xy[2] then
checkLevelStageReset(cid)
elseif stage.Abilitar[1] == xy[2] and stage.Desabilitar[1] == xy[1] then
nowReseting()
else
doPlayerPopupFYI(cid, "LUA_ERROR; Configure corretamente o Sistema de STAGES!")
end
return true
end
function tableResetInstall()
print(not rss_db and LUA_ERROR or "Tabela de Resets: Instalada ... [success] ")
addEvent(newReset, 1000, cid)
return false
end
if tableResetInstall() then
end
end
--=[install System]=--
function installReset()
if db.executeQuery("ALTER TABLE `players` ADD reset INT(11) NOT NULL DEFAULT 0;") then
print("[MarcelloMkez] -= Advanced Reset System 2.0 por DataBase =- Instalado com sucesso!")
return TRUE
end
print('[Advanced Reset System/MarcelloMkez] Não foi possível instalar o Sistema.')
return FALSE
end
local tt = {
"Preparando Instalação...",
"Instalando: TableReset Db...",
"Instalando: getPlayerReset()...",
"Instalando: addValue()...",
"Instalando: checkLevelStageReset()...",
"Instalando: newReset() and nowReseting()...",
"Finalizando Instalação...",
"...",
success = {
"Iniciando...",
"function: TableReset Db... [success]",
"function: getPlayerReset()... [success]",
"function: addValue(value)... [success]",
"function: checkLevelStageReset()... [success]",
"function: newReset() and nowReseting()... [success]",
"Fim da Instalação. ",
"by: ~~ MarcelloMkez ~~ \nContato: marcello_dirt@hotmail.com",
inst = {"MarcelloMkez","Advanced Reset System 2.0 por DataBase"

},

},

}
if words == "/installreset" and getPlayerAccess(cid) >= 3 then
function install()
if installReset() then
print(""..tt.success[7].."")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..tt.success[8].."")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] -="..tt.success.inst[2].."=- Instalado com sucesso!")
else
print("["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
end
return 1
end
function concl(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[7].."")
print(""..tt[8].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[7].."")
doPlayerSendTextMessage(cid, typetx,""..tt[8].."")
addEvent(install, 1000,cid)
end
function finall(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[6].."")
print(""..tt[7].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[6].."")
doPlayerSendTextMessage(cid, typetx,""..tt[7].."")
addEvent(concl, 3000,cid)
end
function installDd(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[5].."")
print(""..tt[6].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[5].."")
doPlayerSendTextMessage(cid, typetx,""..tt[6].."")
addEvent(finall, 1000,cid)
end
function installCc(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[4].."")
print(""..tt[5].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[4].."")
doPlayerSendTextMessage(cid, typetx,""..tt[5].."")
addEvent(installDd, 1000,cid)
end
function installBb(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[3].."")
print(""..tt[4].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[3].."")
doPlayerSendTextMessage(cid, typetx,""..tt[4].."")
addEvent(installCc, 1000,cid)
end
function installAa(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[2].."")
print(""..tt[3].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[2].."")
doPlayerSendTextMessage(cid, typetx,""..tt[3].."")
addEvent(installBb, 1000,cid)
end
function toInstall()
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[1].."")
print(""..tt[2].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[1].."")
doPlayerSendTextMessage(cid, typetx,""..tt[2].."")
addEvent(installAa, 1000,cid)
end
function preparation()
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt[1].."")
doPlayerSendTextMessage(cid, typetx,""..tt[1].."")
addEvent(toInstall, 3000,cid)
end
if preparation() then
end
end
return 1
end
--=[by: Juniior Cwb ;* ]=--

mikedbrEU QUE FIZ AQUELE POST O.o >>>>MCampones

info

Grupo: Campones

Registrado: 02/10/11

Posts: 47

Reputação: +1

Char no Tibia: Soul Dementor

16 de setembro de 2012 às 22:16

ajudaaaaaaaaaaaaaaaa :'(

SkyDangerousDeus KalecSLorde Lorde

info

Grupo: Lorde

Registrado: 17/01/09

Posts: 2.1k

Reputação: +395

Char no Tibia: Adra Sata

16 de setembro de 2012 às 22:49

ajudaaaaaaaaaaaaaaaa :'(

Cara, isso é considerado flood.

não percebe que estão tentando..

Demonbholder DInfante Infante

info

Grupo: Infante

Registrado: 13/10/08

Posts: 1.6k

Reputação: +420

Char no Tibia: Demonbholder

17 de setembro de 2012 às 01:03

ajudaaaaaaaaaaaaaaaa :'(

Cuidado para não cometer flood.

Na próxima é alerta.

Leoxtibia LVisconde

info

Grupo: Visconde

Registrado: 22/06/08

Posts: 489

Reputação: +137

Gênero: Masculino

17 de setembro de 2012 às 07:43

Cara, você olhou o que eu mandei?Fica dando flood e nem olha o tópico inteiro. Clica em spoiler e testa.

mikedbrEU QUE FIZ AQUELE POST O.o >>>>MCampones

info

Grupo: Campones

Registrado: 02/10/11

Posts: 47

Reputação: +1

Char no Tibia: Soul Dementor

17 de setembro de 2012 às 12:16

Cara, você olhou o que eu mandei?Fica dando flood e nem olha o tópico inteiro. Clica em spoiler e testa.

Sim olhei, não funcionou.

e desculpe pelo flood, pensei que ninguém tinha postado, só depois aparecer o comentario do Leoxtibia.

Oneshot OMarquês

info

Grupo: Marquês

Registrado: 05/07/09

Posts: 1.3k

Reputação: +732

17 de setembro de 2012 às 13:13

O que mais me impressiona nesse tópico é o ripping descarado feito por esse tal de Juniior Cwb, o sistema é de autoria do MarcelloMkez.

Enfim,

--[[ <(Advanced Reset System 2.0)>

Autor: MarcelloMkez
Versão: 2.0
Testado em: 8.50 e 8.60
TFS: 0.3.6 and 0.4.0

-=[Características]=-
~( Versão 2.0 )~

- Resets agora Armazenados na DataBase; (Sem Valor de Storage)
- Instala o System e cria a Tabela de Resets com o comando "/installreset";
- Resets no Look do jogador ex: 22:10 You see Marcello [Reset 2] (Level 8). He is an elder druid.;
- [sTAGES] para "Premium Account" e "Free Account"; ]] 

--=[Functions]=--

-- installReset()' [instala o Sistema.]
-- tableResetInstall()' [Verifica Se o Sistema ja foi instaladao.]
-- nowReseting()' [Verifica, retorna o erro ou reseta.]
-- getPlayerReset(cid)' [Pega numero de resets do player.]
-- checLevelStageReset(cid)' [Verifica o Level para Resetar.]
-- newReset(cid)' [Verifica todas as Condições de Reset.]
-- addValue(value)' [Adiciona numero de resets.]

--=[Comandos de Jogadores]=--
-- "/installreset" -- Só será usado uma vez, para instalar o sistema.
-- "!resetar" -- Para Resetar.

function onSay(cid, words, param)

if words =="!resetar" then

--[ Condições de Reset ] --
local coNdConf = {

needPz = false, -- Precisa estar em Pz pra resetar? [true, false]
needPa = false, -- Precisa ser Premium Account Pra resetar? [true, false]
withe = false, -- Players com Pk Withe podem resetar? [true, false]
red = true, -- Players com Pk Red pode resetar? [true, false]
battle = false, -- Players precisão estar sem battle pra resetar? [true, false]
teleport = false, -- Teleportar Player para o templo após resetar? [true, false]
look = true, -- Aparecer Resets no Look do Player? [true, false]
pid = getPlayerGUID(cid), -- Não Mexer.


--[ Configurações do Reset ] --
resetConf = {

Level = 350, -- Level Necessário para Resetar. [Valor]
backLvl = 8, -- Level que voltará após o Reset. [Valor]
time = 2, -- Tempo para o Player deslogar ao resetar, em segundos. [Valor]

},
}
--[[>> STAGES <<]]--
x=true;X=true -- Não Mexer.
local stage = {Abilitar = {x}, Desabilitar = {}, --<< Abilitar Stages?? >>-- [{x};{}]

-- [RESETS] | [PREMMY] | [FREE]
stage1= {resets= 4, premmy= 350, free= 350},
stage2= {resets= 9, premmy= 360, free= 360}, -- EXPLICANDO e Configurando stages. (Se estiver Abilitado [Abilitar = {x}])
stage3= {resets= 14, premmy= 370, free= 370}, -- resets = Número de resets para o Stage;
stage4= {resets= 19, premmy= 380, free= 380}, -- premmy = Level necessário para Premium Accounts;
stage5= {resets= 24, premmy= 390, free= 390}, -- free = Level necessário para Free Accounts;
stage6= {resets= 29, premmy= 400, free= 400}, -- Coloque em Ordem...
stage7= {resets= 34, premmy= 420, free= 420}, -- [OBS: MARQUE UM "X" PARA ABILITAR OU DESABILITAR OS STAGES]
stage8= {resets= 39, premmy= 440, free= 440}, -- EX: para desabilitar mude: Abilitar = {}, Desabilitar = {x}
stage9= {resets= 44, premmy= 460, free= 460},
stage10={resets= 49, premmy= 480, free= 480},
stage11={resets= 54, premmy= 500, free= 500},
stage12={resets= 59, premmy= 525, free= 525},
stage13={resets= 64, premmy= 550, free= 550},
stage14={resets= 69, premmy= 575, free= 575},
stage15={resets= 74, premmy= 600, free= 600},
stage16={resets= 79, premmy= 650, free= 650},
stage17={resets= 84, premmy= 700, free= 700},
stage18={resets= 89, premmy= 750, free= 750},
stage19={resets= 94, premmy= 800, free= 800},
stage20={resets= 99, premmy= 1000, free= 1000},

}
--[[>> FIM STAGES <<]]--

--=[Pega Valor de Resets]=--
function getPlayerReset(cid)
local qr = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";")
rss = qr:getDataInt("reset", coNdConf.pid)
if rss < 0 then
rss = 0
end
return rss
end

local success = " ~~ Sucesso! ~~ \nVocê tem agora "..(getPlayerReset(cid)+1).." resets. \nVocê será deslogado em "..coNdConf.resetConf.time.." segundos." ;err = doPlayerSendTextMessage
local qrt = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";");rss_db = qrt:getDataInt("reset", coNdConf.pid)
local lvl_query = "UPDATE `players` SET `level` = "..(coNdConf.resetConf.backLvl)..", `experience` = 0 WHERE `id`= " .. coNdConf.pid .. ";"
local reset_query = "UPDATE `players` SET `reset` = "..(getPlayerReset(cid)+(1)).." WHERE `id`= " .. coNdConf.pid .. ";"
local nolook_query = "UPDATE `players` SET `description` = '' WHERE `players`.`id`= " .. coNdConf.pid .. ";"
local look_query = "UPDATE `players` SET `description` = ' [Reset "..(getPlayerReset(cid)+(1)).."]' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

--=[Reseta]=--
function addValue(value)
if coNdConf.look == false then
doRemoveCreature(cid)
db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(nolook_query)
else
doRemoveCreature(cid)
db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(look_query)
return LUA_NO_ERROR
end
end

function nowReseting()
if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
return true
end
if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
doPlayerPopupFYI(cid, success)
addEvent(addValue, coNdConf.resetConf.time*1000, value)
doCreatureSetStorage(cid, 83333, os.time() + 30)
else
doPlayerPopupFYI(cid, success)
addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
addEvent(addValue, coNdConf.resetConf.time*1000, value)
doCreatureSetStorage(cid, 83333, os.time() + 30)
return true
end
end

--[sTAGES Nao mexer em nada.]--
function checkLevelStageReset(cid)

local stages = {
{resets= stage.stage1.resets, premmy= stage.stage1.premmy, free= stage.stage1.free},
{resets= stage.stage2.resets, premmy= stage.stage2.premmy, free= stage.stage2.free},
{resets= stage.stage3.resets, premmy= stage.stage3.premmy, free= stage.stage3.free},
{resets= stage.stage4.resets, premmy= stage.stage4.premmy, free= stage.stage4.free},
{resets= stage.stage5.resets, premmy= stage.stage5.premmy, free= stage.stage5.free},
{resets= stage.stage6.resets, premmy= stage.stage6.premmy, free= stage.stage6.free},
{resets= stage.stage7.resets, premmy= stage.stage7.premmy, free= stage.stage7.free},
{resets= stage.stage8.resets, premmy= stage.stage8.premmy, free= stage.stage8.free},
{resets= stage.stage9.resets, premmy= stage.stage9.premmy, free= stage.stage9.free},
{resets=stage.stage10.resets, premmy=stage.stage10.premmy, free=stage.stage10.free},
{resets=stage.stage11.resets, premmy=stage.stage11.premmy, free=stage.stage11.free},
{resets=stage.stage12.resets, premmy=stage.stage12.premmy, free=stage.stage12.free},
{resets=stage.stage13.resets, premmy=stage.stage13.premmy, free=stage.stage13.free},
{resets=stage.stage14.resets, premmy=stage.stage14.premmy, free=stage.stage14.free},
{resets=stage.stage15.resets, premmy=stage.stage15.premmy, free=stage.stage15.free},
{resets=stage.stage16.resets, premmy=stage.stage16.premmy, free=stage.stage16.free},
{resets=stage.stage17.resets, premmy=stage.stage17.premmy, free=stage.stage17.free},
{resets=stage.stage18.resets, premmy=stage.stage18.premmy, free=stage.stage18.free},
{resets=stage.stage19.resets, premmy=stage.stage19.premmy, free=stage.stage19.free},
{resets=stage.stage20.resets, premmy=stage.stage20.premmy, free=stage.stage20.free},

}
local resets = getPlayerReset(cid)
for i, tab in ipairs(stages) do
if resets <= tab.resets then
coNdConf.resetConf.Level = isPremium(cid) and tab.premmy or tab.free
break
end
end
if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then
err(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")
return TRUE
end

if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then
doPlayerPopupFYI(cid, success)
addEvent(addValue, coNdConf.resetConf.time*1000, value)
else
doPlayerPopupFYI(cid, success)
addEvent(addValue, coNdConf.resetConf.time*1000, value)
addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))
return true
end
end
function newReset(cid)
if(coNdConf.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar em Protection Zone Para Resetar. -") return TRUE end
if(coNdConf.needPa == true) and not isPremium(cid) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa ser Premium Account para Resetar. -") return TRUE end
if(coNdConf.withe == false) and (getCreatureSkullType(cid) == 3) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Withe. -") return TRUE end
if(coNdConf.red == false) and (getCreatureSkullType(cid) == 4) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Red. -") return TRUE end
if(coNdConf.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar sem Battle para Resetar. -") return TRUE end
if getCreatureStorage(cid, 83333) > os.time() then
err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa aguardar mais alguns segundos antes de Resetar. -") return TRUE end

local xy = {true,false}
table.insert(stage.Abilitar, false)
table.insert(stage.Desabilitar, false)
if stage.Abilitar[1] == xy[1] and stage.Desabilitar[1] == xy[2] then
checkLevelStageReset(cid)
elseif stage.Abilitar[1] == xy[2] and stage.Desabilitar[1] == xy[1] then
nowReseting()
else
doPlayerPopupFYI(cid, "LUA_ERROR; Configure corretamente o Sistema de STAGES!")
end
return true
end
function tableResetInstall()
print(not rss_db and LUA_ERROR or "Tabela de Resets: Instalada ... [success] ")
addEvent(newReset, 1000, cid)
return false
end
if tableResetInstall() then
end
end
--=[install System]=--
function installReset()
if db.executeQuery("ALTER TABLE `players` ADD reset INT(11) NOT NULL DEFAULT 0;") then
print("[MarcelloMkez] -= Advanced Reset System 2.0 por DataBase =- Instalado com sucesso!")
return TRUE
end
print('[Advanced Reset System/MarcelloMkez] Não foi possível instalar o Sistema.')
return FALSE
end
local tt = {
"Preparando Instalação...",
"Instalando: TableReset Db...",
"Instalando: getPlayerReset()...",
"Instalando: addValue()...",
"Instalando: checkLevelStageReset()...",
"Instalando: newReset() and nowReseting()...",
"Finalizando Instalação...",
"...",
success = {
"Iniciando...",
"function: TableReset Db... [success]",
"function: getPlayerReset()... [success]",
"function: addValue(value)... [success]",
"function: checkLevelStageReset()... [success]",
"function: newReset() and nowReseting()... [success]",
"Fim da Instalação. ",
"by: ~~ MarcelloMkez ~~ \nContato: marcello_dirt@hotmail.com",
inst = {"MarcelloMkez","Advanced Reset System 2.0 por DataBase"

},

},

}
if words == "/installreset" and getPlayerAccess(cid) >= 3 then
function install()
if installReset() then
print(""..tt.success[7].."")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..tt.success[8].."")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] -="..tt.success.inst[2].."=- Instalado com sucesso!")
else
print("["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")
end
return 1
end
function concl(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[7].."")
print(""..tt[8].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[7].."")
doPlayerSendTextMessage(cid, typetx,""..tt[8].."")
addEvent(install, 1000,cid)
end
function finall(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[6].."")
print(""..tt[7].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[6].."")
doPlayerSendTextMessage(cid, typetx,""..tt[7].."")
addEvent(concl, 3000,cid)
end
function installDd(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[5].."")
print(""..tt[6].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[5].."")
doPlayerSendTextMessage(cid, typetx,""..tt[6].."")
addEvent(finall, 1000,cid)
end
function installCc(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[4].."")
print(""..tt[5].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[4].."")
doPlayerSendTextMessage(cid, typetx,""..tt[5].."")
addEvent(installDd, 1000,cid)
end
function installBb(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[3].."")
print(""..tt[4].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[3].."")
doPlayerSendTextMessage(cid, typetx,""..tt[4].."")
addEvent(installCc, 1000,cid)
end
function installAa(cid)
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[2].."")
print(""..tt[3].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[2].."")
doPlayerSendTextMessage(cid, typetx,""..tt[3].."")
addEvent(installBb, 1000,cid)
end
function toInstall()
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt.success[1].."")
print(""..tt[2].."")
doPlayerSendTextMessage(cid, typetx,""..tt.success[1].."")
doPlayerSendTextMessage(cid, typetx,""..tt[2].."")
addEvent(installAa, 1000,cid)
end
function preparation()
local typetx = MESSAGE_STATUS_CONSOLE_BLUE
print(""..tt[1].."")
doPlayerSendTextMessage(cid, typetx,""..tt[1].."")
addEvent(toInstall, 3000,cid)
end
if preparation() then
end
end
return 1
end

mikedbrEU QUE FIZ AQUELE POST O.o >>>>MCampones

info

Grupo: Campones

Registrado: 02/10/11

Posts: 47

Reputação: +1

Char no Tibia: Soul Dementor

17 de setembro de 2012 às 13:35

sim, também percebi, e você pode ver no script em algumas partes que tem o nome do Marcelo @edit não funcionou seu script @edit² como NINGUéM conseguiu me ajudar, vou estar mostrando o erro para que talvez seja mais facil solucionar o.O

Editado Setembro 17 por MiKeZeerA

SkyDangerousDeus KalecSLorde Lorde

info

Grupo: Lorde

Registrado: 17/01/09

Posts: 2.1k

Reputação: +395

Char no Tibia: Adra Sata

17 de setembro de 2012 às 17:00

Provavelmente sua tag na talkaction está /installreset para qualquer membro usar.

só botar acess="6", deve ser isso.

ps: getPlayerAccess(cid) >= 3 then

não tinha visto que já tinha no script ;D

Editado Setembro 17 por SkyDangerous

eduardo190696Força de vontade ensina até os mortosEVisconde

info

Grupo: Visconde

Registrado: 22/09/10

Posts: 474

Reputação: +47

17 de setembro de 2012 às 17:17

Opa, Testa assim :

--[[ <(Advanced Reset System 2.0)>

Autor: Juniior Cwb ;*. Contato: (Juniior_Cwb@hotmail.com)

Versão: 2.0

Testado em: 8.50 e 8.60

TFS: 0.3.6 and 0.4.0

Atenção , Se Achar Esse Sistema em outro site ou forum favor comunicar Eu ( Juniior Cwb ) Juniior_Cwb@hotmail.com )

-=[Características]=-

~( Versão 2.0 )~

- Resets agora Armazenados na DataBase; (Sem Valor de Storage)

- Instala o System e cria a Tabela de Resets com o comando "/installreset";

- Resets no Look do jogador ex: 22:10 You see Marcello [Reset 2] (Level 8). He is an elder druid.;

- [sTAGES] para "Premium Account" e "Free Account"; ]]

--=[Functions]=--

-- installReset()' [instala o Sistema.]

-- tableResetInstall()' [Verifica Se o Sistema ja foi instaladao.]

-- nowReseting()' [Verifica, retorna o erro ou reseta.]

-- getPlayerReset(cid)' [Pega numero de resets do player.]

-- checLevelStageReset(cid)' [Verifica o Level para Resetar.]

-- newReset(cid)' [Verifica todas as Condições de Reset.]

-- addValue(value)' [Adiciona numero de resets.]

--=[Comandos de Jogadores]=--

-- "/installreset" -- Só será usado uma vez, para instalar o sistema.

-- "!resetar" -- Para Resetar.

function onSay(cid, words, param)

if words =="!resetar" then

if getPlayerStorageValue(cid, 1243) - os.time() > 0 then

doPlayerSendCancel(cid, "You need wait [ " .. getPlayerStorageValue(cid, 1243) - os.time() .. " ] seconds.")

else

--[ Condições de Reset ] --

local coNdConf = {

needPz = false, -- Precisa estar em Pz pra resetar? [true, false]

needPa = false, -- Precisa ser Premium Account Pra resetar? [true, false]

withe = false, -- Players com Pk Withe podem resetar? [true, false]

red = true, -- Players com Pk Red pode resetar? [true, false]

battle = false, -- Players precisão estar sem battle pra resetar? [true, false]

teleport = false, -- Teleportar Player para o templo após resetar? [true, false]

look = true, -- Aparecer Resets no Look do Player? [true, false]

pid = getPlayerGUID(cid), -- Não Mexer.

--[ Configurações do Reset ] --

resetConf = {

Level = 350, -- Level Necessário para Resetar. [Valor]

backLvl = 8, -- Level que voltará após o Reset. [Valor]

time = 2, -- Tempo para o Player deslogar ao resetar, em segundos. [Valor]

}

--[[>> STAGES <<]]--

x=true;X=true -- Não Mexer.

local stage = {Abilitar = {x}, Desabilitar = {}, --<< Abilitar Stages?? >>-- [{x};{}]

-- [RESETS] | [PREMMY] | [FREE]

stage1= {resets= 4, premmy= 350, free= 350},

stage2= {resets= 9, premmy= 360, free= 360}, -- EXPLICANDO e Configurando stages. (Se estiver Abilitado [Abilitar = {x}])

stage3= {resets= 14, premmy= 370, free= 370}, -- resets = Número de resets para o Stage;

stage4= {resets= 19, premmy= 380, free= 380}, -- premmy = Level necessário para Premium Accounts;

stage5= {resets= 24, premmy= 390, free= 390}, -- free = Level necessário para Free Accounts;

stage6= {resets= 29, premmy= 400, free= 400}, -- Coloque em Ordem...

stage7= {resets= 34, premmy= 420, free= 420}, -- [OBS: MARQUE UM "X" PARA ABILITAR OU DESABILITAR OS STAGES]

stage8= {resets= 39, premmy= 440, free= 440}, -- EX: para desabilitar mude: Abilitar = {}, Desabilitar = {x}

stage9= {resets= 44, premmy= 460, free= 460},

stage10={resets= 49, premmy= 480, free= 480},

stage11={resets= 54, premmy= 500, free= 500},

stage12={resets= 59, premmy= 525, free= 525},

stage13={resets= 64, premmy= 550, free= 550},

stage14={resets= 69, premmy= 575, free= 575},

stage15={resets= 74, premmy= 600, free= 600},

stage16={resets= 79, premmy= 650, free= 650},

stage17={resets= 84, premmy= 700, free= 700},

stage18={resets= 89, premmy= 750, free= 750},

stage19={resets= 94, premmy= 800, free= 800},

stage20={resets= 99, premmy= 1000, free= 1000},

}

--[[>> FIM STAGES <<]]--

--=[Pega Valor de Resets]=--

function getPlayerReset(cid)

local qr = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";")

rss = qr:getDataInt("reset", coNdConf.pid)

if rss < 0 then

rss = 0

end

return rss

end

local success = " ~~ Sucesso! ~~ \nVocê tem agora "..(getPlayerReset(cid)+1).." resets. \nVocê será deslogado em "..coNdConf.resetConf.time.." segundos." ;err = doPlayerSendTextMessage

local qrt = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";");rss_db = qrt:getDataInt("reset", coNdConf.pid)

local lvl_query = "UPDATE `players` SET `level` = "..(coNdConf.resetConf.backLvl)..", `experience` = 0 WHERE `id`= " .. coNdConf.pid .. ";"

local reset_query = "UPDATE `players` SET `reset` = "..(getPlayerReset(cid)+(1)).." WHERE `id`= " .. coNdConf.pid .. ";"

local nolook_query = "UPDATE `players` SET `description` = '' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

local look_query = "UPDATE `players` SET `description` = ' [Reset "..(getPlayerReset(cid)+(1)).."]' WHERE `players`.`id`= " .. coNdConf.pid .. ";"

--=[Reseta]=--

function addValue(value)

if coNdConf.look == false then

doRemoveCreature(cid)

setPlayerStorageValue(cid, 1243, os.time() + 2 * 1000)

db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(nolook_query)

else

doRemoveCreature(cid)

db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(look_query)

return LUA_NO_ERROR

end

function nowReseting()

if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")

return true

end

if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then

doPlayerPopupFYI(cid, success)

addEvent(addValue, coNdConf.resetConf.time*1000, value)

else

doPlayerPopupFYI(cid, success)

addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))

addEvent(addValue, coNdConf.resetConf.time*1000, value)

return true

end

--[sTAGES Nao mexer em nada.]--

function checkLevelStageReset(cid)

local stages = {

{resets= stage.stage1.resets, premmy= stage.stage1.premmy, free= stage.stage1.free},

{resets= stage.stage2.resets, premmy= stage.stage2.premmy, free= stage.stage2.free},

{resets= stage.stage3.resets, premmy= stage.stage3.premmy, free= stage.stage3.free},

{resets= stage.stage4.resets, premmy= stage.stage4.premmy, free= stage.stage4.free},

{resets= stage.stage5.resets, premmy= stage.stage5.premmy, free= stage.stage5.free},

{resets= stage.stage6.resets, premmy= stage.stage6.premmy, free= stage.stage6.free},

{resets= stage.stage7.resets, premmy= stage.stage7.premmy, free= stage.stage7.free},

{resets= stage.stage8.resets, premmy= stage.stage8.premmy, free= stage.stage8.free},

{resets= stage.stage9.resets, premmy= stage.stage9.premmy, free= stage.stage9.free},

{resets=stage.stage10.resets, premmy=stage.stage10.premmy, free=stage.stage10.free},

{resets=stage.stage11.resets, premmy=stage.stage11.premmy, free=stage.stage11.free},

{resets=stage.stage12.resets, premmy=stage.stage12.premmy, free=stage.stage12.free},

{resets=stage.stage13.resets, premmy=stage.stage13.premmy, free=stage.stage13.free},

{resets=stage.stage14.resets, premmy=stage.stage14.premmy, free=stage.stage14.free},

{resets=stage.stage15.resets, premmy=stage.stage15.premmy, free=stage.stage15.free},

{resets=stage.stage16.resets, premmy=stage.stage16.premmy, free=stage.stage16.free},

{resets=stage.stage17.resets, premmy=stage.stage17.premmy, free=stage.stage17.free},

{resets=stage.stage18.resets, premmy=stage.stage18.premmy, free=stage.stage18.free},

{resets=stage.stage19.resets, premmy=stage.stage19.premmy, free=stage.stage19.free},

{resets=stage.stage20.resets, premmy=stage.stage20.premmy, free=stage.stage20.free},

}

local resets = getPlayerReset(cid)

for i, tab in ipairs(stages) do

if resets <= tab.resets then

coNdConf.resetConf.Level = isPremium(cid) and tab.premmy or tab.free

break

end

if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then

err(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -")

return TRUE

end

if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then

doPlayerPopupFYI(cid, success)

addEvent(addValue, coNdConf.resetConf.time*1000, value)

else

doPlayerPopupFYI(cid, success)

addEvent(addValue, coNdConf.resetConf.time*1000, value)

addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid)))

return true

end

function newReset(cid)

if(coNdConf.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar em Protection Zone Para Resetar. -") return TRUE end

if(coNdConf.needPa == true) and not isPremium(cid) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa ser Premium Account para Resetar. -") return TRUE end

if(coNdConf.withe == false) and (getCreatureSkullType(cid) == 3) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Withe. -") return TRUE end

if(coNdConf.red == false) and (getCreatureSkullType(cid) == 4) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Red. -") return TRUE end

if(coNdConf.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then

err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar sem Battle para Resetar. -") return TRUE end

local xy = {true,false}

table.insert(stage.Abilitar, false)

table.insert(stage.Desabilitar, false)

if stage.Abilitar[1] == xy[1] and stage.Desabilitar[1] == xy[2] then

checkLevelStageReset(cid)

elseif stage.Abilitar[1] == xy[2] and stage.Desabilitar[1] == xy[1] then

nowReseting()

else

doPlayerPopupFYI(cid, "LUA_ERROR; Configure corretamente o Sistema de STAGES!")

end

return true

end

function tableResetInstall()

print(not rss_db and LUA_ERROR or "Tabela de Resets: Instalada ... [success] ")

addEvent(newReset, 1000, cid)

return false

end

if tableResetInstall() then

end

--=[install System]=--

function installReset()

if db.executeQuery("ALTER TABLE `players` ADD reset INT(11) NOT NULL DEFAULT 0;") then

print("[MarcelloMkez] -= Advanced Reset System 2.0 por DataBase =- Instalado com sucesso!")

return TRUE

end

print('[Advanced Reset System/MarcelloMkez] Não foi possível instalar o Sistema.')

return FALSE

end

local tt = {

"Preparando Instalação...",

"Instalando: TableReset Db...",

"Instalando: getPlayerReset()...",

"Instalando: addValue()...",

"Instalando: checkLevelStageReset()...",

"Instalando: newReset() and nowReseting()...",

"Finalizando Instalação...",

"...",

success = {

"Iniciando...",

"function: TableReset Db... [success]",

"function: getPlayerReset()... [success]",

"function: addValue(value)... [success]",

"function: checkLevelStageReset()... [success]",

"function: newReset() and nowReseting()... [success]",

"Fim da Instalação. ",

"by: ~~ MarcelloMkez ~~ \nContato: marcello_dirt@hotmail.com",

inst = {"MarcelloMkez","Advanced Reset System 2.0 por DataBase"

}

if words == "/installreset" and getPlayerAccess(cid) >= 3 then

function install()

if installReset() then

print(""..tt.success[7].."")

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..tt.success[8].."")

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] -="..tt.success.inst[2].."=- Instalado com sucesso!")

else

print("["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].")

end

return 1

end

function concl(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[7].."")

print(""..tt[8].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[7].."")

doPlayerSendTextMessage(cid, typetx,""..tt[8].."")

addEvent(install, 1000,cid)

end

function finall(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[6].."")

print(""..tt[7].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[6].."")

doPlayerSendTextMessage(cid, typetx,""..tt[7].."")

addEvent(concl, 3000,cid)

end

function installDd(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[5].."")

print(""..tt[6].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[5].."")

doPlayerSendTextMessage(cid, typetx,""..tt[6].."")

addEvent(finall, 1000,cid)

end

function installCc(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[4].."")

print(""..tt[5].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[4].."")

doPlayerSendTextMessage(cid, typetx,""..tt[5].."")

addEvent(installDd, 1000,cid)

end

function installBb(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[3].."")

print(""..tt[4].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[3].."")

doPlayerSendTextMessage(cid, typetx,""..tt[4].."")

addEvent(installCc, 1000,cid)

end

function installAa(cid)

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[2].."")

print(""..tt[3].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[2].."")

doPlayerSendTextMessage(cid, typetx,""..tt[3].."")

addEvent(installBb, 1000,cid)

end

function toInstall()

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt.success[1].."")

print(""..tt[2].."")

doPlayerSendTextMessage(cid, typetx,""..tt.success[1].."")

doPlayerSendTextMessage(cid, typetx,""..tt[2].."")

addEvent(installAa, 1000,cid)

end

function preparation()

local typetx = MESSAGE_STATUS_CONSOLE_BLUE

print(""..tt[1].."")

doPlayerSendTextMessage(cid, typetx,""..tt[1].."")

addEvent(toInstall, 3000,cid)

end

if preparation() then

end

return 1

end

--=[by: Juniior Cwb ;* ]=--