MQEmulator.net • -

#an_incoherent_exile.pl - Quest File

General Info

Quest File

#Inktuta #an_incoherent_exile 296035

my $say_ready = 1;

sub EVENT_SPAWN {
	quest::set_proximity($x-30,$x+30,$y-30,$y+30);
}

sub EVENT_ENTER {
	quest::emote("stammers, his eyes darting about nervously.");
	quest::say("Thousands! Why the chamber is literally alive with them. A multitude of skittering insects swarming about on the tiles above.");
}

sub EVENT_SAY {
	if ($say_ready) { 
		if ($text=~/awaken me from this nightmare/i) {
			$say_ready = 0;
			quest::settimer("set_ready",30);
			quest::signalwith(296070,296035); #signal zone_status
		} else {
			$say_ready = 0;
			quest::settimer("set_ready",30);
			exile_fail();
		}
	}
}

sub EVENT_TIMER {
	if ($timer eq "set_ready") {
		quest::stoptimer("set_ready");
		$say_ready = 1;
	}
}

sub EVENT_SIGNAL {
	if ($signal == 1) { #success
		quest::emote("blinks and a spark of sanity returns.");
		quest::say("Ah, wha . . . what? How strange. I can see clearly now.");
		quest::say("Thank you for restoring our clarity. Something in this cursed place had stolen away my sanity, and I will not allow it to happen again. Death would be preferable to that endless madness. Be warned, the gateway to the lower reaches of this temple will be unsealed soon. Leave this place before you become mad yourselves!");
	#signal from zone_status saying fail
	} elsif ($signal == 2) {
		exile_fail();
	}
}

sub exile_fail {
	quest::spawn2(296044,0,0,-385,-520, $z, $h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-370,-535, $z, $h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-385,-535, $z, $h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-400,-535, $z, $h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-370,-550, $z, $h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-385,-550, $z, $h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-400,-550, $z, $h); # NPC: an_ancient_stonemite
  }

Source: 17 Jan 2022
Quest Source: 28 May 2022