[Kingly_Krab]

Originally Posted by demonstar55

The vet AA can't be bought, they must be granted.
https://github.com/ProjectEQ/project...player.lua#L47

This is what peq does, it should be explained well enough to tweak to your needs

Any objections to me adding that functionality to Perl so I can port it over?

Edit: Went ahead and added it to Perl in this pull request.

Here's the Perl version of that Lua file, for anyone interested:

sub EVENT_CONNECT {
    my %vet_aa = (481 => [31536000, 1, 1], ## Lesson of the Devote 1 yr
    482 => [63072000, 1, 1], ## Infusion of the Faithful 2 yr
    483 => [94608000, 1, 1], ## Chaotic Jester 3 yr
    484 => [126144000, 1, 1], ## Expedient Recovery 4 yr
    485 => [157680000, 1, 1], ## Steadfast Servant 5 yr
    486 => [189216000, 1, 1], ## Staunch Recovery 6 yr
    487 => [220752000, 1, 1], ## Intensity of the Resolute 7 yr
    511 => [252288000, 1, 1], ## Throne of Heroes 8 yr
    2000 => [283824000, 1, 1], ## Armor of Experience 9 yr
    8081 => [315360000, 1, 1], ## Summon Resupply Agent 10 yr
    8130 => [346896000, 1, 1], ## Summon Clockwork Banker 11 yr
    453 => [378432000, 1, 1], ## Summon Permutation Peddler 12 yr
    182 => [409968000, 1, 1], ## Summon Personal Tribute Master 13 yr
    600 => [441504000, 1, 1]); ## Blessing of the Devoted 14 yr
    my $age = $client->GetAccountAge();
    foreach my $key (keys %vet_aa) {
        if ($vet_aa{$key}[2] && ($vet_aa{$key}[2] || $age >= $vet_aa{$key}[0])) {
            $client->GrantAlternateAdvancementAbility($key, 1);
        }
    }
}