#: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)))))