acdw
/
no-step-on-snek
1
0
Fork 0
Code Issues Pull Requests Projects Releases Activity

A little more setup 

This is still very early days.
This commit is contained in:
Case Duckworth 2021-04-21 12:58:07 -05:00
parent 830a29dd44
commit 81fb0a7cdd
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
no-step-on-snek.el
View File

@ -139,7 +139,7 @@
((color-x color-x) ((color-x color-x)
(mono-x grid-x) (mono-x grid-x)
(color-tty color-tty)) (color-tty color-tty))
(((glyph color-x) [1 0 0]) (((glyph color-x) [0 1 0])
(color-tty "green")))) (color-tty "green"))))
(defvar snek-border-options (defvar snek-border-options
@ -268,6 +268,8 @@ and then start moving it leftwards.")
snek-border-options) snek-border-options)
((= c snek-space) ((= c snek-space)
snek-space-options) snek-space-options)
((= c snek-player)
snek-player-options)
(t (t
'(nil nil nil))))) '(nil nil nil)))))
options)) options))
@ -394,6 +396,26 @@ Argument SNEK-BUFFER is the name of the buffer."
(when (zerop (snek-final-y-velocity)) (when (zerop (snek-final-y-velocity))
(push '(0 1) snek-velocity-queue))) (push '(0 1) snek-velocity-queue)))
(defun player-move-left ()
"Make the player move left."
(interactive)
)
(defun player-move-right ()
"Make the player move right."
(interactive)
)
(defun player-move-up ()
"Make the player move up."
(interactive)
)
(defun player-move-down ()
"Make the player move down."
(interactive)
)
(defun snek-end-game () (defun snek-end-game ()
"Terminate the current game." "Terminate the current game."
(interactive) (interactive)