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]