Add bacchus to 001-2-14 to return to Ship

2 files changed, 29 insertions, 0 deletions

diff --git a/npc/001-2-14/_import.txt b/npc/001-2-14/_import.txt
index 52417d391..88d6e67c3 100644
--- a/npc/001-2-14/_import.txt
+++ b/npc/001-2-14/_import.txt
@@ -2,3 +2,4 @@ npc: npc/001-2-14/mapflags.txt
 npc: npc/001-2-14/_warps.txt
 npc: npc/001-2-14/_mobs.txt
 npc: npc/001-2-14/teleport.txt
+npc: npc/001-2-14/bacchus.txt
diff --git a/npc/001-2-14/bacchus.txt b/npc/001-2-14/bacchus.txt
new file mode 100644
index 000000000..01217d131
--- /dev/null
+++ b/npc/001-2-14/bacchus.txt
@@ -0,0 +1,28 @@
+// Evol scripts.
+// Authors:
+//    Travolta
+// Description:
+//    Bacchus on mini-Artis.
+
+001-2-14,36,29,0,1	script	Bacchus#001-2-14	NPC_BACCHUS,{
+    speech
+        l("Have you seen enough? Would you like to wake up?");
+
+    switch (select(l("Send me back to real world."),
+                   l("I'd like to stay.")))
+    {
+        case 1:
+            closedialog;
+            warp "000-2-1",50,38;
+            clientcommand "turndown";
+            message strcharinfo(0), l("What a strange dream.");
+            break;
+        case 2:
+            break;
+    }
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 3;
+}