[PATCH] xmine.

A very small patchlet incorporating some changes from Andy Piper and a very little change by me enabling Zippy the Pinhead talking to you (via balloon help over the tiles...) jtl Index: xmine.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-packages/games/mine/xmine.el,v retrieving revision 1.2 diff -u -r1.2 xmine.el --- xmine.el 1998/04/05 10:29:09 1.2 +++ xmine.el 1998/05/02 06:18:25 ＠＠ -44,7 +44,7 ＠＠ ;; ;;; First of all we'll define the needed varibles. -(defconst xmine-version-number "1.8" "XEmacs Mine version number.") +(defconst xmine-version-number "1.9" "XEmacs Mine version number.") (defconst xmine-version (format "XEmacs Mine v%s by Jens Lautenbacher © 1997" xmine-version-number) "Full XEmacs Mine version number.") ＠＠ -89,13 +89,13 ＠＠ (defvar xmine-pad-glyph (make-glyph - (if (and (eq window-system 'x) (featurep 'xpm)) + (if (and window-system (featurep 'xpm)) (concat xmine-glyph-dir "pad.xpm") " "))) (defvar xmine-title-glyph (make-glyph - (if (and (eq window-system 'x) (featurep 'xpm)) + (if (and window-system (featurep 'xpm)) (concat xmine-glyph-dir "splash.xpm") "------------------ XEmacs XMine ------------------"))) ＠＠ -144,7 +144,7 ＠＠ face (cadddr elem)) (set (intern var) (make-glyph (if (and (not xmine-force-textual) - (eq window-system 'x)) + window-system) (concat xmine-glyph-dir gif) text))) (if face ＠＠ -173,17 +173,15 ＠＠ :group 'xmine :type 'integer) -(defcustom xmine-balloon-list (list "What are you waiting for?" - "Push me!" - "Come on. Don't sleep." +(defcustom xmine-balloon-list (list "Push Me!" + "Don't Sleep." "Are you sure?" - "Are you sleeping?" - "Yes! Do it!" - "I'm getting bored." - "You will NEVER beat me.") - "(Random) texts for the balloon-help property of the tiles" + "I'm getting bored.") + "(Random) texts for the balloon-help property of the tiles. +This can be a list of strings or the symbol 'yow, in which case a random quote from +Zippy The Pinhead will be used..." :group 'xmine - :type '(repeat (string))) + :type '(choice (repeat string) (const yow))) (defcustom xmine-background "white" "The background color of XMine's buffer. ＠＠ -334,7 +332,8 ＠＠ ;;; object. (defun xmine-balloon-text () - (nth (random (length xmine-balloon-list)) xmine-balloon-list)) + (if (and (featurep 'yow) (eq xmine-balloon-list 'yow)) (yow) + (nth (random (length xmine-balloon-list)) xmine-balloon-list))) (defun xmine-beep (&rest forget) (beep)) ＠＠ -695,7 +694,7 ＠＠ (format "Mines: %2d" xmine-number-of-mines))) (goto-char (point-min)) (setq buffer-read-only 't) - (if (eq window-system 'x) + (if window-system (set-specifier (face-background 'default) xmine-background xmine-buffer)) (set-specifier (face-background 'text-cursor)