Commits

steveb  committed 0d0f8e1

Update to version 1.9

  • Participants
  • Parent commits f8db4b1

Comments (0)

Files changed (3)

+1998-05-09  Jens Lautenbacher  <jens@tellux.de>
+
+	* xmine.el (xmine-balloon-text): Grr. Hope it works *now*
+
+	* Makefile (VERSION): now 1.06
+	(AUTHOR_VERSION): now 1.9x1
+
+	* xmine.el (xmine-balloon-list): Now choice between list of
+	strings and 'yow
+	(xmine-balloon-text): Use it.
+	(xmine-pad-glyph): Changed window-system 
+	to (console-on-window-system-p)
+	(xmine-title-glyph): ditto
+	(xmine-generate-glyphs): ditto
+	(xmine-field-create): ditto Version is now 1.9
+
 1998-07-14  SL Baur  <steve@altair.xemacs.org>
 
 	* xmine.el (xmine-glyph-production-list): Global search and
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.06
-AUTHOR_VERSION = 1.8x1
+VERSION = 1.07
+AUTHOR_VERSION = 1.9
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = mine
 PKG_TYPE = regular
 ;;; xmine.el --- Mine game for XEmacs
 
-;; Author:     Jens Lautenbacher <jens@lemming0.lem.uni-karlsruhe.de>
+;; Author:     Jens Lautenbacher <jens@tellux.de>
 ;; Keywords:   games
-;; Version:    1.8
+;; Version:    1.9
 
 ;; This file is part of XEmacs.
 
 ;;
 ;;; 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.")
 
 (defvar xmine-pad-glyph
   (make-glyph
-   (if (and (eq window-system 'x) (featurep 'xpm))
+   (if (and (console-on-window-system-p) (featurep 'xpm))
        (concat xmine-glyph-dir "pad.xpm")
      "      ")))
 
 (defvar xmine-title-glyph
   (make-glyph
-   (if (and (eq window-system 'x) (featurep 'xpm))
+   (if (and (console-on-window-system-p) (featurep 'xpm))
        (concat xmine-glyph-dir "splash.xpm")
      "------------------ XEmacs XMine ------------------")))
 
 	    face (cadddr elem))
       (set (intern var)
 	   (make-glyph (if (and (not xmine-force-textual)
-				(eq window-system 'x))
+				(console-on-window-system-p))
 			   (concat xmine-glyph-dir gif)
 			 text)))
       (if face
   :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.
 ;;; object.
 
 (defun xmine-balloon-text ()
-  (nth (random (length xmine-balloon-list)) xmine-balloon-list))
+  (if (eq xmine-balloon-list 'yow)
+      (progn
+	(or (featurep 'yow) (require 'yow) 
+	    (error "You need to have YOW installed!"))  
+	(yow))
+    (nth (random (length xmine-balloon-list)) xmine-balloon-list)))
 
 (defun xmine-beep (&rest forget)
   (beep))
 			   (format "Mines: %2d" xmine-number-of-mines)))
     (goto-char (point-min))
     (setq buffer-read-only 't)
-    (if (eq window-system 'x)
+    (if (console-on-window-system-p)
 	(set-specifier (face-background 'default)
 		       xmine-background xmine-buffer))
     (set-specifier (face-background 'text-cursor)