So the giants have uncovered a hidden chamber digging under their fort.
place in frontiermtns as chambersc_instance.pl
Code:
#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
Code:
#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
Code:
#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
}