[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