deleveler npc question

[rdurbin]

here is a script i made for deleveling, but is there a way to get your current xp before deleveling? there two reasons I want this

1)if your halfway to say 20 and you delevel to 5, than go back you will start at the start of level 19...
2)I would like a way to add the xp you earned while deleveling and add it to your current real level when you go back to your level (probably with a penalty like they do in eq2)

sub EVENT_SAY
{
	if($status>=0)
	{
		if($text=~/yes/i && defined($qglobals{oldlevel}) && $qglobals{oldlevel} eq "hailed")
		{
			quest::setglobal("oldlevel","Said Yes",4,"S30");
			$client->Message(13,"ok please note that any pets or buffs you currently have will be
			removed but you can recast them after your level goes down");
			$client->Message(5,"you can change your mind if you want, if your ready to proceed just
			tell me what level you want to be set to");
		}
		elsif($text>0 && $text<$ulevel && $qglobals{oldlevel} eq "Said Yes")
		{
			quest::setglobal("oldlevel",$ulevel,4,"F");
			$client->Duck();
			quest::selfcast(1285);
			quest::selfcast(331);
			quest::selfcast(1792);
			quest::level($text);
			$client->Stack();
		}
		elsif($qglobals{oldlevel} eq "Said Yes" && ($text<1 || $text>$ulevel) && !($text=~/hail/i))
		{
			$client->Message(13,"sorry that is not possible");
			quest::delglobal("oldlevel");
		}
		elsif(defined($qglobals{oldlevel}) && $ulevel<$qglobals{oldlevel} && $text=~/hail/i)
		{
			$originallevel=$qglobals{oldlevel};
			$client->Message(5,"Do you wish to restore your level back to $originallevel ?");
		}
		elsif(defined($qglobals{oldlevel}) && $ulevel<$qglobals{oldlevel} && $text=~/yes/i)
		{
			quest::level($qglobals{oldlevel});
			$originallevel=$qglobals{oldlevel};
			$client->Message(5,"Ok you are now restored to your old level of $originallevel");
			quest::delglobal("oldlevel");
		}
		elsif($text=~/hail/i)
		{
			$client->Message(5,"Greetings $name, would you like to de-level yourself so you can
			play with your friends that may be a lower level than you?  You can return
			to your original level at any time");
			quest::setglobal("oldlevel","hailed",4,"S10");
		}
		elsif(!defined($qglobals{oldlevel}))
		{
			$client->Message(13,"if you where talking to me, You took to long to decide");
			$client->Message(13,"You will need to hail me again if you want to delevel");
		} 
	}
	else
	{
		$client->Message(10,"currently this function is in testing, you must be a GM to use it.");
	}
}