diff options
| author | equa <equaa@protonmail.com> | 2021-04-24 13:26:17 -0500 |
|---|---|---|
| committer | equa <equaa@protonmail.com> | 2021-04-24 13:26:17 -0500 |
| commit | 888619ec34e04f3d330c687bf8b0ea55f92a8bcb (patch) | |
| tree | 6e38aa20984078b83246b302bda96310274f1b3c /lib | |
| parent | 5886071e3e05e6d75ffe0990776b5bd407f7ce3d (diff) | |
clean up
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/game.fnl | 1 | ||||
| -rw-r--r-- | lib/main.fnl | 16 | ||||
| -rw-r--r-- | lib/transition.fnl | 2 |
3 files changed, 1 insertions, 18 deletions
diff --git a/lib/game.fnl b/lib/game.fnl index 833de6b..bf4b857 100644 --- a/lib/game.fnl +++ b/lib/game.fnl @@ -5,7 +5,6 @@ (local entity (require :lib.entity)) (local player (require :lib.player)) (local transition (require :lib.transition)) -(local fv (require :fennel.view)) (local music-state (require :lib.music-state)) (fn lerp* [a b c d x] diff --git a/lib/main.fnl b/lib/main.fnl index b657d94..90048d5 100644 --- a/lib/main.fnl +++ b/lib/main.fnl @@ -4,8 +4,6 @@ (local game (require :lib.game)) (local music (require :lib.music)) (local font (require :lib.font)) -(local profi (require :vendor.ProFi)) -(local profi? false) ;; i am thinking we could actually do a really hacky thing (modules add themselves ;; to this list) with this later but @@ -26,9 +24,6 @@ (fn love.load [] (music.load) - (when profi? - (profi:start) - (set love.frame 0)) (love.keyboard.setKeyRepeat true) (global the-state (state.init game)) (global messages (or messages {}))) @@ -57,13 +52,6 @@ (fn love.update [] (music.pre-update) - (when profi? - (profi:startHooks) - (set love.frame (+ love.frame 1)) - (when (= (% love.frame 100) 0) - (profi:stop) - (profi:writeReport) - (os.exit))) ;; TODO: make state changes actually possible (match (pcall #(state.update the-state)) (true next) (global the-state next) @@ -73,9 +61,7 @@ (table.insert messages {:ticks 1 :msg (.. "update: \n" x)}))) - (music.update) - (when profi? - (profi:stopHooks))) + (music.update)) (fn love.mousepressed [x y button] (match (pcall #(state.mousepressed the-state x y button)) diff --git a/lib/transition.fnl b/lib/transition.fnl index c1a81a0..e48411d 100644 --- a/lib/transition.fnl +++ b/lib/transition.fnl @@ -105,9 +105,7 @@ scale (get-scale) x (/ (- x (/ width 2)) scale) y (/ (- y (/ height 2)) scale)] - (print x y) (when (and (= button 1) (. boxes self.type)) - (print :a) (each [i box (ipairs (. boxes self.type))] (when (and (>= x box.x) (< x (+ box.x box.width)) |