EQEmulator Forums - Nadox instant respawn solution

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Submissions (https://www.eqemulator.org/forums/forumdisplay.php?f=634)

- - Nadox instant respawn solution (https://www.eqemulator.org/forums/showthread.php?t=21080)

Nadox instant respawn solution

Here's an effective solution to my "instant respawn" dilemma in the LoY zone, Nadox;

Code:

# Captain_Krakskull's instant respawn on a sanctum sentinel death - list favors another sanctum sentinel

# 88% of the time

# note: the only random number that means anything, is the last one; 227097

# Angelox



sub EVENT_DEATH

{

 my $a = quest::ChooseRandom(227031,227031,227031,227031,227035,227035,227035,227097);

 my $x = $npc->GetX();

 my $y = $npc->GetY();

 my $z = $npc->GetZ(); 

 my $h = $npc->GetHeading();

 if ($a =~ /227097/)

  {

  quest::say("Surprise! Time to die, fool!");

  quest::spawn2($a,0,0,$x,$y,$z,$h);

  }

 else

  {

  quest::say("Lord Nadox will avenge me!");

  }

}



# EOF zone: nadox

The quest::say text added in there does not follow live ( I can't remember what the original was) - they are there to verify the script is working.
This script can be renamed and fixed for all the "spawn on death" mobs in Nadox which are many.

here's a little "fix" to these Pl's;

This eliminates the quest::ChooseRandom numbers that don't really exist, and might be a little more accurate-

Code:

# respawn random mob on a sanctum sentinel death - list favors another sanctum sentinel

# 90% of the time



sub EVENT_DEATH

{

 my $random_result = int(rand(100));

 my $x = $npc->GetX();

 my $y = $npc->GetY();

 my $z = $npc->GetZ(); 

 my $h = $npc->GetHeading();

 my $a = 227097;

 if ($random_result<=10)

  {

  quest::say("Surprise! Time to die, fool!");

  quest::spawn2($a,0,0,$x,$y,$z,$h);

  }

 else

  {

  quest::say("Lord Nadox will avenge me!");

  }

}



# EOF zone: nadox NPC: a_sanctum_sentinel, Captain_Krakskull