PoP Progression

[Noport]

a_buccaneer.pl

sub EVENT_AGGRO{
	quest::say("Time to die $name.");
}

Taskmaster_Kavamezh.pl

sub EVENT_DEATH_COMPLETE {
	quest::signal(162270);#cursed_one
}

#Vyzh-dra_the_Cursed.pl

sub EVENT_SLAY {
	quest::shout("Tell your gods that I will be coming for them next!");
}

sub EVENT_DEATH_COMPLETE {
	quest::shout("I cannot die! I am the only true god!");
	quest::emote("crashes to the ground. A horrific sound fills the room, but vanishes as quickly as it came.");
	quest::signalwith(162255,3,0);
}

a_Luggald_Ambassador.pl

sub EVENT_DEATH_COMPLETE{
 my $random_result = int(rand(100));
 my $a = 227113;#Garodizan_Razorfin
 my $x = $npc->GetX();
 my $y = $npc->GetY();
 my $z = $npc->GetZ(); 
 my $h = $npc->GetHeading();
 if (($random_result<=5) && ($razo==2)){
  quest::spawn2($a,0,0,$x,$y,$z,$h);
  quest::delglobal("razo");
  quest::setglobal("razo",3,3,"F");
  $razo=undef;
  }else{
  #do nothing 
 }
}

# EOF zone: nadox NPCs:#Garodizan_Razorfin (227113)

a_luggald_initiate.pl

sub EVENT_DEATH_COMPLETE{
 my $random_result = int(rand(100));
 my $a = 227113;#Garodizan_Razorfin
 my $x = $npc->GetX();
 my $y = $npc->GetY();
 my $z = $npc->GetZ(); 
 my $h = $npc->GetHeading();
 if (($random_result<=5) && ($razo==2)){
  quest::spawn2($a,0,0,$x,$y,$z,$h);
  quest::delglobal("razo");
  quest::setglobal("razo",3,3,"F");
  $razo=undef;
  }else{
  #do nothing 
 }
}

# EOF zone: nadox NPCs:#Garodizan_Razorfin (227113)

a_luggald_overseer.pl

sub EVENT_DEATH_COMPLETE{
 my $random_result = int(rand(100));
 my $a = 227113;#Garodizan_Razorfin
 my $x = $npc->GetX();
 my $y = $npc->GetY();
 my $z = $npc->GetZ(); 
 my $h = $npc->GetHeading();
 if (($random_result<=5) && ($razo==2)){
  quest::spawn2($a,0,0,$x,$y,$z,$h);
  quest::delglobal("razo");
  quest::setglobal("razo",3,3,"F");
  $razo=undef;
  }else{
  #do nothing 
 }
}

# EOF zone: nadox NPCs:#Garodizan_Razorfin (227113)

a_vehement_Blackhand.pl

sub EVENT_DEATH_COMPLETE{
 my $random_result = int(rand(100));
 my $a = 227108;#Crew_Chief_Hanriesaf
 my $x = $npc->GetX();
 my $y = $npc->GetY();
 my $z = $npc->GetZ(); 
 my $h = $npc->GetHeading();
 if (($random_result<=5) && ($hanr==2)){
  quest::spawn2($a,0,0,$x,$y,$z,$h);
  quest::delglobal("hanr");
  quest::setglobal("hanr",3,3,"F");
  $hans=undef;
  }else{
  #do nothing
 }
}

# EOF zone: nadox NPCs: #Crew_Chief_Hanriesaf (227108)