/[emacs]/emacs/lisp/play/dunnet.el
ViewVC logotype

Diff of /emacs/lisp/play/dunnet.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by rms, Sun Jun 22 18:27:37 1997 UTC revision 1.15 by rms, Mon Jul 7 21:51:01 1997 UTC
# Line 90  Line 90 
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)
# Line 948  My home page is http://www.driver-aces.c Line 946  My home page is http://www.driver-aces.c
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)
# Line 1945  A hole leads north." Line 1943  A hole leads north."
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)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26