Function: dun-piss

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

Signature

(dun-piss ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-piss (_args)
  (if (not (= dun-current-room bathroom))
      (dun-mprincl "You can't do that here, don't even bother trying.")
    (if (not dun-gottago)
	(dun-mprincl "I'm afraid you don't have to go now.")
      (dun-mprincl "That was refreshing.")
      (setq dun-gottago nil)
      (dun-replace dun-room-objects urinal (append
					    (nth urinal dun-room-objects)
					    (list obj-URINE))))))