goblin hq demo

diff --git a/worlds/goblin-hq.scm b/worlds/goblin-hq.scm
new file mode 100644 (file)
index 0000000..7f417da
--- /dev/null
+++ b/worlds/goblin-hq.scm
@@ -0,0 +1,66 @@
+(use-modules (mudsync))
+
+;;                    MEDIAGOBLIN HQ
+;; .-------------.--.--------.-----------.-----------.
+;; | ====  ===== |  |        | elrond's  |           |
+;; | ====  ===== |  | joar's | goblin    |           |
+;; | Dootacenter |  + codea  | ballroom  |           |  <- here be
+;; | ====  ===== +  | plex   |           |           |     gandaros
+;; | ^-- chris's |  ;--------'----+--,---'           |
+;; | emacs ai == |@ | schendje's     |               |
+;; | server ==== |  | graphic design |   TOP SECRET  |
+;; '-------------'  + sweatshop      +   LABORATORY  |
+;; .--------+-----. |                |               |
+;; | deb's        | '----------------'---------------'
+;; | communication|  | | | | | | | | | <- stairs
+;; | cooridoor    + _|_|_|_|_|_|_|_|_|
+;; '--------------'
+
+(define wooden-unlocked-door "A wooden door.  It appears to be unlocked.")
+(define metal-stiff-door "A stiff metal door.
+It looks like with a hard shove, you could step through it.")
+
+(define goblin-rooms
+  `((server-room
+     ,<room>
+     #:name "The dootacenter"
+     #:desc
+     "You've entered the server room.  The isles alternate between hot and cold
+here.  It's not not very comfortable in here, and the combined noise of hundreds,
+maybe thousands, of fans and various computing mechanisms creates an unpleasant
+din.  Who'd choose to work in such a place?
+
+Still, you have to admit that all the machines look pretty nice."
+     ;; TODO: Allow walking around further in the dootacenter.
+     ;; 
+     (("east" north-hallway
+       ,wooden-unlocked-door)))      ; eventually make this locked so you have
+                                     ; to kick it down, joeyh style!
+    (north-hallway
+     ,<room>
+     #:name "North hallway"
+     #:desc
+     "You're at the north end of the hallway.  An open window gives a nice breeze,
+and the curtains dance merrily in the wind.  Outside appears to be a pleasant
+looking lawn.
+
+The hallway continues to the south."
+     (("west" server-room ,wooden-unlocked-door)
+      ("east" code-a-plex ,metal-stiff-door)
+      ("south" center-hallway #f)))
+
+    (code-a-plex
+     ,<room>
+     #:name "Joar's Code-A-Plex"
+     #:desc
+     "You've entered Joar's Code-A-Plex.  What that means is anyone's guess.
+Joar apparently hangs out in here sometimes, but you don't see him here right
+now.
+
+There's a row of computer desks.  Most of them have computers already on them,
+But one looks invitingly empty."
+     ((north-hallway
+       "west" ,metal-stiff-door)))))
+
+(define (goblin-demo . args)
+  (run-demo "/tmp/goblin-game.db" goblin-rooms 'north-hallway))