Sistema de Reset 100%

[xWhiteWolf 3001]

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:

Spoiler

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)
	maxresets = 50,
	levelbyreset = 0 --- quanto de level vai precisar a mais no próximo reset
}
--- end config

function getResets(uid)
	resets = getPlayerStorageValue(uid, 378378)
	if resets < 0 then
		resets = 0
	end
	return resets
end

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
 
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink()                  npcHandler:onThink()                  end
 
function creatureSayCallback(cid, type, msg)
	if not npcHandler:isFocused(cid) then
		return false
	end
	local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

	function addReset(cid)
		if(npcHandler:isFocused(cid)) then
			npcHandler:releaseFocus(cid)
		end
		
		talkState[talkUser] = 0
		resets = getResets(cid)
		setPlayerStorageValue(cid, 378378, resets+1) 
		doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
		local hp = getCreatureMaxHealth(cid)
		local resethp = hp*(config.percent/100)
		setCreatureMaxHealth(cid, resethp)
		local differencehp = (hp - resethp)
		doCreatureAddHealth(cid, -differencehp)
		local mana = getCreatureMaxMana(cid)
		local resetmana = mana*(config.percent/100)
		setCreatureMaxMana(cid, resetmana)
		local differencemana = (mana - resetmana)
		doCreatureAddMana(cid, -differencemana)
		doRemoveCreature(cid)		
		local description = resets+1
		db.executeQuery("UPDATE `players` SET `description` = ' [Reset: "..description.."]' WHERE `players`.`id`= ".. playerid .."")
		db.executeQuery("UPDATE `players` SET `level`="..config.newlevel..",`experience`= 0 WHERE `players`.`id`= ".. playerid .."")
		return true
	end
	
	local newPrice = config.price + (getResets(cid) * config.priceByReset)
	local newminlevel = config.minlevel + (getResets(cid) * config.levelbyreset)

	if msgcontains(msg, 'reset') then
		if getResets(cid) < config.maxresets then
			selfSay('You want to reset your character? It will cost '..newPrice..' gp\'s!', cid)
			talkState[talkUser] = 1
		else
			selfSay('You already reached the maximum reset level!', cid)
		end
		
	elseif(msgcontains(msg, 'yes') and talkState[talkUser] == 1) then
		if getPlayerMoney(cid) < newPrice then
			selfSay('Its necessary to have at least '..newPrice..' gp\'s for reseting!', cid)
		elseif getPlayerLevel(cid) < newminlevel then
			selfSay('The minimum level for reseting is '..newminlevel..'!', cid)
		else
			doPlayerRemoveMoney(cid,newPrice)
			playerid = getPlayerGUID(cid)
			addEvent(function()
				if isPlayer(cid) then
					addReset(cid)
				end
			end, 3000)
			local number = getResets(cid)+1
			local msg ="---[Reset: "..number.."]-- You have reseted!  You'll be disconnected in 3 seconds."
			doPlayerPopupFYI(cid, msg) 
			talkState[talkUser] = 0
			npcHandler:releaseFocus(cid)
		end
		talkState[talkUser] = 0
	elseif(msgcontains(msg, 'no')) and isInArray({1}, talkState[talkUser]) == TRUE then
		talkState[talkUser] = 0
		npcHandler:releaseFocus(cid)
		selfSay('Ok.', cid)
	elseif msgcontains(msg, 'quantity') then
		selfSay('You have a total of '..getResets(cid)..' reset(s).', cid)
		talkState[talkUser] = 0
	end
	return true
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

 

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:

Spoiler

<npc name="Reseter" script="data/npc/scripts/reseter.lua" access="5" lookdir="1">
<health now="1000" max="1000"/>
<look type="133" head="95" body="86" legs="86" feet="38" addons="3"/>
	<parameters>
		<parameter key="message_greet" value="Hello |PLAYERNAME|.I've been waiting for you to come.. Say 'reset' or 'quantity'" />
		<parameter key="message_farewell" value="Cya folk." />
		<parameter key="message_walkaway" value="How Rude!" />
	</parameters>
