end.fnl 420 B

123456789101112131415161718
  1. (local (w h) (love.window.getMode))
  2. (var message "Unknown")
  3. {
  4. :name "end"
  5. :init (fn init [m] (set message (.. "Player " m " wins")))
  6. :update (fn update [dt set-mode])
  7. :keypressed (fn keypressed [key set-mode]
  8. (when (= "y" key) (set-mode "mode.main"))
  9. (when (= "n" key) (love.event.quit)))
  10. :draw (fn draw [m]
  11. (love.graphics.printf (.. message "\n\nPlay again? (y/n)") 0 (/ h 3) w "center"))
  12. }