Gain AA points each level

[Kingly_Krab]

No problem, just private message me or add my Skype (Kingly.krab) if you have any Perl/Lua related questions.

[warbleeder]

cant seem to get it working

im guessing im missing something

heres ho i have it

sub EVENT_LEVEL_UP {

AutoTrain();

}

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 .. 74 ) {
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 );

}

}sub EVENT_LEVEL_UP {
if ($ulevel < 51) {
$client->AddAAPoints(3);
}

[warbleeder]

fixed it got rid of part of code and moved rest and it works like a charm