Haven't tested it for functionality, don't see anything immediately wrong besides unneeded lines:
Code:
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.