\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
(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
(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
(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
(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
(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
(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
- (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
(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
- (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