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 (http://www.eqemulator.net/wiki/wikka.php?wakka=QuestTutorial) (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]

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