auto-train on level for the extra lazy

[tearinall]

Haven't tested it for functionality, don't see anything immediately wrong besides unneeded lines:

sub AutoTrain {
    $client->Message( 15, "Your experiences across the realm have infused you with increased power and knowledge..." );
    # set all available skills to maximum for race/class at current level
    foreach my $skill (0..42,48..55,66..73) {
        if ($client->CanHaveSkill($skill)) {
			my $maxSkill = $client->MaxSkill($skill);
			if ($maxSkill > $client->GetRawSkill($skill)) {
				$client->SetSkill($skill, $maxSkill );
			}
		}
	}
    # scribe all spells for current level
    quest::scribespells( $ulevel, $ulevel - 1 );
    # train all discs for current level
    quest::traindiscs( $ulevel, $ulevel - 1 );
}

Bah, copied from the wrong tab.