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

load collider boxes

Browse source 
Press any key to quit" 10 10))
This commit is contained in:
Travis Shears 2026-04-11 07:58:04 +02:00
parent 63b9221590
commit 506cd5a28e
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
5 changed files with 858 additions and 100 deletions
Download patch file Download diff file Expand all files Collapse all files

155
two_player_cleaning_game/main.fnl
View file

@ -1,11 +1,15 @@
(local map-util (require "map-util.fnl"))
;; deps
(local levels (. (require "levels.fnl") :levels))
(local bump (require "bump"))
;; global vars
(var player-art nil) ; 25x50 pixels each player is 25x25
(var dust-sprite nil) ; 35x35 pixels
(var walls-sprite nil)
(var walls-batch nil)
(var wall-quads nil)
(local collider-debug-boxes [])
(local bump-world (bump.newWorld 25))
(local game-state {
:player-pos [0 0]
:player-dir :n ; n = north, s = south, e = east, w = west
@ -13,40 +17,47 @@
:world []
})
(fn start-level []
;; set player position to the start of the current level
(tset game-state :player-pos
(. map-util :levels (. game-state :level) :player-start))
;; set fresh world
(let [world []]
(each [y walls (ipairs (. map-util :levels (. game-state :level) :walls))]
(table.insert world [])
(each [x wall (ipairs walls)]
(table.insert (. world y) {:revealed false :type
(if (= wall 1) :wall :floor)
})
)
)
(tset game-state :world world)
)
)
; (lambda gen-wall-colliders [x y tile-id]
; (let [colliders (
; (icollect [_ v (ipairs (. levels :level01 :wall-colliders)]
; )]
; (if (< 2 v) (* v v)))
; )])
; )
(fn love.load []
(map-util:load)
(love.window.setMode 600 640)
;; load world images
(set walls-sprite (love.graphics.newImage "assets/walls.png"))
(set walls-batch (love.graphics.newSpriteBatch walls-sprite 2500))
;; load wall quads
(set wall-quads [])
(let [(h w) (: walls-sprite :getDimensions)]
(for [i 0 19 1]
(table.insert wall-quads (love.graphics.newQuad (* i 25) 0 25 25 h w))))
;; load tiles
(each [_ row (pairs (. levels :level01 :tiles))]
(each [_ tile (pairs row)]
(: walls-batch :add (. wall-quads (. tile :tile-id)) (. tile :x) (. tile :y))))
(let [
x (. tile :x)
y (. tile :y)
id (. tile :tile-id)
colliders (or (. levels.level01.wall-colliders (- id 1)) [])]
(walls-batch:add (. wall-quads id) x y)
; (print (fennel.view colliders))
(each [_ collider (pairs colliders)]
(bump-world:add {: x : y} (+ x collider.x) (+ y collider.y) collider.width collider.height)
(table.insert
collider-debug-boxes
{:x (+ x collider.x) :y (+ y collider.y) :width collider.width :height collider.height})
))))
(set player-art {
:player-sprite (love.graphics.newImage "assets/player.png")
@ -55,7 +66,6 @@
})
(set dust-sprite (love.graphics.newImage "assets/dust_001.png"))
(start-level)
; (print (fennel.view game-state))
;; start a thread listening on stdin
(: (love.thread.newThread "require('love.event')
@ -78,84 +88,53 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
(local black [0 0 0])
(local black-half-tone [0 0 0 0.25])
(fn draw-game-outline []
(love.graphics.setColor (unpack black))
(love.graphics.rectangle "line" 50 50 500 500))
(fn draw-world []
(love.graphics.setColor 1 1 1) ; reset color to white (no tinting)
(love.graphics.draw walls-batch)
)
; (print (fennel.view game-state))
(fn draw-player []
(love.graphics.setColor 1 1 1) ; reset color to white (no tinting)
(let [
[player-x player-y] (. game-state :player-pos)
rot (case (. game-state :player-dir)
:n 0
:s (* math.pi 1)
:e (* math.pi 0.5)
:w (* math.pi 1.5))
; (fn draw-player []
; (love.graphics.setColor 1 1 1) ; reset color to white (no tinting)
; (let [ [player-x player-y] (. game-state :player-pos) ]
; (love.graphics.draw
; (. player-art :player-sprite)
; (. player-art :player1-quad)
; (+ (* 25 player-x) x-offset 25)
; (+ (* 25 player-y) y-offset 25))))
x-offset (case (. game-state :player-dir)
:n 0
:s 25
:e 25
:w 0)
y-offset (case (. game-state :player-dir)
:n 0
:s 25
:e 0
:w 25)
]
(love.graphics.draw
(. player-art :player-sprite)
(. player-art :player1-quad)
(+ (* 25 player-x) x-offset 25)
(+ (* 25 player-y) y-offset 25))))
(fn draw-ghost-grid []
(love.graphics.setColor (unpack black-half-tone))
(for [y 0 19 1]
(for [x 0 19 1]
(love.graphics.rectangle "line"
(+ 50 (* x 25))
(+ 50 (* y 25))
25 25))))
(fn love.draw []
;; clear the screen and set bg to off white
(love.graphics.clear)
(love.graphics.setColor (unpack off-white))
(love.graphics.rectangle "fill" 0 0 600 640)
(draw-game-outline)
(draw-ghost-grid)
(draw-world)
(draw-player)
(love.graphics.setColor (unpack black)) ; reset color to white (no tinting)
(each [_ collider (pairs collider-debug-boxes)]
(love.graphics.rectangle "line" collider.x collider.y collider.width collider.height))
)
; (love.graphics.print "Hello from Fennel!\nPress any key to quit" 10 10))
(fn love.keypressed [key]
(let [
[player-x player-y] (. game-state :player-pos)
[next-player-x next-player-y] (case key
:left [(- player-x 1) player-y]
:up [player-x (- player-y 1)]
:right [(+ player-x 1) player-y]
:down [player-x (+ player-y 1)]
_ [player-x player-y])
next-cell (. game-state :world next-player-y next-player-x)
valid-move (not= :wall (. next-cell :type))
]
(when valid-move
(tset game-state :player-pos [next-player-x next-player-y]))
(tset game-state :world next-player-y next-player-x :revealed true)
(case key
:left (tset game-state :player-dir :w)
:up (tset game-state :player-dir :n)
:right (tset game-state :player-dir :e)
:down (tset game-state :player-dir :s)))
nil
; (let [
; [player-x player-y] (. game-state :player-pos)
; [next-player-x next-player-y] (case key
; :left [(- player-x 1) player-y]
; :up [player-x (- player-y 1)]
; :right [(+ player-x 1) player-y]
; :down [player-x (+ player-y 1)]
; _ [player-x player-y])
; next-cell (. game-state :world next-player-y next-player-x)
; valid-move (not= :wall (. next-cell :type))
; ]
; (when valid-move
; (tset game-state :player-pos [next-player-x next-player-y]))
; (tset game-state :world next-player-y next-player-x :revealed true)
; (case key
; :left (tset game-state :player-dir :w)
; :up (tset game-state :player-dir :n)
; :right (tset game-state :player-dir :e)
; :down (tset game-state :player-dir :s)))
)