This is something I use currently to automatically give people certain AAs when they first create their character on my server. This prevents them from needing to "buy" it in the AA window.
$client->IncrementAA(aa_id) will give the character the specified AA. Please also refer to this thread where someone else asked something similar.
http://www.eqemulator.org/forums/showthread.php?t=38451
Code:
## Temple player.pl
sub EVENT_ENTERZONE
{
if(!defined $qglobals{"Begin_Adven"})
{
quest::setglobal("Begin_Adven",1,5,"F");
quest::setglobal("CharMaxLevel",50,5,"F");
if($class eq "Ranger")
{
$client->IncrementAA(1);
$client->IncrementAA(2);
$client->IncrementAA(3);
$client->IncrementAA(5);
}
if($class eq "Wizard" || $class eq "Shaman")
{
$client->IncrementAA(2);
$client->IncrementAA(3);
$client->IncrementAA(5);
$client->IncrementAA(6);
}
elsif($class eq "Berserker" || $class eq "Rogue")
{
$client->IncrementAA(2);
$client->IncrementAA(5);
}
else
{
$client->IncrementAA(2);
$client->IncrementAA(3);
$client->IncrementAA(5);
}
}
}