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) |