$npc->Damage($entity_id)?

[Asylum]

I've searched and cannot find a way to code making an npc do damage to an entity_id. The script is posted below. I'd like to make the line indicated by surrounding comment lines (so you can find it easily) perform the function listed on that line. The entire remainder of the script functions as intended. Any help would be appreciated.

#############
#Quest: Script for Nomada_the_Snowdrift encounter
#NPCid 1275
#Name: Nomada_the_Snowdrift
#Race 138 (yeti), Texture of 0, Size 40, gender 2
#Location: x, y, z of everfrost
#Level: 55
#Type: monster
#Loot: tableid
#HP: 120,000
#############

sub EVENT_SPAWN {
	quest::npcfeature("race", 138);
	$npc->NPCSpecialAttacks(fDCS, 0);
	quest::setnexthpevent(90);
	quest::settimer("signal",6);
}

sub EVENT_AGGRO {
	quest::settimer("damage",20);
}

sub EVENT_HP {
  if($hpevent == 90) {
	quest::setnexthpevent(80);
	quest::npcfeature("size", 350);
    quest::spawn2(1276,0,0,$x-50,$y-50,$z,32);
  }
  if($hpevent == 80) {
    quest::setnexthpevent(70);
	quest::npcfeature("size", 300);
    quest::spawn2(1276,0,0,$x-50,$y-50,$z,32);
	quest::spawn2(1276,0,0,$x-50,$y+50,$z,96);
  }
  if($hpevent == 70) {
	quest::setnexthpevent(60);
	quest::npcfeature("size", 250);
    quest::spawn2(1276,0,0,$x-50,$y-50,$z,32);
	quest::spawn2(1276,0,0,$x-50,$y+50,$z,96);
    quest::spawn2(1276,0,0,$x+50,$y-50,$z,-32);
  }
  if($hpevent == 60) {
	quest::setnexthpevent(10);
	quest::npcfeature("size", 200);
    quest::spawn2(1276,0,0,$x-50,$y-50,$z,32);
	quest::spawn2(1276,0,0,$x-50,$y+50,$z,96);
    quest::spawn2(1276,0,0,$x+50,$y-50,$z,-32);
    quest::spawn2(1276,0,0,$x+50,$y+50,$z,-96);
 }
  if($hpevent == 10) {
	quest::setnexthpevent(5);
	$npc->NPCSpecialAttacks(fDCSB, 0);
	quest::stoptimer("damage"); #Stop damage return every 20 seconds to all on hatelist
 }
  if($hpevent == 5) {
	$npc->SetAppearance(3);
	$npc->NPCSpecialAttacks(ZfDCSAB, 0);
	quest::settimer("depop",18); #Despawns 18 seconds later
  }
}

sub EVENT_TIMER {
	if($timer eq "signal") {
		my $eid = $npc->GetID(); #Get this npc's Entity_ID
		quest::signalwith(1277,$eid,0); #Send Entity_ID as a signal
		quest::settimer("signal",6); #every 6 seconds
	}
	if($timer eq "damage") {
		my @hatelist = $npc->GetHateList();	#Get every entity on hatelist
		foreach $ent (@hatelist) {
			my $h_ent = $ent->GetEnt();
			my $h_dmg = $ent->GetDamage();
			my $h_hate = $ent->GetHate();
			if($h_ent) {
				my $h_ent_name = $h_ent->GetName();
				quest::say("$h_ent_name is on my hate list with $h_hate hate and $h_dmg damage."); #For quest debugging/testing purposes

#################################################

				#$npc->Damage($h_dmg*0.1); #Damage all on hatelist every 20 seconds with 10% the damage they did to npc during that time span

#################################################
			}
		}
		$npc->CastSpell(21789,$NPC_ID); #Flusterbolt Memblur Effect, 100% memblur on self
		quest::settimer("damage",20); #every 20 seconds
	}
	if($timer eq "depop") {
		quest::depop_withtimer();
		quest::spawn2(1278,0,0,$x,$y,$z,$h); #Spawns chest with loot, 4 x Icy Gem (clicky illusion Gelidran)
	}
}