90 |
"Switch to *dungeon* buffer and start game." |
"Switch to *dungeon* buffer and start game." |
91 |
(interactive) |
(interactive) |
92 |
(switch-to-buffer "*dungeon*") |
(switch-to-buffer "*dungeon*") |
|
(insert "This version of Dunnet has been censored for your protection |
|
|
in accord with the Communications Decency Act.\n\n") |
|
93 |
(dun-mode) |
(dun-mode) |
94 |
(setq dun-dead nil) |
(setq dun-dead nil) |
95 |
(setq room 0) |
(setq room 0) |
946 |
(dun-put-objs-in-treas (nth urinal dun-room-objects)) |
(dun-put-objs-in-treas (nth urinal dun-room-objects)) |
947 |
(dun-replace dun-room-objects urinal nil))) |
(dun-replace dun-room-objects urinal nil))) |
948 |
|
|
949 |
(defun dun-urinate (args) |
(defun dun-piss (args) |
950 |
(if (not (= dun-current-room bathroom)) |
(if (not (= dun-current-room bathroom)) |
951 |
(dun-mprincl "You can't do that here, don't even bother trying.") |
(dun-mprincl "You can't do that here, don't even bother trying.") |
952 |
(if (not dun-gottago) |
(if (not dun-gottago) |
1943 |
(type . dun-type) (insert . dun-put) |
(type . dun-type) (insert . dun-put) |
1944 |
(score . dun-score) (help . dun-help) (quit . dun-quit) |
(score . dun-score) (help . dun-help) (quit . dun-quit) |
1945 |
(read . dun-examine) (verbose . dun-long) |
(read . dun-examine) (verbose . dun-long) |
1946 |
(urinate . dun-urinate) |
(urinate . dun-piss) (piss . dun-piss) |
1947 |
(flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep) |
(flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep) |
1948 |
(x . dun-examine) (break . dun-break) (drive . dun-drive) |
(x . dun-examine) (break . dun-break) (drive . dun-drive) |
1949 |
(board . dun-in) (enter . dun-in) (turn . dun-turn) |
(board . dun-in) (enter . dun-in) (turn . dun-turn) |