[trevius]

This is the spell scriber script I use on Storm Haven. Feel free to use it or modify it to work for you. Note that it also scribes disciplines, trains bard skills up (since they level extremely slow in the emu), and will allow players to buy individual train points 1 at a time at a very high cost. The reason I let them buy extra points is in case they get to level 70 and spend all of their train points and forget to train at least 1 point in an important skill. I had a guy forget to train meditate once, so this seems like a decent solution, lol.

I highlighted the spell scribing part in green for you, which is the main thing you need.

#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]?  I am also trained in combat disciplines if you would like [train] them. I'm selling skill [points] if you are interested. 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($ulevel);
}

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


if ($text =~/points/i)
{
 quest::say ("If you have used up all of your Skill Training Points and need more, or if you just want to buy more, hand me 1000 Platinum and I will give you 1 point.  These points sure are costly, eh?");
}

 }

sub EVENT_ITEM {

  if($platinum == 1000) {
    quest::say ("Thank you!  Here is your costly skill point.  Use it wisely!");
    my $cur_skill = $client->GetSkillPoints();
    my $new_skill = ($cur_skill + 1);
    $client->SetSkillPoints("$new_skill");
    #quest::say ("You started with $cur_skill points and trained up to $new_skill points");
    $client->Message(15, "You have gained 1 skill point.  You must zone before you can use it.");
  }

}