projects
/
lifp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
various bugfixes + updated example
[lifp.git]
/
verbs.lisp
diff --git
a/verbs.lisp
b/verbs.lisp
index 39c66af586b1db27c8ec5d8e37c6706183476cc9..5b090e6e9769ab15b3cec62695be9c8745500ca8 100644
(file)
--- a/
verbs.lisp
+++ b/
verbs.lisp
@@
-218,7
+218,7
@@
\r
(defmethod go-to-dispatch ((dest door))
\r
(unless (has dest :door) (return-from go-to-dispatch (call-next-method)))
\r
\r
(defmethod go-to-dispatch ((dest door))
\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))
\r
+ (if (has dest :closed) (format nil "~a is closed." (the-name dest
:capital t
))
\r
(run-action 'pass *args*)))
\r
\r
(defaction pass (obj)
\r
(run-action 'pass *args*)))
\r
\r
(defaction pass (obj)
\r
@@
-334,6
+334,9
@@
(defaction enter (what)
\r
"You can't enter that.")
\r
\r
(defaction enter (what)
\r
"You can't enter that.")
\r
\r
+(defmethod enter ((door door))
\r
+ (go-to-dispatch door))
\r
+
\r
(defaction climb (what)
\r
"You can't climb that.")
\r
\r
(defaction climb (what)
\r
"You can't climb that.")
\r
\r
@@
-375,7
+378,7
@@
(if (has obj :switchable)
\r
(progn
\r
(if (has obj :on)
\r
(if (has obj :switchable)
\r
(progn
\r
(if (has obj :on)
\r
- (format nil "~a is already on." (the-name obj))
\r
+ (format nil "~a is already on." (the-name obj
:capital t
))
\r
(progn (give obj :on)
\r
(when (run-action-after obj) "Done."))))
\r
(call-next-method)))
\r
(progn (give obj :on)
\r
(when (run-action-after obj) "Done."))))
\r
(call-next-method)))
\r
@@
-384,7
+387,7
@@
(if (has obj :switchable)
\r
(progn
\r
(if (hasnt obj :on)
\r
(if (has obj :switchable)
\r
(progn
\r
(if (hasnt obj :on)
\r
- (format nil "~a is already off." (the-name obj))
\r
+ (format nil "~a is already off." (the-name obj
:capital t
))
\r
(progn (give obj :~on)
\r
(when (run-action-after obj) "Done."))))
\r
(call-next-method)))
\r
(progn (give obj :~on)
\r
(when (run-action-after obj) "Done."))))
\r
(call-next-method)))
\r
@@
-451,7
+454,7
@@
(when (run-action-after obj)
\r
(format nil "You open ~a." (the-name obj))))
\r
"It's locked.")
\r
(when (run-action-after obj)
\r
(format nil "You open ~a." (the-name obj))))
\r
"It's locked.")
\r
- (format nil "~a is already open." (the-name obj))))
\r
+ (format nil "~a is already open." (the-name obj
:capital t
))))
\r
\r
(defaction close (obj)
\r
"You cannot close this.")
\r
\r
(defaction close (obj)
\r
"You cannot close this.")
\r
@@
-464,7
+467,7
@@
(give obj :closed)
\r
(when (run-action-after obj)
\r
(format nil "You close ~a." (the-name obj))))
\r
(give obj :closed)
\r
(when (run-action-after obj)
\r
(format nil "You close ~a." (the-name obj))))
\r
- (format nil "~a is already closed." (the-name obj))))
\r
+ (format nil "~a is already closed." (the-name obj
:capital t
))))
\r
\r
(defaction lock (obj key)
\r
"Not lockable.")
\r
\r
(defaction lock (obj key)
\r
"Not lockable.")
\r
@@
-475,9
+478,9
@@
(has obj :lockable))
\r
(return-from lock (call-next-method)))
\r
(if (has obj :locked)
\r
(has obj :lockable))
\r
(return-from lock (call-next-method)))
\r
(if (has obj :locked)
\r
- (format nil "~a is already locked." (the-name obj))
\r
+ (format nil "~a is already locked." (the-name obj
:capital t
))
\r
(if (hasnt obj :closed)
\r
(if (hasnt obj :closed)
\r
- (format nil "~a is not closed." (the-name obj))
\r
+ (format nil "~a is not closed." (the-name obj
:capital t
))
\r
(if (with-keys obj key)
\r
(progn
\r
(give obj :locked)
\r
(if (with-keys obj key)
\r
(progn
\r
(give obj :locked)
\r
@@
-495,9
+498,9
@@
(has obj :lockable))
\r
(return-from unlock (call-next-method)))
\r
(if (hasnt obj :locked)
\r
(has obj :lockable))
\r
(return-from unlock (call-next-method)))
\r
(if (hasnt obj :locked)
\r
- (format nil "~a is already unlocked." (the-name obj))
\r
+ (format nil "~a is already unlocked." (the-name obj
:capital t
))
\r
(if (hasnt obj :closed)
\r
(if (hasnt obj :closed)
\r
- (format nil "~a is not closed." (the-name obj))
\r
+ (format nil "~a is not closed." (the-name obj
:capital t
))
\r
(if (with-keys obj key)
\r
(progn
\r
(give obj :~locked)
\r
(if (with-keys obj key)
\r
(progn
\r
(give obj :~locked)
\r