X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=worlds%2Fgoblin-hq.scm;h=6bfd15420f39d05968ac3fe55ea32dc1c81e5cbe;hb=669edc75ebfbb547053f4aa0a67be6c3754ccb65;hp=b6682c2b36519af932405da7a2183e7101b1d295;hpb=f1a3d508745069bceecb02cb475c0104020dce16;p=mudsync.git
diff --git a/worlds/goblin-hq.scm b/worlds/goblin-hq.scm
index b6682c2..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,8 +183,8 @@ But one looks invitingly empty."
;; #:exits
;; ,(list (make
;; #:name "east"
-;; #:to-symbol 'room:))
+;; #:to 'room:))
;; )
(define (goblin-demo . args)
- (run-demo "/tmp/goblin-game.db" goblin-rooms 'room:north-hallway))
+ (run-demo goblin-rooms 'room:north-hallway))