From fa27b4e75c35da934037f5c4ab9d16252f2ff14b Mon Sep 17 00:00:00 2001
From: Daw-Ran Liou <hi@dawranliou.com>
Date: Sun, 6 Nov 2022 16:44:15 +0800
Subject: [PATCH] level 10; fix moving order

---
 data/level-10.txt | 7 +++++++
 mode-play.fnl     | 8 ++++++--
 2 files changed, 13 insertions(+), 2 deletions(-)
 create mode 100644 data/level-10.txt

diff --git a/data/level-10.txt b/data/level-10.txt
new file mode 100644
index 0000000..66c4ef1
--- /dev/null
+++ b/data/level-10.txt
@@ -0,0 +1,7 @@
+....a.t.
+........
+t...g...
+........
+........
+G..a...c
+C..t...a
diff --git a/mode-play.fnl b/mode-play.fnl
index 4f651f8..fbde221 100644
--- a/mode-play.fnl
+++ b/mode-play.fnl
@@ -116,6 +116,11 @@
   found)
 
 (fn run-input-system [key]
+  (match key
+    "up" (table.sort *entities* #(< $1.row $2.row))
+    "down" (table.sort *entities* #(< $2.row $1.row))
+    "left" (table.sort *entities* #(< $1.col $2.col))
+    "right" (table.sort *entities* #(< $2.col $1.col)))
   (each [_ e (ipairs *entities*)]
     (when e.components.input
       (let [target-entity (match key
@@ -197,8 +202,7 @@
                      "data/level-6.txt" "data/level-7.txt"
                      "data/level-7.txt" "data/level-8.txt"
                      "data/level-8.txt" "data/level-9.txt"
-                     ;; "data/level-9.txt" "data/level-10.txt"
-                     )]
+                     "data/level-9.txt" "data/level-10.txt")]
     (if next-level
         (load-level next-level)
         (set *state* :win))))