projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
some TODOs
[mudsync.git]
/
mudsync.scm
diff --git
a/mudsync.scm
b/mudsync.scm
index 7219c37e947883daa75f9baa711b6395affc5394..5dd58b114674d023bde888e4950d7d441ddf73c6 100644
(file)
--- a/
mudsync.scm
+++ b/
mudsync.scm
@@
-452,9
+452,11
@@
with an anonymous persona"
#:val (slot-ref actor slot))))
#:val (slot-ref actor slot))))
+;; TODO: Subclass from container?
(define-class <room> (<gameobj>)
(desc #:init-value ""
#:init-keyword #:desc)
(define-class <room> (<gameobj>)
(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 <exit>
;; Uses a hash table like a set (values ignored)
(occupants #:init-thunk make-hash-table)
;; A list of <exit>
@@
-463,6
+465,9
@@
with an anonymous persona"
;; @@: Maybe eventually <room> will inherit from some more general
;; game object class
;; @@: Maybe eventually <room> will inherit from some more general
;; game object class
+ (contain-commands
+ #:init-value %room-contain-commands)
+
(message-handler
#:allocation #:each-subclass
#:init-value
(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!)))))
(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."
(define (room-wire-exits! room message)
"Actually hook up the rooms' exit addresses to the rooms they
claim to point to."