Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
play /
[ HOME SHELL ]
Name
Size
Permission
Action
5x5.elc
21.99
KB
-rw-r--r--
animate.elc
4.35
KB
-rw-r--r--
blackbox.elc
12.57
KB
-rw-r--r--
bubbles.elc
46.72
KB
-rw-r--r--
cookie1.elc
6.78
KB
-rw-r--r--
decipher.elc
21.75
KB
-rw-r--r--
dissociate.elc
1.82
KB
-rw-r--r--
doctor.elc
48.91
KB
-rw-r--r--
dunnet.elc
86.95
KB
-rw-r--r--
fortune.elc
8.19
KB
-rw-r--r--
gamegrid.elc
15.54
KB
-rw-r--r--
gametree.elc
18.81
KB
-rw-r--r--
gomoku.elc
28.48
KB
-rw-r--r--
handwrite.elc
58.29
KB
-rw-r--r--
hanoi.elc
9.21
KB
-rw-r--r--
life.elc
8.56
KB
-rw-r--r--
morse.elc
4.14
KB
-rw-r--r--
mpuz.elc
14.08
KB
-rw-r--r--
pong.elc
9.95
KB
-rw-r--r--
snake.elc
12.23
KB
-rw-r--r--
solitaire.elc
13.1
KB
-rw-r--r--
spook.elc
1.37
KB
-rw-r--r--
studly.elc
1.31
KB
-rw-r--r--
tetris.elc
17.37
KB
-rw-r--r--
zone.elc
14.64
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : blackbox.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@17 Blackbox board. (defvar bb-board nil (#$ . 408)) #@21 Current x-position. (defvar bb-x -1 (#$ . 463)) #@21 Current y-position. (defvar bb-y -1 (#$ . 517)) #@16 Current score. (defvar bb-score 0 (#$ . 571)) #@20 Number of detours. (defvar bb-detour-count 0 (#$ . 623)) #@31 List of already placed balls. (defvar bb-balls-placed nil (#$ . 686)) #@67 Redefine keys that run the function OLDFUN to run NEWFUN instead. (defalias 'blackbox-redefine-key #[(map oldfun newfun) "\303\304\305 \"\n#\207" [map oldfun newfun define-key vector remap] 5 (#$ . 762)]) (defvar blackbox-mode-map (byte-code "\301 \302\303\"\210\304\305\306#\210\304\307\306#\210\304\310\311#\210\304\312\311#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\323\324\325#\210\323\326\327#\210\323\330\325#\210\323\331\332#\210\304\333\332#\210)\207" [map 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] 4)) (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 #[nil "\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 \2036 \321 =\203< \322\f\323 \"\210)\324\325\"\204V =\204V \326\325 C#\210\327 !\210\330\f!\210 \307 )\331\332!\207" [delay-mode-hooks major-mode mode-name blackbox-mode-map blackbox-mode-syntax-table parent 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 blackbox-mode-abbrev-table local-abbrev-table truncate-lines] 6 (#$ . 2739) nil]) #@4905 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. (defalias 'blackbox #[(num) "\306\307!\210\310 \210\311\312p!\210\313 \206 \314!\315\316\211\317\211\320 \210\321\f B!\207" [buffer-read-only num bb-board bb-balls-placed bb-x bb-y switch-to-buffer "*Blackbox*" blackbox-mode t buffer-disable-undo bb-init-board 4 nil -1 0 bb-insert-board bb-goto bb-score bb-detour-count] 4 (#$ . 4053) "P"]) (defalias 'bb-init-board #[(num-balls) "\303\211\nS\211\304Y\203\" \305\306!\305\306!B\211 \235\204 B\202 *\207" [pos board num-balls nil 0 random 8] 4]) (defalias 'bb-insert-board #[nil "\303\211\304 \210\305c\210\306 S\211\307Y\203 \310c\210\202\f \305c\210\311\312\nG\"c*\207" [buffer-read-only i bb-board nil erase-buffer " \n" 8 0 " - - - - - - - - \n" format "\nThere are %d balls in the box"] 3]) (defalias 'bb-right #[(count) "\302V\205 \303W\205 \304u\210 TS\211\202 \207" [count bb-x 0 8 2] 3 nil "p"]) (defalias 'bb-left #[(count) "\302V\205 \303V\205 \304u\210 SS\211\202 \207" [count bb-x 0 -1 -2] 3 nil "p"]) (defalias 'bb-up #[(count) "\302V\205 \303V\205 \304 \210 SS\211\202 \207" [count bb-y 0 -1 previous-line] 3 nil "p"]) (defalias 'bb-down #[(count) "\302V\205 \303W\205 \304 \210 TS\211\202 \207" [count bb-y 0 8 next-line] 3 nil "p"]) (defalias 'bb-eol #[nil "\302\303 B!\207" [bb-x bb-y 8 bb-goto] 3 nil nil]) (defalias 'bb-bol #[nil "\302\303 B!\207" [bb-x bb-y -1 bb-goto] 3 nil nil]) (defalias 'bb-romp #[nil "\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]) (defalias 'bb-place-ball #[(x y) " B\211 \235\203 \304\n \"\305\306!\202 \n B\305\307\310\311\312#!)\207" [x y coord bb-balls-placed delete bb-update-board "-" propertize "O" help-echo "Placed ball"] 6]) (defalias 'bb-trace-ray #[(x y) "g\305U\205\207 \306\307\211\310U\203 \311\202 \312U\203 \310\202 \313 \211\310U\203) \311\2024 \312U\2033 \310\2024 \313%\211\314=\203K \315\316\317\320\321#!\210 T\211\202\206 \n B\232\203b \315\316\322\320\323#!\210 T\211\202\206 \fT\315\316\324\325\f\"\320\326#!\210\212\327\n!\210\315\316\324\325\f\"\320\326#!\210) \330\\\211)\207" [x y result 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] 8]) (defalias 'bb-trace-ray-2 #[(first x dx y dy) "\204 \306 \n\"\203 \nB\207 \\\n\f\\B \235\203 \307\207\310 \f#\310\n\f #B \235\2037 \311\312 \f[\n [%\207\310 \f[#\310\n\f [#B \235\203Q \311\312 \f\n %\207\311\312 \\ \n\f\\\f%\207" [first x y dx dy bb-board bb-outside-box hit + bb-trace-ray-2 nil] 6]) #@35 Finish the game and report score. (defalias 'bb-done #[nil "\304 G\nGU\204, \305\306\nG\307U\203 \310\202 \311\nG\nG\307U\203% \312\202& \313 G%\202W \314 \n\"\211\315U\203? \305\316 \"\210\202T \305\317\211\307U\203L \312\202M \313 \320_\\$\210\321\322!)\207" [bogus-balls 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 (#$ . 11660) nil]) (defalias 'bb-show-bogus-balls #[(balls-placed board) "\302 \303#\210\302 \304#\207" [balls-placed board bb-show-bogus-balls-2 "x" "o"] 4]) (defalias 'bb-show-bogus-balls-2 #[(list-1 list-2 c) "\204 \303\207@ \235\203 \304A \n#\207\305@!\210\306\n!\210\304A \n#T\207" [list-1 list-2 c 0 bb-show-bogus-balls-2 bb-goto bb-update-board] 4]) (defalias 'bb-outside-box #[(x y) "\302U\206 \303U\206 \302U\206 \303U\207" [x y -1 8] 2]) (defalias 'bb-goto #[(pos) "\301@\302_A\303_\304#b\207" [pos + 2 22 26] 4]) (defalias 'bb-update-board #[(c) "\302 GS\206 \303[u\210\304 G!\210 c\210\305u)\207" [buffer-read-only c nil 1 delete-char -1] 2]) (provide 'blackbox)
Close
