MQEmulator.net • -

#cursed_controller.pl - Quest File

General Info

Quest File

my $check;
my $variance = int(rand(600));
my $spawntime = 4320 + $variance;

sub EVENT_SPAWN {
  quest::settimer("cursed",60);
}

sub EVENT_TIMER {
  $check = 0;
  if($timer eq "cursed") {
    $check_boss = $entity_list->GetMobByNpcTypeID(162270);#cursed_one
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162271);#cursed_two
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162272);#cursed_three
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162273);#cursed_four
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162274);#cursed_five
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162275);#cursed_six
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162276);#cursed_seven
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162277);#cursed_eight
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162278);#cursed_nine
    if ($check_boss) {
      $check = 1;
    }
    $check_boss = $entity_list->GetMobByNpcTypeID(162279);#cursed_ten
    if ($check_boss) {
      $check = 1;
    }
    if ($check == 1) {
    }
    if ($check == 0 && defined $qglobals{cursed_dead}) {
    }
    elsif ($check == 0) {
      if (defined $qglobals{glyphed_dead}) {
        quest::spawn2(162253,0,0,-51,-9,-218.1,126);#runed
      }
      elsif (!defined $qglobals{glyphed_dead}) {
        quest::spawn2(162261,0,0,-51,-9,-218.1,126);#glyphed
      }
      quest::stoptimer("cursed");
      quest::stoptimer("one");
      quest::settimer("one",21600);
    }
  }
  if ($timer eq "one" && !defined $qglobals{cursed_dead}) {
    quest::stoptimer("one");
    quest::depop(162206);
    quest::depop(162232);
    quest::depop(162214);
    quest::depop(162261);
    quest::depop(162253);
    quest::depop_withtimer();
  }
}

sub EVENT_SIGNAL {
  if ($signal == 1 && defined $qglobals{exiled_dead}) {
    quest::spawn2(162214,0,0,-51,-9,-218.1,126);#Banished
  }
  elsif ($signal == 1 && !defined $qglobals{exiled_dead}) {
    quest::spawn2(162232,0,0,-51,-9,-218.1,126);#Exiled
  }
  if ($signal == 2 && !defined $qglobals{cursed_dead}) {
    quest::spawn2(162206,0,0,-51,-9,-218.1,126);#Cursed
  }
  if ($signal == 3) {	
    quest::setglobal("cursed_dead",1,3,"M$spawntime");
    quest::stoptimer("one");
    quest::depop_withtimer();
  }
}

Source: 17 Jan 2022
Quest Source: 28 May 2022