# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868312261 0
# Node ID 704d3934673d90c134f5f5e7532604ecf4061330
# Parent  cb4d74c720eda12cc47c2fa4635d040bdd932f73
Undo an earlier change:
(dun-piss): Renamed from dunnet-urinate.
(dun-verblist): Indecent word added back.
(dunnet): Delete "censored" message.

diff -r cb4d74c720ed -r 704d3934673d lisp/play/dunnet.el
--- a/lisp/play/dunnet.el	Mon Jul 07 19:06:16 1997 +0000
+++ b/lisp/play/dunnet.el	Mon Jul 07 21:51:01 1997 +0000
@@ -90,8 +90,6 @@
   "Switch to *dungeon* buffer and start game."
   (interactive)
   (switch-to-buffer "*dungeon*")
-  (insert "This version of Dunnet has been censored for your protection
-in accord with the Communications Decency Act.\n\n")
   (dun-mode)
   (setq dun-dead nil)
   (setq room 0)
@@ -948,7 +946,7 @@
     (dun-put-objs-in-treas (nth urinal dun-room-objects))
     (dun-replace dun-room-objects urinal nil)))
 
-(defun dun-urinate (args)
+(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)
@@ -1945,7 +1943,7 @@
 		     (type . dun-type)  (insert . dun-put)
 		     (score . dun-score) (help . dun-help) (quit . dun-quit) 
 		     (read . dun-examine) (verbose . dun-long) 
-		     (urinate . dun-urinate)
+		     (urinate . dun-piss) (piss . dun-piss)
 		     (flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep) 
 		     (x . dun-examine) (break . dun-break) (drive . dun-drive)
 		     (board . dun-in) (enter . dun-in) (turn . dun-turn)