MQEmulator.net • -

#a_rambling_exile.pl - Quest File

General Info

Quest File

#Inktuta #a_rambling_exile 296030

my $say_ready = 1;

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

sub EVENT_ENTER {
	quest::emote("points off into the distance.");
	quest::say("The color of the walls is maddening; an unclean beige, strangely faded by time. I can see a formless figure skulking behind the designs. See her, there!");
}

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,296030); #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 {
	# X: -274, Y: -531, Z: -51
	quest::spawn2(296044,0,0,-275,-550,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-282,-550,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-264,-550,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-275,-532,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-282,-532,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-264,-532,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-275,-522,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-282,-522,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-264,-522,$z,$h); # NPC: an_ancient_stonemite
	quest::spawn2(296044,0,0,-275,-582,$z,$h); # NPC: an_ancient_stonemite
}

Source: 17 Jan 2022
Quest Source: 28 May 2022