Gecko [ 122.154.134.11 ]

Name	Size	Permission
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--

Code Editor : snake.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/snake.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 "`snake.el' was compiled for Emacs 19.29 or later"))

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

(require 'gamegrid)
#@42 Non-nil means use glyphs when available.
(defvar snake-use-glyphs-flag t (#$ . 626))
#@41 Non-nil means use color when available.
(defvar snake-use-color-flag t (#$ . 717))
#@29 Name used for Snake buffer.
(defvar snake-buffer-name "*Snake*" (#$ . 806))
#@34 Width of used portion of buffer.
(defvar snake-buffer-width 30 (#$ . 888))
#@35 Height of used portion of buffer.
(defvar snake-buffer-height 22 (#$ . 969))
#@24 Width of playing area.
(defvar snake-width 30 (#$ . 1052))
#@25 Height of playing area.
(defvar snake-height 20 (#$ . 1117))
#@26 Initial length of snake.
(defvar snake-initial-length 5 (#$ . 1184))
#@30 Initial X position of snake.
(defvar snake-initial-x 10 (#$ . 1259))
#@30 Initial Y position of snake.
(defvar snake-initial-y 10 (#$ . 1334))
#@30 Initial X velocity of snake.
(defvar snake-initial-velocity-x 1 (#$ . 1409))
#@30 Initial Y velocity of snake.
(defvar snake-initial-velocity-y 0 (#$ . 1492))
#@61 The default time taken for the snake to advance one square.
(defvar snake-tick-period 0.2 (#$ . 1575))
#@31 Hook run upon starting Snake.
(defvar snake-mode-hook nil (#$ . 1684))
#@22 X position of score.
(defvar snake-score-x 0 (#$ . 1761))
#@22 Y position of score.
(defvar snake-score-y snake-height (#$ . 1825))
#@31 File for holding high scores.
(defvar snake-score-file "snake-scores" (#$ . 1900))
(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\302\313!\204K�\303\313\314\"\210\315B\316\317!\210\320B\321\322!\210\323B\324\325!\210\326B\327\330!\210\331B\332\333!\210\334B\302\334!\204\202�\303\334\317\"\210\335B\302\335!\204\221�\303\335\322\"\210\336B\302\336!\204\240�\303\336\317\"\210\337B\302\337!\204\257�\303\337\340\"\210\341B\302\341!\204\276�\303\341\317\"\210\342B\302\342!\204\315�\303\342\317\"\210\343B\302\343!\204\334�\303\343\340\"\210\344B\302\344!\204\353�\303\344\340\"\210\340\207" [current-load-list snake-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 "black"))) snake-snake-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 "yellow"))) snake-dot-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 "red"))) snake-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 "white"))) snake-space-options (((t 32)) nil nil) snake-blank (lambda (#1=#:defconst-tmp-var) (defconst snake-blank #1#)) 0 snake-snake (lambda (#2=#:defconst-tmp-var) (defconst snake-snake #2#)) 1 snake-dot (lambda (#3=#:defconst-tmp-var) (defconst snake-dot #3#)) 2 snake-border (lambda (#4=#:defconst-tmp-var) (defconst snake-border #4#)) 3 snake-space (lambda (#5=#:defconst-tmp-var) (defconst snake-space #5#)) 4 snake-length snake-velocity-x snake-velocity-y snake-positions nil snake-cycle snake-score snake-paused snake-moved-p] 3)
#@475 This queue stores the velocities requested too quickly by user.
They will take effect one at a time at each clock-interval.
This is necessary for proper behavior.

For instance, if you are moving right, you press up and then left, you
want the snake to move up just once before starting to move left.  If
we implemented all your keystrokes immediately, the snake would
effectively never move up.  Thus, we need to move it up for one turn
and then start moving it leftwards.
(defvar snake-velocity-queue nil (#$ . 3886))
(byte-code "\303\304!\210\303\305!\210\303\306!\210\303\307!\210\303\310!\210\303\311!\210\303\312!\210\303\313!\210\303\314!\210\301B\315\301!\2045�\316\301\317\301!\"\210\320	\321\322#\210\320	\323\324#\210\320	\325\326#\210\320	\327\330#\210\320	\331\332#\210\320	\333\334#\210\320	\335\336#\210\302B\315\302!\204p�\316\302\317\302!\"\210\320\n\321\322#\207" [current-load-list snake-mode-map snake-null-map make-variable-buffer-local snake-length snake-velocity-x snake-velocity-y snake-positions snake-cycle snake-score snake-paused snake-moved-p snake-velocity-queue default-boundp set-default make-sparse-keymap define-key "n" snake-start-game "q" snake-end-game "p" snake-pause-game [left] snake-move-left [right] snake-move-right [up] snake-move-up [down] snake-move-down] 4)
(defalias 'snake-display-options #[nil "\306\307\310\"\311\211\312X\203Q�	\211\nU\203�\202H�	\fU\203#�
\202H�	\fU\203/�
\202H�	U\203;�\202H�	U\203G�\202H�\313I\210	T\211\202�))\207" [options c snake-blank snake-blank-options snake-snake snake-snake-options make-vector 256 nil 0 255 (nil nil nil) snake-dot snake-dot-options snake-border snake-border-options snake-space snake-space-options] 5])
(defalias 'snake-update-score #[nil "\306\307\"\211G\310\nS\fX\203%�\311
\\	H#\210T\211\202�,\312\207" [snake-score string len x #1=#:--cl-var-- snake-score-x format "Score:  %05d" 0 gamegrid-set-cell nil snake-score-y] 7])
(defalias 'snake-init-buffer #[nil "\306	\n#\210\307\310
S\f\f\fX\203>�\310
S
X\2036�\311
\f#\210
T\211
\202�*\fT\211\202�*\312
\313Z\fX\203w�\312
\313Z
X\203o�\311
\f#\210
T\211
\202X�*\fT\211\202G�+\307\207" [snake-buffer-width snake-buffer-height snake-space buffer-read-only y snake-height gamegrid-init-buffer nil 0 gamegrid-set-cell 1 2 #1=#:--cl-var-- x snake-width #2=#:--cl-var-- snake-border #3=#:--cl-var-- #4=#:--cl-var-- snake-blank] 6])
(defalias 'snake-reset-game #[nil "\306 \210\307 \210\n\f\310\311\312\310\211\310	\312W\203]�\313#\210\314\"B\\
\\T\211\202.�,\315 \207" [snake-initial-length snake-length snake-initial-velocity-x snake-velocity-x snake-initial-velocity-y snake-velocity-y gamegrid-kill-timer snake-init-buffer nil 1 0 gamegrid-set-cell vector snake-update-score snake-positions snake-cycle snake-score snake-paused snake-moved-p snake-velocity-queue snake-initial-x snake-initial-y y x i #1=#:--cl-dotimes-temp-- snake-snake] 6])
#@131 Called on each clock tick.
Advances the snake one square, testing for collision.
Argument SNAKE-BUFFER is the name of the buffer.
(defalias 'snake-update-game #[(snake-buffer) "?\205\244�p	=\205\244�\306 \210\n@\211\307H\f\\\310H\\\311
\"\211U\2045�U\203:�\312 \202\243�U\203R�TT\313 \210\202\217�\314Z\n\233\211\211A@)\211\307H\310H\315\316\246\307U\203\200�\202\202�#\210T\317\241\210,\315
#\210\320
\"\nB\317\211,\207" [snake-paused snake-buffer snake-positions pos snake-velocity-x x snake-update-velocity 0 1 gamegrid-get-cell snake-end-game snake-update-score 2 gamegrid-set-cell 5 nil vector snake-velocity-y y c snake-border snake-snake snake-dot snake-length snake-score last-cons tail-pos x0 y0 snake-cycle snake-blank snake-moved-p] 6 (#$ . 6917)])
(defalias 'snake-update-velocity #[nil "?\205!�	\203�\306	!@\211@\n\211A@)	\237A\237)\307\211\207" [snake-moved-p snake-velocity-queue new-vel snake-velocity-x x snake-velocity-y last t] 3])
(defalias 'snake-final-x-velocity #[nil "\211@@)\206\n�\n\207" [snake-velocity-queue x snake-velocity-x] 2])
(defalias 'snake-final-y-velocity #[nil "@\211A@)\206�\n\207" [snake-velocity-queue x snake-velocity-y] 2])
#@27 Make the snake move left.
(defalias 'snake-move-left #[nil "\301\302 !\205\f�\303B\211\207" [snake-velocity-queue zerop snake-final-x-velocity (-1 0)] 2 (#$ . 8172) nil])
#@28 Make the snake move right.
(defalias 'snake-move-right #[nil "\301\302 !\205\f�\303B\211\207" [snake-velocity-queue zerop snake-final-x-velocity (1 0)] 2 (#$ . 8351) nil])
#@25 Make the snake move up.
(defalias 'snake-move-up #[nil "\301\302 !\205\f�\303B\211\207" [snake-velocity-queue zerop snake-final-y-velocity (0 -1)] 2 (#$ . 8531) nil])
#@27 Make the snake move down.
(defalias 'snake-move-down #[nil "\301\302 !\205\f�\303B\211\207" [snake-velocity-queue zerop snake-final-y-velocity (0 1)] 2 (#$ . 8706) nil])
#@29 Terminate the current game.
(defalias 'snake-end-game #[nil "\303 \210\304!\210\305	\n\"\207" [snake-null-map snake-score-file snake-score gamegrid-kill-timer use-local-map gamegrid-add-score] 3 (#$ . 8884) nil])
#@28 Start a new game of Snake.
(defalias 'snake-start-game #[nil "\302 \210\303!\210\304	\305\"\207" [snake-mode-map snake-tick-period snake-reset-game use-local-map gamegrid-start-timer snake-update-game] 3 (#$ . 9104) nil])
#@37 Pause (or resume) the current game.
(defalias 'snake-pause-game #[nil "?\301\205	�\302!\207" [snake-paused message "Game paused (press p to resume)"] 2 (#$ . 9333) nil])
(defalias 'snake-active-p #[nil "\301 =\207" [snake-mode-map current-local-map] 2])
(put 'snake-mode 'mode-class 'special)
#@74 A mode for playing Snake.

Snake mode keybindings:
   \{snake-mode-map}

(defalias 'snake-mode #[nil "\306 \210\307\310\311\312\313$\210\314!\210\315\316
\317\320 !\210\321\322!\207" [snake-null-map major-mode mode-name snake-use-glyphs-flag gamegrid-use-glyphs snake-use-color-flag kill-all-local-variables add-hook kill-buffer-hook gamegrid-kill-timer nil t use-local-map snake-mode "Snake" gamegrid-init snake-display-options run-mode-hooks snake-mode-hook gamegrid-use-color] 5 (#$ . 9636)])
#@515 Play the Snake game.
Move the snake around without colliding with its tail or with the border.

Eating dots causes the snake to get longer.

Snake mode keybindings:
   \<snake-mode-map>
\[snake-start-game]	Starts a new game of Snake
\[snake-end-game]	Terminates the current game
\[snake-pause-game]	Pauses (or resumes) the current game
\[snake-move-left]	Makes the snake move left
\[snake-move-right]	Makes the snake move right
\[snake-move-up]	Makes the snake move up
\[snake-move-down]	Makes the snake move down
(defalias 'snake #[nil "\301!\210\302 \210\303 \210\304 \207" [snake-buffer-name switch-to-buffer gamegrid-kill-timer snake-mode snake-start-game] 2 (#$ . 10146) nil])
(provide 'snake)

${this.title}

Code Editor : snake.elc