From: grue <grue@mail.ru>
Date: Wed, 2 Aug 2006 11:12:36 +0000 (+0000)
Subject: more door bugs
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=f2bc208b79cb4993115ec0c9c4a9e12adcbc519b;p=lifp.git

more door bugs

darcs-hash:a57c7fb82732c79c3881f19d360475bef78413a1
---

diff --git a/iflib.lisp b/iflib.lisp
index 0154b71..4ba5b5d 100644
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -100,7 +100,7 @@
 	 (n-to object) (ne-to object) (e-to object) (se-to object)
 	 (s-to object) (sw-to object) (w-to object) (nw-to object)
 	 (u-to object) (d-to object) (in-to object) (out-to object)
-	 (cant-go string)
+	 ;(cant-go string) <- doesn't provide by default
 	 (has :light :enterable))
 
 (ifclass item () (description string) (article string)
@@ -356,7 +356,7 @@
 
 (defun default-glance (obj)
   "Default initial description of object"
-  (format t "[Default glance for ~a]~%" obj)
+  ;;(format t "[Default glance for ~a]~%" obj)
   (sprint "~a~%" 
 	  (with-output-to-string (out)
 	    (princ "There is " out) (princ (print-name obj) out) 
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.")