mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-01-03 07:42:27 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2022-03-30 10:31:46 +02:00
parent 81e53f5eac
commit 0aed433b52
4 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/sokoban/lisp/sokoban.lisp
View file

@ -66,7 +66,7 @@
(defun create-item (type)
(let* ((name (string-downcase type))
(item (qjs |makeItem| ui:*dynamic* name)))
(item (qjs |createItem| ui:*dynamic* name)))
(q> |source| item
(find-file (format nil "qml/img/~A.png" name)))
(q> |objectName| item name)
@ -144,7 +144,6 @@
(reset-maze)
(x:do-string (ch (nth (level) sokoban:*solutions*))
(when *level-changed*
(setf *level-changed nil)
(return-from solve))
(sokoban:move (case (char-downcase ch)
(#\u :north)