From ab935d300bc56e8c9e64ea11ac0876f3883e0959 Mon Sep 17 00:00:00 2001 From: polos Date: Sun, 5 Mar 2017 23:20:18 +0100 Subject: [PATCH] tiny revision of QML "sokoban" --- examples/M-modules/quick/sokoban/sokoban.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/examples/M-modules/quick/sokoban/sokoban.lisp b/examples/M-modules/quick/sokoban/sokoban.lisp index 30f45f7..5db7851 100644 --- a/examples/M-modules/quick/sokoban/sokoban.lisp +++ b/examples/M-modules/quick/sokoban/sokoban.lisp @@ -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"