Ok, I've been using the heck out of this so great job! Lol I never knew a lick of perl writing before reading this post. Now I have a question. My server (server I'm writing quests for that is) needs the Scribespell NPC fixed (he got the source from another working server's scribespell npc but it wont work for him) so I was going to rewrite it, but I see in your post about setallskill(0-252) etc etc, would it be the same for spells? ie
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)
}
Would that work? Thanks ahead of time

)
Nerakas al`Dragnor