projects
/
lifp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
upd advent.lisp so it works
[lifp.git]
/
verbs.lisp
diff --git
a/verbs.lisp
b/verbs.lisp
index 5b090e6e9769ab15b3cec62695be9c8745500ca8..dae175a5644a93a7833bd3569050444561a78563 100644
(file)
--- a/
verbs.lisp
+++ b/
verbs.lisp
@@
-205,7
+205,7
@@
\r
(defaction go-to (dir)
\r
(let ((destination (read-property *location* (property dir))))
\r
\r
(defaction go-to (dir)
\r
(let ((destination (read-property *location* (property dir))))
\r
- (if destination (exec go-to-dispatch (destination))
\r
+ (if destination (exec go-to-dispatch (destination)
:str t
)
\r
(if (provides *location* 'cant-go)
\r
(read-property *location* 'cant-go)
\r
"You can't go here."))))
\r
(if (provides *location* 'cant-go)
\r
(read-property *location* 'cant-go)
\r
"You can't go here."))))
\r
@@
-217,9
+217,10
@@
(go-to-room dest))
\r
\r
(defmethod go-to-dispatch ((dest door))
\r
(go-to-room dest))
\r
\r
(defmethod go-to-dispatch ((dest door))
\r
+ ;(format t "go-to-dispatch: ~a~%" dest)
\r
(unless (has dest :door) (return-from go-to-dispatch (call-next-method)))
\r
(if (has dest :closed) (format nil "~a is closed." (the-name dest :capital t))
\r
(unless (has dest :door) (return-from go-to-dispatch (call-next-method)))
\r
(if (has dest :closed) (format nil "~a is closed." (the-name dest :capital t))
\r
- (run-action 'pass
*args*
)))
\r
+ (run-action 'pass
(list dest)
)))
\r
\r
(defaction pass (obj)
\r
"Something's wrong happened.")
\r
\r
(defaction pass (obj)
\r
"Something's wrong happened.")
\r