X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fgoblin-hq.scm;h=357f4a6557decaead808d8603e5210e1c394ad3e;hp=54a573de4fa1781b872ea8a068587d4b97a416fe;hb=50cd2aba8f13ec7aecb58a683aa55ae665cf83ab;hpb=0580e6a2294089a142923e4fba9b345d7442af79;ds=sidebyside diff --git a/worlds/goblin-hq.scm b/worlds/goblin-hq.scm index 54a573d..357f4a6 100644 --- a/worlds/goblin-hq.scm +++ b/worlds/goblin-hq.scm @@ -127,7 +127,7 @@ Still, you have to admit that all the machines look pretty nice." #:exits (list (make #:name "east" - #:to-symbol 'room:north-hallway + #:to 'room:north-hallway #:desc wooden-unlocked-door))) ; eventually make this locked so you have ; to kick it down, joeyh style! ('room:north-hallway @@ -142,15 +142,15 @@ and the west." #:exits (list (make #:name "west" - #:to-symbol 'room:server-room + #:to 'room:server-room #:desc wooden-unlocked-door) (make #:name "east" - #:to-symbol 'room:code-a-plex + #:to 'room:code-a-plex #:desc metal-stiff-door) ;; (make ;; #:name "south" - ;; #:to-symbol 'center-hallway) + ;; #:to 'center-hallway) )) ('room:code-a-plex @@ -165,7 +165,7 @@ But one looks invitingly empty." #:exits (list (make #:name "west" - #:to-symbol 'room:north-hallway + #:to 'room:north-hallway #:desc metal-stiff-door))) ('thing:typewriter @@ -183,7 +183,7 @@ But one looks invitingly empty." ;; #:exits ;; ,(list (make ;; #:name "east" -;; #:to-symbol 'room:)) +;; #:to 'room:)) ;; ) (define (goblin-demo . args)