sub EVENT_SAY
{
if ($text=~/Hail/i) { quest::say("Hello, would you like your [spells] scribed?"); }
if ($text=~/spells/i) { quest::say("Scribing your spells $name!");
quest::scribespells(65); }
}