Function: dun-examine

dun-examine is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-examine OBJ)

Documentation

Give long description of current room, or an object.

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-examine (obj)
  "Give long description of current room, or an object."
  (let ((objnum (dun-objnum-from-args obj)))
    (cond
     ((eq objnum obj-special)
      (dun-describe-room (* dun-current-room -1)))
     ((and (eq objnum obj-computer)
           (member obj-pc (nth dun-current-room dun-room-silents)))
      (dun-examine '("pc")))
     ((null objnum)
      (dun-mprincl "I don't know what that is."))
     ((and (not (member objnum (nth dun-current-room dun-room-objects)))
           (not (and (member obj-jar dun-inventory)
                     (member objnum dun-jar)))
           (not (member objnum (nth dun-current-room dun-room-silents)))
           (not (member objnum dun-inventory)))
      (dun-mprincl "I don't see that here."))
     ((>= objnum 0)
      (if (and (= objnum obj-bone)
               (= dun-current-room marine-life-area) dun-black)
          (dun-mprincl
"In this light you can see some writing on the bone.  It says:
For an explosive time, go to Fourth St. and Vermont.")
        (if (nth objnum dun-physobj-desc)
            (dun-mprincl (nth objnum dun-physobj-desc))
          (dun-mprincl "I see nothing special about that."))))
     ((nth (abs objnum) dun-permobj-desc)
      (dun-mprincl (nth (abs objnum) dun-permobj-desc)))
     (t (dun-mprincl "I see nothing special about that.")))))