blob: e4bed7b89984f4993862f60c9f44d24eefb9e80f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
;;;; 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.
(math.randomseed (os.time))
(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 :menu))
(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.mousepressed [x y]
(mode.click (/ x scale) (/ y scale) set-mode))
|
