Here is what I am using to train 1 point into each skill. It unlocks the skill at the level you would normally train it by checking max skill > 0 and current skill < 1. It also gives you one point in all the generic skills even if you cant use them.
Quote:
sub EVENT_LEVEL_UP
{
foreach my $skill ( 0 .. 73 ) {
next unless $client->MaxSkill( $skill, $client->GetClass(), $ulevel ) > 0 & $client->GetRawSkill($skill) < 1;
$client->SetSkill( $skill, 1 );
}
}
|