From: Christopher Allan Webber Date: Mon, 2 May 2016 15:01:44 +0000 (-0500) Subject: some TODOs X-Git-Tag: fosdem-2017~201 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=5650e1452ded5d26afeba3c9ef2714bad277b03c;p=mudsync.git some TODOs --- diff --git a/mudsync.scm b/mudsync.scm index 7219c37..5dd58b1 100644 --- a/mudsync.scm +++ b/mudsync.scm @@ -452,9 +452,11 @@ with an anonymous persona" #:val (slot-ref actor slot)))) +;; TODO: Subclass from container? (define-class () (desc #:init-value "" #:init-keyword #:desc) + ;; TODO: Switch this to be loc based ;; Uses a hash table like a set (values ignored) (occupants #:init-thunk make-hash-table) ;; A list of @@ -463,6 +465,9 @@ with an anonymous persona" ;; @@: Maybe eventually will inherit from some more general ;; game object class + (contain-commands + #:init-value %room-contain-commands) + (message-handler #:allocation #:each-subclass #:init-value @@ -480,6 +485,9 @@ with an anonymous persona" (hash-remove! (slot-ref actor 'occupants) who)) (wire-exits! (wrap-apply room-wire-exits!))))) +(define %room-contain-commands 'TODO) + + (define (room-wire-exits! room message) "Actually hook up the rooms' exit addresses to the rooms they claim to point to."