Enhanced Peters quest

Rewrote peters quest.
Added conditional warp for check whether quest is done.
Corrected some tweaks.

1 files changed, 40 insertions, 0 deletions

diff --git a/npc/000-2-2/doors.txt b/npc/000-2-2/doors.txt
new file mode 100644
index 00000000..912b3096
--- /dev/null
+++ b/npc/000-2-2/doors.txt
@@ -0,0 +1,40 @@
+// Evol scripts.
+// Authors:
+//		Reid
+// Description:
+//    Rat killer NPC
+
+000-2-2.gat,48,29,0,1	script	DoorUpwards	0,0,0,{
+
+OnTouch:
+	set @q, geta4(ShipQuests, ShipQuests_Peter);
+	if (@q == 1 || @q == 2) goto l_Check;
+	goto l_Warp;
+
+l_Check:
+	if (getmapmobs("000-2-2.gat") > 0) goto l_Warn;
+	seta4 ShipQuests, ShipQuests_Peter, @q+2;
+	goto l_Warp;
+
+l_Warn:
+	mesn;
+	mesq l("There are still some rats left! Do you want to abort the quest?");
+	menu
+	  l("Yes."), l_Warp,
+	  l("No."), -;
+	warp "000-2-2", 48, 28;
+	close;
+
+l_Warp:
+	warp "000-2-1", 61, 35;
+	close;
+}
+
+000-2-2.gat,24,31,0,1	script	AreaNPC	0,0,1,{
+
+OnTouch:
+
+	mesq l("This door seems locked");
+	close;
+
+}