;;;; Copyright (C) 2018 Jakob L. Kreuze, All Rights Reserved.
;;;;
;;;; This file is part of slime-the-world.
;;;;
;;;; slime-the-world is free software: you can redistribute it and/or modify it
;;;; under the terms of the GNU General Public License as published by the Free
;;;; Software Foundation, either version 3 of the License, or (at your option)
;;;; any later version.
;;;;
;;;; slime-the-world is distributed in the hope that it will be useful, but
;;;; WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;;;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
;;;; more details.
;;;;
;;;; You should have received a copy of the GNU General Public License along
;;;; with slime-the-world. If not, see <http://www.gnu.org/licenses/>.

;;;; ---

;;;; This module contains non-game-specific bits and mode-changing logic.

(var scale 2)
(local canvas-width 640)
(local canvas-height 480)

(global screen-width (math.floor (/ canvas-width scale)))
(global screen-height (math.floor (/ canvas-height scale)))

(local canvas (love.graphics.newCanvas canvas-width canvas-height))
(local font (love.graphics.newImageFont "art/font.png"
                                        (.. " !\"#$%&*()*+,-./"
                                            "0123456789"
                                            ":;<=>?@"
                                            "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
                                            "abcdefghijklmnopqrstuvwxyz"
                                            "[\\]^_`{|}~")))

(var mode (require :game))

(fn set-mode [mode-name ...]
  (set mode (require mode-name))
  (when mode.activate
    (mode.activate ...)))

(fn love.load []
  (: canvas :setFilter "nearest" "nearest")
  (love.graphics.setFont font)
  (love.window.setMode canvas-width canvas-height {}))

(fn love.draw []
  (love.graphics.setCanvas canvas)
  (love.graphics.clear)
  (love.graphics.setColor 1 1 1)
  (mode.draw)
  (love.graphics.setCanvas)
  (love.graphics.setColor 1 1 1)
  (love.graphics.draw canvas 0 0 0 scale scale))

(fn love.update [dt]
  (mode.update dt set-mode))

(fn love.keypressed [key]
  (if (and (= key "f11") (= scale 2))
    (let [(dw dh) (love.window.getDesktopDimensions)]
      (love.window.setMode dw dh {:fullscreen true :fullscreentype :desktop})
      (set scale (/ dh 225)))

    (= key "f11")
    (do (set scale 2) (love.window.setMode (* 720 scale) (* 450 scale)))

    (and (love.keyboard.isDown "lctrl" "rctrl" "capslock") (= key "q"))
    (love.event.quit)

    (love.keyboard.isDown "m")
    (sound.toggle)

    :else
    (mode.keypressed key set-mode)))

(fn love.keyreleased [key]
  (mode.keyreleased key set-mode))

(fn love.gamepadpressed [_ button]
  (print button))