Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
play /
[ HOME SHELL ]
Name
Size
Permission
Action
5x5.elc
13.7
KB
-rw-r--r--
animate.elc
3.86
KB
-rw-r--r--
blackbox.elc
11.03
KB
-rw-r--r--
bruce.el
6.03
KB
-rw-r--r--
bubbles.elc
45.33
KB
-rw-r--r--
cookie1.elc
3.47
KB
-rw-r--r--
decipher.elc
23.06
KB
-rw-r--r--
dissociate.elc
2.08
KB
-rw-r--r--
doctor.elc
45.54
KB
-rw-r--r--
dunnet.elc
85.74
KB
-rw-r--r--
fortune.elc
8.4
KB
-rw-r--r--
gamegrid.elc
14.69
KB
-rw-r--r--
gametree.elc
18.55
KB
-rw-r--r--
gomoku.elc
27.57
KB
-rw-r--r--
handwrite.elc
59.95
KB
-rw-r--r--
hanoi.elc
9.95
KB
-rw-r--r--
landmark.elc
37.69
KB
-rw-r--r--
life.elc
7.21
KB
-rw-r--r--
meese.elc
1.1
KB
-rw-r--r--
morse.elc
2.4
KB
-rw-r--r--
mpuz.elc
13.52
KB
-rw-r--r--
pong.elc
10.99
KB
-rw-r--r--
snake.elc
10.59
KB
-rw-r--r--
solitaire.elc
12.81
KB
-rw-r--r--
spook.elc
1.59
KB
-rw-r--r--
studly.elc
1.43
KB
-rw-r--r--
yow.elc
3.25
KB
-rw-r--r--
zone.elc
15.12
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : bubbles.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:57 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/bubbles.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`bubbles.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@31 Version number of bubbles.el. (defconst bubbles-version "0.5" (#$ . 610)) (byte-code "\300\301!\210\300\302!\207" [require gamegrid cl] 2) #@102 Overall game theme. The overall game theme specifies a grid size, a set of colors, and a shift mode. (custom-declare-variable 'bubbles-game-theme ''easy '(#$ . 756) :type '(radio (const :tag "Easy" easy) (const :tag "Medium" medium) (const :tag "Difficult" difficult) (const :tag "Hard" hard) (const :tag "User defined" user-defined)) :group 'bubbles) #@27 Set game theme to 'easy'. (defalias 'bubbles-set-game-easy #[nil "\301\302 \207" [bubbles-game-theme easy bubbles] 1 (#$ . 1114) nil]) #@29 Set game theme to 'medium'. (defalias 'bubbles-set-game-medium #[nil "\301\302 \207" [bubbles-game-theme medium bubbles] 1 (#$ . 1256) nil]) #@32 Set game theme to 'difficult'. (defalias 'bubbles-set-game-difficult #[nil "\301\302 \207" [bubbles-game-theme difficult bubbles] 1 (#$ . 1404) nil]) #@27 Set game theme to 'hard'. (defalias 'bubbles-set-game-hard #[nil "\301\302 \207" [bubbles-game-theme hard bubbles] 1 (#$ . 1561) nil]) #@35 Set game theme to 'user-defined'. (defalias 'bubbles-set-game-userdefined #[nil "\301\302 \207" [bubbles-game-theme user-defined bubbles] 1 (#$ . 1703) nil]) (custom-declare-group 'bubbles nil "Bubbles, a puzzle game." :group 'games) #@121 Graphics theme. It is safe to choose a graphical theme. If Emacs cannot display images the `ascii' theme will be used. (custom-declare-variable 'bubbles-graphics-theme ''circles '(#$ . 1945) :type '(radio (const :tag "Circles" circles) (const :tag "Squares" squares) (const :tag "Diamonds" diamonds) (const :tag "Balls" balls) (const :tag "Emacs" emacs) (const :tag "ASCII (no images)" ascii)) :group 'bubbles) #@32 Predefined small bubbles grid. (defconst bubbles--grid-small '(10 . 10) (#$ . 2363)) #@33 Predefined medium bubbles grid. (defconst bubbles--grid-medium '(15 . 10) (#$ . 2454)) #@32 Predefined large bubbles grid. (defconst bubbles--grid-large '(20 . 15) (#$ . 2547)) #@31 Predefined huge bubbles grid. (defconst bubbles--grid-huge '(30 . 20) (#$ . 2638)) #@23 Size of bubbles grid. (custom-declare-variable 'bubbles-grid-size 'bubbles--grid-medium '(#$ . 2727) :type (byte-code "\304\305\306\307F\305\306\310 F\305\306\311\nF\305\306\312 F\313BBBBB\207" [bubbles--grid-small bubbles--grid-medium bubbles--grid-large bubbles--grid-huge radio const :tag "Small" "Medium" "Large" "Huge" ((cons :tag "User defined" (integer :tag "Width") (integer :tag "Height")))] 8) :group 'bubbles) #@48 Predefined bubbles color list with two colors. (defconst bubbles--colors-2 '("orange" "violet") (#$ . 3155)) #@50 Predefined bubbles color list with three colors. (defconst bubbles--colors-3 '("lightblue" "palegreen" "pink") (#$ . 3270)) #@49 Predefined bubbles color list with four colors. (defconst bubbles--colors-4 '("firebrick" "sea green" "steel blue" "chocolate") (#$ . 3400)) #@49 Predefined bubbles color list with five colors. (defconst bubbles--colors-5 '("firebrick" "sea green" "steel blue" "sandy brown" "bisque3") (#$ . 3547)) #@104 List of bubble colors. The length of this list determines how many different bubble types are present. (custom-declare-variable 'bubbles-colors 'bubbles--colors-3 '(#$ . 3707) :type (byte-code "\304\305\306\307F\305\306\310 F\305\306\311\nF\305\306\312 F\313BBBBB\207" [bubbles--colors-2 bubbles--colors-3 bubbles--colors-4 bubbles--colors-5 radio const :tag "Red, darkgreen" "Red, darkgreen, blue" "Red, darkgreen, blue, orange" "Red, darkgreen, blue, orange, violet" ((repeat :tag "User defined" color))] 8) :group 'bubbles) #@140 Characters used for bubbles. Note that the actual number of different bubbles is determined by the number of colors, see `bubbles-colors'. (custom-declare-variable 'bubbles-chars ''(43 79 35 88 46 42 38 167) '(#$ . 4242) :type '(repeat character) :group 'bubbles) #@69 Shift mode. Available modes are `shift-default' and `shift-always'. (custom-declare-variable 'bubbles-shift-mode ''default '(#$ . 4512) :type '(radio (const :tag "Default" default) (const :tag "Shifter" always)) :group 'bubbles) #@27 Hook run by Bubbles mode. (custom-declare-variable 'bubbles-mode-hook 'nil '(#$ . 4747) :group 'bubbles :type 'hook) #@40 Open customization buffer for bubbles. (defalias 'bubbles-customize #[nil "\300\301!\207" [customize-group bubbles] 2 (#$ . 4870) nil]) #@24 Current Bubbles score. (defvar bubbles--score 0 (#$ . 5012)) #@39 Score of active bubbles neighborhood. (defvar bubbles--neighbourhood-score 0 (#$ . 5079)) #@31 List of currently used faces. (defvar bubbles--faces nil (#$ . 5175)) #@24 Play status indicator. (defvar bubbles--playing nil (#$ . 5251)) #@52 Image used for removed bubbles (empty grid cells). (defvar bubbles--empty-image nil (#$ . 5322)) #@29 List of images for bubbles. (defvar bubbles--images nil (#$ . 5425)) #@57 Indicate whether images have been created successfully. (defvar bubbles--images-ok nil (#$ . 5500)) #@51 Horizontal offset for centering the bubbles grid. (defvar bubbles--col-offset 0 (#$ . 5606)) #@49 Vertical offset for centering the bubbles grid. (defvar bubbles--row-offset 0 (#$ . 5705)) #@59 List containing bubbles save data (SCORE BUFFERCONTENTS). (defvar bubbles--save-data nil (#$ . 5802)) (byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\207" [current-load-list bubbles--image-template-circle (lambda (#1=#:defconst-tmp-var) (defconst bubbles--image-template-circle #1#)) "/* XPM */\nstatic char * dot_xpm[] = {\n\"20 20 2 1\",\n\" c None\",\n\". c #FFFFFF\",\n\" ...... \",\n\" .......... \",\n\" .............. \",\n\" ................ \",\n\" ................ \",\n\" .................. \",\n\" .................. \",\n\"....................\",\n\"....................\",\n\"....................\",\n\"....................\",\n\"....................\",\n\"....................\",\n\" .................. \",\n\" .................. \",\n\" ................ \",\n\" ................ \",\n\" .............. \",\n\" .......... \",\n\" ...... \"};" bubbles--image-template-square (lambda (#2=#:defconst-tmp-var) (defconst bubbles--image-template-square #2#)) "/* XPM */\nstatic char * dot_xpm[] = {\n\"20 20 2 1\",\n\"0 c None\",\n\"1 c #FFFFFF\",\n\"00000000000000000000\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"01111111111111111110\",\n\"00000000000000000000\"};" bubbles--image-template-diamond (lambda (#3=#:defconst-tmp-var) (defconst bubbles--image-template-diamond #3#)) "/* XPM */\nstatic char * dot_xpm[] = {\n\"20 20 2 1\",\n\"0 c None\",\n\"1 c #FFFFFF\",\n\"00000000011000000000\",\n\"00000000111100000000\",\n\"00000001111110000000\",\n\"00000011111111000000\",\n\"00000111111111100000\",\n\"00001111111111110000\",\n\"00011111111111111000\",\n\"00111111111111111100\",\n\"01111111111111111110\",\n\"11111111111111111111\",\n\"01111111111111111110\",\n\"00111111111111111100\",\n\"00011111111111111000\",\n\"00001111111111110000\",\n\"00000111111111100000\",\n\"00000011111111000000\",\n\"00000001111110000000\",\n\"00000000111100000000\",\n\"00000000011000000000\",\n\"00000000000000000000\"};" bubbles--image-template-emacs (lambda (#4=#:defconst-tmp-var) (defconst bubbles--image-template-emacs #4#)) "/* XPM */\nstatic char * emacs_24_xpm[] = {\n\"24 24 129 2\",\n\" c None\",\n\". c #837DA4\",\n\"+ c #807AA0\",\n\"@ c #9894B2\",\n\"# c #CCCAD9\",\n\"$ c #C2C0D2\",\n\"% c #B6B3C9\",\n\"& c #A19DB9\",\n\"* c #8681A5\",\n\"= c #7D779B\",\n\"- c #B6B3C7\",\n\"; c #ABA7BE\",\n\"> c #9792AF\",\n\", c #AAA6BD\",\n\"' c #CBC9D7\",\n\") c #AAA7BE\",\n\"! c #908BAA\",\n\"~ c #797397\",\n\"{ c #948FAC\",\n\"] c #9A95B1\",\n\"^ c #EBEAEF\",\n\"/ c #F1F1F5\",\n\"( c #BCB9CB\",\n\"_ c #A9A5BD\",\n\": c #757093\",\n\"< c #918DA9\",\n\"[ c #DDDBE4\",\n\"} c #FFFFFF\",\n\"| c #EAE9EF\",\n\"1 c #A7A4BA\",\n\"2 c #716C8F\",\n\"3 c #8D89A5\",\n\"4 c #9C98B1\",\n\"5 c #DBDAE3\",\n\"6 c #A4A1B7\",\n\"7 c #6E698A\",\n\"8 c #8B87A1\",\n\"9 c #928EA7\",\n\"0 c #C5C3D1\",\n\"a c #F8F8F9\",\n\"b c #CCCAD6\",\n\"c c #A29FB4\",\n\"d c #6A6585\",\n\"e c #88849D\",\n\"f c #B5B2C2\",\n\"g c #F0F0F3\",\n\"h c #E1E0E6\",\n\"i c #A5A2B5\",\n\"j c #A09DB1\",\n\"k c #676281\",\n\"l c #85819A\",\n\"m c #9591A7\",\n\"n c #E1E0E5\",\n\"o c #F0EFF2\",\n\"p c #B3B0C0\",\n\"q c #9D9AAE\",\n\"r c #635F7C\",\n\"s c #827F96\",\n\"t c #9997AA\",\n\"u c #F7F7F9\",\n\"v c #C8C7D1\",\n\"w c #89869D\",\n\"x c #9B99AB\",\n\"y c #5F5B78\",\n\"z c #7F7C93\",\n\"A c #CFCDD6\",\n\"B c #B7B5C2\",\n\"C c #9996A9\",\n\"D c #5C5873\",\n\"E c #7A778D\",\n\"F c #F5F5F6\",\n\"G c #8E8C9E\",\n\"H c #7D798F\",\n\"I c #58546F\",\n\"J c #6C6981\",\n\"K c #D5D4DB\",\n\"L c #F5F4F6\",\n\"M c #9794A5\",\n\"N c #625F78\",\n\"O c #79768C\",\n\"P c #55516A\",\n\"Q c #605C73\",\n\"R c #CAC9D1\",\n\"S c #EAE9EC\",\n\"T c #B4B3BE\",\n\"U c #777488\",\n\"V c #514E66\",\n\"W c #DEDEE2\",\n\"X c #F4F4F5\",\n\"Y c #9D9BA9\",\n\"Z c #747185\",\n\"` c #4E4B62\",\n\" . c #DEDDE1\",\n\".. c #A6A5B0\",\n\"+. c #716F81\",\n\"@. c #4A475D\",\n\"#. c #A4A3AE\",\n\"$. c #F4F3F5\",\n\"%. c #777586\",\n\"&. c #6E6C7D\",\n\"*. c #464358\",\n\"=. c #514E62\",\n\"-. c #B9B8C0\",\n\";. c #D1D0D5\",\n\">. c #747282\",\n\",. c #6B6979\",\n\"'. c #434054\",\n\"). c #5A5769\",\n\"!. c #D0CFD4\",\n\"~. c #5B5869\",\n\"{. c #696676\",\n\"]. c #403D50\",\n\"^. c #DBDADE\",\n\"/. c #F3F3F4\",\n\"(. c #646271\",\n\"_. c #666473\",\n\":. c #3D3A4C\",\n\"<. c #555362\",\n\"[. c #9E9DA6\",\n\"}. c #9E9CA5\",\n\"|. c #646170\",\n\"1. c #393647\",\n\"2. c #514E5D\",\n\"3. c #83818C\",\n\"4. c #A8A7AE\",\n\"5. c #E6E6E8\",\n\"6. c #DAD9DC\",\n\"7. c #353343\",\n\"8. c #32303E\",\n\" . . . . . . . . . . . . . . . . . . \",\n\" + @ # $ % % % % % % % % % % % % % % & * + + \",\n\" = - ; > > > > > > > > , ' ) > > > > > > ! = \",\n\"~ ~ { { { { { { { { { { { ] ^ / ( { { { { _ ~ ~ \",\n\": : < < < < < < < < < < < < [ } } | < < < 1 : : \",\n\"2 2 3 3 3 3 3 3 3 3 3 3 4 5 } } } 5 3 3 3 6 2 2 \",\n\"7 7 8 8 8 8 8 8 8 8 9 0 a } } } b 8 8 8 8 c 7 7 \",\n\"d d e e e e e e e f g } } } h i e e e e e j d d \",\n\"k k l l l l l m n } } } o p l l l l l l l q k k \",\n\"r r s s s s t u } } } v w s s s s s s s s x r r \",\n\"y y z z z z A } } } B z z z z z z z z z z C y y \",\n\"D D D D D D E F } } G D D D D D D D D D D H D D \",\n\"I I I I I I I J K } L M N I I I I I I I I O I I \",\n\"P P P P P P Q R } } } S T P P P P P P P P U P P \",\n\"V V V V V V W } } X Y V V V V V V V V V V Z V V \",\n\"` ` ` ` ` ` .} } ..` ` ` ` ` ` ` ` ` ` ` +.` ` \",\n\"@.@.@.@.@.@.@.#.$.$.%.@.@.@.@.@.@.@.@.@.@.&.@.@.\",\n\"*.*.*.*.*.*.*.*.=.-.} ;.>.*.*.*.*.*.*.*.*.,.*.*.\",\n\"'.'.'.'.'.'.'.'.'.'.).!.} !.~.'.'.'.'.'.'.{.'.'.\",\n\"].].].].].].].].].].].].^.} /.(.].].].].]._.].].\",\n\":.:.:.:.:.:.:.:.:.:.<.[./.} } }.:.:.:.:.:.|.:.:.\",\n\" 1.1.1.1.1.1.1.1.2.3.4.5.6.3.1.1.1.1.1.1.1.1. \",\n\" 7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7. \",\n\" 8.8.8.8.8.8.8.8.8.8.8.8.8.8.8.8.8.8. \"};" bubbles--image-template-ball (lambda (#5=#:defconst-tmp-var) (defconst bubbles--image-template-ball #5#)) "/* XPM */\nstatic char * dot3d_xpm[] = {\n\"20 20 190 2\",\n\" c None\",\n\". c #F9F6F6\",\n\"+ c #D6D0D0\",\n\"@ c #BFBBBB\",\n\"# c #AAA4A4\",\n\"$ c #ABAAAB\",\n\"% c #A8A8A8\",\n\"& c #A29D9D\",\n\"* c #B5B2B2\",\n\"= c #CDC9C9\",\n\"- c #D7D0D0\",\n\"; c #B3AFAF\",\n\"> c #B5B5B5\",\n\", c #B7B7B7\",\n\"' c #B8B8B8\",\n\") c #B6B6B6\",\n\"! c #B3B3B3\",\n\"~ c #AFAFAF\",\n\"{ c #A9A9A9\",\n\"] c #A2A2A2\",\n\"^ c #9C9A9A\",\n\"/ c #C9C5C5\",\n\"( c #FDFBFB\",\n\"_ c #C3BCBC\",\n\": c #BBBBBB\",\n\"< c #C0C0C0\",\n\"[ c #C3C2C2\",\n\"} c #C3C3C3\",\n\"| c #C2C2C2\",\n\"1 c #BEBEBE\",\n\"2 c #B9B9B9\",\n\"3 c #B2B2B2\",\n\"4 c #ABAAAA\",\n\"5 c #999999\",\n\"6 c #ACA7A7\",\n\"7 c #C2BBBB\",\n\"8 c #C5C5C5\",\n\"9 c #CACBCB\",\n\"0 c #CECECE\",\n\"a c #CFCFCF\",\n\"b c #CDCDCD\",\n\"c c #C8C9C9\",\n\"d c #9F9F9F\",\n\"e c #959595\",\n\"f c #A9A5A5\",\n\"g c #D5CFCE\",\n\"h c #BDBDBD\",\n\"i c #C6C6C6\",\n\"j c #D5D5D5\",\n\"k c #D9D9D9\",\n\"l c #DADADA\",\n\"m c #D8D8D8\",\n\"n c #D2D2D2\",\n\"o c #CBCBCB\",\n\"p c #A4A4A5\",\n\"q c #9A9A9A\",\n\"r c #8F8F8F\",\n\"s c #C3BFBF\",\n\"t c #AFACAB\",\n\"u c #CCCCCC\",\n\"v c #D6D6D6\",\n\"w c #DEDEDE\",\n\"x c #E4E4E4\",\n\"y c #E5E5E5\",\n\"z c #E2E2E2\",\n\"A c #DBDBDB\",\n\"B c #C9C8C8\",\n\"C c #A8A9A8\",\n\"D c #9D9E9D\",\n\"E c #929292\",\n\"F c #8A8888\",\n\"G c #D3CECE\",\n\"H c #B0B0B0\",\n\"I c #D1D1D1\",\n\"J c #DCDCDC\",\n\"K c #E6E6E6\",\n\"L c #EEEEEE\",\n\"M c #F1F1F0\",\n\"N c #EBEBEB\",\n\"O c #D7D7D8\",\n\"P c #ABABAB\",\n\"Q c #A0A0A0\",\n\"R c #949494\",\n\"S c #898989\",\n\"T c #C0BDBD\",\n\"U c #B9B6B6\",\n\"V c #B1B1B1\",\n\"W c #BCBCBC\",\n\"X c #C8C8C8\",\n\"Y c #D3D3D3\",\n\"Z c #DFDFDE\",\n\"` c #EAEAEA\",\n\" . c #F5F5F5\",\n\".. c #FAFAFA\",\n\"+. c #F1F1F1\",\n\"@. c #CECFCF\",\n\"#. c #ACACAC\",\n\"$. c #A1A1A1\",\n\"%. c #8A8A8A\",\n\"&. c #9B9999\",\n\"*. c #C7C7C7\",\n\"=. c #DDDDDD\",\n\"-. c #E8E8E8\",\n\";. c #F2F2F2\",\n\">. c #898A89\",\n\",. c #7A7878\",\n\"'. c #AEAEAE\",\n\"). c #C4C4C4\",\n\"!. c #CBCBCA\",\n\"~. c #AAAAAA\",\n\"{. c #939393\",\n\"]. c #888888\",\n\"^. c #7C7C7C\",\n\"/. c #AAAAAB\",\n\"(. c #BFBFBF\",\n\"_. c #C9C9C9\",\n\":. c #DFDEDF\",\n\"<. c #A6A6A6\",\n\"[. c #9B9B9B\",\n\"}. c #909191\",\n\"|. c #858586\",\n\"1. c #797979\",\n\"2. c #989494\",\n\"3. c #A5A6A5\",\n\"4. c #B9B9B8\",\n\"5. c #C1C1C1\",\n\"6. c #CFCFCE\",\n\"7. c #979797\",\n\"8. c #8D8D8D\",\n\"9. c #828282\",\n\"0. c #747171\",\n\"a. c #ADAAAA\",\n\"b. c #A9A8A9\",\n\"c. c #B8B9B9\",\n\"d. c #A5A5A5\",\n\"e. c #9C9C9C\",\n\"f. c #7E7E7D\",\n\"g. c #929191\",\n\"h. c #C9C4C4\",\n\"i. c #989898\",\n\"j. c #ADADAD\",\n\"k. c #9D9D9D\",\n\"l. c #8C8C8C\",\n\"m. c #787878\",\n\"n. c #B8B6B6\",\n\"o. c #939191\",\n\"p. c #A5A5A6\",\n\"q. c #ABABAA\",\n\"r. c #A8A8A9\",\n\"s. c #A3A3A3\",\n\"t. c #858585\",\n\"u. c #757474\",\n\"v. c #C5C1C1\",\n\"w. c #969696\",\n\"x. c #9B9B9C\",\n\"y. c #A4A4A4\",\n\"z. c #9E9E9E\",\n\"A. c #939394\",\n\"B. c #7D7D7D\",\n\"C. c #747474\",\n\"D. c #B7B5B5\",\n\"E. c #A5A1A1\",\n\"F. c #919191\",\n\"G. c #9A9999\",\n\"H. c #838383\",\n\"I. c #757575\",\n\"J. c #939090\",\n\"K. c #A29E9E\",\n\"L. c #868686\",\n\"M. c #8D8D8C\",\n\"N. c #8E8E8E\",\n\"O. c #8D8D8E\",\n\"P. c #8B8C8C\",\n\"Q. c #848485\",\n\"R. c #7F7F80\",\n\"S. c #7A7A7A\",\n\"T. c #737373\",\n\"U. c #929090\",\n\"V. c #828080\",\n\"W. c #818181\",\n\"X. c #808080\",\n\"Y. c #7E7E7E\",\n\"Z. c #737272\",\n\"`. c #B7B4B4\",\n\" + c #BCBABA\",\n\".+ c #959494\",\n\"++ c #747172\",\n\"@+ c #767676\",\n\"#+ c #6F6D6D\",\n\"$+ c #8F8E8E\",\n\" . + @ # $ % & * = . \",\n\" - ; > , ' ) ! ~ { ] ^ / \",\n\" ( _ > : < [ } | 1 2 3 4 ] 5 6 ( \",\n\" 7 ) 1 8 9 0 a b c | : 3 { d e f \",\n\" g ! h i 0 j k l m n o | 2 ~ p q r s \",\n\". t ' | u v w x y z A n B 1 ! C D E F . \",\n\"G H : i I J K L M N z O b | ) P Q R S T \",\n\"U V W X Y Z ` ...+.y l @.} ' #.$.e %.&.\",\n\"& H W *.n =.-.;. .L x k 0 [ , #.Q e >.,.\",\n\"] '.2 ).a k z -.` K w j !.< > ~.d {.].^.\",\n\"d /.> (._.I k =.:.J v 0 8 : V <.[.}.|.1.\",\n\"2.3.~ 4.5._.6.n Y I u i 1 > P $.7.8.9.0.\",\n\"a.d b.V c.(.).*.X i | h ) '.d.e.E ].f.g.\",\n\"h.i.$.C ~ > 2 W W : ' ! j.d.k.e l.9.m.n.\",\n\". o.i.d p.q.'.H V H j.r.s.k.e 8.t.^.u.. \",\n\" v.r w.x.Q s.d.d.y.] z.5 A.8.t.B.C.D. \",\n\" E.l.F.e i.G.q 5 7.{.r %.H.^.I.J. \",\n\" ( K.L.%.M.N.N.O.P.S Q.R.S.T.U.( \",\n\" @ V.W.H.H.9.X.Y.S.I.Z.`. \",\n\" . +.+++@+C.#+$+D.. \"};"] 2) #@51 Return the grid width for the current game theme. (defalias 'bubbles--grid-width #[nil "\306\307\"\203 \2024 \306\310\"\203 \n\2024 \306\311\"\203! \2024 \306\312\"\203, \f\2024 \306\313\"\2054 @\207" [bubbles-game-theme bubbles--grid-small bubbles--grid-medium bubbles--grid-large bubbles--grid-huge bubbles-grid-size memql 'easy 'medium 'difficult 'hard 'user-defined] 3 (#$ . 16928)]) (put 'bubbles--grid-width 'byte-optimizer 'byte-compile-inline-expand) #@52 Return the grid height for the current game theme. (defalias 'bubbles--grid-height #[nil "\306\307\"\203 \2024 \306\310\"\203 \n\2024 \306\311\"\203! \2024 \306\312\"\203, \f\2024 \306\313\"\2054 A\207" [bubbles-game-theme bubbles--grid-small bubbles--grid-medium bubbles--grid-large bubbles--grid-huge bubbles-grid-size memql 'easy 'medium 'difficult 'hard 'user-defined] 3 (#$ . 17403)]) (put 'bubbles--grid-height 'byte-optimizer 'byte-compile-inline-expand) #@51 Return the color list for the current game theme. (defalias 'bubbles--colors #[nil "\306\307\"\203 \207\306\310\"\203 \n\207\306\311\"\203 \207\306\312\"\203$ \f\207\306\313\"\205, \207" [bubbles-game-theme bubbles--colors-2 bubbles--colors-3 bubbles--colors-4 bubbles--colors-5 bubbles-colors memql 'easy 'medium 'difficult 'hard 'user-defined] 3 (#$ . 17881)]) (put 'bubbles--colors 'byte-optimizer 'byte-compile-inline-expand) #@51 Return the shift mode for the current game theme. (defalias 'bubbles--shift-mode #[nil "\302\303\"\203 \304\207\302\305\"\203 \304\207\302\306\"\203 \307\207\302\310\"\203$ \307\207\302\311\"\205, \207" [bubbles-game-theme bubbles-shift-mode memql 'easy default 'medium 'difficult always 'hard 'user-defined] 3 (#$ . 18328)]) (put 'bubbles--shift-mode 'byte-optimizer 'byte-compile-inline-expand) #@38 Save current customization settings. (defalias 'bubbles-save-settings #[nil "\302\300\303D\304E\301\303 D\304E\"\210\305 \207" [bubbles-game-theme bubbles-graphics-theme custom-set-variables quote t customize-save-customized] 5 (#$ . 18740) nil]) #@60 The character used for removed bubbles (empty grid cells). (defalias 'bubbles--empty-char #[nil "\300\207" [32] 1 (#$ . 18994)]) (put 'bubbles--empty-char 'byte-optimizer 'byte-compile-inline-expand) #@32 Set graphics theme to `ascii'. (defalias 'bubbles-set-graphics-theme-ascii #[nil "\301\302 \207" [bubbles-graphics-theme ascii bubbles--update-faces-or-images] 1 (#$ . 19200) nil]) #@34 Set graphics theme to `circles'. (defalias 'bubbles-set-graphics-theme-circles #[nil "\301\302 \210\303 \207" [bubbles-graphics-theme circles bubbles--initialize-images bubbles--update-faces-or-images] 1 (#$ . 19388) nil]) #@34 Set graphics theme to `squares'. (defalias 'bubbles-set-graphics-theme-squares #[nil "\301\302 \210\303 \207" [bubbles-graphics-theme squares bubbles--initialize-images bubbles--update-faces-or-images] 1 (#$ . 19618) nil]) #@35 Set graphics theme to `diamonds'. (defalias 'bubbles-set-graphics-theme-diamonds #[nil "\301\302 \210\303 \207" [bubbles-graphics-theme diamonds bubbles--initialize-images bubbles--update-faces-or-images] 1 (#$ . 19848) nil]) #@32 Set graphics theme to `balls'. (defalias 'bubbles-set-graphics-theme-balls #[nil "\301\302 \210\303 \207" [bubbles-graphics-theme balls bubbles--initialize-images bubbles--update-faces-or-images] 1 (#$ . 20081) nil]) #@32 Set graphics theme to `emacs'. (defalias 'bubbles-set-graphics-theme-emacs #[nil "\301\302 \210\303 \207" [bubbles-graphics-theme emacs bubbles--initialize-images bubbles--update-faces-or-images] 1 (#$ . 20305) nil]) #@34 Map for bubbles game theme menu. (defvar bubbles-game-theme-menu (byte-code "\301\302!\303\304\305\306\307\310\311\257#\210\303\312\305\313\314\310\315\257#\210\303\316\305\317\320\310\321\257#\210\303\322\305\323\324\310\325\257#\210\303\326\305\327\330\310\331\257#\210)\207" [menu make-sparse-keymap "Game Theme" define-key [bubbles-set-game-userdefined] menu-item "User defined" bubbles-set-game-userdefined :button (:radio eq bubbles-game-theme 'user-defined) [bubbles-set-game-hard] "Hard" bubbles-set-game-hard (:radio eq bubbles-game-theme 'hard) [bubbles-set-game-difficult] "Difficult" bubbles-set-game-difficult (:radio eq bubbles-game-theme 'difficult) [bubbles-set-game-medium] "Medium" bubbles-set-game-medium (:radio eq bubbles-game-theme 'medium) [bubbles-set-game-easy] "Easy" bubbles-set-game-easy (:radio eq bubbles-game-theme 'easy)] 8) (#$ . 20529)) #@38 Map for bubbles graphics theme menu. (defvar bubbles-graphics-theme-menu (byte-code "\301\302!\303\304\305\306\307\310\311\257#\210\303\312\305\313\314\310\315\257#\210\303\316\305\317\320\310\321\257#\210\303\322\305\323\324\310\325\257#\210\303\326\305\327\330\310\331\257#\210\303\332\305\333\334\310\335\257#\210)\207" [menu make-sparse-keymap "Graphics Theme" define-key [bubbles-set-graphics-theme-ascii] menu-item "ASCII" bubbles-set-graphics-theme-ascii :button (:radio eq bubbles-graphics-theme 'ascii) [bubbles-set-graphics-theme-emacs] "Emacs" bubbles-set-graphics-theme-emacs (:radio eq bubbles-graphics-theme 'emacs) [bubbles-set-graphics-theme-balls] "Balls" bubbles-set-graphics-theme-balls (:radio eq bubbles-graphics-theme 'balls) [bubbles-set-graphics-theme-diamonds] "Diamonds" bubbles-set-graphics-theme-diamonds (:radio eq bubbles-graphics-theme 'diamonds) [bubbles-set-graphics-theme-squares] "Squares" bubbles-set-graphics-theme-squares (:radio eq bubbles-graphics-theme 'squares) [bubbles-set-graphics-theme-circles] "Circles" bubbles-set-graphics-theme-circles (:radio eq bubbles-graphics-theme 'circles)] 8) (#$ . 21418)) #@23 Map for bubbles menu. (defvar bubbles-menu (byte-code "\303\304!\305\306\307\310\311E#\210\305\312\307\313\314E#\210\305\315\316#\210\305\317\307\320\321E#\210\305\322\307\323\324E#\210\305\325\307\326 E#\210\305\327\307\330\n\331\332\257#\210\305\333\334#\210\305\335\307\336\337\331\340\257#\210)\207" [menu bubbles-game-theme-menu bubbles-graphics-theme-menu make-sparse-keymap "Bubbles" define-key [bubbles-quit] menu-item "Quit" bubbles-quit [bubbles] "New game" bubbles [bubbles-separator-1] ("--") [bubbles-save-settings] "Save all settings" bubbles-save-settings [bubbles-customize] "Edit all settings" bubbles-customize [bubbles-game-theme-menu] "Game Theme" [bubbles-graphics-theme-menu] "Graphics Theme" :enable bubbles--playing [bubbles-separator-2] ("--") [bubbles-undo] "Undo last move" bubbles-undo (and bubbles--playing (listp buffer-undo-list))] 8) (#$ . 22586)) #@23 Mode map for bubbles. (defvar bubbles-mode-map (byte-code "\302\303!\304\305\306#\210\304\307\310#\210\304\311\310#\210\304\312\310#\210\304\313\310#\210\304\314\310#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327 #\210\304\330\331 B#\210)\207" [map bubbles-menu make-sparse-keymap bubbles-mode-map define-key "q" bubbles-quit "\n" bubbles-plop " " [double-down-mouse-1] [mouse-2] " " "u" bubbles-undo "p" previous-line "n" next-line "f" forward-char "b" backward-char [down-mouse-3] [menu-bar Bubbles] "Bubbles"] 5) (#$ . 23485)) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list bubbles-mode-abbrev-table bubbles-mode-hook variable-documentation put "Hook run when entering Bubbles mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp bubbles-mode-map definition-name bubbles-mode default-boundp set-default make-sparse-keymap bubbles-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@140 Major mode for playing bubbles. \{bubbles-mode-map} This mode runs the hook `bubbles-mode-hook', as the final step during initialization. (defalias 'bubbles-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \307\315 \210\316 \210\317 \210\320\321\322\307\211$\210)\323\324!\207" [delay-mode-hooks major-mode mode-name bubbles-mode-map bubbles-mode-syntax-table bubbles-mode-abbrev-table make-local-variable t kill-all-local-variables bubbles-mode "Bubbles" use-local-map set-syntax-table buffer-disable-undo force-mode-line-update redisplay add-hook post-command-hook bubbles--mark-neighbourhood run-mode-hooks bubbles-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 24837) nil]) #@553 Play Bubbles game. \<bubbles-mode-map> The goal is to remove all bubbles with as few moves as possible. \[bubbles-plop] on a bubble removes that bubble and all connected bubbles of the same color. Unsupported bubbles fall down, and columns that do not contain any bubbles suck the columns on its right towards the left. \[bubbles-set-game-easy] sets the difficulty to easy. \[bubbles-set-game-medium] sets the difficulty to medium. \[bubbles-set-game-difficult] sets the difficulty to difficult. \[bubbles-set-game-hard] sets the difficulty to hard. (defalias 'bubbles #[nil "\302\303\304!!\210\203 \305\306!\205 \307\310\311 \207" [bubbles--playing bubbles--save-data switch-to-buffer get-buffer-create "*bubbles*" y-or-n-p "Start new game? " nil t bubbles--initialize] 3 (#$ . 25557) nil]) #@15 Quit Bubbles. (defalias 'bubbles-quit #[nil "\300\301!\210\302 \207" [message "bubbles-quit" bury-buffer] 2 (#$ . 26362) nil]) #@125 Update horizontal and vertical offsets for centering the bubbles grid. Set `bubbles--col-offset' and `bubbles--row-offset'. (defalias 'bubbles--compute-offsets #[nil "\306 \203\271 \203\271 \307=\204\271 \310\311!\203\271 \312\n@\313\"@\314\315\316\311 8\311 @ \316\\\317\f\320\"\2033 \202` \317\f\321\"\203? \202` \317\f\322\"\203K \202` \317\f\323\"\203W \202` \317\f\324\"\205` @_#\316\245]C!\314\315\325\311 8\311 A@ T\317\f\326\"\203\200 \202\255 \317\f\327\"\203\214 \202\255 \317\f\330\"\203\230 \202\255 \317\f\331\"\203\244 \202\255 \317\f\332\"\205\255 A_#\316\245]C\211\")\207\314\333 \317\f\320\"\203\307 \202\364 \317\f\321\"\203\323 \202\364 \317\f\322\"\203\337 \202\364 \317\f\323\"\203\353 \202\364 \317\f\324\"\205\364 @Z\316\245]!\314\315\334 \317\f\326\"\203\n \2027\317\f\327\"\203 \2027\317\f\330\"\203\" \2027\317\f\331\"\203. \2027\317\f\332\"\2057 A\316#\316\245]\211\"\207" [bubbles--images-ok bubbles-graphics-theme bubbles--images bubbles--image-size bubbles-game-theme bubbles--grid-small display-images-p ascii fboundp window-inside-pixel-edges image-size t 0 - 2 memql 'easy 'medium 'difficult 'hard 'user-defined 3 'easy 'medium 'difficult 'hard 'user-defined window-width window-height bubbles--grid-medium bubbles--grid-large bubbles--grid-huge bubbles-grid-size bubbles--col-offset bubbles--row-offset] 8 (#$ . 26496)]) #@22 Remove all overlays. (defalias 'bubbles--remove-overlays #[nil "\300\301!\205 \301 \207" [fboundp remove-overlays] 2 (#$ . 27905)]) #@26 Initialize Bubbles game. (defalias 'bubbles--initialize #[nil "\306 \210\307 \210\310 \210\311\312\313!!\210\314 \210\315\316\317!\210\320 \210\321c\210\322e`\323\315\324\325\326 DBF#\210\327c\210\330\n\331\"\203: \202e \330\n\332\"\203E \f\202e \330\n\333\"\203P \202e \330\n\334\"\203\\ 6\202e \330\n\335\"\205e 7G 8\330\n\336\"\203t 9\202\241 \330\n\337\"\203\200 :\202\241 \330\n\340\"\203\214 ;\202\241 \330\n\341\"\203\230 <\202\241 \330\n\342\"\205\241 =A\343 > ?>?W\203=` @\321c\210\322@`\323\315\324\325\344ADBF#\210)\330\n\345\"\203\322 9\202\377 \330\n\346\"\203\336 :\202\377 \330\n\347\"\203\352 ;\202\377 \330\n\350\"\203\366 <\202\377 \330\n\351\"\205\377 =@\343 B CBCW\2030\3528!\211 +D8\211 Ec\210\322`S`\353+D#\210*BT\211B\202*\327c\210>T\211>\202\251 *\354c\210\322`S`\323\315\324\325\344ADBF#\210)\355ed\356\357$\210)\360 \210\361 \210\362 \210\363\343\211\"\210\315F\364 \210\365 \207" [inhibit-read-only bubbles--row-offset bubbles-game-theme bubbles--colors-2 bubbles--colors-3 bubbles--colors-4 bubbles--initialize-faces bubbles--initialize-images bubbles--remove-overlays switch-to-buffer get-buffer-create "*bubbles*" bubbles--compute-offsets t set-buffer-modified-p nil erase-buffer " " add-text-properties intangible display space :height "\n" memql 'easy 'medium 'difficult 'hard 'user-defined 'easy 'medium 'difficult 'hard 'user-defined 0 :width 'easy 'medium 'difficult 'hard 'user-defined random index "\n " put-text-property pointer arrow bubbles-mode bubbles--reset-score bubbles--update-faces-or-images bubbles--goto force-mode-line-update redisplay bubbles--colors-5 bubbles-colors max-char bubbles--grid-small bubbles--grid-medium bubbles--grid-large bubbles--grid-huge bubbles-grid-size i #1=#:--cl-dotimes-temp-- p bubbles--col-offset j #2=#:--cl-dotimes-temp-- bubbles-chars char buffer-undo-list] 10 (#$ . 28044)]) #@38 Prepare faces for playing `bubbles'. (defalias 'bubbles--initialize-faces #[nil "\306\307\310\"\210\311\310\312\"\210\313 \205I \314\315\316\317\"\203 \202E \316\320\"\203' \n\202E \316\321\"\2032 \202E \316\322\"\203= \f\202E \316\323\"\205E \"\211\207" [bubbles-game-theme bubbles--colors-2 bubbles--colors-3 bubbles--colors-4 bubbles--colors-5 bubbles-colors copy-face default bubbles--highlight-face set-face-background "#8080f4" display-color-p mapcar #[(color) "\302\303\304\"!\305 !\204 \306\307 \"\210\310 \"\210 )\207" [color fname intern format "bubbles--face-%s" facep copy-face default set-face-foreground] 4] memql 'easy 'medium 'difficult 'hard 'user-defined bubbles--faces] 5 (#$ . 29941)]) #@26 Return row of point POS. (defalias 'bubbles--row #[(pos) "\212b\210\301 \210\302e`\"S)\207" [pos beginning-of-line count-lines] 3 (#$ . 30668)]) (put 'bubbles--row 'byte-optimizer 'byte-compile-inline-expand) #@29 Return column of point POS. (defalias 'bubbles--col #[(pos) "\212b\210iS)\207" [pos] 1 (#$ . 30884)]) (put 'bubbles--col 'byte-optimizer 'byte-compile-inline-expand) #@50 Move point to bubble at coordinates ROW and COL. (defalias 'bubbles--goto #[(row col) "\306W\206\201 \306W\206\201 \307\n\310\"\203 \202C \307\n\311\"\203# \f\202C \307\n\312\"\203. \202C \307\n\313\"\203: \202C \307\n\314\"\205C AY\206\201 \307\n\315\"\203T \202 \307\n\316\"\203_ \f\202 \307\n\317\"\203j \202 \307\n\320\"\203v \202 \307\n\321\"\205 @Y?\205\221 eb\210Ty\210 Tu\210`\207" [row col bubbles-game-theme bubbles--grid-small bubbles--grid-medium bubbles--grid-large 0 memql 'easy 'medium 'difficult 'hard 'user-defined 'easy 'medium 'difficult 'hard 'user-defined bubbles--grid-huge bubbles-grid-size] 4 (#$ . 31057)]) #@41 Return character at bubble ROW and COL. (defalias 'bubbles--char-at #[(row col) "\212\302 \"\205\n `f)\207" [row col bubbles--goto] 3 (#$ . 31718)]) #@60 Mark direct neighbors of bubble at ROW COL with same CHAR. (defalias 'bubbles--mark-direct-neighbours #[(row col char) "\212\304\305 \n\"\203; `f=\203; \306`\307\"\204; \310``T\311#\210\312\313\314 \nT #\314 \nS #\314 T\n #\314 S\n #%*\207" [count row col char 0 bubbles--goto get-text-property active add-text-properties (active t face 'bubbles--highlight-face) + 1 bubbles--mark-direct-neighbours] 9 (#$ . 31874)]) #@83 Mark neighborhood of point. Use optional parameter POS instead of point if given. (defalias 'bubbles--mark-neighbourhood #[(&optional pos) "\205 \204\n `\302\303\304\217\207" [bubbles--playing pos err (byte-code "f\306`\212b\210\307 \210\310e`\"S*`\212b\210iS* \311ed\312#\210\313 \n\203I \203I \f\314=\204I \315\n \f#\211\316V\204I \311ed\317#\210\313\320 !\210)\321ed\322\323$\210\324 \210\325\313!,\207" [pos col row inhibit-read-only char count t beginning-of-line count-lines add-text-properties (face default active nil) 0 32 bubbles--mark-direct-neighbours 1 (face default active nil) bubbles--update-neighbourhood-score put-text-property pointer arrow bubbles--update-faces-or-images sit-for] 6) ((error (message "Bubbles: Internal error %s" err)))] 3 (#$ . 32301)]) #@54 Return t if another valid neighborhood is available. (defalias 'bubbles--neighbourhood-available #[nil "\300\301\215\207" [found (byte-code "\212\306\307\"\203\f \2025 \306\310\"\203 \n\2025 \306\311\"\203\" \2025 \306\312\"\203- \f\2025 \306\313\"\2055 A\314 W\203\306 \306\315\"\203N \202w \306\316\"\203Y \n\202w \306\317\"\203d \202w \306\320\"\203o \f\202w \306\321\"\205w @\314 W\203\274 \322\"\211 \323=\204\262 \322T\"=\204\255 \322T\"=\203\262 \324\325\326\"\210)T\211\202 *T\211\202= +\327\207" [bubbles-game-theme bubbles--grid-small bubbles--grid-medium bubbles--grid-large bubbles--grid-huge bubbles-grid-size memql 'easy 'medium 'difficult 'hard 'user-defined 0 'easy 'medium 'difficult 'hard 'user-defined bubbles--char-at 32 throw found t nil i #1=#:--cl-dotimes-temp-- j #2=#:--cl-dotimes-temp-- c] 6)] 2 (#$ . 33097)]) #@26 Count remaining bubbles. (defalias 'bubbles--count #[nil "\306\212\307 \310\"\203 \n\2028 \307 \311\"\203 \2028 \307 \312\"\203$ \f\2028 \307 \313\"\203/ \2028 \307 \314\"\2058 A\306 W\203\256 \307 \315\"\203Q \n\202{ \307 \316\"\203\\ \202{ \307 \317\"\203g \f\202{ \307 \320\"\203r \202{ \307 \321\"\205{ @\306 W\203\244 \322\"\211 \323=\204\232 T)T\211\202\203 *T\211\202@ +)\207" [count bubbles-game-theme bubbles--grid-small bubbles--grid-medium bubbles--grid-large bubbles--grid-huge 0 memql 'easy 'medium 'difficult 'hard 'user-defined 'easy 'medium 'difficult 'hard 'user-defined bubbles--char-at 32 bubbles-grid-size i #1=#:--cl-dotimes-temp-- j #2=#:--cl-dotimes-temp-- c] 5 (#$ . 33997)]) #@22 Reset bubbles score. (defalias 'bubbles--reset-score #[nil "\302\211\303 \207" [bubbles--neighbourhood-score bubbles--score 0 bubbles--update-score] 2 (#$ . 34744)]) #@42 Calculate and display new bubbles score. (defalias 'bubbles--update-score #[nil " \\\302 \207" [bubbles--score bubbles--neighbourhood-score bubbles--show-scores] 2 (#$ . 34918)]) #@67 Calculate and display score of active neighborhood from its SIZE. (defalias 'bubbles--update-neighbourhood-score #[(size) "\302V\203 \303S\304\"\202 \305\306 \207" [size bubbles--neighbourhood-score 1 expt 2 0 bubbles--show-scores] 3 (#$ . 35105)]) #@25 Display current scores. (defalias 'bubbles--show-scores #[nil "\212\305e\306\"\206 db\210\307``d|\210\310\311\n\"c\210\312c\210\313`S`\314\307\315\316\317 DBF#\210\310\320\f\"c\210\321`\306\307$+\207" [pos inhibit-read-only bubbles--neighbourhood-score bubbles--col-offset bubbles--score next-single-property-change status t format "Selected: %4d\n" " " add-text-properties intangible display space :width "Score: %4d" put-text-property] 9 (#$ . 35366)]) #@22 Finish bubbles game. (defalias 'bubbles--game-over #[nil "\306 \210\307\211\310 \311U\203\205 \n\312 \313\"\203 \f\202F \312 \314\"\203% \202F \312 \315\"\2031 .\202F \312 \316\"\203= /\202F \312 \317\"\205F 0A\312 \320\"\203R \f\202~ \312 \321\"\203] \202~ \312 \322\"\203i .\202~ \312 \323\"\203u /\202~ \312 \324\"\205~ 0@_\\\325 \210db\210\326 1\327c\210\330`S`\331\326\332\333\3342DBF#\210\335c\210)\336\337\340\341\312 \342\"\203\261 \343\202\333 \312 \344\"\203\274 \343\202\333 \312 \345\"\203\307 \346\202\333 \312 \347\"\203\322 \346\202\333 \312 \350\"\205\333 3!\312 \351\"\203\350 4\202\312 \352\"\203\364 5\202\312 \353\"\203 6\202\312 \354\"\203\f7\202\312 \355\"\2058G\312 \320\"\203!\f\202M\312 \321\"\203, \202M\312 \322\"\2038.\202M\312 \323\"\203D/\202M\312 \324\"\205M0@\312 \313\"\203Y\f\202\205\312 \314\"\203d \202\205\312 \315\"\203p.\202\205\312 \316\"\203|/\202\205\312 \317\"\205\2050A%\n\"\207" [bubbles--playing bubbles--save-data bubbles--score bubbles-game-theme bubbles--grid-small bubbles--grid-medium bubbles--update-faces-or-images nil bubbles--count 0 memql 'easy 'medium 'difficult 'hard 'user-defined 'easy 'medium 'difficult 'hard 'user-defined bubbles--show-scores t "\n " add-text-properties intangible display space :width "Game Over!" gamegrid-add-score format "bubbles-%s-%d-%d-%d-scores" symbol-name 'easy default 'medium 'difficult always 'hard 'user-defined 'easy 'medium 'difficult 'hard 'user-defined bubbles--grid-large bubbles--grid-huge bubbles-grid-size inhibit-read-only bubbles--col-offset bubbles-shift-mode bubbles--colors-2 bubbles--colors-3 bubbles--colors-4 bubbles--colors-5 bubbles-colors] 10 (#$ . 35834)]) #@31 Remove active bubbles region. (defalias 'bubbles-plop #[nil "\205 \306V\205 \n\307 D\310 ` \212 b\210\311 \210\312e`\"S*` \212 b\210iS* < =db\210o\204S \313u\210\314`\315\"\2030 \316\317!\210\320c\210\321`S`\322\310\323\313F#\210\2027 \324=<\"\210*\325 \210\326 \210\327\306!\210\330\331!\210\332 \210\333 >\212\334?\335\"\203} @\202\256 \334?\336\"\203\212 A\202\256 \334?\337\"\203\227 B\202\256 \334?\340\"\203\244 C\202\256 \334?\341\"\205\256 DA\306 E FEFW\203:\334?\342\"\203\311 @\202\372 \334?\343\"\203\326 A\202\372 \334?\344\"\203\343 B\202\372 \334?\345\"\203\360 C\202\372 \334?\346\"\205\372 D@\306 G HGHW\2030\324EG\"\210\314`\322\"\203'\347\350EG#\206\">>\202GT\211G\202*ET\211E\202\266 +\326 \210>\203G\327\306!\210)\332 \210\351ed\322\333$\210\212eb\210\352\353\320\" I\354I\333\310#\203p\351`S`\322\310$\210\202\\*\333 J\334?\355\"\203\200\356\202\256\334?\357\"\203\214\356\202\256\334?\360\"\203\230\361\202\256\334?\362\"\203\244\361\202\256\334?\363\"\205\256K\361=\203\211\212\334?\335\"\203\301@\202\362\334?\336\"\203\316A\202\362\334?\337\"\203\333B\202\362\334?\340\"\203\350C\202\362\334?\341\"\205\362DA\306 E LELW\203~\334?\342\"\203 @\202>\334?\343\"\203A\202>\334?\344\"\203'B\202>\334?\345\"\2034C\202>\334?\346\"\205>D@\306 G MGMW\203t\324EG\"\210\314`\322\"\203k\347\364EG#\206fJJ\202SGT\211G\202F*ET\211E\202\372+\326 \210\330\365!\210\202\367\212\334?\342\"\203\227@\202\310\334?\343\"\203\244A\202\310\334?\344\"\203\261B\202\310\334?\345\"\203\276C\202\310\334?\346\"\205\310D@\306 G NGNW\203\366\324\334?\335\"\203\344@\202\334?\336\"\203\361A\202\334?\337\"\203\376B\202\334?\340\"\203 C\202\334?\341\"\205DASG\"\210\306 O\314`\322\"\203sOTO\347\364\334?\335\"\2039@\202j\334?\336\"\203FA\202j\334?\337\"\203SB\202j\334?\340\"\203`C\202j\334?\341\"\205jDASG#\210\202 O\306 P QPQW\203\354\334?\335\"\203\217@\202\300\334?\336\"\203\234A\202\300\334?\337\"\203\251B\202\300\334?\340\"\203\266C\202\300\334?\341\"\205\300DA\366Z\211 E\306Y\203\342\347\364EG#\206\327JJES\211E\202\306)PT\211P\202|+GT\211G\202\320+J\203\326 \210\327\306!\210)\351ed\322\333$\210\367 \204\370 \210)\371R\372 \210\373 \207" [bubbles--playing bubbles--neighbourhood-score bubbles--score bubbles--save-data inhibit-read-only pos 0 buffer-string t beginning-of-line count-lines -1 get-text-property active delete-char 1 32 add-text-properties removed index bubbles--goto bubbles--update-score bubbles--update-faces-or-images sit-for sleep-for 0.2 discard-input nil memql 'easy 'medium 'difficult 'hard 'user-defined 'easy 'medium 'difficult 'hard 'user-defined bubbles--shift top put-text-property format "%c" search-forward 'easy default 'medium 'difficult always 'hard 'user-defined right 0.5 2 bubbles--neighbourhood-available bubbles--game-over ((apply bubbles-undo)) force-mode-line-update redisplay col row something-dropped bubbles-game-theme bubbles--grid-small bubbles--grid-medium bubbles--grid-large bubbles--grid-huge bubbles-grid-size i #1=#:--cl-dotimes-temp-- j #2=#:--cl-dotimes-temp-- removed-string shifted bubbles-shift-mode #3=#:--cl-dotimes-temp-- #4=#:--cl-dotimes-temp-- #5=#:--cl-dotimes-temp-- shifted-cols k #6=#:--cl-dotimes-temp-- buffer-undo-list] 7 (#$ . 37566) nil]) #@17 Undo last move. (defalias 'bubbles-undo #[nil "\205$ \306`\307 \210\211A@)c\210\310 \210@ b\210*\306\311 \210\312 \207" [bubbles--save-data pos inhibit-read-only x bubbles--score buffer-undo-list t erase-buffer bubbles--update-faces-or-images force-mode-line-update redisplay] 3 (#$ . 41032) nil]) #@84 Move bubbles FROM one side to position ROW COL. Return t if new char is non-empty. (defalias 'bubbles--shift #[(from row col) "\212\306 \"\205s `f\307\310 \311 \312=\203$ S\202; \313=\2031 S\202; \314=\203; T\212\306\f \"\203X `f\315`\305\"\315`\302\"\316\f #\210)c\210\317\320!\210\321`S`\302\n\305 F#\210.\307=?)\207" [row col index tcol trow removed bubbles--goto 32 nil -1 top left right get-text-property bubbles--shift delete-char 1 add-text-properties char-new char-org from] 7 (#$ . 41344)]) #@39 Prepare images for playing `bubbles'. (defalias 'bubbles--initialize-images #[nil "\306 \205\235 \307=?\205\235 \310\311\"\203 \202@ \310\312\"\203\" \n\202@ \310\313\"\203- \202@ \310\314\"\2038 \f\202@ \310\315\"\205@ \316\317\320\321 #\322\323\324\325% \326\327\310!\330\"\203_ \"\202\220 \310!\331\"\203l #\202\220 \310!\332\"\203y $\202\220 \310!\333\"\203\206 %\202\220 \310!\334\"\205\220 &\"') (\335\336'\"\207" [bubbles-graphics-theme bubbles--image-template-circle bubbles--image-template-ball bubbles--image-template-square bubbles--image-template-diamond bubbles--image-template-emacs display-images-p ascii memql 'circles 'balls 'squares 'diamonds 'emacs create-image replace-regexp-in-string "^\"\\(.*\\) .*c .*\",$" "\"\\1 c None\"," xpm t :margin (2 . 1) mapcar #[(color) "\306!\211@ A@\307 8 \310\311! r q\210\312\216 c\210eb\210\313\314\315\316#\210eb\210\313\317\315\316#\203\220 \306\320\307!!\211 !@ \"!A@ #\307!8 $\321\322\"#$#\323\324# %\325%&\307\245_! '\n'_ ( '_ )\f'_ *\326\327(\330\245)\330\245*\330\245$\331\326\332\226\"!\210.\n\202) \333\334 \335\316\336\337%.\207" [color rgb red green blue #1=#:temp-buffer color-values 2 generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) re-search-forward "^\"[0-9]+ [0-9]+ \\(.*?\\) .*\",$" nil t "^\"\\(.*\\) .*c \\(#.*\\)\",$" match-string / + 3.0 65536 sin format "#%02x%02x%02x" 256 replace-match "\"\\1 c %s\"," create-image buffer-string xpm :margin (2 . 1) template crgb r g b brightness pi val rr gg bb] 7] 'easy 'medium 'difficult 'hard 'user-defined mapc #[(elt) "\205 \211\207" [bubbles--images-ok elt] 2] template bubbles--empty-image bubbles-game-theme bubbles--colors-2 bubbles--colors-3 bubbles--colors-4 bubbles--colors-5 bubbles-colors bubbles--images bubbles--images-ok] 6 (#$ . 41882)]) #@57 Update faces and/or images, depending on graphics mode. (defalias 'bubbles--update-faces-or-images #[nil "\300 \210\301 \207" [bubbles--set-faces bubbles--show-images] 1 (#$ . 43774)]) #@37 Update faces in the bubbles buffer. (defalias 'bubbles--set-faces #[nil "\306 \205 \205 \307=??\205\352 \310 \205\352 \212\311\312 \313\"\203$ \f\202P \312 \314\"\203/ \202P \312 \315\"\203; !\202P \312 \316\"\203G \"\202P \312 \317\"\205P #A\320 $ %$%W\203\350 \312 \321\"\203i \f\202\225 \312 \322\"\203t \202\225 \312 \323\"\203\200 !\202\225 \312 \324\"\203\214 \"\202\225 \312 \325\"\205\225 #@\320 & '&'W\203\336 \326$&\"\210\327`\330\"\211 (8 \331 ! )\327`\332\"\203\313 \333\334\335\"\210\334 \336``T\337 $\210+&T\211&\202\235 *$T\211$\202X ,\340\207" [bubbles--images-ok bubbles-graphics-theme inhibit-read-only bubbles-game-theme bubbles--grid-small bubbles--grid-medium display-images-p ascii display-color-p t memql 'easy 'medium 'difficult 'hard 'user-defined 0 'easy 'medium 'difficult 'hard 'user-defined bubbles--goto get-text-property index face-foreground active set-face-foreground bubbles--highlight-face "#ff0000" put-text-property face nil bubbles--grid-large bubbles--grid-huge bubbles-grid-size i #1=#:--cl-dotimes-temp-- j #2=#:--cl-dotimes-temp-- bubbles--faces fg-col] 7 (#$ . 43965)]) #@38 Update images in the bubbles buffer. (defalias 'bubbles--show-images #[nil "\306 \210\307 \203\355 \203\355 \310=\204\355 \212eb\210\311y\210\312\313\314\f\315\"\203( \202U \314\f\316\"\2034 \202U \314\f\317\"\203@ !\202U \314\f\320\"\203L \"\202U \314\f\321\"\205U #A\322 $ %$%W\203\352 \314\f\323\"\203n \202\233 \314\f\324\"\203z \202\233 \314\f\325\"\203\206 !\202\233 \314\f\326\"\203\222 \"\202\233 \314\f\327\"\205\233 #@\322 & '&'W\203\335 \311u\210\330`\331\"\206\264 \332 ( )\322Y\203\310 *8)\333``T\334)\313B$\210*&T\211&\202\243 *\311y\210$T\211$\202] -\313\207\212\312eb\210m\204%\330`\334\"\211 +<\203 +@<\203 +\211 ,@@)\335=\203 \333``T\334\313$\210\311u\210)\202\363 \333ed\336\337$*\207" [bubbles--images-ok bubbles-graphics-theme char inhibit-read-only bubbles-game-theme bubbles--grid-small bubbles--remove-overlays display-images-p ascii 1 t nil memql 'easy 'medium 'difficult 'hard 'user-defined 0 'easy 'medium 'difficult 'hard 'user-defined get-text-property index -1 put-text-property display image pointer arrow bubbles--grid-medium bubbles--grid-large bubbles--grid-huge bubbles-grid-size i #1=#:--cl-dotimes-temp-- j #2=#:--cl-dotimes-temp-- bubbles--empty-image img bubbles--images disp-prop x] 9 (#$ . 45113)]) (provide 'bubbles)
Close
