SpindleyQ/honeylisp
1
1
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix screen editor

Browse source
This commit is contained in:
Jeremy Penner 2021-07-02 15:51:39 -04:00
parent 3a70705efc
commit 6502ac76d9
4 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bitsy/game.json
View file

File diff suppressed because one or more lines are too long

3
editor/screenedit.fnl
View file

@ -88,8 +88,7 @@
(self:draw-screen-editor (+ self.position.x 10) (+ self.position.y 10)) (self:draw-screen-editor (+ self.position.x 10) (+ self.position.y 10))
(self:draw-tile-selector (+ self.position.x 10) (+ self.position.y 20 (* screenh screen-scale)) (- self.size.x 20))) (self:draw-tile-selector (+ self.position.x 10) (+ self.position.y 20 (* screenh screen-scale)) (- self.size.x 20)))
(fn ScreenEditView.filename [self] "editor/brushes.json") (fn ScreenEditView.resource-key [self] "brushes")
(fn ScreenEditView.spritegen [self] char-to-sprite)
(fn ScreenEditView.tilesize [self] (values 8 8)) (fn ScreenEditView.tilesize [self] (values 8 8))
(fn ScreenEditView.get_name [self] (.. "Screen: " self.screenfilename)) (fn ScreenEditView.get_name [self] (.. "Screen: " self.screenfilename))

5
game/files.fnl
View file

@ -29,13 +29,13 @@
(fn deserialize [key value root] (fn deserialize [key value root]
(match key (match key
(where (or :tiles :portraits :font)) (tile-deserialize value root) (where (or :tiles :portraits :font :brushes)) (tile-deserialize value root)
:levels (do (set value.map (value.map:fromhex)) value) :levels (do (set value.map (value.map:fromhex)) value)
_ value)) _ value))
(fn serialize [key value root] (fn serialize [key value root]
(match key (match key
(where (or :tiles :portraits :font)) (tile-serialize value root) (where (or :tiles :portraits :font :brushes)) (tile-serialize value root)
:levels (do (set value.map (value.map:tohex)) value) :levels (do (set value.map (value.map:tohex)) value)
_ value)) _ value))
@ -66,6 +66,7 @@
(fn new-cache [game key] (fn new-cache [game key]
(let [spritegen (match key (let [spritegen (match key
:font tiledraw.char-to-sprite :font tiledraw.char-to-sprite
:brushes tiledraw.char-to-sprite
:portraits tiledraw.portrait-to-sprite :portraits tiledraw.portrait-to-sprite
_ tiledraw.tile-to-sprite) _ tiledraw.tile-to-sprite)
gfx (. game key)] gfx (. game key)]

2
neuttower/game.json
View file

File diff suppressed because one or more lines are too long