Just as an example, I would assume this would scribe all of your spells to the current level when you level up:
quests/template/player.pl
Code:
sub EVENT_LEVEL_UP {
quest::scribespells();
}
The hard part about learning skills is
easily finding out what the values should be set to. You could probably pull the skill levels from the database into an array, then do a foreach to change all of the skills. I
think this would, as a result, give you the skills that you have to normally train, but I'm not 100% sure. On top of that, I'm not sure how/if you can directly query the DB like that with Perl without modifying the source.