EQEmulator Forums - Spellscriber/Disctrainer

so i am using George's tools to make a spellscriber and i found the function for training discs on the forums also but my script doesnt seem to work. any advice would be very useful as i am new to perl scripting.

Code:

sub EVENT_SAY

{

 {

if ($text =~/hail/i){   quest::say ("Good day to you, $name. Do you want me to teach you [spells] or [disc]."); }

}



if($text =~/spells/i)

{

 quest::say ("Good, stand where you are while I cast");

 quest::scribespells();

}

if($text =~/disc/i)

{

 quest::say ("Good, stand where you are while I cast");

 quest::traindiscs();

}



}