[Cripp]

sub EVENT_SAY 
{ 
if ($text=~/Hail/i) { quest::say("I am... Oh that's not important right now, would you care to have your spells [scribed]?"); } 
if ($text=~/scribed/i) { quest::scribespells($ulevel); } 
}

try this.