Mercurial > emacs
comparison lisp/play/dunnet.el @ 14640:65151464291f
(dun-urinate): Renamed.
(dun-verblist): Indecent word deleted.
(dunnet): Print "censored" message.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 21 Feb 1996 21:35:28 +0000 |
parents | 83f275dcd93a |
children | 345ee562c72a |
comparison
equal
deleted
inserted
replaced
14639:4c778d943271 | 14640:65151464291f |
---|---|
85 ;;;###autoload | 85 ;;;###autoload |
86 (defun dunnet () | 86 (defun dunnet () |
87 "Switch to *dungeon* buffer and start game." | 87 "Switch to *dungeon* buffer and start game." |
88 (interactive) | 88 (interactive) |
89 (switch-to-buffer "*dungeon*") | 89 (switch-to-buffer "*dungeon*") |
90 (insert "This version of Dunnet has been censored for your protection | |
91 in accord with the Communications Decency Act.\n\n") | |
90 (dun-mode) | 92 (dun-mode) |
91 (setq dun-dead nil) | 93 (setq dun-dead nil) |
92 (setq room 0) | 94 (setq room 0) |
93 (dun-messages)) | 95 (dun-messages)) |
94 | 96 |
927 (dun-mprincl "I see nothing to flush.") | 929 (dun-mprincl "I see nothing to flush.") |
928 (dun-mprincl "Whoooosh!!") | 930 (dun-mprincl "Whoooosh!!") |
929 (dun-put-objs-in-treas (nth urinal dun-room-objects)) | 931 (dun-put-objs-in-treas (nth urinal dun-room-objects)) |
930 (dun-replace dun-room-objects urinal nil))) | 932 (dun-replace dun-room-objects urinal nil))) |
931 | 933 |
932 (defun dun-piss (args) | 934 (defun dun-urinate (args) |
933 (if (not (= dun-current-room bathroom)) | 935 (if (not (= dun-current-room bathroom)) |
934 (dun-mprincl "You can't do that here, don't even bother trying.") | 936 (dun-mprincl "You can't do that here, don't even bother trying.") |
935 (if (not dun-gottago) | 937 (if (not dun-gottago) |
936 (dun-mprincl "I'm afraid you don't have to go now.") | 938 (dun-mprincl "I'm afraid you don't have to go now.") |
937 (dun-mprincl "That was refreshing.") | 939 (dun-mprincl "That was refreshing.") |
1924 (examine . dun-examine) (describe . dun-examine) | 1926 (examine . dun-examine) (describe . dun-examine) |
1925 (climb . dun-climb) (eat . dun-eat) (put . dun-put) | 1927 (climb . dun-climb) (eat . dun-eat) (put . dun-put) |
1926 (type . dun-type) (insert . dun-put) | 1928 (type . dun-type) (insert . dun-put) |
1927 (score . dun-score) (help . dun-help) (quit . dun-quit) | 1929 (score . dun-score) (help . dun-help) (quit . dun-quit) |
1928 (read . dun-examine) (verbose . dun-long) | 1930 (read . dun-examine) (verbose . dun-long) |
1929 (urinate . dun-piss) (piss . dun-piss) | 1931 (urinate . dun-urinate) |
1930 (flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep) | 1932 (flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep) |
1931 (x . dun-examine) (break . dun-break) (drive . dun-drive) | 1933 (x . dun-examine) (break . dun-break) (drive . dun-drive) |
1932 (board . dun-in) (enter . dun-in) (turn . dun-turn) | 1934 (board . dun-in) (enter . dun-in) (turn . dun-turn) |
1933 (press . dun-press) (push . dun-press) (swim . dun-swim) | 1935 (press . dun-press) (push . dun-press) (swim . dun-swim) |
1934 (on . dun-in) (off . dun-out) (chop . dun-break) | 1936 (on . dun-in) (off . dun-out) (chop . dun-break) |