Injection almost works, you can pass along the appropriate action at least.

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

diff --git a/mudsync/game-master.scm b/mudsync/game-master.scm
index 89fbaf6c8ca157f52bdca02ef5389306c94abf88..6a06cb7bf1af4de62be822c901c8283568cc26ab 100644 (file)
--- a/mudsync/game-master.scm
+++ b/mudsync/game-master.scm
@@ -56,7 +56,8 @@
     (lookup-special (wrap-apply gm-lookup-special))
     (new-client (wrap-apply gm-new-client))
     (write-home (wrap-apply gm-write-home))
-    (client-closed (wrap-apply gm-client-closed)))))
+    (client-closed (wrap-apply gm-client-closed))
+    (inject-special! (wrap-apply gm-inject-special!)))))
 
 
 ;;; .. begin world init stuff ..
@@ -169,6 +170,13 @@
     (gm-unregister-client! gm client)))
 
 
+(define-mhandler (gm-inject-special! gm message
+                                     special-symbol gameobj-spec)
+  "Inject, possiibly replacing the original, special symbol
+using the gameobj-spec."
+  (pk 'special-symbol special-symbol)
+  (pk 'gameobj-spec gameobj-spec))
+
 ;;; GM utilities
 
 (define (gm-register-client! gm client-id player)
@@ -193,7 +201,6 @@
 (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))
@@ -207,11 +214,14 @@ with an anonymous persona"
                              #: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)))))