emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Dunnet patch - first since the '90s


From: Ron Schnell
Subject: Dunnet patch - first since the '90s
Date: Sat, 14 Jun 2014 03:05:39 -0400

Since this is my first patch, I am including it here before committing.  Please advise if there are any issues.  It is one of many bugfixes that have been reported to me over the years (this particular one was reported in June 1996).

=== modified file 'lisp/play/dunnet.el'
--- lisp/play/dunnet.el 2014-01-01 07:43:34 +0000
+++ lisp/play/dunnet.el 2014-06-14 06:43:09 +0000
@@ -100,7 +100,8 @@
 
 (defun dun-describe-room (room)
   (if (and (not (member (abs room) dun-light-rooms))
-          (not (member obj-lamp dun-inventory)))
+          (not (member obj-lamp dun-inventory))
+          (not (member obj-lamp (nth dun-current-room dun-room-objects))))
       (dun-mprincl "It is pitch dark.  You are likely to be eaten by a grue.")
     (dun-mprincl (cadr (nth (abs room) dun-rooms)))
     (if (and (and (or (member room dun-visited)
@@ -615,7 +616,8 @@
 
 (defun dun-move (dir)
   (if (and (not (member dun-current-room dun-light-rooms))
-          (not (member obj-lamp dun-inventory)))
+          (not (member obj-lamp dun-inventory))
+          (not (member obj-lamp (nth dun-current-room dun-room-objects))))
       (progn
        (dun-mprinc
 "You trip over a grue and fall into a pit and break every bone in your

--
Follow me on Twitter: http://twitter.com/RonnieSchnell

reply via email to

[Prev in Thread] Current Thread [Next in Thread]