Nadox instant respawn solution

[Angelox]

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

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

[Angelox]

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-

# 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