- (define room-id
- (hash-ref (gm-room-dir gm) default-room))
- ;; create and register the player
- (define player
- (create-actor* gm <player> "player"
- #:username guest-name
- #:gm (actor-id gm)
- #:client client-id))
-
- ;; 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! #:id room-id)
- ;; Initialize the player
- (<- gm player 'init))))
+ (room-id
+ (hash-ref (gm-special-dir gm) default-room))
+ ;; create and register the player
+ (player
+ (create-actor* gm (@@ (mudsync player) <player>) "player"
+ #:name guest-name
+ #:gm (actor-id gm)
+ #:client client-id)))
+ ;; 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
+ (<-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)))))