(define (make-default-room-conn-handler default-room)
"Make a handler for a GM that dumps people in a default room
with an anonymous persona"
- (display "right before breakage?\n")
(let ((count 0))
(lambda (gm client-id)
(set! count (+ count 1))
#:name guest-name
#:gm (actor-id gm)
#:client client-id)))
- (display "Are we broke yet?\n")
;; Register the player in our database of players -> connections
(gm-register-client! gm client-id player)
;; Dump the player into the default room
(<-wait gm player 'set-loc! #:loc room-id)
;; Initialize the player
- (<- gm player 'init)))))
+ (<-wait gm player 'init)
+ (<- gm room-id 'tell-room
+ #:text (format #f "You see ~a materialize out of thin air!\n"
+ guest-name)
+ #:exclude player)))))