worlds/goblin-hq.scm

   1 (use-modules (mudsync)
   2              (oop goops))
   3
   4 ;;                    MEDIAGOBLIN HQ
   5 ;; .-------------.--.--------.-----------.-----------.
   6 ;; | ====  ===== |  |        | elrond's  |           |
   7 ;; | ====  ===== |  | joar's | goblin    |           |
   8 ;; | Dootacenter |  + codea  | ballroom  |           |  <- here be
   9 ;; | ====  ===== +  | plex   |           |           |     gandaros
  10 ;; | ^-- chris's |  ;--------'----+--,---'           |
  11 ;; | emacs ai == |@ | schendje's     |               |
  12 ;; | server ==== |  | graphic design |   TOP SECRET  |
  13 ;; '-------------'  + sweatshop      +   LABORATORY  |
  14 ;; .--------+-----. |                |               |
  15 ;; | deb's        | '----------------'---------------'
  16 ;; | communication|  | | | | | | | | | <- stairs
  17 ;; | cooridoor    + _|_|_|_|_|_|_|_|_|
  18 ;; '--------------'
  19
  20 (define wooden-unlocked-door "A wooden door.  It appears to be unlocked.")
  21 (define metal-stiff-door "A stiff metal door.
  22 It looks like with a hard shove, you could step through it.")
  23
  24 (define goblin-rooms
  25   `((server-room
  26      ,<room>
  27      #:name "The dootacenter"
  28      #:desc
  29      "You've entered the server room.  The isles alternate between hot and cold
  30 here.  It's not not very comfortable in here, and the combined noise of hundreds,
  31 maybe thousands, of fans and various computing mechanisms creates an unpleasant
  32 din.  Who'd choose to work in such a place?
  33
  34 Still, you have to admit that all the machines look pretty nice."
  35      ;; TODO: Allow walking around further in the dootacenter.
  36      #:exits
  37      ,(list (make <exit>
  38               #:name "east"
  39               #:to-symbol 'north-hallway
  40               #:desc wooden-unlocked-door)))  ; eventually make this locked so you have
  41                                              ; to kick it down, joeyh style!
  42     (north-hallway
  43      ,<room>
  44      #:name "North hallway"
  45      #:desc
  46      "You're at the north end of the hallway.  An open window gives a nice breeze,
  47 and the curtains dance merrily in the wind.  Outside appears to be a pleasant
  48 looking lawn.
  49
  50 The hallway continues to the south."
  51      #:exits
  52      ,(list (make <exit>
  53               #:name "west"
  54               #:to-symbol 'server-room
  55               #:desc wooden-unlocked-door)
  56             (make <exit>
  57               #:name "east"
  58               #:to-symbol 'code-a-plex
  59               #:desc metal-stiff-door)
  60             ;; (make <exit>
  61             ;;   #:name "south"
  62             ;;   #:to-symbol 'center-hallway)
  63             ))
  64
  65     (code-a-plex
  66      ,<room>
  67      #:name "Joar's Code-A-Plex"
  68      #:desc
  69      "You've entered Joar's Code-A-Plex.  What that means is anyone's guess.
  70 Joar apparently hangs out in here sometimes, but you don't see him here right
  71 now.
  72
  73 There's a row of computer desks.  Most of them have computers already on them,
  74 But one looks invitingly empty."
  75      #:exits
  76      ,(list (make <exit>
  77               #:name "west"
  78               #:to-symbol 'north-hallway
  79               #:desc metal-stiff-door)))))
  80
  81 (define (goblin-demo . args)
  82   (run-demo "/tmp/goblin-game.db" goblin-rooms 'north-hallway))