191 lines
6.9 KiB
Fennel
191 lines
6.9 KiB
Fennel
;; deps
|
|
; (local levels (. (require "levels.fnl") :levels))
|
|
; (local bump (require "libs/bump"))
|
|
; (local tiny (require "libs/tiny"))
|
|
; (local assets (require "src/assets.fnl"))
|
|
(local utils (require "src/utils.fnl"))
|
|
; (local colors (require "src/colors.fnl"))
|
|
; (local tutorial (require "src/levels/tutorial.fnl"))
|
|
(local dev (require "src/levels/dev.fnl"))
|
|
|
|
(local level dev)
|
|
(local debug false)
|
|
|
|
(var pool nil)
|
|
|
|
(love.graphics.setDefaultFilter :nearest :nearest)
|
|
(local screen
|
|
(let [scale 2 canvas-w 800 canvas-h 450]
|
|
{ :screen-w (* canvas-w scale)
|
|
:screen-h (* canvas-h scale)
|
|
:canvas-w canvas-w
|
|
:canvas-h canvas-h
|
|
:scale scale}))
|
|
|
|
|
|
; (lambda create-charging-station [x y]
|
|
; (let [
|
|
; station {: x : y :type :charging-station :active-pads {1 false 2 false 3 false}}
|
|
; pads {
|
|
; 1 {:x (- x 25) :y y :width 25 :height 25 :light-x (+ x 5)}
|
|
; 3 {:x (+ x 25) :y y :width 25 :height 25 :light-x (+ x 5 6 6)}
|
|
; 2 {:x x :y (+ y 25) :width 25 :height 25 :light-x (+ x 5 6)}
|
|
; }]
|
|
; (bump-world:add {: x : y :name :charging-station :behavior :block} x y 25 25)
|
|
; (add-collider-debug-box x y 25 25)
|
|
; (fn station.draw [self]
|
|
; (reset-color)
|
|
; (love.graphics.draw objects.sprite objects.quads.charging-station self.x self.y)
|
|
; (for [i 1 3 1]
|
|
; (let [pad (. pads i)]
|
|
; (if (. self.active-pads i)
|
|
; (do (love.graphics.draw objects.sprite objects.quads.charging-pad-active pad.x pad.y)
|
|
; (set-color :light-pink)
|
|
; (love.graphics.rectangle "fill" pad.light-x (+ y 18) 2 2)
|
|
; (reset-color))
|
|
; (love.graphics.draw objects.sprite objects.quads.charging-pad pad.x pad.y))))
|
|
; )
|
|
; (lambda pad-hover-cb [self dt]
|
|
; (tset station.active-pads self.id true)
|
|
; (when (< player.battery 100) (set player.battery (+ player.battery (* dt 6)))))
|
|
; (lambda station.update [self _dt]
|
|
; (set self.active-pads {1 false 2 false 3 false}))
|
|
; (for [i 1 3 1]
|
|
; (let [pad (. pads i)]
|
|
; (bump-world:add {:name :charging-pad :behavior :hover :hover-cb pad-hover-cb :id i} pad.x pad.y 25 25)
|
|
; (add-collider-debug-box pad.x pad.y 25 25)))
|
|
; (table.insert objects.list station)))
|
|
|
|
; (fn load-objects []
|
|
; (let [(w h) (objects.sprite:getDimensions)]
|
|
; (set objects.quads.charging-pad (love.graphics.newQuad 0 0 25 25 w h))
|
|
; (set objects.quads.charging-pad-active (love.graphics.newQuad 50 0 25 25 w h))
|
|
; (set objects.quads.charging-station (love.graphics.newQuad 25 0 25 25 w h))
|
|
; (set objects.quads.door (love.graphics.newQuad 25 25 25 25 w h)))
|
|
; (each [_ object (pairs (. levels :levels level-key :objects))]
|
|
; ; (debug-print object)
|
|
; (case object.type
|
|
; "h_door" (load-h-door object))
|
|
; ))
|
|
|
|
; (lambda load-level [lvl-name]
|
|
; (set bump-world (bump.newWorld 25))
|
|
; (set level-key :tutorial)
|
|
; ;; set player 1 location
|
|
; (load-player)
|
|
; (load-walls)
|
|
; (load-objects))
|
|
|
|
(fn love.load []
|
|
(love.window.setMode screen.screen-w screen.screen-h)
|
|
(set pool (level.load screen))
|
|
(pool:flush)
|
|
(pool:emit :load)
|
|
; (utils.debug-print pool)
|
|
; (utils.debug-print world)
|
|
; (load-assets)
|
|
; (load-level :tutorial)
|
|
;; Initialize network
|
|
; (network.init)
|
|
; (network.send-msg "REGISTER")
|
|
|
|
;; start a thread listening on stdin
|
|
(: (love.thread.newThread "require('love.event')
|
|
while 1 do love.event.push('stdin', io.read('*line')) end") :start))
|
|
|
|
(fn love.handlers.stdin [line]
|
|
;; evaluate lines read from stdin as fennel code
|
|
(let [(ok val) (pcall fennel.eval line)]
|
|
(print (if ok (fennel.view val) val))))
|
|
|
|
;; drawing
|
|
; (fn draw-world []
|
|
; (reset-color)
|
|
; (love.graphics.draw walls.batch)
|
|
; ;; draw collider debug boxes
|
|
; (when debug
|
|
; (set-color :black)
|
|
; (each [_ collider (pairs collider-debug-boxes)]
|
|
; (love.graphics.rectangle "line" collider.x collider.y collider.width collider.height))))
|
|
|
|
|
|
(fn love.update [dt]
|
|
(pool:flush)
|
|
(pool:emit :update dt))
|
|
|
|
; (fn love.update [dt]
|
|
; (each [_ obj (pairs objects.list)]
|
|
; (obj:update dt))
|
|
; ; move / rotate player
|
|
; (let [
|
|
; d-key (love.keyboard.isDown :d)
|
|
; a-key (love.keyboard.isDown :a)
|
|
; e-key (love.keyboard.isDown :e)
|
|
; q-key (love.keyboard.isDown :q)]
|
|
; ; (print (fennel.view {: d-key : a-key : e-key : q-key}))
|
|
; (match {:d-key d-key :a-key a-key :e-key e-key :q-key q-key}
|
|
; {:d-key true :a-key false :e-key false :q-key false} (tset player :rot (+ player.rot (* dt 2)))
|
|
; {:d-key false :a-key true :e-key false :q-key false} (tset player :rot (- player.rot (* dt 2)))
|
|
; {:d-key false :a-key false :e-key true :q-key false} (tset player :rot (- player.rot (* dt 2)))
|
|
; {:d-key false :a-key false :e-key false :q-key true} (tset player :rot (+ player.rot (* dt 2)))
|
|
; )
|
|
; (when (and (> player.battery 0) (or d-key a-key e-key q-key))
|
|
; (let [
|
|
; dir-fn (if (or d-key a-key) #(+ $1 $2) #(- $1 $2))
|
|
; new-x (dir-fn player.x (* player.speed dt (math.cos player.rot)))
|
|
; new-y (dir-fn player.y (* player.speed dt (math.sin player.rot)))
|
|
; col-filter-fn (lambda [item other]
|
|
; (if (= other.behavior "block") :slide :cross))
|
|
; (x y cols len) (bump-world:move player new-x new-y col-filter-fn)]
|
|
; (tset player :x x)
|
|
; (tset player :y y))
|
|
; (if (> player.battery 0)
|
|
; (set player.battery (- player.battery (* dt 2))))))
|
|
; ;; Update camera to follow player (keep player centered on screen)
|
|
; (tset camera :x (- player.x (/ screen.canvas-w 2)))
|
|
; (tset camera :y (- player.y (/ screen.canvas-h 2)))
|
|
|
|
; (let
|
|
; [(items len) (bump-world:queryRect player.x player.y 25 25 #(= $1.behavior "hover"))]
|
|
; (each [_ item (pairs items)]
|
|
; (item:hover-cb dt)))
|
|
|
|
; ;; Network updates
|
|
; (network.update dt))
|
|
; (set net-state.net-update-timer (+ net-state.net-update-timer dt))
|
|
; (when (>= net-state.net-update-timer net-state.net-update-interval)
|
|
; (when net-state.connected
|
|
; (network.send-update player.x player.y player.rot player.battery))
|
|
; (set net-state.net-update-timer 0)))
|
|
|
|
|
|
|
|
(fn love.draw []
|
|
(for [i 1 99 1]
|
|
(let [draw-trigger (.. "draw" i)]
|
|
(pool:emit draw-trigger)
|
|
(when (and (= i 88) debug) (pool:emit "draw-debug")))))
|
|
|
|
; (fn love.draw []
|
|
; (love.graphics.setCanvas screen.canvas)
|
|
; (love.graphics.clear)
|
|
; (set-color :cream)
|
|
; (love.graphics.rectangle "fill" 0 0 screen.canvas-w screen.canvas-h)
|
|
; (love.graphics.push) ; stores the default coordinate system
|
|
; (love.graphics.translate (* -1 camera.x) (* -1 camera.y))
|
|
; (draw-world)
|
|
; (draw-objects)
|
|
; (draw-player)
|
|
; (love.graphics.pop)
|
|
; (draw-ui)
|
|
; (love.graphics.setCanvas)
|
|
; (reset-color)
|
|
; (love.graphics.draw screen.canvas 0 0 0 screen.scale screen.scale))
|
|
; (love.graphics.print "Hello from Fennel!\nPress any key to quit" 10 10))
|
|
|
|
(fn love.keypressed [key] nil )
|
|
|
|
(fn love.quit []
|
|
"Clean up before game closes"
|
|
; (network.close)
|
|
false)
|