diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-02-21 21:35:28 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-02-21 21:35:28 +0000 |
| commit | 56fd4c85a7a9dc6f689bb7ff0fc41907ead17b18 (patch) | |
| tree | 7081e385b95d8184a14b42eaf5813fd208d1ba79 /lisp/play | |
| parent | 849d2d2ecaf24999ca3b3e8b9980c89d25b6172b (diff) | |
| download | emacs-56fd4c85a7a9dc6f689bb7ff0fc41907ead17b18.tar.gz | |
(dun-urinate): Renamed.
(dun-verblist): Indecent word deleted.
(dunnet): Print "censored" message.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/dunnet.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index 189f323984f..9da14e92e1e 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -87,6 +87,8 @@ "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) @@ -929,7 +931,7 @@ If you have questions or comments, please contact ronnie@media.mit.edu.")) (dun-put-objs-in-treas (nth urinal dun-room-objects)) (dun-replace dun-room-objects urinal nil))) -(defun dun-piss (args) +(defun dun-urinate (args) (if (not (= dun-current-room bathroom)) (dun-mprincl "You can't do that here, don't even bother trying.") (if (not dun-gottago) @@ -1926,7 +1928,7 @@ A hole leads north." (type . dun-type) (insert . dun-put) (score . dun-score) (help . dun-help) (quit . dun-quit) (read . dun-examine) (verbose . dun-long) - (urinate . dun-piss) (piss . dun-piss) + (urinate . dun-urinate) (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) |