Code:
# perlQuest
#Quest by Cisyouc of Prexus II
sub EVENT_SAY
{
if($text=~/hail/i){quest::say("Greetings, $name. If you would run me a small task, I can teach you the [magics] of a $class.");}
if($text=~/magic/i){quest::say("You shall learn the Magics when I am comfortable, here. Bring me the dagger of thieves of North Freeport, and I should be ready.");}
if($text=~/just do it/i){quest::say("Now, now. No need to get testy. Here you are.");quest::scribespells();}
}
sub EVENT_ITEM
{
if($item1 == 1451){quest::say("Ahh, another fiend slain by the Heroes of Freeport. Thank you my friend, you are welcome here in Freeport.");quest::scribespells();}
}
Do NOT change this quest without trying it first (unless I made a syntax error I didn't catch) because the issue might be a buffer overrun on the server. Just a thought.