aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/play/dunnet.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 283c884780a..a3f43ef0a03 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -90,8 +90,6 @@
90 "Switch to *dungeon* buffer and start game." 90 "Switch to *dungeon* buffer and start game."
91 (interactive) 91 (interactive)
92 (switch-to-buffer "*dungeon*") 92 (switch-to-buffer "*dungeon*")
93 (insert "This version of Dunnet has been censored for your protection
94in accord with the Communications Decency Act.\n\n")
95 (dun-mode) 93 (dun-mode)
96 (setq dun-dead nil) 94 (setq dun-dead nil)
97 (setq room 0) 95 (setq room 0)
@@ -948,7 +946,7 @@ My home page is http://www.driver-aces.com/ronnie.html
948 (dun-put-objs-in-treas (nth urinal dun-room-objects)) 946 (dun-put-objs-in-treas (nth urinal dun-room-objects))
949 (dun-replace dun-room-objects urinal nil))) 947 (dun-replace dun-room-objects urinal nil)))
950 948
951(defun dun-urinate (args) 949(defun dun-piss (args)
952 (if (not (= dun-current-room bathroom)) 950 (if (not (= dun-current-room bathroom))
953 (dun-mprincl "You can't do that here, don't even bother trying.") 951 (dun-mprincl "You can't do that here, don't even bother trying.")
954 (if (not dun-gottago) 952 (if (not dun-gottago)
@@ -1945,7 +1943,7 @@ A hole leads north."
1945 (type . dun-type) (insert . dun-put) 1943 (type . dun-type) (insert . dun-put)
1946 (score . dun-score) (help . dun-help) (quit . dun-quit) 1944 (score . dun-score) (help . dun-help) (quit . dun-quit)
1947 (read . dun-examine) (verbose . dun-long) 1945 (read . dun-examine) (verbose . dun-long)
1948 (urinate . dun-urinate) 1946 (urinate . dun-piss) (piss . dun-piss)
1949 (flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep) 1947 (flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep)
1950 (x . dun-examine) (break . dun-break) (drive . dun-drive) 1948 (x . dun-examine) (break . dun-break) (drive . dun-drive)
1951 (board . dun-in) (enter . dun-in) (turn . dun-turn) 1949 (board . dun-in) (enter . dun-in) (turn . dun-turn)