if you have perl XS, and XS classes compiled into your zone... you can do something like this... (not tested, basic idea only):
I have changes that havent been checked in yet that will make this even easier, so heres what should work now, and what will work once I check my crap in:
now (assumes no other NPCs with this type exist in the zone):
Code:
my $npctype = 44444;
quest::spawn($npctype, ......);
my $nmob = $entity_list.GetMobByNpcTypeID($npctype);
if(!$nmob) {
quest::say("Unable to spawn new mob...");
} else {
$nmob->AddToHateList($client, 1, 0, 0);
}
once I get my crap in (can have other mobs with same npc type):
Code:
my $npctype = 44444;
my $npcid = quest::spawn($npctype, ......);
my $nmob = $entity_list.GetMobID($npcid);
if(!$nmob) {
quest::say("Unable to spawn new mob...");
} else {
$nmob->AddToHateList($client, 1, 0, 0);
}