EQEmulator Forums - Doomshade Raid Event

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

A_Dark_Master.pl

Code:

# 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

Code:

# 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.