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 : 5x5.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/5x5.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 "`5x5.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group '5x5 nil "5x5 - Silly little puzzle game." :group 'games :prefix "5x5-") #@28 *Size of the playing area. (custom-declare-variable '5x5-grid-size '5 '(#$ . -697) :type 'integer :group '5x5) #@41 *X scaling factor for drawing the grid. (custom-declare-variable '5x5-x-scale '4 '(#$ . -814) :type 'integer :group '5x5) #@41 *Y scaling factor for drawing the grid. (custom-declare-variable '5x5-y-scale '3 '(#$ . -942) :type 'integer :group '5x5) #@52 *Delay in seconds when animating a solution crack. (custom-declare-variable '5x5-animate-delay '0.01 '(#$ . -1070) :type 'number :group '5x5) #@66 *Should 5x5 ask you when you want to do a destructive operation? (custom-declare-variable '5x5-hassle-me 't '(#$ . -1218) :type 'boolean :group '5x5) #@28 *Hook run on starting 5x5. (custom-declare-variable '5x5-mode-hook 'nil '(#$ . -1374) :type 'hook :group '5x5) #@20 5x5 grid contents. (defvar 5x5-grid nil (#$ . 1491)) #@23 X position of cursor. (defvar 5x5-x-pos 2 (#$ . 1550)) #@23 Y position of cursor. (defvar 5x5-y-pos 2 (#$ . 1611)) #@13 Moves made. (defvar 5x5-moves 0 (#$ . 1672)) #@26 Are we in cracking mode? (defvar 5x5-cracking nil (#$ . 1723)) #@30 Name of the 5x5 play buffer. (defvar 5x5-buffer-name "*5x5*" (#$ . 1792)) #@32 Local keymap for the 5x5 game. (defvar 5x5-mode-map nil (#$ . 1872)) (byte-code "\204\245 \302 \303 \304\"\210\305 \306\307#\210\305 \310\311#\210\305 \312\311#\210\305 \313\314#\210\305 \315\316#\210\305 \317\320#\210\305 \321\322#\210\305 \323\322#\210\305 \324\325#\210\305 \326\327#\210\305 \330\314#\210\305 \331\316#\210\305 \332\320#\210\305 \333\322#\210\305 \334\325#\210\305 \335\327#\210\305 \336\337#\210\305 \340\341#\210\305 \342\343#\210\305 \344\345#\210\305 \346\347#\210\305 \350\351#\210\305 \352\353#\210\305 \354\355#\210\305 \356\357#\210 )\302\207" [5x5-mode-map map make-sparse-keymap suppress-keymap t define-key "?" describe-mode " " 5x5-flip-current " " [up] 5x5-up [down] 5x5-down [left] 5x5-left [tab] 5x5-right [right] [(control a)] 5x5-bol [(control e)] 5x5-eol [(control p)] [(control n)] [(control b)] [(control f)] [home] [end] [prior] 5x5-first [next] 5x5-last "r" 5x5-randomize [(control c) (control r)] 5x5-crack-randomly [(control c) (control c)] 5x5-crack-mutating-current [(control c) (control b)] 5x5-crack-mutating-best [(control c) (control x)] 5x5-crack-xor-mutate "n" 5x5-new-game "q" 5x5-quit-game] 4) #@11 5x5 menu. (defvar 5x5-mode-menu nil (#$ . 3029)) (byte-code "\301\302\303\304$\210\305\306\307\310#\207" [5x5-mode-map easy-menu-do-define 5x5-mode-menu "5x5 menu." ("5x5" ["New game" 5x5-new-game t] ["Random game" 5x5-randomize t] ["Quit game" 5x5-quit-game t] "---" ["Crack randomly" 5x5-crack-randomly t] ["Crack mutating current" 5x5-crack-mutating-current t] ["Crack mutating best" 5x5-crack-mutating-best t] ["Crack with xor mutate" 5x5-crack-xor-mutate t]) put 5x5-mode mode-class special] 5) #@80 A mode for playing `5x5'. The key bindings for 5x5-mode are: \{5x5-mode-map} (defalias '5x5-mode #[nil "\305 \210\306!\210\307\310\311\312!\210\313\211\314 \207" [5x5-mode-map major-mode mode-name buffer-read-only truncate-lines kill-all-local-variables use-local-map 5x5-mode "5x5" run-mode-hooks 5x5-mode-hook t buffer-disable-undo] 3 (#$ . 3536)]) #@693 Play 5x5. The object of 5x5 is very simple, by moving around the grid and flipping squares you must fill the grid. 5x5 keyboard bindings are: \<5x5-mode-map> Flip \[5x5-flip-current] Move up \[5x5-up] Move down \[5x5-down] Move left \[5x5-left] Move right \[5x5-right] Start new game \[5x5-new-game] New game with random grid \[5x5-randomize] Random cracker \[5x5-crack-randomly] Mutate current cracker \[5x5-crack-mutating-current] Mutate best cracker \[5x5-crack-mutating-best] Mutate xor cracker \[5x5-crack-xor-mutate] Quit current game \[5x5-quit-game] (defalias '5x5 #[(&optional size) "\305 \203 \306 !\210\f\203 \n\f\307HGU\204 \310 \210\311\fC!\210\312 \210\313 \207" [5x5-cracking size 5x5-grid-size 5x5-buffer-name 5x5-grid nil switch-to-buffer 0 5x5-new-game 5x5-draw-grid 5x5-position-cursor 5x5-mode] 3 (#$ . 3901) "P"]) #@28 Start a new game of `5x5'. (defalias '5x5-new-game #[nil "t\203\n \305\306!\202 \307\205& \310\245\310\245\311\312\313 \n #\314\fC!\210\315 \207" [5x5-grid-size 5x5-x-pos 5x5-y-pos 5x5-moves 5x5-grid 5x5-y-or-n-p "Start a new game? " t 2 0 5x5-make-move 5x5-make-new-grid 5x5-draw-grid 5x5-position-cursor] 4 (#$ . 4882) nil]) #@33 Quit the current game of `5x5'. (defalias '5x5-quit-game #[nil "\301!\207" [5x5-buffer-name kill-buffer] 2 (#$ . 5222) nil]) #@47 Create and return a new `5x5' grid structure. (defalias '5x5-make-new-grid #[nil "\304\305\"\306S\n X\203 \n\304\305\"I\210\nT\211\202 * )\207" [5x5-grid-size grid y #1=#:--cl-var-- make-vector nil 0] 6 (#$ . 5354)]) #@55 Return the value of the cell in GRID at location X,Y. (defalias '5x5-cell #[(grid y x) " H\nH\207" [grid y x] 2 (#$ . 5587)]) #@45 Set the value of cell X,Y in GRID to VALUE. (defalias '5x5-set-cell #[(grid y x value) " H\n I\207" [grid y x value] 3 (#$ . 5720)]) #@37 Flip the value of cell X,Y in GRID. (defalias '5x5-flip-cell #[(grid y x) "\303 \n\304 \n#?$\207" [grid y x 5x5-set-cell 5x5-cell] 8 (#$ . 5860)]) #@26 Make a new copy of GRID. (defalias '5x5-copy-grid #[(grid) "\306 \307\nS X\2034 \307 \nS \f X\203, \310 \f\311\n \f#$\210\fT\211\202 * T\211\202 *)\207" [copy y 5x5-grid-size #1=#:--cl-var-- x #2=#:--cl-var-- 5x5-make-new-grid 0 5x5-set-cell 5x5-cell grid] 10 (#$ . 6015)]) #@48 Make a move on GRID at row ROW and column COL. (defalias '5x5-make-move #[(grid row col) "\304 \n#\210 \305V\203 \304 S\n#\210 SW\203! \304 T\n#\210\n\305V\203. \304 \nS#\210\n SW\203< \304 \nT#\210\207" [grid row col 5x5-grid-size 5x5-flip-cell 0] 4 (#$ . 6306)]) #@38 Get the "on-value" for grid row ROW. (defalias '5x5-row-value #[(row) "\305 S\305\nX\203\" \fH\203 \306\202 \305\\T\211\202 +\207" [y 5x5-grid-size #1=#:--cl-var-- #2=#:--cl-var-- row 0 1] 4 (#$ . 6585)]) #@35 Get the "on-value" for grid GRID. (defalias '5x5-grid-value #[(grid) "\305 S\305\nX\203 \306\fH!\\T\211\202 +\207" [y 5x5-grid-size #1=#:--cl-var-- #2=#:--cl-var-- grid 0 5x5-row-value] 5 (#$ . 6809)]) #@34 Draw the top/bottom of the grid. (defalias '5x5-draw-grid-end #[nil "\304c\210\305 S\nX\203 \306\307 \310\"\261\210T\211\202 *\311c\207" [x 5x5-grid-size #1=#:--cl-var-- 5x5-x-scale "+" 0 "-" make-string 45 "-+ "] 5 (#$ . 7029)]) #@47 Draw the grids GRIDS into the current buffer. (defalias '5x5-draw-grid #[(grids) "\306\307 \210 \306\n:\203 \n@\310 \210\nA\211\202\n *\311c\210\312 S \fX\203\246 \312 S X\203\236 \306:\203\221 @\312 S X\203\204 \313!\203e \314\202f \315\316 \317 \f#\203v \320\202w \321\"\261\210T\211\202T *\322c\210A\211\202C *\311c\210T\211\2026 *\fT\211\202& * \306 :\203\302 @\310 \210 A\211 \202\256 *\311c\210\323\324\325 @! #c)\207" [buffer-read-only grids #1=#:--cl-var-- grid y 5x5-grid-size nil erase-buffer 5x5-draw-grid-end "\n" 0 zerop "| " " " make-string 5x5-cell 35 46 " | " format "On: %d Moves: %d" 5x5-grid-value #2=#:--cl-var-- lines 5x5-y-scale #3=#:--cl-var-- #4=#:--cl-var-- x #5=#:--cl-var-- 5x5-x-scale #6=#:--cl-var-- 5x5-moves] 11 (#$ . 7273)]) #@34 Position the cursor on the grid. (defalias '5x5-position-cursor #[nil "\304 _\305\\!\210\306`\n _\nT\307$b\207" [5x5-y-pos 5x5-y-scale 5x5-x-pos 5x5-x-scale goto-line 2 + 1] 5 (#$ . 8100)]) #@46 Keep track of how many moves have been made. (defalias '5x5-made-move #[nil "T\211\207" [5x5-moves] 2 (#$ . 8297)]) #@21 Make a random grid. (defalias '5x5-make-random-grid #[nil "\306 \307\nS X\2036 \307 \nS \f X\203. \310\311\312!!\203' \313 \f#\210\fT\211\202 * T\211\202 *)\207" [grid y 5x5-grid-size #1=#:--cl-var-- x #2=#:--cl-var-- 5x5-make-new-grid 0 zerop random 2 5x5-flip-cell] 6 (#$ . 8421)]) #@46 Attempt to crack 5x5 using random solutions. (defalias '5x5-crack-randomly #[nil "\300\301!\207" [5x5-crack 5x5-make-random-solution] 2 (#$ . 8721) nil]) #@56 Attempt to crack 5x5 by mutating the current solution. (defalias '5x5-crack-mutating-current #[nil "\300\301!\207" [5x5-crack 5x5-make-mutate-current] 2 (#$ . 8881) nil]) #@53 Attempt to crack 5x5 by mutating the best solution. (defalias '5x5-crack-mutating-best #[nil "\300\301!\207" [5x5-crack 5x5-make-mutate-best] 2 (#$ . 9058) nil]) #@82 Attempt to crack 5x5 by xoring the current and best solution. Mutate the result. (defalias '5x5-crack-xor-mutate #[nil "\300\301!\207" [5x5-crack 5x5-make-xor-with-mutation] 2 (#$ . 9226) nil]) #@319 Attempt to find a solution for 5x5. 5x5-crack takes the argument BREEDER which should be a function that takes two parameters, the first will be a grid vector array that is the current solution and the second will be the best solution so far. The function should return a grid vector array that is the new solution. (defalias '5x5-crack #[(breeder) "\306 \210\307\310 \211\311 \311 \211_ \312 !W\203C \313 \204C \314\n \"\312\f!\312 !V\2036 \n\f\315\n!\315 !\"\202 -\316\211\207" [5x5-cracking best-solution current-solution best-result current-result 5x5-grid-size 5x5 t 5x5-make-random-grid 5x5-make-new-grid 5x5-grid-value input-pending-p 5x5-play-solution 5x5-copy-grid nil target breeder] 5 (#$ . 9427) "aBreeder function: "]) #@25 Make a random solution. (defalias '5x5-make-random-solution #[(&rest ignore) "\300 \207" [5x5-make-random-grid] 1 (#$ . 10184)]) #@30 Mutate the current solution. (defalias '5x5-make-mutate-current #[(current best) "\301!\207" [current 5x5-mutate-solution] 2 (#$ . 10319)]) #@27 Mutate the best solution. (defalias '5x5-make-mutate-best #[(current best) "\301!\207" [best 5x5-mutate-solution] 2 (#$ . 10466)]) #@55 Xor current and best solution then mutate the result. (defalias '5x5-make-xor-with-mutation #[(current best) "\306 \307\nS X\203< \307 \nS \f X\2034 \310 \f\311\312\f \f#\312 \f#\"$\210\fT\211\202 * T\211\202 *\313!)\207" [xored y 5x5-grid-size #1=#:--cl-var-- x #2=#:--cl-var-- 5x5-make-new-grid 0 5x5-set-cell 5x5-xor 5x5-cell 5x5-mutate-solution current best] 12 (#$ . 10604)]) #@37 Randomly flip bits in the solution. (defalias '5x5-mutate-solution #[(solution) "\306 S\nX\203= \306 S \fX\2035 \307 \211_\310\245! \211_\310\245\310\245U\203. \311 #\210 T\211\202 *T\211\202 * \207" [y 5x5-grid-size #1=#:--cl-var-- x #2=#:--cl-var-- solution 0 random 2 5x5-flip-cell] 6 (#$ . 11004)]) #@114 Play a solution on an empty grid. This destroys the current game in progress because it is an animated attempt. (defalias '5x5-play-solution #[(solution best) "\306 \210\307\310\nS X\203N \310 \nS \f X\203F \f\311 \f#\203- \312 \210\313E!\210\314 \210\315!\210\fT\211\202 * T\211\202 +\207" [inhibit-quit y 5x5-grid-size #1=#:--cl-var-- x #2=#:--cl-var-- 5x5-new-game t 0 5x5-cell 5x5-flip-current 5x5-draw-grid 5x5-position-cursor sit-for 5x5-y-pos 5x5-x-pos solution 5x5-grid best 5x5-animate-delay] 6 (#$ . 11326)]) #@45 Make a move on the current cursor location. (defalias '5x5-flip-current #[nil "\305 \n#\306 \210 \204 \307C!\210\310 \210\311!\f\211_U\205% \312 \210\313\314!\207" [5x5-grid 5x5-y-pos 5x5-x-pos 5x5-cracking 5x5-grid-size 5x5-make-move 5x5-made-move 5x5-draw-grid 5x5-position-cursor 5x5-grid-value beep message "You win!"] 4 (#$ . 11877) nil]) #@10 Move up. (defalias '5x5-up #[nil "\301!?\205\f S\302 \207" [5x5-y-pos zerop 5x5-position-cursor] 2 (#$ . 12232) nil]) #@12 Move down. (defalias '5x5-down #[nil " SU?\205 T\302 \207" [5x5-y-pos 5x5-grid-size 5x5-position-cursor] 2 (#$ . 12359) nil]) #@12 Move left. (defalias '5x5-left #[nil "\301!?\205\f S\302 \207" [5x5-x-pos zerop 5x5-position-cursor] 2 (#$ . 12495) nil]) #@13 Move right. (defalias '5x5-right #[nil " SU?\205 T\302 \207" [5x5-x-pos 5x5-grid-size 5x5-position-cursor] 2 (#$ . 12626) nil]) #@28 Move to beginning of line. (defalias '5x5-bol #[nil "\301\302 \207" [5x5-x-pos 0 5x5-position-cursor] 1 (#$ . 12764) nil]) #@22 Move to end of line. (defalias '5x5-eol #[nil "S\302 \207" [5x5-grid-size 5x5-x-pos 5x5-position-cursor] 1 (#$ . 12894) nil]) #@25 Move to the first cell. (defalias '5x5-first #[nil "\302\211\303 \207" [5x5-x-pos 5x5-y-pos 0 5x5-position-cursor] 2 (#$ . 13028) nil]) #@24 Move to the last cell. (defalias '5x5-last #[nil "SS\303 \207" [5x5-grid-size 5x5-x-pos 5x5-y-pos 5x5-position-cursor] 1 (#$ . 13172) nil]) #@21 Randomize the grid. (defalias '5x5-randomize #[nil "\306\307!\205 \310\245\310\245\311\312 \204 \313\fC!\210\314 \207" [5x5-grid-size 5x5-x-pos 5x5-y-pos 5x5-moves 5x5-grid 5x5-cracking 5x5-y-or-n-p "Start a new game with a random grid? " 2 0 5x5-make-random-grid 5x5-draw-grid 5x5-position-cursor] 2 (#$ . 13322) nil]) #@34 Boolean exclusive-or of X and Y. (defalias '5x5-xor #[(x y) "\204 \205 \205 ?\207" [x y] 1 (#$ . 13657)]) #@72 5x5 wrapper for `y-or-n-p' which respects the `5x5-hassle-me' setting. (defalias '5x5-y-or-n-p #[(prompt) "\203 \302 !\207\303\207" [5x5-hassle-me prompt y-or-n-p t] 2 (#$ . 13776)]) (byte-code "\300\301!\210\302\303!\207" [random t provide 5x5] 2)
Close
