projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Can FINALLY interact with objects! Woohoo!
[mudsync.git]
/
worlds
/
goblin-hq.scm
diff --git
a/worlds/goblin-hq.scm
b/worlds/goblin-hq.scm
index 34b430d372def445e64fb70543ad959934c71398..bd79b800e0734d0d3c5f2f52496c7b0b36dface6 100644
(file)
--- a/
worlds/goblin-hq.scm
+++ b/
worlds/goblin-hq.scm
@@
-28,9
+28,9
@@
;;; ----------
(define-class <fridge> (<gameobj>)
;;; ----------
(define-class <fridge> (<gameobj>)
- #:name "fridge"
-
#:desc
"The refrigerator is humming. To you? To itself?
-Only the universe knows.")
+ (name #:init-value "fridge")
+
(desc #:init-value
"The refrigerator is humming. To you? To itself?
+Only the universe knows.")
)
;;; The typewriter
;;; The typewriter
@@
-69,7
+69,7
@@
You type some gibberish on the typewriter.\n"))
(define (type-thing actor message type-text)
(<- actor (message-from message) 'tell
#:text
(define (type-thing actor message type-text)
(<- actor (message-from message) 'tell
#:text
- (format #f "You type out a note.\nThe note says: ~s"
+ (format #f "You type out a note.\nThe note says: ~s
\n
"
type-text)))
(define-mhandler (typewriter-cmd-type-something
type-text)))
(define-mhandler (typewriter-cmd-type-something