loic/remote-snake
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle snake grow

Browse source
This commit is contained in:
Loic Guegan 2019-05-08 17:40:47 +02:00
parent 6d3e1f82bc
commit 8ca0bf8b42
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
server/game.lisp
View file

@ -42,6 +42,17 @@
(and (or (eq dir :left) (eq dir :right)) ; Goto left or right only if the snake is on the up or down direction (and (or (eq dir :left) (eq dir :right)) ; Goto left or right only if the snake is on the up or down direction
(or (eq active-dir :up) (eq active-dir :down))))) (or (eq active-dir :up) (eq active-dir :down)))))
;;; Grow snake of grow-size amount (snake is growing by the tail)
(defun grow-snake (snake grow-size)
(let* ((old-size (first (array-dimensions snake)))
(new-size (+ old-size grow-size))
(tail (aref snake (- old-size 1)))
(new-tail (coerce (make-array grow-size :initial-element tail) 'list))
(new-snake (make-array new-size :initial-contents `(,@(coerce snake 'list) ,@new-tail))))
new-snake))
(defmethod refresh ((g game) &key (dir nil dir-supplied-p)) (defmethod refresh ((g game) &key (dir nil dir-supplied-p))
;; First, update direction ;; First, update direction
(with-slots ((active-dir dir)) g (with-slots ((active-dir dir)) g