::scribespells() up to X level?

[trevius]

This is a pretty simple quest. The following should work perfectly for you. Let me know if you have any issues with it.

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