X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=verbs.lisp;fp=verbs.lisp;h=dae175a5644a93a7833bd3569050444561a78563;hb=f2bc208b79cb4993115ec0c9c4a9e12adcbc519b;hp=5b090e6e9769ab15b3cec62695be9c8745500ca8;hpb=2624b2069897898a92d247cab9781989df240110;p=lifp.git diff --git a/verbs.lisp b/verbs.lisp index 5b090e6..dae175a 100644 --- a/verbs.lisp +++ b/verbs.lisp @@ -205,7 +205,7 @@ (defaction go-to (dir) (let ((destination (read-property *location* (property dir)))) - (if destination (exec go-to-dispatch (destination)) + (if destination (exec go-to-dispatch (destination) :str t) (if (provides *location* 'cant-go) (read-property *location* 'cant-go) "You can't go here.")))) @@ -217,9 +217,10 @@ (go-to-room dest)) (defmethod go-to-dispatch ((dest door)) + ;(format t "go-to-dispatch: ~a~%" dest) (unless (has dest :door) (return-from go-to-dispatch (call-next-method))) (if (has dest :closed) (format nil "~a is closed." (the-name dest :capital t)) - (run-action 'pass *args*))) + (run-action 'pass (list dest)))) (defaction pass (obj) "Something's wrong happened.")