Sistema de Reset 100%

[davi queiroz 0]

man ta dando erro no npc ta dando 'isfocused'

[axebruno 1]

CARA TOP implantei aqui e deu tudo certo !! REP MAIS!!!!

gostaria de saber se vc consegue fazer, ou tem, sistema de critical stone...

 

[galegotp 0]

Em 06/05/2014 at 14:46, xWhiteWolf disse:

Fala galera do TK, hoje vim pra trazer pra vocês um npc criado por mim e pelo Nogard numa madrugada aí para solucionar a dúvida de um cara no suporte. Eu dei uma melhorada no script original, tirei umas coisas repetidas e adicionei novas funções; 
Você agora pode configurar se quer que o preço aumente a cada reset, se quer que o level pra resetar aumente e se vc quer que a vida resete junto (e quanto % da vida atual será a vida após resetar).
Testado em TFS 0.3.6, Versão 8.45

Sem mais delongas, vamos ao script.
Antes de tudo crie um arquivo chamado reseter.lua na pasta data\npc\scripts\ e coloque isso daqui dentro dele:

 

 

Conteúdo Oculto

Você pode editar tudo mexendo aqui:
local config = {
minlevel = 150, --- level inical para resetar
price = 10000, --- preço inicial para resetar
newlevel = 20, --- level após reset
priceByReset = 0, --- preço acrescentado por reset
percent = 100, ---- porcentagem da vida/mana que você terá ao resetar (em relação à sua antiga vida total)
levelbyreset = 0 --- quanto de level vai precisar a mais no próximo reset
}

Feito isso, crie agora o npc que irá utilizar esse script.. em data\npc crie um arquivo.xml chamado Reseter.xml e coloque isso dentro dele:

 

Conteúdo Oculto

Agora é só colocar o seu npc no mapa pelo mapa editor e curtir

OBS 1: Se seu server for 8.6 ou maior troque no script.lua as funções db.executeQuery por db.query
OBS 2: Esse script dava pra ser diminuido ainda mais mas por hora deixa ele assim, se vc tiver alguma proposta melhor por favor poste nos comentários que eu testo a sua versão e edito o tópico se for o caso.
OBS 3: Não remova os créditos, isso é a coisa mais baixa e suja que alguém pode fazer.. eu scripto pra ajudar a comunidade do Tibia a evoluir e libero 99% doque eu faço, se vocês não removerem os créditos e não postarem em outros fórums sem minha permissão isso pode continuar assim.


--- EDIT: Coloquei algumas imagens pra vcs verem como fica no server

 

Conteúdo Oculto

 

 

 

Conteúdo Oculto

 

 

 

Conteúdo Oculto

 

 

Conteúdo Oculto

EDIT: Arrumei o problema de o npc não dar bye automáticamente qnd o player se afasta, bugando em algumas versões e impedindo de conversar com outros npcs. Apenas substituam o arquivo em scripts pela versão atualizada, grato.

EDIT2: Novos erros arrumados, agora o NPC dá bye automaticamente e não buga qnd te reseta.

EDIT3: Resolvido bug de dar hi, reset, yes várias vezes e derrubar o servidor (troque tanto o xml qnt o script do npc)
O script também foi identado.

então cara, acabei de implantar lá no baiak que eu to criando e funfou 100% :d melhor até do que eu imaginei hehe' 

[OtFunEX 1]

mudei a storage pra storage do meu reset ai da esse erro

mysql_real_query(): SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = 1020 ORDER BY cast(value as INTEGER) DESC; - MYSQL ERROR: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'INTEGER) DESC' at line 1 (1064)
 

 

Em 19/04/2015 ás 02:57, xWhiteWolf disse:

talkactions/scripts/rankinreset

local storage = 378378 -- storage que fica salvo os resets
local itens = {2182, 2190, 2456, 2395} -- itens cujas imagens aparecerao (se nao souber oque eh, nao mexa)

