bomberpac/game/mode.fnl

39 lines
1 KiB
Plaintext
Raw Normal View History

2021-04-11 03:39:42 +00:00
(local util (require :lib.util))
2021-02-07 21:56:19 +00:00
(local state (require :game.state))
(local map (require :game.tilemap))
(local rules (require :game.rules))
2021-04-11 03:39:42 +00:00
(local {: draw : update} (util.require :game.entity))
2021-02-07 21:56:19 +00:00
(fn game-update [dt]
(map.update-entitymap state.bombs dt rules)
2021-02-07 21:56:19 +00:00
(each [_ entity (ipairs state.entities)]
2021-04-11 03:39:42 +00:00
(update entity dt rules)))
2021-02-07 21:56:19 +00:00
(fn exception-update [dt]
(when (love.keyboard.isDown :f2)
(set state.update-exception nil)))
(fn update [dt]
(if state.update-exception
(exception-update dt)
(xpcall #(game-update dt) (fn [msg]
(set state.update-exception (.. msg "\n" (debug.traceback)))))))
(fn game-draw []
(map.draw-tilemaps 0 0 [state.bombs state.map])
2021-02-07 21:56:19 +00:00
(each [_ entity (ipairs state.entities)]
2021-04-11 03:39:42 +00:00
(draw entity)))
2021-02-07 21:56:19 +00:00
(fn exception-draw []
(love.graphics.setColor 1 0 0 1)
(love.graphics.setNewFont 14)
(love.graphics.printf (.. "Press F2 when resolved\n" state.update-exception) 20 20 (- (love.graphics.getWidth) 40)))
(fn draw []
(if state.update-exception
(exception-draw)
(game-draw)))
2021-02-07 21:56:19 +00:00
{: update : draw}