[Disorder]

I changed to this but I am having troubles with unscribespells and untraindiscs.

  sub EVENT_SAY
{
	$menuHelp = quest::saylink("Server Information");
	$menuScribeSpells = quest::saylink("Scribe your spells");
	$menuUnscribeSpells = quest::saylink("Unscribe your spells");
	$menuUnscribeDiscs = quest::saylink("Unscribe your disciplines");
	$menuTrainDiscs = quest::saylink("Learn your disciplines");
	
	if ($text=~/menu/i)
	{
		$client->Message(315, "What would you like to do? Would you like [$menuHelp]?");
		$client->Message(315, "Wold you like to [$menuScribeSpells]?");
		$client->Message(315, "Would you like to [$menuUnscribeSpells]?");		
		$client->Message(315, "Would you like to [$menuTrainDiscs]?");
		$client->Message(315, "Would you like to [$menuUnscribeDiscs]?");		
	}
	
	elsif($text=~/Server Information/i)
	{
		Taken out for length
                my $Yel = plugin::PWColor("Yellow");
		my $Blu = plugin::PWColor("Light Blue");
		my $Red = plugin::PWColor("Red");
		my $grn = plugin::PWColor("Forest Green");
		quest::popup("Welcome", 
		"$Yel $TextToCenter <br>
		$Yel $TextToCenter2 </c> <br>
		$Yel $TextToCenter3 </c> <br>
		$Yel $TextToCenter4 </c> <br>
		$Yel $TextToCenter5 </c> <br>
		$Yel $TextToCenter6 </c> <br>
		$Yel $TextToCenter7 </7> <br>
		$Yel $TextToCenter8 </7> <br>
		$Yel $TextToCenter9 </7> <br> <br>
		$Indent $globalload <br>
		$Indent $spellfile
		");
	}
	
	elsif ($text=~/Scribe your spells/i)
	{
		quest::scribespells($ulevel);
	}
	
	elsif ($text=~/Unscribe your spells/i)
	{
		quest::unscribespells();
		
	}
	
	elsif ($text=~/Learn your disciplines/i)
	{
		quest::traindiscs($ulevel);
		
	}
	
	elsif ($text=~/Unscribe your disciplines/i)
	{
		quest::untraindiscs();		
		
	}
	
}

	
}

The untrain and unscribe refuse to work. Not sure what I am doing wrong.