This is a pretty simple quest. The following should work perfectly for you. Let me know if you have any issues with it.
Code:
sub EVENT_SAY
{
if ($text=~/Hail/i && $ulevel <= 50) { quest::say("Hello, $name. If you would like, I can [scribe] all of your spells up to level 50. After that, you will have to find any remaining spells on your own!"); }
if ($text=~/Hail/i && $ulevel >= 51) { quest::say("Hello, $name. You are too high to have any spells scribed!"); }
if ($text=~/scribe/i && $ulevel <= 50) { quest::say("Very well, here you are $name!");
quest::scribespells(); }
}
In the future, you might want to check the quest wiki. It has a TON of great info related to quests.
Here is the link:
http://www.eqemulator.net/wiki/wikka...=QuestTutorial