Code:
sub EVENT_LEVEL_UP {
AutoTrain(1); ## if 1 is passed it will train trade skills
AutoTrain(); ## will not train trade skills (
}
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
if ($_[0]) {my @skillsarray = [0..74];}
else {my @skillsarray = [0..54,62,66,67,70..74];}
foreach my $skill (@skillsarray) {
next unless $client->CanHaveSkill($skill);
my $maxSkill = $client->MaxSkill( $skill, $client->GetClass(), $ulevel );
next unless $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 );
}
untested