;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@17 Blackbox board.
(defvar bb-board nil (#$ . 84))
#@21 Current x-position.
(defvar bb-x -1 (#$ . 138))
#@21 Current y-position.
(defvar bb-y -1 (#$ . 192))
#@16 Current score.
(defvar bb-score 0 (#$ . 246))
#@20 Number of detours.
(defvar bb-detour-count 0 (#$ . 298))
#@31 List of already placed balls.
(defvar bb-balls-placed nil (#$ . 361))
#@91 Redefine keys that run the function OLDFUN to run NEWFUN instead.

(fn MAP OLDFUN NEWFUN)
(defalias 'blackbox-redefine-key #[771 "\300\301\302\"#\207" [define-key vector remap] 8 (#$ . 437)])
(defvar blackbox-mode-map (byte-code "\300 \301
\302\"\210\303
\304\305#\210\303
\306\305#\210\303
\307\310#\210\303
\311\310#\210\303
\312\313#\210\303
\314\315#\210\303
\316\317#\210\303
\320\321#\210\322
\323\324#\210\322
\325\326#\210\322
\327\324#\210\322
\330\331#\210\303
\332\331#\210\207" [make-keymap suppress-keymap t blackbox-redefine-key backward-char bb-left left-char forward-char bb-right right-char previous-line bb-up next-line bb-down move-end-of-line bb-eol move-beginning-of-line bb-bol define-key " " bb-romp "q" bury-buffer [insert] [return] bb-done newline] 5))
(defvar blackbox-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [blackbox-mode-hook variable-documentation put "Hook run after entering Blackbox mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp blackbox-mode-map definition-name blackbox-mode] 4)
(defvar blackbox-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [blackbox-mode-abbrev-table blackbox-mode-map variable-documentation put purecopy "Keymap for `blackbox-mode'." boundp blackbox-mode-syntax-table definition-name blackbox-mode (lambda (#1=#:def-tmp-var) (defvar blackbox-mode-syntax-table #1#)) make-syntax-table "Syntax table for `blackbox-mode'." (lambda (#1#) (defvar blackbox-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `blackbox-mode'." derived-mode-parent special-mode] 5)
#@545 Major mode for playing blackbox.
To learn how to play blackbox, see the documentation for function `blackbox'.

The usual mnemonic keys move the cursor around the box.
\<blackbox-mode-map>\[bb-bol] and \[bb-eol] move to the beginning and end of line, respectively.

\[bb-romp] -- send in a ray from point, or toggle a ball at point
\[bb-done] -- end game and get score

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `blackbox-mode-hook', as the final or
penultimate step during initialization.
(defalias 'blackbox-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\307)\331\332!\207" [delay-mode-hooks major-mode mode-name blackbox-mode-map blackbox-mode-syntax-table blackbox-mode-abbrev-table make-local-variable t special-mode blackbox-mode "Blackbox" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks blackbox-mode-hook local-abbrev-table truncate-lines] 5 (#$ . 2396) nil])
#@4915 Play blackbox.
Optional prefix argument is the number of balls; the default is 4.

What is blackbox?

Blackbox is a game of hide and seek played on an 8 by 8 grid (the
Blackbox).  Your opponent (Emacs, in this case) has hidden several
balls (usually 4) within this box.  By shooting rays into the box and
observing where they emerge it is possible to deduce the positions of
the hidden balls.  The fewer rays you use to find the balls, the lower
your score.

Overview of play:

\<blackbox-mode-map>To play blackbox, type \[blackbox].  An optional prefix argument
specifies the number of balls to be hidden in the box; the default is
four.

The cursor can be moved around the box with the standard cursor
movement keys.

To shoot a ray, move the cursor to the edge of the box and press SPC.
The result will be determined and the playfield updated.

You may place or remove balls in the box by moving the cursor into the
box and pressing \[bb-romp].

When you think the configuration of balls you have placed is correct,
press \[bb-done].  You will be informed whether you are correct or
not, and be given your score.  Your score is the number of letters and
numbers around the outside of the box plus five for each incorrectly
placed ball.  If you placed any balls incorrectly, they will be
indicated with `x', and their actual positions indicated with `o'.

Details:

There are three possible outcomes for each ray you send into the box:

	Detour: the ray is deflected and emerges somewhere other than
		where you sent it in.  On the playfield, detours are
		denoted by matching pairs of numbers -- one where the
		ray went in, and the other where it came out.

	Reflection: the ray is reflected and emerges in the same place
		it was sent in.  On the playfield, reflections are
		denoted by the letter `R'.

	Hit:	the ray strikes a ball directly and is absorbed.  It does
		not emerge from the box.  On the playfield, hits are
		denoted by the letter `H'.

The rules for how balls deflect rays are simple and are best shown by
example.

As a ray approaches a ball it is deflected ninety degrees.  Rays can
be deflected multiple times.  In the diagrams below, the dashes
represent empty box locations and the letter `O' represents a ball.
The entrance and exit points of each ray are marked with numbers as
described under "Detour" above.  Note that the entrance and exit
points are always interchangeable.  `*' denotes the path taken by the
ray.

Note carefully the relative positions of the ball and the ninety
degree deflection it causes.

    1
  - * - - - - - -         - - - - - - - -         - - - - - - - -
  - * - - - - - -         - - - - - - - -         - - - - - - - -
1 * * - - - - - -         - - - - - - - -         - O - - - - O -
  - - O - - - - -         - - O - - - - -         - - * * * * - -
  - - - - - - - -         - - - * * * * * 2     3 * * * - - * - -
  - - - - - - - -         - - - * - - - -         - - - O - * - -
  - - - - - - - -         - - - * - - - -         - - - - * * - -
  - - - - - - - -         - - - * - - - -         - - - - * - O -
                                2                         3

As mentioned above, a reflection occurs when a ray emerges from the same point
it was sent in.  This can happen in several ways:


  - - - - - - - -         - - - - - - - -          - - - - - - - -
  - - - - O - - -         - - O - O - - -          - - - - - - - -
R * * * * - - - -         - - - * - - - -          O - - - - - - -
  - - - - O - - -         - - - * - - - -        R - - - - - - - -
  - - - - - - - -         - - - * - - - -          - - - - - - - -
  - - - - - - - -         - - - * - - - -          - - - - - - - -
  - - - - - - - -       R * * * * - - - -          - - - - - - - -
  - - - - - - - -         - - - - O - - -          - - - - - - - -

In the first example, the ray is deflected downwards by the upper
ball, then left by the lower ball, and finally retraces its path to
its point of origin.  The second example is similar.  The third
example is a bit anomalous but can be rationalized by realizing the
ray never gets a chance to get into the box.  Alternatively, the ray
can be thought of as being deflected downwards and immediately
emerging from the box.

A hit occurs when a ray runs straight into a ball:

  - - - - - - - -         - - - - - - - -          - - - - - - - -
  - - - - - - - -         - - - - - - - -          - - - - O - - -
  - - - - - - - -         - - - - O - - -        H * * * * - - - -
  - - - - - - - -       H * * * * O - - -          - - - * - - - -
  - - - - - - - -         - - - - O - - -          - - - O - - - -
H * * * O - - - -         - - - - - - - -          - - - - - - - -
  - - - - - - - -         - - - - - - - -          - - - - - - - -
  - - - - - - - -         - - - - - - - -          - - - - - - - -

Be sure to compare the second example of a hit with the first example of
a reflection.

(fn NUM)
(defalias 'blackbox #[257 "\306\307!\210\310 \210\311\312p!\210\313
\206\314!\315\316\211\317\211\320 \210\321\fB!\207" [buffer-read-only bb-board bb-balls-placed bb-x bb-y bb-score switch-to-buffer "*Blackbox*" blackbox-mode t buffer-disable-undo bb-init-board 4 nil -1 0 bb-insert-board bb-goto bb-detour-count] 5 (#$ . 3702) "P"])
#@18 

(fn NUM-BALLS)
(defalias 'bb-init-board #[257 "\300\211S\211\262\301Y\203#\302\303!\302\303!B\262
\211\235\204\f\211B\262\202
\207" [nil 0 random 8] 6 (#$ . 8967)])
(defalias 'bb-insert-board #[0 "\302\211\303 \210\304c\210\305\262
\211S\211\262\306Y\203\307c\210\202\f\304c\210\310\311	G\"c)\207" [buffer-read-only bb-board nil erase-buffer "                     \n" 8 0 "   - - - - - - - -   \n" format "\nThere are %d balls in the box"] 4])
#@14 

(fn COUNT)
(defalias 'bb-right #[257 "\211\301V\205\302W\205\303u\210T\211S\262
\202\207" [bb-x 0 8 2] 3 (#$ . 9433) ["p" (blackbox-mode)]])
#@14 

(fn COUNT)
(defalias 'bb-left #[257 "\211\301V\205\302V\205\303u\210S\211S\262
\202\207" [bb-x 0 -1 -2] 3 (#$ . 9591) ["p" (blackbox-mode)]])
#@14 

(fn COUNT)
(defalias 'bb-up #[257 "\211\301V\205\302V\205\303 \210S\211S\262
\202\207" [bb-y 0 -1 previous-line] 3 (#$ . 9750) ["p" (blackbox-mode)]])
#@14 

(fn COUNT)
(defalias 'bb-down #[257 "\211\301V\205\302W\205\303 \210T\211S\262
\202\207" [bb-y 0 8 next-line] 3 (#$ . 9918) ["p" (blackbox-mode)]])
(defalias 'bb-eol #[0 "\302\303	B!\207" [bb-x bb-y 8 bb-goto] 3 nil [nil (blackbox-mode)]])
(defalias 'bb-bol #[0 "\302\303	B!\207" [bb-x bb-y -1 bb-goto] 3 nil [nil (blackbox-mode)]])
(defalias 'bb-romp #[0 "\302U\204\f\303U\203	\302U\206(	\303U\206(\304	\"\203$\305	\"\207\306	\"\207" [bb-x bb-y -1 8 bb-outside-box bb-trace-ray bb-place-ball] 3 nil [nil (blackbox-mode)]])
#@12 

(fn X Y)
(defalias 'bb-place-ball #[514 "

B\211\235\203\301
\"\302\303!\207\211B\302\304\305\306\307#!\207" [bb-balls-placed delete bb-update-board "-" propertize "O" help-echo "Placed ball"] 8 (#$ . 10474)])
#@12 

(fn X Y)
(defalias 'bb-trace-ray #[514 "g\302U\205\207\303\304\211\305U\203\306\202\307U\203\305\202\310\211\305U\203)\306\2024\307U\2033\305\2024\310%\211\311=\203J\312\313\314\315\316#!\210T\211\202\205\211B\232\203a\312\313\317\315\320#!\210T\211\202\205	T\312\313\321\322	\"\315\323#!\210\212\324
!\210\312\313\321\322	\"\315\323#!\210)\325\\\211\262
\207" [bb-score bb-detour-count 32 bb-trace-ray-2 t -1 1 8 0 hit bb-update-board propertize "H" help-echo "Hit" "R" "Reflection" format "%d" "Detour" bb-goto 2] 9 (#$ . 10699)])
#@24 

(fn FIRST X DX Y DY)
(defalias 'bb-trace-ray-2 #[1285 "\204\301\"\203B\207\\\\B\235\203\302\207\\
\\\\\\B\235\2038\303\304[[%\207\\
[\\\\[\\B\235\203S\303\304%\207\303\304\\\\%\207" [bb-board bb-outside-box hit bb-trace-ray-2 nil] 11 (#$ . 11270)])
#@35 Finish the game and report score.
(defalias 'bb-done #[0 "\303G	GU\204)\304\305	G\306U\203\307\202\310	G	G\306U\203$\311\202%\312G%\207\313	\"\262
\211\314U\203=\304\315\n\"\210\202S\304\316\211\306U\203J\311\202K\312\n\317_\\$\210\320\321!\207" [bb-balls-placed bb-board bb-score nil message "There %s %d hidden ball%s; you have placed %d." 1 "is" "are" "" "s" bb-show-bogus-balls 0 "Right!  Your score is %d." "Oops!  You missed %d ball%s.  Your score is %d." 5 bb-goto (-1 . -1)] 8 (#$ . 11573) [nil (blackbox-mode)]])
#@27 

(fn BALLS-PLACED BOARD)
(defalias 'bb-show-bogus-balls #[514 "\300\301#\210\300
\302#\207" [bb-show-bogus-balls-2 "x" "o"] 6 (#$ . 12118)])
#@24 

(fn LIST-1 LIST-2 C)
(defalias 'bb-show-bogus-balls-2 #[771 "\204\300\207@\235\203\301A#\207\302@!\210\303
!\210\301A#T\207" [0 bb-show-bogus-balls-2 bb-goto bb-update-board] 7 (#$ . 12269)])
#@12 

(fn X Y)
(defalias 'bb-outside-box #[514 "
\300U\206
\301U\206\211\300U\206\211\301U\207" [-1 8] 4 (#$ . 12483)])
#@12 

(fn POS)
(defalias 'bb-goto #[257 "\211@\300_
A\301_\\\302\\b\207" [2 22 26] 4 (#$ . 12611)])
#@10 

(fn C)
(defalias 'bb-update-board #[257 "\301\211GS\206	\302[u\210\303
G!\210\211c\210\304u)\207" [buffer-read-only nil 1 delete-char -1] 3 (#$ . 12713)])
(provide 'blackbox)