function onSay(cid, words, param, channel)
	local function getRankStorage(cid, value, max, RankName) -- by vodkart
	local str = ""
	str = "--[".. (RankName == nil and "RANK STORAGE" or ""..RankName.."") .."]--\n\n"
	local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY cast(value as INTEGER) DESC;")
		if (query:getID() ~= -1) then 
			k = 1 
			repeat
				if k > max then 
					break
				end
			str = str .. "\n " .. k .. ". "..getPlayerNameByGUID(query:getDataString("player_id")).." - [" .. query:getDataInt("value") .. "]"
			k = k + 1		
			until not 
				query:next() 
			end 
	return doShowTextDialog(cid, itens[math.random(1, #itens)], str)
	end
	getRankStorage(cid, storage, 10, "Ranking of Resets")
return true
end

talkactions.xml:

<talkaction log="yes" words="/resets" event="script" value="rankinreset.lua"/>

 

[xWhiteWolf 3008]

Em 08/10/2016 ás 19:57, OtFunEX disse:

mudei a storage pra storage do meu reset ai da esse erro

mysql_real_query(): SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = 1020 ORDER BY cast(value as INTEGER) DESC; - MYSQL ERROR: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'INTEGER) DESC' at line 1 (1064)
 

 

 

troca essa linha aqui:
 

local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY cast(value as INTEGER) DESC;")

por 

 

 

local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY `value` DESC;")

 

 

[OtFunEX 1]

não deu erro só q o rank fico errado, oh a storagem do meu reset

 

local storagedotekpokk = 9697
function getTime(s)
local n = math.floor(s / 60)
s = s - (60 * n)
return n, s
end

local tempo = 5

if os.time()-getPlayerStorageValue(cid, storagedotekpokk) <= tempo*60 then
minutes,seconds = getTime(tempo*60-(os.time()-getPlayerStorageValue(cid, storagedotekpokk)))
return doPlayerSendTextMessage(cid,4, "Vc precisa espera " .. minutes .. " minutos para usa isso ai denovo manolo kkkkkkkkkkkk.")
end

if words =="!resetar" then

setPlayerStorageValue(cid, storagedotekpokk, os.time())

21 minutos atrás, xWhiteWolf disse:

troca essa linha aqui:
 

local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY cast(value as INTEGER) DESC;")

por 

 

 

local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY `value` DESC;")

 

 

 

[xWhiteWolf 3008]

@OtFunEX ele só atualiza quando vc reloga.. deveria funcionar, se não tá funcionando tenta deixar a linha da query assim:

local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY value DESC;")

[OtFunEX 1]

ta aparecendo isso no rank de reset sendo q o cara nem tem [1476048892]

 

2 minutos atrás, xWhiteWolf disse:

@OtFunEX ele só atualiza quando vc reloga.. deveria funcionar, se não tá funcionando tenta deixar a linha da query assim:

local query = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = "..value.." ORDER BY value DESC;")

 

Editado Outubro 10, 2016 por OtFunEX (veja o histórico de edições)

[xWhiteWolf 3008]

ué, no script ele define que o storage q ele checa pelo maior é esse:

local storage = 378378 -- storage que fica salvo os resets

e no seu sistema vc tá usando:

 

local storagedotekpokk = 9697

Isso por si só ja é motivo pra ele acusar um valor q nao é o real. Você tem que configurar o sistema direito antes de usar e falar que tem falhas

[OtFunEX 1]

disso eu to ligado teria como fazer um rank baseado nesse meu reset ai ou tu não sabe por causa desse storagedotekpokk....

 

11 minutos atrás, xWhiteWolf disse:

ué, no script ele define que o storage q ele checa pelo maior é esse:

local storage = 378378 -- storage que fica salvo os resets

e no seu sistema vc tá usando:

 

local storagedotekpokk = 9697

Isso por si só ja é motivo pra ele acusar um valor q nao é o real. Você tem que configurar o sistema direito antes de usar e falar que tem falhas

 

[OtFunEX 1]

eu já tenho um sistema de reset do meu ot tem como usar o seu e continuar os mesmo reset os players ??

[OtFunEX 1]

baseado no seu sistema de reset como faço pra essa magia só quem tiver 5 resets, poder usar ??

 

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_BATS)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -150, -150, -150, -150)

local area = createCombatArea(AREA_CIRCLE2X2)
setCombatArea(combat, area)

function onCastSpell(cid, var)
if not isPlayer then return true end        
return doCombat(cid, combat, var)
end

[xWhiteWolf 3008]

Spoiler

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_BATS)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -150, -150, -150, -150)

