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

Debug snake move api

Browse source
This commit is contained in:
Loic Guegan 2019-05-11 15:53:37 +02:00
parent 59f42680ef
commit 3afaacae02
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
server/api/api.lisp
View file

@ -51,12 +51,6 @@
(let* ((dir (getf data :direction)) (let* ((dir (getf data :direction))
(game-id (getf data :game-id)) (game-id (getf data :game-id))
(game (get-game gm game-id))) (game (get-game gm game-id)))
(cond
((equal dir "up") (setf dir :up))
((equal dir "down") (setf dir :down))
((equal dir "left") (setf dir :left))
((equal dir "right") (setf dir :right))
(t (setf dir nil)))
(if dir (if dir
(refresh game :dir dir) (refresh game :dir dir)
(refresh game)) (refresh game))