MQEmulator.net • -

An_Executioner.pl - Quest File

General Info

Quest File

#modified by greenbean 03/23/2010

#my $wave = 0;
my $rspeed = 1.1;
my $dest = 0;

sub EVENT_SPAWN {
   quest::settimer("begin_delay", 3);
}

sub EVENT_SIGNAL {
   if ($signal == 0) {
      #Depop & Respawn
      #Stop the timers
      quest::stoptimer("begin_delay");
      quest::stoptimer("move_check");
      quest::stoptimer("talk_prisoner");
      quest::stoptimer("sig_prisoner");
      quest::stoptimer("do_execution");
      #Spawn new executioner
      quest::spawn2(201439,0,0,232,-1048,74,360); # NPC: An_Executioner
      #Depop this executioner
      quest::depop();
   }
   
   elsif ($signal == 1) {
      #wave 1
      $rspeed = 1.1; # prisoner dies in 34s
   }
   elsif ($signal == 2) {
      #wave 2
      $rspeed = 1.3; # prisoner dies in 33s
   }
   elsif ($signal == 3) {
      #wave 3
      $rspeed = 1.5; # prisoner dies in 32s
   }
   elsif ($signal == 4) {
      #wave 4
      $rspeed = 1.6; # prisoner dies in 30s
   }
   elsif ($signal == 5) {
      #Depop no respawn
      quest::stoptimer("begin_delay");
      quest::stoptimer("move_check");
      quest::stoptimer("talk_prisoner");
      quest::stoptimer("sig_prisoner");
      quest::stoptimer("do_execution");
      quest::depop();
   }
}

sub EVENT_TIMER {
   if ($timer eq "begin_delay") {
      quest::stoptimer("begin_delay");
      quest::modifynpcstat("runspeed", $rspeed);
      quest::moveto(196, -1052, 73.1, -2, 1);
      $dest = 1;
      quest::settimer("move_check",1);
   }
   elsif ($timer eq "move_check") {
      quest::stoptimer("move_check");
      my $x = $npc->GetX();
      my $y = $npc->GetY();
      
      if ($dest == 1) {
         $dist = $npc->CalculateDistance(196, -1052, $npc->GetZ());
         if ($dist < 1.5) {
            quest::moveto(196, -1156, 80.1, -2, 1);
            $dest = 2;
         }
         quest::settimer("move_check", 1);
      }
      elsif ($dest == 2) {
         $dist = $npc->CalculateDistance(196, -1156, $npc->GetZ());
         if ($dist < 1.5) {
            quest::moveto(173, -1156, 80.1, -2, 1);   
            $dest = 3;
         }
         quest::settimer("move_check", 1);
      }
      elsif ($dest == 3) {
         $dist = $npc->CalculateDistance(173, -1156, $npc->GetZ());
         if ($dist < 1.5) {
            quest::settimer("talk_prisoner", 2);
            $dest = 0;
         }
         else {
            quest::settimer("move_check", 1);         
         }
      }
   }
   elsif ($timer eq "talk_prisoner") {
      quest::stoptimer("talk_prisoner");
      quest::emote("intones, 'Do you have any final words before your sentence is carried out?'");
      quest::settimer("sig_prisoner", 3);
   }
   elsif ($timer eq "sig_prisoner") {
      quest::stoptimer("sig_prisoner");
      #prisoner emote
      quest::signalwith(201424,1,0); # NPC: a_sentenced_prisoner
      quest::settimer("do_execution", 13);
   }
   elsif ($timer eq "do_execution") {
      quest::stoptimer("do_execution");
      quest::say("Very well.");
      #Signal prisoner death. (depop)
      quest::signalwith(201424,0,5); # NPC: a_sentenced_prisoner
      #Executed - Let controller know this was a fail
      quest::signalwith(201425, 3, 5); # NPC: #Event_Execution_Control
   }
}

Source: 17 Jan 2022
Quest Source: 28 May 2022