Spell/Disc scriber

[Apoc.Index]

Ok, so I have gotten to hang of makeing quests. However my spell scriber and disc trainer dont appear to be working properly
Here is the Disc trainer script:
sub EVENT_SAY {

if ($text =~/Hail/i)
{ quest::say("Hello! Would you like me to set all your Discs?"); }

if($text=~/Discs/i)
{quest::traindiscs();}


}
}

And here is the spell scriber script (Thanks trev)

#A conversation to Scribe ALL spells For Player (up to curr. level)
sub EVENT_SAY {

if ($text =~/hail/i) {
quest::say ("Good day to you, $name. Would you like me to teach you all of your [spells]? Or maybe you are a [bard] in need of music lessons?"); }

if ($text =~/bard/i) {
quest::say ("Yes, normally you would think of a bard as being an adept student of music. For some reason, these lands slow the music learning ability to such an extent that I am willing to use my magic to train their abilities. Are you [ready] to learn?"); }

if ($text =~/ready/i) {
quest::say ("Listen closely as the essence of music fills your soul!");
quest::addskill(12,255);
quest::addskill(41,255);
quest::addskill(49,255);
quest::addskill(54,255);
quest::addskill(70,255); }

if ($text =~/spells/i) {
quest::say ("Good, stand where you are while I begin your lessons");
quest::scribespells(); }

}