From d6f68bb3ba0ac3f1d5dc6345a06a617a02f5aaf5 Mon Sep 17 00:00:00 2001 From: Travis Shears Date: Fri, 10 Apr 2026 15:57:54 +0200 Subject: [PATCH] clean up gen_levels script " --- two_player_cleaning_game/assets/gen_levels.bb | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) diff --git a/two_player_cleaning_game/assets/gen_levels.bb b/two_player_cleaning_game/assets/gen_levels.bb index b0d2d07..1a17ec0 100755 --- a/two_player_cleaning_game/assets/gen_levels.bb +++ b/two_player_cleaning_game/assets/gen_levels.bb @@ -57,23 +57,10 @@ :y (Math/round (Double/parseDouble (get-in tag [:attrs :y]))))) acc)) '() (:content (first (filter #(= (get-in % [:attrs :name]) "spawns") tags)))))))) -(pprint/pprint {:row (first (:tiles level-001))}) -;; :wall-colliders wall-colliders}) - -;; (fs/write-lines "level_001.lua" (pr-str '(local name "travis"))) +;; (pprint/pprint {:row (first (:tiles level-001))}) ;; (pprint/pprint (pr-str level-001)) + (fs/write-lines "../levels.fnl" ["(local levels" (str/replace (pr-str {:level01 level-001}) #",+" "") ")\n\n" "{ :levels levels }"]) - -;; (str "return " (pr-str {:tile (ffirst (:tiles level-001)) - ;; :wall-colliders wall-colliders - ;; :spawns (:spawns level-001)})))) - -;; (defn get-config-files [] (map #(hash-map :file-name % :content (fs/read-all-lines %)) (fs/glob "." "**.hcl"))) - -;; (defn gen-cron [start] (format "%d * * * *" start)) -;; (defn get-config-files [] (map #(hash-map :file-name % :content (fs/read-all-lines %)) (fs/glob "." "**.hcl"))) - -;; (defn remove-build-files [files]