View Single Post
  #47  
Old 11-28-2015, 09:25 PM
tearinall
Fire Beetle
 
Join Date: Oct 2012
Posts: 9
Default

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.
Reply With Quote