26 lines
781 B
Fennel
26 lines
781 B
Fennel
(local util (require :lib.util))
|
|
(local lume (require :lib.lume))
|
|
|
|
(local flags [:walkable :neutable :debris])
|
|
|
|
(fn deserialize [tile]
|
|
(match (type tile)
|
|
:string {:gfx (tile:fromhex) :flags {}}
|
|
:table (doto tile (tset :gfx (tile.gfx:fromhex)))))
|
|
|
|
(fn serialize [tile] (doto (lume.clone tile) (tset :gfx (tile.gfx:tohex))))
|
|
|
|
(fn loadtiles [] (lume.map (util.readjson "game/tiles.json") deserialize))
|
|
(fn savetiles [tiles] (util.writejson "game/tiles.json" (lume.map tiles serialize)))
|
|
|
|
(fn appendtiles [tiles org]
|
|
(each [_ tile (ipairs tiles)]
|
|
(org:append [:bytes tile.gfx])))
|
|
|
|
(fn appendmaps [org]
|
|
(local map (: (util.readjson "game/map00001.json") :fromhex))
|
|
(org:append :map [:bytes map]))
|
|
|
|
{: loadtiles : savetiles : appendtiles : appendmaps : flags}
|
|
|