Doomshade Raid Event

[WildcardX]

Here is my submission for the spawning of Doomshade in Umbral Plains.

A_Dark_Master.pl

# Doomshade event

my $counter = 0;

sub EVENT_SPAWN {
  $counter += 1;
  
  if ($counter == 4) {
     quest::settimer("chant",1800);
     quest::emote("begins to chant to the coming of doom");
  }
  
  my $depop = $entity_list->GetMobByNpcTypeID(176088);
  if ($depop) {
     my $depopdoomshade = $depop->CastToNPC();
     $depopdoomshade->Depop();
  }
}

sub EVENT_TIMER {
   if ($timer eq "chant") {
      quest::emote("begins to chant to the coming of doom");
   }
}

sub EVENT_DEATH {
   $counter -= 1;
   if ($counter == 0) {
      quest::spawn2(176088,0,0,119.2,-282.6, -0.2, 360);
      quest::stoptimer("chant");
   }
}

# zone: umbral ID: 176042 NPC: A_Dark_Master

#Doomshade.pl

# Doomshade event

sub EVENT_SPAWN {
  quest::me("a tortured scream echos thru the lands as a cursed soul is released");
}

# zone: umbral ID: 176088 NPC: #Doomshade

FYI... Please note that the emotes aren't precisley correct. When doomshade spawns there is suppose to be a zone wide emote that isn't suppose to come from any NPC, so I used a quest::me(), but that appears to work excatly like a quest::say()

Anyway, enjoy it.