mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-01-10 11:11:34 -08:00
Code Issues Projects Releases Packages Wiki Activity

tiny revision of QML "sokoban"

Browse source
This commit is contained in:
polos 2017-03-05 23:20:18 +01:00
parent ff0a20d421
commit ab935d300b
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
examples/M-modules/quick/sokoban/sokoban.lisp
View file

@ -172,7 +172,10 @@
(x:do-string (curr-char row)
(when (char= char curr-char)
(let ((item (first items)))
(if (and reset (find type '(:object :player)))
(if (and reset
(find type '(:object :player))
(or (/= (|x| item) x)
(/= (|y| item) y)))
(progn
(qsleep 0.05)
(qml-set item "x" x) ; animate "reset"