Gecko [ goons4good.org ]

Name	Size	Permission	Date
5x5.elc	20.63 KB	-rw-r--r--	2023-06-07 04:11
animate.elc	4.37 KB	-rw-r--r--	2023-06-07 04:11
blackbox.elc	10.93 KB	-rw-r--r--	2023-06-07 04:11
bubbles.elc	43.68 KB	-rw-r--r--	2023-06-07 04:11
cookie1.elc	3.48 KB	-rw-r--r--	2023-06-07 04:11
decipher.elc	22.1 KB	-rw-r--r--	2023-06-07 04:11
dissociate.elc	1.96 KB	-rw-r--r--	2023-06-07 04:11
doctor.elc	49.27 KB	-rw-r--r--	2023-06-07 04:11
dunnet.elc	85.34 KB	-rw-r--r--	2023-06-07 04:11
fortune.elc	7.68 KB	-rw-r--r--	2023-06-07 04:11
gamegrid.elc	13.93 KB	-rw-r--r--	2023-06-07 04:11
gametree.elc	19.01 KB	-rw-r--r--	2023-06-07 04:11
gomoku.elc	28.9 KB	-rw-r--r--	2023-06-07 04:11
handwrite.elc	58.43 KB	-rw-r--r--	2023-06-07 04:11
hanoi.elc	9.37 KB	-rw-r--r--	2023-06-07 04:11
landmark.elc	39.89 KB	-rw-r--r--	2023-06-07 04:11
life.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
meese.elc	1.04 KB	-rw-r--r--	2023-06-07 04:11
morse.elc	4.22 KB	-rw-r--r--	2023-06-07 04:11
mpuz.elc	12.93 KB	-rw-r--r--	2023-06-07 04:11
pong.elc	9.94 KB	-rw-r--r--	2023-06-07 04:11
snake.elc	9.76 KB	-rw-r--r--	2023-06-07 04:11
solitaire.elc	13.38 KB	-rw-r--r--	2023-06-07 04:11
spook.elc	1.51 KB	-rw-r--r--	2023-06-07 04:11
studly.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
yow.elc	3.43 KB	-rw-r--r--	2023-06-07 04:11
zone.elc	14.97 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:40 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/zone.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@62 The timer we use to decide when to zone out, or nil if none.
(defvar zone-timer nil (#$ . 548))
#@80 Seconds to timeout the zoning.
If nil, don't interrupt for about 1^26 seconds.
(defvar zone-timeout nil (#$ . 650))
(defvar zone-programs [zone-pgm-jitter zone-pgm-putz-with-case zone-pgm-dissolve zone-pgm-whack-chars zone-pgm-rotate zone-pgm-rotate-LR-lockstep zone-pgm-rotate-RL-lockstep zone-pgm-rotate-LR-variable zone-pgm-rotate-RL-variable zone-pgm-drip zone-pgm-drip-fretfully zone-pgm-five-oclock-swan-dive zone-pgm-martini-swan-dive zone-pgm-rat-race zone-pgm-paragraph-spaz zone-pgm-stress zone-pgm-stress-destress zone-pgm-random-life])
(defalias 'zone-orig '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get 'zone 'orig-buffer)] 3]))
(defalias 'zone-hiding-mode-line '(macro . #[(&rest body) "\301\302BB\207" [body let (mode-line-format)] 3]))
#@360 Call PROGRAM in a zoned way.
If PROGRAM is a function, call it, interrupting after the amount
 of time in seconds specified by optional arg TIMEOUT, or `zone-timeout'
 if unspecified, q.v.
PROGRAM can also be a list of elements, which are interpreted like so:
If the element is a function or a list of a function and a number,
 apply `zone-call' recursively.
(defalias 'zone-call #[(program &optional timeout) "\302!\203�\303\304\215\211\303=?\205�	)\207<\205�\305\306\"\207" [program -with-timeout-value- functionp #1=#:timeout (byte-code "\305\206
�	\206
�\306\307\310\"\311\312#\211B\313\216\f +\207" [timeout zone-timeout -with-timeout-timer- with-timeout-timers program run-with-timer ash 1 26 nil #[nil "\300\301\211\"\207" [throw #1#] 3] ((cancel-timer -with-timeout-timer-))] 5) mapcar #[(elem) "\302!\203\n�\303!\207<\203%�\302@!\203%�\211A@)\247\203%�\304\303\"\207\305\306\"\207" [elem x functionp zone-call apply error "bad `zone-call' elem: %S"] 4]] 4 (#$ . 1437)])
#@23 Zone out, completely.
(defalias 'zone #[nil "\306 \307\216\310 \311\312!\313 \314 {\315\316 !\313 ZT\317\320\321p#\210\322!\210\323\324 \210\325\211)*r\320\321Nq\210+)+r\320\321Nq\210,),\nc\210\326ed\"\210\327\316 e\"\210\330\316 	\"\210\331\332\333\"\210-\334-G!\234\f\205o�\335\f\336\"\337\340C./010\203\212�\341\f\342\"\210\343.B.\344\337\345.\346\"BB.\337\347\350\217\210.\205\242�. .\n\207" [#1=#:wconfig wp text outbuf f mode-name current-window-configuration ((set-window-configuration #1#)) selected-frame get-buffer-create "*zone*" window-start window-end window-point selected-window put zone orig-buffer switch-to-buffer "Zone" erase-buffer t untabify set-window-start set-window-point sit-for 0 500 random frame-parameter cursor-type nil (kill-buffer outbuf) modify-frame-parameters ((cursor-type bar . 0)) (modify-frame-parameters f (list (cons 'cursor-type ct))) lambda append ((setq restore nil)) (byte-code "\301\302\"\210\303 \210\304 \203�\305 \210\306!\210\301\307!\207" [pgm message "Zoning... (%s)" garbage-collect input-pending-p discard-input zone-call "Zoning...sorry"] 3) ((error (byte-code " \210\302 \204�\303\304	\"\210\305\306!\210\303\307!\210\305\306!\210\202�\302\207" [restore pgm input-pending-p message "We were zoning when we wrote %s..." sit-for 3 "...here's hoping we didn't hose your buffer!"] 3)) (quit (byte-code " \210\301 \210\302\303!\207" [restore ding message "Zoning...sorry"] 2))) buffer-undo-list truncate-lines tab-width line-spacing zone-programs restore show-trailing-whitespace ct pgm] 6 (#$ . 2441) nil])
#@53 Zone out when Emacs has been idle for SECS seconds.
(defalias 'zone-when-idle #[(secs) "\302!\203\n�\303!\210\304	\305X\206�\306	\307\310#\211\207" [zone-timer secs timerp cancel-timer nil 0 run-with-idle-timer t zone] 4 (#$ . 4039) "nHow long before I start zoning (seconds): "])
#@36 Don't zone out when Emacs is idle.
(defalias 'zone-leave-me-alone #[nil "\301!\203\n�\302!\210\303\304\305!\207" [zone-timer timerp cancel-timer nil message "I won't zone out any more"] 2 (#$ . 4331) nil])
(defalias 'zone-shift-up #[nil "`\303y\210`	{	|\210db\210\nc+\207" [b e s 1] 2])
(defalias 'zone-shift-down #[nil "db\210`\303y\210`	{	|\210eb\210\nc+\207" [b e s -1] 2])
(defalias 'zone-shift-left #[nil "\302\303m?\205$�l\204�``T{\304\305!\210\303\210c\210\303\306\307\217\210\202�*\207" [s inhibit-point-motion-hooks t nil delete-char 1 (forward-char 1) ((error))] 3])
(defalias 'zone-shift-right #[nil "db\210\302\303o?\205%�n\204�`S`{\304\305!\210\306 \210c\210\307\210\202�*\207" [s inhibit-point-motion-hooks t nil delete-char -1 beginning-of-line 0] 2])
(defalias 'zone-pgm-jitter #[nil "\301eb\210\302 ?\205�\303G!\234 \210eb\210\304\305\306\"\210\202�)\207" [ops [zone-shift-left zone-shift-right zone-shift-down zone-shift-up] input-pending-p random sit-for 0 10] 3])
(defalias 'zone-pgm-whack-chars #[nil "\302\303\304N!\305 ?\2053�\306\211\307W\203$�	\306\310\311!\\I\210	T\211\202�\312ed#\210\313\314\315\"\210)\202�)\207" [tbl i copy-sequence zone-pgm-whack-chars wc-tbl input-pending-p 48 122 random 75 translate-region sit-for 0 2] 6])
(byte-code "\302\303\304\305\306\307\"\310\306W\203�	\211I\210T\211\202�	*#\207" [i tbl put zone-pgm-whack-chars wc-tbl make-string 128 120 0] 7)
(defalias 'zone-remove-text #[nil "\302\205B�\303\212eb\210m\2049�\304\305!\2033�\306\307!\211\310U\204(�\302\311u\210\202/�\312\311!\210\313c\210)\202\f�\311u\210\202\f�)\314\310\315\"\210\202�)\207" [working n t nil looking-at "[^(){}\n	 ]" random 5 0 1 delete-char " " sit-for 2] 4])
(defalias 'zone-pgm-dissolve #[nil "\300 \210\301 \207" [zone-remove-text zone-pgm-jitter] 1])
(defalias 'zone-exploding-remove #[nil "\302\303W\2039�\212eb\210m\204-�\304\305!\203'�\306\303!\211\302U\204#�\307u\210\310c\210)\307u\210\202\f�)T\311\302\312\"\210\202�)\313 \207" [i n 0 5 looking-at "[^*\n	 ]" random 1 " " sit-for 2 zone-pgm-jitter] 4])
(defalias 'zone-pgm-explode #[nil "\300 \210\301 \207" [zone-exploding-remove zone-pgm-jitter] 1])
(defalias 'zone-pgm-2nd-putz-with-case #[nil "\302\303\304\"\305\303W\203�	\211I\210T\211\202�\306 ?\205y�\307\211\310X\203E�	\311\312\313!!\2036�\226\2028�\227I\210\312\313!T\\\211\202\"�\314\211\310X\203k�	\311\312\313!!\203\\�\227\202^�\226I\210\312\313!T\\\211\202H�\315ed	#\210\316\305\317\"\210\202�*\207" [i tbl make-string 128 120 0 input-pending-p 97 122 zerop random 5 65 translate-region sit-for 2] 6])
(defalias 'zone-pgm-putz-with-case #[nil "eb\210\302 ?\205@�\303\304\305!\\d\211W\2034�\306\304\303!!\203#�\307\202$�\310	S	\"\210	\304\305!T\\\211\202�*eb\210\311\312\303\"\210\202�\207" [pm np input-pending-p 2 random 5 zerop upcase-region downcase-region sit-for 0] 4])
(defalias 'zone-line-specs #[nil "\302\303\212\304 b\210	\203+�`\305 W\203+�\306\307!\203\"�\310\224\310\225BB\311\310y!\211\204
�)*\207" [ret ok t nil window-start window-end looking-at "[	 ]*\$[^\n]+\$" 1 zerop] 3])
(defalias 'zone-pgm-rotate #[(&optional random-style) "\306\307\310\311\312\313 \"\210)\"\211G\310\211\310\211\310\211\310\314 ?\205\205�\315\211\nW\203~�	H\211\315H\316!\315V\203N�\317\320\202S�\320\317
Hb\210\fd`Z^``\f\\{\321\f!\210Hb\210c\210T\211\202-�\322\323!\210\202#�.	\207" [res specs n amt aamt cut apply vector nil mapc #[(ent) "@A\203� \202�\306\307!\310Z\n\311\f!Z	W\203%�\306\n	Z!\f\312U?\2059�\313\f	\n\311\f!Z#
B\211+\207" [ent beg end random-style amt res random 7 3 abs 0 vector] 6] zone-line-specs input-pending-p 0 abs 1 2 delete-char sit-for 0.04 paste txt i ent] 6])
(defalias 'zone-pgm-rotate-LR-lockstep #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\207" [1] 1]] 2])
(defalias 'zone-pgm-rotate-RL-lockstep #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\207" [-1] 1]] 2])
(defalias 'zone-pgm-rotate-LR-variable #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\301!T\207" [random 3] 2]] 2])
(defalias 'zone-pgm-rotate-RL-variable #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\301![S\207" [random 3] 2]] 2])
(defalias 'zone-cpos #[(pos) "\211T{\207" [pos] 2])
(put 'zone-cpos 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'zone-replace-char #[(count del-count char-as-string new-value) "\306\206�	[!\210\n\307I\210	\307\f
W\205\"�\nc\210\fT\211\202�*\207" [del-count count char-as-string new-value i --dotimes-limit-- delete-char 0] 4])
(put 'zone-replace-char 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'zone-park/sit-for #[(pos seconds) "`	b\210\303\n!b\210)\207" [p pos seconds sit-for] 2])
(put 'zone-park/sit-for 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'zone-fret #[(wbeg pos) "\306	\211\211T{)\307\310\n\311H!!\312\313\n\"\203�\n\226\2022�\312\314\n\"\203*�\n\227\2022�\315\316\317\320\321E#\322\323\311W\203}�	b\210\324\325!\210\326\246\311U\203W�\f\202X�\nc\210
\327_\211`	b\210\330!b\210+\210T\211\202=�*\324\331!\210\nc-\207" [case-fold-search pos c-string cw-ceil hmm wait nil ceiling char-width 0 string-match "[a-z]" "[A-Z]" propertize " " display space :width 0.5 20 delete-char 1 2 0.8 sit-for -1 i --dotimes-limit-- wbeg seconds p] 7])
(defalias 'zone-fill-out-screen #[(width height) "\306 \307\310\"\311\211b\210\312\210i\211W\203!�\n\f\312Oc\210\202'�\313\fZ!\210m\2032�\314c\210\312\2026�\315u\210\311)\204
�
\316e`\"Z\211\317V\203h�\n\314P\317W\203g�\nc\210T\211\202U�*)b\210\320\317!\210\321\317!+\207" [width inhibit-point-motion-hooks line start cc height window-start make-string 32 t nil delete-char "\n" 1 count-lines 0 recenter sit-for nl i --dotimes-limit--] 5])
(defalias 'zone-fall-through-ws #[(c wbeg wend) "\306\307\310H!!\311	\312\"i\313\314\211\212\315\316y!\205>�u\210iU\205>�`\211\205>�\n\317
\211	\\\"\230\205>�
	S\\\211)\203~�\320\321\316!\210\nc\210
b\210`W\203~�\321	!\210c\210\322u\210\f\323_\211`b\210\324!b\210+\204�.\207" [c cw-ceil spaces col wait newpos ceiling char-width 0 make-string 32 0.15 nil zerop 1 buffer-substring-no-properties t delete-char -1 0.8 sit-for fall-p wend wbeg seconds pos p] 6])
(defalias 'zone-pgm-drip #[(&optional fret-p pancake-p) "\306 S\307 \310	_\311\211\311\211\312	\"\210\313 \314 \315\316\215.\207" [ww wh mc total fall-p wbeg window-width window-height 0 nil zone-fill-out-screen window-start window-end done (byte-code "\306 ?\205`\307\310 \n\311	\nZ!\\b\210\312\313!\2037�T\211U\203+�\314\315\316\"\210\202�\n\311	\nZ!\\b\210\202�`
\203B�\317\n\f\"\210\fb\210\f\211\211T{)\320\n	#) \203��\203��\321e`\"!W\203��\322\323\307H!!\211\"\324\325#$%&\326%\206\214�&[!\210$\307#I\210&\307'('(W\205\261�$c\210'T\211'\202\236�.\210\n\327)`b\210\330)!\fb\210+\210\"\331\332#$%&\326%\206\340�&[!\210$\307#I\210&\307'('(W\205$c\210'T\211'\202\362�.\210\n\333)`b\210\330)!\fb\210+\210\"\331\334#$%&\326%\2064&[!\210$\307#I\210&\307'('(W\205Y$c\210'T\211'\202F.\210)\202��\207" [mc wend wbeg total p fret-p input-pending-p 0 window-end random looking-at "[ \n\f]" throw done sel zone-fret zone-fall-through-ws count-lines ceiling char-width 1 64 delete-char 0.137 sit-for nil 42 0.137 95 pos c fall-p pancake-p wh cw new-value char-as-string del-count count i --dotimes-limit-- seconds] 5) wend c] 4])
(defalias 'zone-pgm-drip-fretfully #[nil "\300\301!\207" [zone-pgm-drip t] 2])
(defalias 'zone-pgm-five-oclock-swan-dive #[nil "\300\301\302\"\207" [zone-pgm-drip nil t] 3])
(defalias 'zone-pgm-martini-swan-dive #[nil "\300\301\211\"\207" [zone-pgm-drip t] 3])
(defalias 'zone-pgm-rat-race #[nil "\300 ?\205
�\301\302!\210\202��\207" [input-pending-p zone-call ((zone-pgm-rotate 10) (zone-pgm-drip-fretfully 15) (zone-pgm-drip 10) ((lambda nil (goto-char (point-min)) (while (re-search-forward " +$" nil t) (delete-region (match-beginning 0) (match-end 0)))) 5))] 2])
(defalias 'zone-pgm-paragraph-spaz #[nil "r\305\306Nq\210)\307>\203F�	\211\211\310 S\311\312!\205D�\313\314!\210	\315\316!\317Z\\\211\fW\2031�		\nV\2039�\n	V\203�	\202�,\207\320\321!\210\322 \207" [major-mode fill-column max-fc fc-max fc-min zone orig-buffer (text-mode texinfo-mode fundamental-mode) frame-width sit-for 0.1 fill-paragraph 1 random 5 2 message "Zoning... (zone-pgm-rotate)" zone-pgm-rotate] 5])
(defalias 'zone-pgm-stress #[nil "eb\210\305\306	\203\"�`dW\203\"�`\307\310y!\n`{B)\202�\311\312!\210\306\313\f\314\230\204@�\315\f\310\306O\211!\210\311\316!\210\202*�)\317 ?\205{�\320\321\322!W\203f�db\210\323y\210`\324\325!|\210eb\210\321G!8c\210\315\326\321\327 \312Z!\330\"\331P!\210\311\332!\210\202A�+\207" [lines ok p mode-line-format msg t nil zerop 1 sit-for 5 "Zoning... (zone-pgm-stress)" "" message 0.05 input-pending-p 50 random 100 -1 line-beginning-position 2 make-string frame-width 32 "grrr" 0.1] 5])
(defalias 'zone-pgm-stress-destress #[nil "\301\302\303\"\210\304\305\306!\210\307 \210\305\306!\210\310\311!\210\312\313!\210db\210\314\315!\210\305\306!\210e\316 |\210\312\317!\210\301\320!)\207" [mode-line-format zone-call zone-pgm-stress 25 nil sit-for 3 erase-buffer insert-buffer-substring "*Messages*" message "" recenter -1 window-start "hey why stress out anyway?" ((zone-pgm-rotate 30) (zone-pgm-whack-chars 10) zone-pgm-drip)] 3])
#@125 Seconds to wait between successive `life' generations.
If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).
(defvar zone-pgm-random-life-wait nil (#$ . 13872))
(defalias 'zone-pgm-random-life #[nil "\306\307!\210\310\311 S\312 S\"\210\313 b\210\314y\210`\315 b\210\316y\210`\317 \320Z\313 \315 S\321\211\21145d|\210\fb\210\322\323!\203\373�\f\324!\\b\210\325w\210`U\203b�\325\fx\326U\204\373�\f`U\204\373�\327u\210l\2047�m\2047�`\2116\211T{)\211\326H\330	!\331\n5`V\204\230�4`W\204\230�\320i\211V\204\230�
W\203\234�\332\202\277�\333	X\203\256�\334	Y\203\256�	\335\\\202\277�\336	X\203\276�\337	Y\203\276�\340\202\277�\341789:\3429\206\320�:[!\2108\3267I\210:\326;<;<W\205\365�8c\210;T\211;\202\342�.\210\2027�\322\343!\210\3214b\2105`W\203!`\344\345!\210`	{B\326\210\346u\210\202\347\2039\350\351\352#\2039\353@G\332\"B\202L\354\355\356
\320Z\357\245\353\360\341\"\"\353\361\332\"#C!=\307>\206X\324\362!!\210\363\321!.	\207" [col c s max min rtc require life zone-fill-out-screen window-width window-height window-start 7 window-end -7 frame-width 11 nil sit-for 0.05 random " @\n" 0 -1 char-width 1 32 97 122 -32 65 90 42 64 delete-char 3 move-to-column 9 -10 vector search-forward "@" t make-string mapconcat identity make-list 15 5 10 4 kill-buffer bot top pos new-value char-as-string del-count count i --dotimes-limit-- life-patterns zone-pgm-random-life-wait] 9])
(provide 'zone)