Deleveling npc

[Dabloon]

Is it possible to have an npc reset your level to one and keep track of how many times it delevels you so a limit can be set for how many times you can use the npc? I have seen many deleveling scripts on here but they all seem to allow the player to choose what level to go back to. I would like to find one that only sets your level to one and limits the amount of times you can do it or a tutorial so i can make my own

[ghanja]

... an oddity thusfar

[Zamthos]

The language of scripting, is Perl.

[c0ncrete]

yes. you can use quest globals to store persistent information for characters.

there is information here (towards the bottom of the page), and there are hundreds of examples you can use as a reference in your quests directory.

[Dabloon]

Thanks c0ncrete that was excellent info. Things will deffinatly go much quicker. Thank you so much

[Dunge0nMastr]

i would use quest globals.

sub EVENT_SAY {
my $globalname = "delvl"; #w/e you want

if (!defined $qglobals{$globalname}) {
	quest::level(1); #or w/e level you want here
	quest::setglobal("$globalname",1,5,'F');
	}
}

#this would prevent the player from doing it more than 1 time by using a quest global, obviously you can spruce up the script but this is the basics for what your looking for, ill let ya play with it form there :P

[Zamthos]

Something like this maybe? This limits you to two resets.

sub EVENT_SAY
{
	if($text=~/Hail/i && !defined $qglobals{Resets} && $ulevel == 70)
	{
		quest::level(1);
		quest::setglobal("Resets", "1", "5", "F");
		plugin::Whisper("You are now 1st Rebirth!");
	}
	elsif($text=~/Hail/i && $ulevel == 70 && defined $qglobals{Resets} == 1)
	{
		quest::level(1);
		quest::setglobal("Resets", "2", "5", "F");
		plugin::Whisper("You are now 2nd Rebirth!");
	}
	elsif($text=~/Hail/i && $ulevel == 70 && defined $qglobals{Resets} == 2)
	{
		plugin::Whisper("You are the highest rebirth allowed, 2.");
	}
}

[c0ncrete]

defined $qglobals{Resets} == 2 will always return false.

[Zamthos]

How do you come to that conclusion?

[c0ncrete]

because defined will only return 1 (true) or nothing (false)

Returns a Boolean value telling whether EXPR has a value other than the undefined value undef. If EXPR is not present, $_ is checked.

http://perldoc.perl.org/functions/defined.html

[Zamthos]

Thank you kind sir.

[Dabloon]

Originally Posted by Dunge0nMastr

i would use quest globals.

sub EVENT_SAY {
my $globalname = "delvl"; #w/e you want

if (!defined $qglobals{$globalname}) {
	quest::level(1); #or w/e level you want here
	quest::setglobal("$globalname",1,5,'F');
	}
}

#this would prevent the player from doing it more than 1 time by using a quest global, obviously you can spruce up the script but this is the basics for what your looking for, ill let ya play with it form there :P

That worked great. Thank you for the excellent start. Now let the tinkering begin

[Dabloon]

I have successfully written a deleveling script with a level requirement. Will post it here later if anyone is interested. It works great. Thanks to all who helped especially c0ncrete for the link to the perl lessons