taking-the-l/mode/end.fnl

(local (w h) (love.window.getMode))

(local End {})
(set End.__index End)

(fn End.init [cls m]
  (setmetatable {:message (.. "Player " m " wins")} cls))

(fn End.update [self dt set-mode])

(fn End.keypressed [self key set-mode]
    (when (= "y" key) (set-mode "mode.main"))
    (when (= "n" key) (love.event.quit)))

(fn End.draw [self m]
  (love.graphics.printf (.. self.message "\n\nPlay again? (y/n)") 0 (/ h 3) w "center"))

End