See objects in the same room as you

[mudsync.git] / mudsync / game-master.scm

diff --git a/mudsync/game-master.scm b/mudsync/game-master.scm
index 0d2051ec48bd43df10abfd3e56e1e38203f3c845..34476b0077a892aaa553813e73df8d30f6676d3c 100644 (file)
--- a/mudsync/game-master.scm
+++ b/mudsync/game-master.scm
@@ -41,11 +41,11 @@
                       #:getter gm-reverse-client-dir)
 
   ;; Network manager
                       #:getter gm-reverse-client-dir)
 
   ;; Network manager

-  (network-manager #:accessor gm-network-manager
+  (network-manager #:getter gm-network-manager

                    #:init-value #f)
 
   ;; How we get a new connection acclimated to the system
                    #:init-value #f)
 
   ;; How we get a new connection acclimated to the system

-  (new-conn-handler #:accessor gm-new-conn-handler
+  (new-conn-handler #:getter gm-new-conn-handler

                     #:init-keyword #:new-conn-handler)
 
   (message-handler
                     #:init-keyword #:new-conn-handler)
 
   (message-handler


@@ -114,8 +114,8 @@
 
 (define (gm-setup-network gm)
   ;; Create a default network manager if none available
 
 (define (gm-setup-network gm)
   ;; Create a default network manager if none available

-  (set! (gm-network-manager gm)
-        (create-actor* gm <network-manager> "netman"
+  (slot-set! gm 'network-manager
+             (create-actor* gm <network-manager> "netman"

                        #:send-input-to (actor-id gm)))
 
   ;; TODO: Add host and port options
                        #:send-input-to (actor-id gm)))
 
   ;; TODO: Add host and port options


@@ -190,7 +190,7 @@ with an anonymous persona"
              ;; create and register the player
              (player
               (create-actor* gm (@@ (mudsync player) <player>) "player"
              ;; create and register the player
              (player
               (create-actor* gm (@@ (mudsync player) <player>) "player"

-                             #:username guest-name
+                             #:name guest-name

                              #:gm (actor-id gm)
                              #:client client-id)))
         (display "Are we broke yet?\n")
                              #:gm (actor-id gm)
                              #:client client-id)))
         (display "Are we broke yet?\n")