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