1 files changed, 69 insertions, 0 deletions
diff --git a/npc/001-2-6/christopher.txt b/npc/001-2-6/christopher.txt
new file mode 100644
index 000000000..1bef67866
--- /dev/null
+++ b/npc/001-2-6/christopher.txt
@@ -0,0 +1,69 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Librarian
+
+001-2-6,57,46,0	script	Christopher	NPC_CHRISTOPHER,{
+    function ghost_in_the_library
+    {
+        narrator S_LAST_NEXT,
+            l("Christopher is surrounded by the sunlight from the window.");
+
+        speech
+            l("To be a legend, you've either got to be dead or excessively old!"),
+            l("I think that I am now both..."),
+            l("I mean, I am very tired to move all of these books!");
+
+        return;
+    }
+
+    function need_help
+    {
+        speech S_LAST_NEXT,
+            l("Do you need help with something?");
+
+        switch (select(l("What kinds of books are there here?"),
+                       l("You seem a bit tired sir."),
+                       l("Nothing.")))
+        {
+            case 1:
+                npctalk3 l("You can find novels and poems on this floor.");
+                break;
+            case 2:
+                mes "";
+                ghost_in_the_library();
+                break;
+            case 3:
+                npctalk3 l("I love peace and quiet, that's a good choice.");
+        }
+        return;
+    }
+
+    function not_so_loud
+    {
+        npctalkonce l("This floor is reserved for quiet reading, don't speak too loud.");
+
+        return;
+    }
+
+    switch (rand(3))
+    {
+        case 0:
+            ghost_in_the_library();
+            break;
+        case 1:
+            need_help();
+            break;
+        case 2:
+            not_so_loud();
+            break;
+    }
+
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}