Skip to content
Snippets Groups Projects
Commit 0d0f8e1e7990 authored by steveb's avatar steveb
Browse files

Update to version 1.9

parent f8db4b1125d8
No related branches found
No related tags found
No related merge requests found
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
......
......@@ -17,8 +17,8 @@
# 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.
......@@ -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 (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 ------------------")))
......@@ -144,7 +144,7 @@
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
......@@ -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,12 @@ preferred if you don't want to use white."
;;; 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))
......@@ -695,7 +698,7 @@ Have Fun."
(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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment