From d9edc0edd5263888911dae51c113cb536b5c62f2 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Mon, 2 May 2016 11:10:09 -0500 Subject: [PATCH] refactoring commands slots --- mudsync.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/mudsync.scm b/mudsync.scm index a15f5b9..35cc0be 100644 --- a/mudsync.scm +++ b/mudsync.scm @@ -398,7 +398,9 @@ with an anonymous persona" #:init-value '()) ;; Commands we can handle - (commands #:init-value #f) + (dirobj-commands #:init-value '()) + (indirobj-commands #:init-value '()) + ;; Commands we can handle by being something's container (contain-commands #:init-value #f)) @@ -489,10 +491,10 @@ with an anonymous persona" (define %room-contain-commands (list - (command "look" cmatch-just-verb always 'look-room) - (command "look" cmatch-direct-obj always 'look-member) - (command "go" cmathc-just-verb always 'go-where) - (command "go" cmatch-direct-obj always 'go-exit))) + (full-command "look" cmatch-just-verb always 'look-room) + (full-command "look" cmatch-direct-obj always 'look-member) + (full-command "go" cmathc-just-verb always 'go-where) + (full-command "go" cmatch-direct-obj always 'go-exit))) (define (room-wire-exits! room message) @@ -520,7 +522,7 @@ claim to point to." (client #:accessor player-client) (self-commands - #:init-value #f ; TODO: Set me to a reasonable default + #:init-value '() #:accessor player-self-commands) (message-handler -- 2.31.1