Aura of Crimson Mists (Demi-Plane of Blood)

[Asylum]

So the giants have uncovered a hidden chamber digging under their fort.

place in frontiermtns as chambersc_instance.pl

#NPCID 1575 chambersc_instance in frontiermtns v.0

sub EVENT_SPAWN {
	$npc->TempName("");
	$npc->NPCSpecialAttacks(ZHfDCAB, 0);
	quest::enable_proximity_say();
	quest::set_proximity($x-20,$x+20,$y-20,$y+20);
}

sub EVENT_ENTER {
	if($ulevel >= 50){
	$client->Message(315, "This passage leads to The Chamber of Pain, from which you return victorious or not at all. Do you really wish to [venture] there?!");
	}
	if($ulevel < 50){
	$client->Message(315, "This passage leads to The Chamber of Pain, a place someone of your experience would not survive.");
	}
	quest::set_proximity($x-20,$x+20,$y-20,$y+20);
}

sub EVENT_EXIT {
	quest::set_proximity($x-20,$x+20,$y-20,$y+20);
}

sub EVENT_PROXIMITY_SAY {
	if($text =~/venture/i && $ulevel >= 50) {
		my $InstId = quest::GetInstanceID("chambersc", 2);
		$client->Message(315, "The Chamber of Pain");
		if ($InstId > 0) {
			quest::MovePCInstance(306, $InstId,0,0,0,0);
		}
		elsif ($ulevel > 0) {
			my $i_id = quest::CreateInstance("chambersc", 2, 21600);
			quest::AssignGroupToInstance($i_id);
			quest::AssignToInstance($i_id);
			quest::MovePCInstance(306, $i_id,0,0,0,0);
		}
		else {
		}
	}
}

place in chambersc folder as .pl file

#NPCID 1573 chambersc v.2
#set to type 11 (untargetable) after placing in zone

sub EVENT_SPAWN {
	$npc->TempName("");
	quest::settimer("walkdead", 246);
	quest::settimer("arrow", 24);
}

sub EVENT_TIMER {
	if ($timer eq "walkdead") {
		my @clientlist = $entity_list->GetClientList();
		foreach $ent (@clientlist) {
			my $eid = $ent->GetID(); #Get this client's Entity_ID
			$ent->CastSpell(5051,$eid); #casts Aura of Destruction (3 min duration)
		}
	}
	if ($timer eq "arrow") {
		my @clientlist = $entity_list->GetClientList();
		foreach $ent (@clientlist) {
			if (($ent->GetY) > 105) {
				if ($ent->FindBuff(5051)) { #check for Aura of Destruction debuff, grants immunity to effect
					$ent->Message(315, "A dark arrow narrowly misses you.");
				}
				else {
					my $eid = $ent->GetID(); #Get this client's Entity_ID
					my $arrow = quest::ChooseRandom(4849, 4850, 4851, 9296, 9297, 9298, 17611);
					$ent->CastSpell($arrow,$eid); #casts Heartstopper, Skullpierce, Kneeshatter, Longsight Stinging Shot, Longsight Blinding Shot, Longsight Leg Shot, or Blood Shot
					my $h_ent_name = $ent->GetCleanName();
					quest::ze(4, "$h_ent_name is pierced by a dark arrow.");
				}
			}
		}
	}
}

Haroth,_Kyv_Headhunter.pl

#NPCID 1576 Haroth,_Kyv_Headhunter chambers v.2

sub EVENT_SPAWN {
	$npc->NPCSpecialAttacks(S, 0);
	quest::setnexthpevent(50);
}

sub EVENT_HP {
	if($hpevent == 50) { #begins using spell ability at 50% HP
		quest::settimer("spell", quest::ChooseRandom(18,30)); #random timer for spell
	}
}

sub EVENT_TIMER {
	if($timer eq "spell") {
		$npc->CastSpell(7132,$client); #Casts Bleak Promise, decrease hitpoints by 1125 (L1) to 1225 (L100) PBAE 30 range
		quest::settimer("spell", quest::ChooseRandom(18,30)); #random timer for spell
	}
}

sub EVENT_DEATH_COMPLETE {
	quest::depopall(1574);
	quest::depopall(1573);
	quest::spawn2(1577,0,0,0,0,0,0); #spawns a_sealed_chest
}