travisshears/robot_cleaning_game
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

move hud logic to system

Browse source
This commit is contained in:
Travis Shears 2026-04-24 13:23:15 +02:00
parent 84db41dc51
commit 45bfeb5eb5
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
5 changed files with 69 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

71
two_player_cleaning_game/main.fnl
View file

@ -18,13 +18,6 @@
:scale scale}))
(local debug true)
; (local collider-debug-boxes [])
; (lambda add-collider-debug-box [x y w h]
; (table.insert collider-debug-boxes {: x : y :width w :height h}))
; (var bump-world nil)
; (local player { :x 50 :y 50 :w 25 :h 25 :speed 80 :battery 100 :rot 0 })
; (lambda create-charging-station [x y]
; (let [
@ -59,9 +52,6 @@
; (add-collider-debug-box pad.x pad.y 25 25)))
; (table.insert objects.list station)))
; (lambda load-h-door [obj]
; (debug-print obj))
; (fn load-objects []
; (let [(w h) (objects.sprite:getDimensions)]
; (set objects.quads.charging-pad (love.graphics.newQuad 0 0 25 25 w h))
@ -74,12 +64,6 @@
; "h_door" (load-h-door object))
; ))
; (fn load-player []
; (set player.battery 100)
; (set player.x (. levels :levels level-key :spawns :player-1 :x))
; (set player.y (. levels :levels level-key :spawns :player-1 :y))
; (bump-world:add player player.x player.y player.w player.h))
; (lambda load-level [lvl-name]
; (set bump-world (bump.newWorld 25))
; (set level-key :tutorial)
@ -88,33 +72,6 @@
; (load-walls)
; (load-objects))
; (fn load-assets []
; (set objects.sprite (love.graphics.newImage "assets/objects.png"))
; (set walls.sprite (love.graphics.newImage "assets/walls.png"))
; (set battery-bar-sprite (love.graphics.newImage "assets/battery_bar.png"))
; (set player-art
; (let [
; player-sprite (love.graphics.newImage "assets/player.png")
; (w h) (player-sprite:getDimensions)]
; {
; :player-sprite player-sprite
; :player1 {
; :quads {
; :n (love.graphics.newQuad 0 0 25 25 w h)
; :s (love.graphics.newQuad 25 0 25 25 w h)
; :ne (love.graphics.newQuad 50 0 25 25 w h)
; :e (love.graphics.newQuad 75 0 25 25 w h)
; :se (love.graphics.newQuad 100 0 25 25 w h)
; :sw (love.graphics.newQuad 125 0 25 25 w h)
; :w (love.graphics.newQuad 150 0 25 25 w h)
; :nw (love.graphics.newQuad 175 0 25 25 w h)
; }
; }
; }
; ))
; )
(fn love.load []
(love.window.setMode screen.screen-w screen.screen-h)
; (tset screen :canvas (love.graphics.newCanvas screen.canvas-w screen.canvas-h))
@ -198,39 +155,13 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
; (network.send-update player.x player.y player.rot player.battery))
; (set net-state.net-update-timer 0)))
; (fn draw-ui []
; (love.graphics.push)
; (love.graphics.translate 0 400)
; (let [font (love.graphics.newFont 10) font-small (love.graphics.newFont 6)]
; (set-color :cream)
; (love.graphics.rectangle "fill" 0 0 screen.canvas-w 100)
; (reset-color)
; (love.graphics.draw battery-bar-sprite 78 8)
; (set-color :dark-purple)
; (love.graphics.setFont font)
; (love.graphics.print (.. "Battery: " (string.format "%d" player.battery) "%") 6 7)
; (set-color :light-blue)
; (love.graphics.rectangle "fill" 80 12 (* 152 (/ player.battery 100)) 4)
; (love.graphics.setFont font-small)
; (set-color :dark-purple)
; (love.graphics.print "100%" 229 2)
; (set-color :light-pink)
; (love.graphics.print "125%" 267 2)
; (love.graphics.print "125%" 306 2)
; (love.graphics.print "150%" 345 2)
; (love.graphics.print "200%" 382 2)
; (set-color :dark-purple)
; (love.graphics.line 0 0 screen.canvas-w 0)
; )
; (love.graphics.pop)
; )
(fn love.draw []
(for [i 1 99 1]
(let [draw-trigger (.. "draw" i)]
(pool:emit draw-trigger)
(when (and (= i 98) debug) (pool:emit "draw-debug")))))
(when (and (= i 88) debug) (pool:emit "draw-debug")))))
; (fn love.draw []
; (love.graphics.setCanvas screen.canvas)