Function: dun-rlogin

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

Signature

(dun-rlogin ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-rlogin (args)
  (let (passwd)
    (if (not (car args))
	(dun-mprincl "Usage: rlogin <hostname>")
      (setq args (car args))
      (if (string= args "endgame")
	  (dun-rlogin-endgame)
	(if (not (string= args "gamma"))
	    (if (string= args "pokey")
		(dun-mprincl "Can't rlogin back to localhost")
	      (dun-mprincl "No such host."))
	  (if (not dun-ethernet)
	      (dun-mprincl "Host not responding.")
	    (dun-mprinc "Password: ")
	    (setq passwd (dun-read-line))
	    (if (not (string= passwd "worms"))
		(dun-mprincl "\nlogin incorrect")
	      (dun-mprinc
"\nYou begin to feel strange for a moment, and you lose your items."
)
	      (dun-replace dun-room-objects computer-room
		       (append (nth computer-room dun-room-objects)
			       dun-inventory))
	      (setq dun-inventory nil)
	      (setq dun-current-room receiving-room)
	      (dun-uexit nil))))))))