(local util (require :lib.util))
(local dim (require :game.dim))
(local {: direct : move} (util.require :game.entity))
(local map (require :game.tilemap))

(local bomberman {})
(set bomberman.keymap {:up :w :down :s :left :a :right :d :bomb :x})

(fn bomberman.draw [entity]
  (love.graphics.setColor 0.2 0.2 0.2)
  (love.graphics.circle :fill (. entity.pos 1) (. entity.pos 2) (/ dim.tilesize 2)))
(fn bomberman.update [entity dt rules]
  (set entity.vel (direct bomberman.keymap (* dim.tilesize 3)))
  (set entity.pos (move entity.pos entity.vel dt))
  (when (love.keyboard.isDown bomberman.keymap.bomb)
    (rules.place-bomb (map.world-to-tile entity.pos))))

(fn bomberman.new [pos]
  {: pos :vel [0 0] :draw (util.fn bomberman :draw) :update (util.fn bomberman :update)})

bomberman