standard_level_data_macros.clj

(ns nhss.standard-level-data-macros)

(defn features []
  {:down-stair \>
   :up-stair   \<
   :space      \·
   :boulder    \0
   :hole       \^
   :player     \@
   :empty      \space
   :wall       #{\┴ \┼ \┤ \┌ \├ \─ \└ \┐ \┬ \┘ \│}})

(defn level->cells [level]
  (into [] (map (comp (partial apply vector) seq) level)))

(defn cells->floor [cells]
  (mapv (fn [cells]
          (mapv (fn [cell]
                  (cond (or (= (:boulder (features)) cell)
                            (= (:hole (features)) cell))
                        (:space (features))

                        ((:wall (features)) cell)
                        (:empty (features))

                        (= (:player (features)) cell)
                        (:down-stair (features))

                        :default
                        cell))
                cells))
        cells))

(defn deflevel [title info & level]
  (let [cells (level->cells level)
        floor (cells->floor cells)]
    {:title title
     :info  info
     :cells cells
     :floor floor}))

(deflevel
  "NetHack Sokoban 1a"
  ""
  "┌─┬────┐ ┌────┐"
  "│<│@···└─┘····│"
  "│^├┐·00····0··│"
  "│^││··00│·0·0·│"
  "│^││····│·····│"
  "│^│└───┬┘0────┤"
  "│^│    │······│"
  "│^└────┘······│"
  "│··^^^^0000···│"
  "│??┌───┐······│"
  "└──┘   └──────┘")
;; {:title "NetHack Sokoban 1a", :info "", :cells [[\┌ \─ \┬ \─ \─ \─ \─ \┐ \space \┌ \─ \─ \─ \─ \┐] [\│ \< \│ \@ \· \· \· \└ \─ \┘ \· \· \· \· \│] [\│ \^ \├ \┐ \· \0 \0 \· \· \· \· \0 \· \· \│] [\│ \^ \│ \│ \· \· \0 \0 \│ \· \0 \· \0 \· \│] [\│ \^ \│ \│ \· \· \· \· \│ \· \· \· \· \· \│] [\│ \^ \│ \└ \─ \─ \─ \┬ \┘ \0 \─ \─ \─ \─ \┤] [\│ \^ \│ \space \space \space \space \│ \· \· \· \· \· \· \│] [\│ \^ \└ \─ \─ \─ \─ \┘ \· \· \· \· \· \· \│] [\│ \· \· \^ \^ \^ \^ \0 \0 \0 \0 \· \· \· \│] [\│ \? \? \┌ \─ \─ \─ \┐ \· \· \· \· \· \· \│] [\└ \─ \─ \┘ \space \space \space \└ \─ \─ \─ \─ \─ \─ \┘]], :floor [[\space \space \space \space \space \space \space \space \space \space \space \space \space \space \space] [\space \< \space \> \· \· \· \space \space \space \· \· \· \· \space] [\space \· \space \space \· \· \· \· \· \· \· \· \· \· \space] [\space \· \space \space \· \· \· \· \space \· \· \· \· \· \space] [\space \· \space \space \· \· \· \· \space \· \· \· \· \· \space] [\space \· \space \space \space \space \space \space \space \· \space \space \space \space \space] [\space \· \space \space \space \space \space \space \· \· \· \· \· \· \space] [\space \· \space \space \space \space \space \space \· \· \· \· \· \· \space] [\space \· \· \· \· \· \· \· \· \· \· \· \· \· \space] [\space \? \? \space \space \space \space \space \· \· \· \· \· \· \space] [\space \space \space \space \space \space \space \space \space \space \space \space \space \space \space]]}