</npc>
 

 

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

 

Spoiler

 

 

 

Spoiler

 

 

 

Spoiler

 

 

Spoiler

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.

Editado Abril 13, 2017 por xWhiteWolf (veja o histórico de edições)

[Treyff 11]

Cara muito Show vou implantar no meu OT Ótimo trabalho!

[Ryzor 323]

Muito bom mesmo! reputado .

[xWhiteWolf 3001]

quanto mais gente ajudar, melhor auhauhuha fico feliz que vc tenham gostado

[luanluciano93 1979]

Perfeito cara, vai ajudar muita gente, reputado!

[ulatson 1]

Oii, estou com duvida, o npc não apareceu no rembers como faço, pode me ajudar ??

[xWhiteWolf 3001]

coloca o npc no sever e dps vai no remeres > File > Import > Import Monsters/NPC.. daí vc vai até o seu server e procura o arquivo xml do npc que vc criou. As vezes demora pra ele aparecer na aba Creature Palette> NPCs mas eventualmente ele vai aparecer... se for o caso dá um atualizar ou refaz o processo.

[ulatson 1]

tem como colocar no script por exemplo para o Player falar só !resetar , outra pergunta nesse script os outros jogadores vão conseguir visualizar quantos resets o player tem ?

 

tem como colocar nesse modelo abaixo

 

level 10.000 -3 resets após 3 resets o player só vai poder resetar no level 50.000 apos 7 resets o player vai ter que resetar 70.000

 

 

e ter magias por exemplo   star dead (3 resets)   exevo gran mas mort (7 resets )

 

Se podesse me ajudar nesse script ajudaria muito Rep++

Editado Maio 20, 2014 por ulatson (veja o histórico de edições)

[xWhiteWolf 3001]

Ulatson, eu ando meio ocupado pra ficar scriptando então só vou dar dicas de como fazer ou onde conseguir:

tem como colocar no script por exemplo para o Player falar só !resetar?
Esse script foi feito para ser com Npc (porque eu acredito que dá mais RPG pro jogo), aqui no fórum vc encontra outros scripts feitos em talkaction desse modelo aí que você quer
nesse script os outros jogadores vão conseguir visualizar quantos resets o player tem ?
sim, ao dar Look aparece a quantidade de resets.

tem como colocar nesse modelo abaixo:

level 10.000 -3 resets após 3 resets o player só vai poder resetar no level 50.000 apos 7 resets o player vai ter que resetar 70.000

Ter tem, faz uma function checkLvl (cid) que verifique o numero de resets, se for <3 return 10000, se for >=3 e <7 return 50000 e se for >=7 return 70000, daí no local newminlevel = config.minlevel + (getResets(cid) * config.levelbyreset) vc coloca só checkLvl (cid) pra executar a função.
e ter magias por exemplo   star dead (3 resets)   exevo gran mas mort (7 resets )
pra fazer isso é só criar a magia que vc quiser e colocar logo depois do function onCastSpell:

if getPlayerStorageValue(cid, 378378) >=3 then
resto do script
end

return true ---da função oncastspell
end ---- da função on cast spell

pra de 7 resets é só fazer a mesma coisa

Editado Maio 20, 2014 por xWhiteWolf (veja o histórico de edições)

[churupetinha 3]

mano boa noite eu coloquei aki mas nao sei se ta certo , pq quando eu uso a spells ela fica sem exhaustion nem uma olha ai em baixo ver se ta certo , e eu to querendo uma que so player com 3 reset mas pode usar.

 

 

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_FIREATTACK)

setAttackFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 100, 120, 120, 150)

 

local condition = createConditionObject(CONDITION_PARALYZE)

setConditionParam(condition, CONDITION_PARAM_TICKS, 20000)

setConditionParam(condition, CONDITION_PARAM_SPEED, -500)

setConditionFormula(condition, -0.9, 1, -0.9, 1)

setCombatCondition(combat, condition)

 

