X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=inline;f=worlds%2Fgoblin-hq.scm;h=6bfd15420f39d05968ac3fe55ea32dc1c81e5cbe;hb=82398f8a5151d3b33a8ad9c818c0dc9984ad7e53;hp=54a573de4fa1781b872ea8a068587d4b97a416fe;hpb=0580e6a2294089a142923e4fba9b345d7442af79;p=mudsync.git
diff --git a/worlds/goblin-hq.scm b/worlds/goblin-hq.scm
index 54a573d..6bfd154 100644
--- a/worlds/goblin-hq.scm
+++ b/worlds/goblin-hq.scm
@@ -17,7 +17,7 @@
;;; along with Mudsync. If not, see .
(use-modules (mudsync)
- (8sync systems actors)
+ (8sync actors)
(8sync agenda)
(oop goops)
(ice-9 format))
@@ -79,23 +79,23 @@ Only the universe knows."))
#:init-value
(wrap-apply typewriter-dispatch)))
-(define-mhandler (typewriter-cmd-type-gibberish actor message)
- (<- actor (message-from message) 'tell
+(define (typewriter-cmd-type-gibberish actor message)
+ (<- (message-from message) 'tell
#:text "*tikka takka!* *tikka takka!*
You type some gibberish on the typewriter.\n"))
(define (type-thing actor message type-text)
- (<- actor (message-from message) 'tell
+ (<- (message-from message) 'tell
#:text
(format #f "You type out a note.\nThe note says: ~s\n"
type-text)))
-(define-mhandler (typewriter-cmd-type-something
- actor message direct-obj indir-obj)
+(define (typewriter-cmd-type-something
+ actor message direct-obj indir-obj)
(type-thing actor message direct-obj))
-(define-mhandler (typewriter-cmd-type-anything
- actor message direct-obj rest)
+(define (typewriter-cmd-type-anything
+ actor message direct-obj rest)
(type-thing actor message rest))
@@ -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)