local area = createCombatArea(AREA_CIRCLE2X2)
setCombatArea(combat, area)

function onCastSpell(cid, var)
	if getPlayerStorageValue(cid, 378378) >=5 then
		doCombat(cid, combat, var) 
		return true 
	else
		doPlayerSendCancel(cid, "You need to have at least 5 resets to cast this spell.")
		return false
	end
end 

 

@OtFunEX

[OtFunEX 1]

nessa seria como pra colocar 5 resets ??

 

local combat = createCombatObject()
 setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HEALING)
 setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
 setCombatParam(combat, COMBAT_PARAM_TARGETCASTERORTOPMOST, 1)
 setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
 setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)
 --setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 0, 300, 0, 500)

 function onGetFormulaValues(cid, level, maglevel)
 min = (level * 1 + maglevel * 5) * 2.3 - 25
 max = (level * 1 + maglevel * 5) * 2.8

 if min < 250 then
 min = 250
 end

 return min, max
 end

 setCombatCallback(combat, CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues")

 function onCastSpell(cid, var)
 return doCombat(cid, combat, var)
 end

 

 

 

4 horas atrás, xWhiteWolf disse:

  Mostrar conteúdo oculto

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_BATS)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -150, -150, -150, -150)

local area = createCombatArea(AREA_CIRCLE2X2)
setCombatArea(combat, area)

function onCastSpell(cid, var)
	if getPlayerStorageValue(cid, 378378) >=5 then
		doCombat(cid, combat, var) 
		return true 
	else
		doPlayerSendCancel(cid, "You need to have at least 5 resets to cast this spell.")
		return false
	end
end 

 

@OtFunEX

peguei 10 resets, só q agora não consigo comprar nada nos npcs, como resolve ???

magia não sai só sai o amarelo do nome da magia quando a pessoa tem os resets q ela pede ....

9 horas atrás, xWhiteWolf disse:

  Mostrar conteúdo oculto

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_BATS)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -150, -150, -150, -150)

local area = createCombatArea(AREA_CIRCLE2X2)
setCombatArea(combat, area)

function onCastSpell(cid, var)
	if getPlayerStorageValue(cid, 378378) >=5 then
		doCombat(cid, combat, var) 
		return true 
	else
		doPlayerSendCancel(cid, "You need to have at least 5 resets to cast this spell.")
		return false
	end
end 

 

@OtFunEX

 

Editado Outubro 17, 2016 por OtFunEX (veja o histórico de edições)

[caionak 1]

Estou com um problema no rank reset...

 

o Reset funciona normal (estou usando o reset por npcs que o Wolf crio),porém o rank reset que passou neste topico não funciona

OBS:testei com todos os tipos de mudanças passada no topico.

[tataboy67 170]

Como eu faço para fazer um sistema de Reset com premiação? Por exemplo... Dou 3 resets, e ganho 100 moedas, HD, stone, itens !

[xWhiteWolf 3008]

23 horas atrás, tataboy67 disse:

Como eu faço para fazer um sistema de Reset com premiação? Por exemplo... Dou 3 resets, e ganho 100 moedas, HD, stone, itens !

cria um npc que verifica a quantidade que vc tem de resets e te premia por isso, é bem simples. Só ler os comentários

[iTzBrHue3 2]

oq precisa muda pra transformar esse npc em um npc master reset tipo reset dos reset começando tudo denovo.

[xWhiteWolf 3008]

4 minutos atrás, iTzBrHue3 disse:

oq precisa muda pra transformar esse npc em um npc master reset tipo reset dos reset começando tudo denovo.

os rests ficam salvos nesse storage (getPlayerStorageValue(uid, 378378)), apenas dê um set storage nesse 378378 pra 0 ou -1 que vc vai zerar os resets do player.
 

[iTzBrHue3 2]

13 minutos atrás, xWhiteWolf disse:

os rests ficam salvos nesse storage (getPlayerStorageValue(uid, 378378)), apenas dê um set storage nesse 378378 pra 0 ou -1 que vc vai zerar os resets do player.
 

mais dessa maneira nao teria como salva quantos master reset o player tem, nao teria como eu cria um contador ?