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 : pong.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:59 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/pong.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 "`pong.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require gamegrid custom-declare-group pong nil "Emacs-Lisp implementation of the classical game pong." :tag "Pong" :group games] 8) #@35 *Name of the buffer used to play. (custom-declare-variable 'pong-buffer-name '"*Pong*" '(#$ . -802) :group 'pong :type '(string)) #@26 *Width of the playfield. (custom-declare-variable 'pong-width '50 '(#$ . -938) :group 'pong :type '(integer)) #@27 *Height of the playfield. (custom-declare-variable 'pong-height '(min 30 (- (frame-height) 6)) '(#$ . -1054) :group 'pong :type '(integer)) #@30 *Width of the bats for pong. (custom-declare-variable 'pong-bat-width '3 '(#$ . -1200) :group 'pong :type '(integer)) #@29 *Color used for background. (custom-declare-variable 'pong-blank-color '"black" '(#$ . -1324) :group 'pong :type 'color) #@23 *Color used for bats. (custom-declare-variable 'pong-bat-color '"yellow" '(#$ . -1451) :group 'pong :type 'color) #@27 *Color used for the ball. (custom-declare-variable 'pong-ball-color '"red" '(#$ . -1571) :group 'pong :type 'color) #@31 *Color used for pong borders. (custom-declare-variable 'pong-border-color '"white" '(#$ . -1693) :group 'pong :type 'color) #@69 *Alternate key to press for bat 1 to go up (primary one is [left]). (custom-declare-variable 'pong-left-key '"4" '(#$ . -1823) :group 'pong :type '(restricted-sexp :match-alternatives (stringp vectorp))) #@72 *Alternate key to press for bat 1 to go down (primary one is [right]). (custom-declare-variable 'pong-right-key '"6" '(#$ . -2033) :group 'pong :type '(restricted-sexp :match-alternatives (stringp vectorp))) #@67 *Alternate key to press for bat 2 to go up (primary one is [up]). (custom-declare-variable 'pong-up-key '"8" '(#$ . -2247) :group 'pong :type '(restricted-sexp :match-alternatives (stringp vectorp))) #@71 *Alternate key to press for bat 2 to go down (primary one is [down]). (custom-declare-variable 'pong-down-key '"2" '(#$ . -2453) :group 'pong :type '(restricted-sexp :match-alternatives (stringp vectorp))) #@29 *Key to press to quit pong. (custom-declare-variable 'pong-quit-key '"q" '(#$ . -2665) :group 'pong :type '(restricted-sexp :match-alternatives (stringp vectorp))) #@29 Key to press to pause pong. (custom-declare-variable 'pong-pause-key '"p" '(#$ . 2835) :group 'pong :type '(restricted-sexp :match-alternatives (stringp vectorp))) #@31 *Key to press to resume pong. (custom-declare-variable 'pong-resume-key '"p" '(#$ . -3005) :group 'pong :type '(restricted-sexp :match-alternatives (stringp vectorp))) #@36 *Time to wait between every cycle. (custom-declare-variable 'pong-timer-delay '0.1 '(#$ . -3179) :group 'pong :type 'number) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\310\"\210\311B\302\311!\204< \303\311\312\"\210\313B\314\315!\210\316B\317\320!\210\321B\322\323!\210\324B\325\326!\207" [current-load-list pong-blank-options default-boundp set-default (((glyph colorize) (t 32)) ((color-x color-x) (mono-x grid-x) (color-tty color-tty)) (((glyph color-x) [0 0 0]) (color-tty pong-blank-color))) pong-bat-options (((glyph colorize) (emacs-tty 79) (t 32)) ((color-x color-x) (mono-x mono-x) (color-tty color-tty) (mono-tty mono-tty)) (((glyph color-x) [1 1 0]) (color-tty pong-bat-color))) pong-ball-options (((glyph colorize) (t 42)) ((color-x color-x) (mono-x grid-x) (color-tty color-tty)) (((glyph color-x) [1 0 0]) (color-tty pong-ball-color))) pong-border-options (((glyph colorize) (t 43)) ((color-x color-x) (mono-x grid-x) (color-tty color-tty)) (((glyph color-x) [0.5 0.5 0.5]) (color-tty pong-border-color))) pong-blank (lambda (#1=#:defconst-tmp-var) (defconst pong-blank #1#)) 0 pong-bat (lambda (#2=#:defconst-tmp-var) (defconst pong-bat #2#)) 1 pong-ball (lambda (#3=#:defconst-tmp-var) (defconst pong-ball #3#)) 2 pong-border (lambda (#4=#:defconst-tmp-var) (defconst pong-border #4#)) 3] 3) #@31 Horizontal speed of the ball. (defvar pong-xx nil (#$ . 4583)) #@29 Vertical speed of the ball. (defvar pong-yy nil (#$ . 4652)) #@34 Horizontal position of the ball. (defvar pong-x nil (#$ . 4719)) #@32 Vertical position of the ball. (defvar pong-y nil (#$ . 4790)) #@29 Vertical position of bat 1. (defvar pong-bat-player1 nil (#$ . 4859)) #@29 Vertical position of bat 2. (defvar pong-bat-player2 nil (#$ . 4935)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list pong-score-player1 default-boundp set-default nil pong-score-player2] 3) #@24 Modemap for pong-mode. (defvar pong-mode-map (make-sparse-keymap 'pong-mode-map) (#$ . 5205)) #@25 Null map for pong-mode. (defvar pong-null-map (make-sparse-keymap 'pong-null-map) (#$ . 5305)) (byte-code "\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306 \310#\210\306\n\312#\210\306 \314#\210\306\f\316#\210\306 \317#\210\306\320#\207" [pong-mode-map pong-left-key pong-right-key pong-up-key pong-down-key pong-quit-key define-key [left] pong-move-left [right] pong-move-right [up] pong-move-up [down] pong-move-down pong-quit pong-pause pong-pause-key] 4) #@61 Computes display options (required by gamegrid for colors). (defalias 'pong-display-options #[nil "\306\307\310\"\311\211\312X\203E \211\nU\203 \202< \fU\203# \202< \fU\203/ \202< U\203; \202< \313I\210 T\211\202 ))\207" [options c pong-blank pong-blank-options pong-bat pong-bat-options make-vector 256 nil 0 255 (nil nil nil) pong-ball pong-ball-options pong-border pong-border-options] 5 (#$ . 5806)]) #@67 Initialize pong buffer and draw stuff thanks to gamegrid library. (defalias 'pong-init-buffer #[nil "\306!\210\307!\210\310 !\210\311\211\312\313 !\210\314\f\315 \\\316#\210\317 \320 S X\203Z \320 \fS X\203P \321#\210T\211\2028 *T\211\202) *\322 \315Z X\203\227 \322 \f\315Z X\203\215 \321 #\210T\211\202u *T\211\202e + \\S X\203\275 \321\315 #\210T\211\202\246 *! ! \\S \"\"X\203\345 \321\f\323Z #\210T\211\202\314 *\317\207" [pong-buffer-name pong-mode-map gamegrid-use-glyphs gamegrid-use-color pong-width pong-height get-buffer-create switch-to-buffer use-local-map t gamegrid-init pong-display-options gamegrid-init-buffer 2 32 nil 0 gamegrid-set-cell 1 3 buffer-read-only y #1=#:--cl-var-- x #2=#:--cl-var-- pong-border #3=#:--cl-var-- #4=#:--cl-var-- pong-blank pong-bat-player1 pong-bat-width #5=#:--cl-var-- pong-bat pong-bat-player2 #6=#:--cl-var--] 7 (#$ . 6237) nil]) #@128 Move bat 2 up. This is called left for historical reasons, since in some pong implementations you move with left/right paddle. (defalias 'pong-move-left #[nil "\301V\205 S\211\205 \302\303\"\207" [pong-bat-player1 1 pong-update-bat 2] 3 (#$ . 7215) nil]) #@16 Move bat 2 up. (defalias 'pong-move-right #[nil " \\\nSW\205 T\211\205 \303\304\"\207" [pong-bat-player1 pong-bat-width pong-height pong-update-bat 2] 3 (#$ . 7482) nil]) #@16 Move bat 2 up. (defalias 'pong-move-up #[nil "\302V\205 S\211\205 \303 \304Z\"\207" [pong-bat-player2 pong-width 1 pong-update-bat 3] 3 (#$ . 7665) nil]) #@18 Move bat 2 down. (defalias 'pong-move-down #[nil " \\\nSW\205 T\211\205 \304 \305Z\"\207" [pong-bat-player2 pong-bat-width pong-height pong-width pong-update-bat 3] 3 (#$ . 7831) nil]) #@70 Move a bat (suppress a cell and draw another one on the other side). (defalias 'pong-update-bat #[(x y) "\306p!\230\2055 \307 \n #\210\307 \n\f\\S #\210\n\310V\203$ \307 \nS #\210\n\f\\ SW\2055 \307 \n\f\\ #\207" [pong-buffer-name x y pong-bat pong-bat-width pong-blank buffer-name gamegrid-set-cell 1 pong-height] 4 (#$ . 8028)]) #@20 Initialize a game. (defalias 'pong-init #[nil "\306 \307#\210\310\311\312\313\314$\210\n Z\315\245T\211\316\317\315\245\n\315\245\320 \210\321 \210\322\323\"\210\324 \207" [pong-mode-map pong-pause-key pong-height pong-bat-width pong-bat-player1 pong-bat-player2 define-key pong-pause add-hook kill-buffer-hook pong-quit nil t 2 -1 0 pong-init-buffer gamegrid-kill-timer gamegrid-start-timer pong-update-game pong-update-score pong-xx pong-yy pong-width pong-x pong-y pong-timer-delay] 6 (#$ . 8367)]) #@181 "Main" function for pong. It is called every pong-cycle-delay seconds and updates ball and bats positions. It is responsible of collision detection and checks if a player scores. (defalias 'pong-update-game #[(pong-buffer) "p=\204 \306 \207 \n \\\n\\ \307V\203+ SW\203+ \310\f #\210\n\307V\203@ \nSW\203@ \310 \n#\210 \311U\204L \312U\203\205 \nY\205\n\\W\205\nU\203j \313\202w \nTU\203v \307\202w \314\\\211\205 [\211\202 \315ZU\204\227 \311ZU\203\320 \nY\205\n\\W\205\nU\203\265 \313\202\302 \nTU\203\301 \307\202\302 \314\\\211\205 [\211\202\n\314X\203\337 [\211\202\n\312ZY\203\361 [\211\202 \314W\203T\316 \202 SY\205T\316 *\207" [pong-buffer pong-x pong-y old-y old-x pong-xx pong-pause 0 gamegrid-set-cell 3 2 -1 1 4 pong-init pong-yy pong-height pong-blank pong-ball pong-bat-player1 pong-bat-width pong-width pong-bat-player2 pong-score-player2 pong-score-player1] 4 (#$ . 8891)]) #@55 Update score and print it on bottom of the game grid. (defalias 'pong-update-score #[nil "\306\307 #\211G\310 S \f X\203- \311p!\f\230\203& \312\f \n\fH#\210\fT\211\202 ,\313\207" [pong-score-player1 pong-score-player2 string len x #1=#:--cl-var-- format "Score: %d / %d" 0 buffer-name gamegrid-set-cell nil pong-buffer-name pong-height] 7 (#$ . 9888)]) #@17 Pause the game. (defalias 'pong-pause #[nil "\302 \210\303\304!\210\305 \306#\207" [pong-mode-map pong-resume-key gamegrid-kill-timer cancel-function-timers pong-update-game define-key pong-resume] 4 (#$ . 10257) nil]) #@23 Resume a paused game. (defalias 'pong-resume #[nil "\303 \304#\210\305\n\306\"\207" [pong-mode-map pong-pause-key pong-timer-delay define-key pong-pause gamegrid-start-timer pong-update-game] 4 (#$ . 10483) nil]) #@41 Quit the game and kill the pong buffer. (defalias 'pong-quit #[nil "\302 \210\303\304\305 $\207" [pong-timer-delay pong-buffer-name gamegrid-kill-timer run-with-timer nil kill-buffer] 5 (#$ . 10703) nil]) #@209 Play pong and waste time. This is an implementation of the classical game pong. Move left and right bats and try to bounce the ball to your opponent. pong-mode keybindings:\<pong-mode-map> \{pong-mode-map} (defalias 'pong #[nil "\302\211\303 \207" [pong-score-player1 pong-score-player2 0 pong-init] 2 (#$ . 10916) nil]) (provide 'pong)
Close
