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,22 7035,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