local arr = {

{0, 0, 0, 0, 0},

{0, 1, 1, 1, 0},

{0, 1, 2, 1, 0},

{0, 1, 1, 1, 0},

{0, 0, 0, 0, 0},

}

 

local area = createCombatArea(arr)

setCombatArea(combat, area)

 

function onCastSpell(cid, var)

doCombat(cid, combat, var)

 

if getPlayerStorageValue(cid, 378378)>=3 then

do

end

return true ---da função oncastspell

end

end ---- da função on cast spell

Editado Maio 21, 2014 por churupetinha (veja o histórico de edições)

[xWhiteWolf 3001]

pra fazer isso é só criar a magia que vc quiser e colocar logo depois do function onCastSpell: if getPlayerStorageValue(cid, 378378) >=3 then resto do script end return true ---da função oncastspell end ---- da função on cast spell

 

 

function onCastSpell(cid, var) doCombat(cid, combat, var)   if getPlayerStorageValue(cid, 378378)>=3 then do end return true ---da função oncastspell end end ---- da função on cast spell

lê oque eu falei e vê oque tu fez

O certo era ter ficado assim:

function onCastSpell(cid, var)
if getPlayerStorageValue(cid, 378378) >=3 then
doCombat(cid, combat, var) --- isso aqui que é o "resto" do script
end

return true ---da função oncastspell
end ---- da função on cast spell

Editado Maio 22, 2014 por xWhiteWolf (veja o histórico de edições)

[churupetinha 3]

Ae Mano ta fufando , mas tem mas uma coisa nao queria em comodar mas tipo assim o player tem 2 reset ele nao usa a magia mas o nome da magia sai de cima dele tipo so nao aparece a magia tem como botar uma mensagem pra o player que nao pode usar?

[xWhiteWolf 3001]

me fala se funfou

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

[churupetinha 3]

Oks Desculpa A demora deu esse erro aki

 

 

[23/05/2014 23:47:55] [Lua Error] 

[23/05/2014 23:47:55] (luaCreateCombatArea) This function can only be used while loading the script.

 

[23/05/2014 23:47:55] [Error - Spell Interface] 

[23/05/2014 23:47:55] data/spells/scripts/attack/superzerker.lua

[23/05/2014 23:47:55] Description: 

[23/05/2014 23:47:55] (luaSetCombatArea) Area not found

[xWhiteWolf 3001]

cara, aquilo que eu te passei era pra vc substituir no seu script;;; ficando assim:
 

local combat = createCombatObject()setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_FIREATTACK)
setAttackFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 100, 120, 120, 150)


local condition = createConditionObject(CONDITION_PARALYZE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 20000)
setConditionParam(condition, CONDITION_PARAM_SPEED, -500)
setConditionFormula(condition, -0.9, 1, -0.9, 1)
setCombatCondition(combat, condition)


local arr = {
{0, 0, 0, 0, 0},
{0, 1, 1, 1, 0},
{0, 1, 2, 1, 0},
{0, 1, 1, 1, 0},
{0, 0, 0, 0, 0},
}


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


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

toda vez que quiser editar uma spell pra poder usar só com X resets vc só substitui o functionOnCastSpell por esse daí que eu te passei. Mas mantém a estrutura da spell... se não, não vai funcionar né... auheuhauheuh

Editado Maio 24, 2014 por xWhiteWolf (veja o histórico de edições)

[churupetinha 3]

Ae mano deu certo muito obrigado viu pela sua atençao, e pela sua ajuda , vc ja me ajudou bastante so tenho a te agradecer fuciono direitinho , Rep+ Pra vc sempre.

[xWhiteWolf 3001]

que isso cara kk fico feliz em ter ajudado :] 

[firete 2]

Estou com um problema em meu servidor quando um player alcança mais de 21kkk e 400 de mana, a mana dele é resetada e volta para 0 queria saber como aumentar o maximo de mana de cada jogador

[xWhiteWolf 3001]

acredito q isso seja configuração padrão das sources, não sei como te ajudar :/ esse script eu fiz pensando em servidores com uma exp em torno de 10 a 200x

[zleozinho 1]

funciona em ot 9.83?