1 files changed, 75 insertions, 0 deletions
diff --git a/npc/001-2-23/doors.txt b/npc/001-2-23/doors.txt
new file mode 100644
index 00000000..9c91e824
--- /dev/null
+++ b/npc/001-2-23/doors.txt
@@ -0,0 +1,75 @@
+// Evol scripts.
+// Authors:
+//    Ablu
+//    Alastrim
+//    Jesusalva
+//    Reid
+// Description:
+//    Doors NPCs.
+
+001-2-23,48,29,0	script	DoorUpwards#Artis	NPC_HIDDEN,0,0,{
+
+OnTouch:
+    // Actually this will never work because Instanced map
+    if (mobcount("001-2-23","all") > 0) goto L_Warn;
+
+    goto L_Warp;
+
+L_Warn:
+    .@q = getq(ShipQuests_Peter);
+    if (.@q >= 15) goto L_Warp;
+
+    mesn "Narrator";
+    mesc(l("There are still some monsters left! Do you want to abort the quest?"), 9);
+    next;
+
+    menu
+        l("Yes."), L_Warp,
+        l("No."), -;
+
+    slide 48, 28;
+    closeclientdialog;
+    close;
+
+L_Warp:
+    warp "001-2-22", 72, 36;
+
+    deltimer("Peter#Artis::OnLowTime");
+    deltimer("Peter#Artis::OnTimeout");
+    closeclientdialog;
+    close;
+}
+
+// Besides the door, Alige is hiding himself and would rather not be disturbed
+001-2-23,24,31,0	script	LeftDoor#Artis	NPC_HIDDEN,0,0,{
+
+OnTouch:
+    mesn "Narrator";
+    mesc(l("It seems that you need a key to open this door."), 9);
+    next;
+    mesc(l("What do you want to do?"), 9);
+    next;
+
+    menu
+        rif(countitem(JohanneKey) > 0, l("Use the key.")), L_Warp,
+        l("Break the door."), L_Break,
+        l("Go away."), -;
+
+    closeclientdialog;
+    close;
+
+L_Break:
+
+    mes "";
+    mesn "Narrator";
+    mesc(l("You hear a loud scream. It must be the creaking of the wooden door..."), 9);
+
+    close;
+
+L_Warp:
+    mes "";
+    mesn "Narrator";
+    mesc(l("Wait, it seems someone is blocking the door from the other side!"), 9);
+
+    close;
+}