[trevius]

I believe that GeorgeS' Quest tool has an example quest for spell scriber.

Here is the one I use:

#A conversation to Scribe ALL spells For Player (up to curr. level)
sub EVENT_SAY {

  if ($text =~/hail/i) {
    quest::say ("Good day to you, $name. Would you like me to teach you all of your [spells]?  Or maybe you are a [bard] in need of music lessons?"); }

  if ($text =~/bard/i) {
    quest::say ("Yes, normally you would think of a bard as being an adept student of music.  For some reason, these lands slow the music learning ability to such an extent that I am willing to use my magic to train their abilities.  Are you [ready] to learn?"); }

  if ($text =~/ready/i) {
    quest::say ("Listen closely as the essence of music fills your soul!");
    quest::addskill(12,255);
    quest::addskill(41,255);
    quest::addskill(49,255);
    quest::addskill(54,255);
    quest::addskill(70,255); }

  if ($text =~/spells/i) {
    quest::say ("Good, stand where you are while I begin your lessons");
    quest::scribespells(); }

}

Mine also trains bard skills, since they level insanely slow in the emu. But, if you just want to spell scribe, I am sure you can figure it out from there.