Mercurial > emacs

comparison lisp/play/blackbox.el @ 801:e9e34745ae3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 16 Jul 1992 20:47:09 +0000
parents 540b047ece4d
children e9b9a1cff2c9
comparison
equal deleted inserted replaced
800:70a7838a4c81 801:e9e34745ae3b
1 ;;; blackbox.el --- blackbox game in Emacs Lisp 1 ;;; blackbox.el --- blackbox game in Emacs Lisp
2
3 ;; Author: F. Thomas May <uw-nsr!uw-warp!tom@beaver.cs.washington.edu>
4 ;; Last-Modified: 24 Jun 1992
5 ;; Adapted-By: ESR
6 ;; Keywords: games
2 7
3 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. 8 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
4 9
5 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
6 11
16 21
17 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to 23 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 24 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20 25
26 ;;; Commentary:
27
21 ; by F. Thomas May <uw-nsr!uw-warp!tom@beaver.cs.washington.edu> 28 ; by F. Thomas May <uw-nsr!uw-warp!tom@beaver.cs.washington.edu>
22 ; doc comment by Root Boy Jim <rbj@dsys.icst.nbs.gov>, 27 Apr 89 29 ; doc comment by Root Boy Jim <rbj@dsys.icst.nbs.gov>, 27 Apr 89
23 ; interface improvements by Eric Raymond <eric@snark.thyrsus.com>, Dec 5 1991. 30 ; interface improvements by ESR, Dec 5 1991.
24 31
25 ; The object of the game is to find four hidden balls by shooting rays 32 ; The object of the game is to find four hidden balls by shooting rays
26 ; into the black box. There are four possibilities: 1) the ray will 33 ; into the black box. There are four possibilities: 1) the ray will
27 ; pass thru the box undisturbed, 2) it will hit a ball and be absorbed, 34 ; pass thru the box undisturbed, 2) it will hit a ball and be absorbed,
28 ; 3) it will be deflected and exit the box, or 4) be deflected immediately, 35 ; 3) it will be deflected and exit the box, or 4) be deflected immediately,
57 ; 64 ;
58 ; At the end of the game, if you've placed guesses for as many balls as 65 ; At the end of the game, if you've placed guesses for as many balls as
59 ; there are in the box, the true board position will be revealed. Each 66 ; there are in the box, the true board position will be revealed. Each
60 ; `x' is an incorrect guess of yours; `o' is the true location of a ball. 67 ; `x' is an incorrect guess of yours; `o' is the true location of a ball.
61 68
69 ;;; Code:
70
62 (defvar blackbox-mode-map nil "") 71 (defvar blackbox-mode-map nil "")
63 72
64 (if blackbox-mode-map 73 (if blackbox-mode-map
65 () 74 ()
66 (setq blackbox-mode-map (make-keymap)) 75 (setq blackbox-mode-map (make-keymap))