[fathernitwit]

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):

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):

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);
}