projects
/
mudsync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f30bd11
)
some TODOs
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Mon, 2 May 2016 15:01:44 +0000
(10:01 -0500)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Mon, 2 May 2016 15:01:44 +0000
(10:01 -0500)
mudsync.scm
patch
|
blob
|
history
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."