init walls system

two_player_cleaning_game/src/levels/tutorial.fnl

@@ -1,9 +1,11 @@
+(local bump (require "libs/bump"))
 (local color (require "src/colors.fnl"))
 (local nata (require "libs/nata"))
 (local utils (require "src/utils.fnl"))
 (local camera (require "src/systems/camera.fnl"))
 (local beholder (require "libs/beholder"))
 (local player (require "src/entities/player.fnl"))
+(local walls (require "src/systems/walls.fnl"))
 
 (fn load [screen]
   (let [
@@ -12,6 +14,8 @@
       :data {
         : screen
         : canvas
+        :bump-world (bump.newWorld 25)
+        :level-key :tutorial
       }
       ; :groups  {
       ;   gravity = {filter = {'gravity'}},
@@ -20,6 +24,7 @@
       :systems [
         (nata:oop)
         camera
+        walls
     ]
     })]
     (pool:queue player)

two_player_cleaning_game/src/systems/walls.fnl

@@ -0,0 +1,58 @@
+(local assets (require "src/assets.fnl"))
+(local levels (require "levels.fnl"))
+(local color (require "src/colors.fnl"))
+
+(local walls {
+  :quads []
+  :batch nil
+  :collider-debug-boxes []
+})
+
+(lambda mirror-collider [collider]
+  "Mirror a collider box horizontally within a 25-unit tile (center is at 12.5)
+   Transforms collider positions so they're reflected across the vertical center line."
+  {
+    :x (- 25 collider.x collider.width)
+    :y collider.y
+    :width collider.width
+    :height collider.height
+  })
+
+(fn walls.load [self]
+  (set self.batch (love.graphics.newSpriteBatch assets.walls-sprite 2500))
+  ;; load quads
+  (let [(w h) (assets.walls-sprite:getDimensions)]
+    (for [i 0 19 1]
+      (table.insert self.quads (love.graphics.newQuad (* i 25) 0 25 25 w h))))
+  ;; fill batch
+  (each [_ row (pairs (. levels :levels self.pool.data.level-key :tiles))]
+    (each [_ tile (pairs row)]
+      (let [
+        x tile.x
+        y tile.y
+        id tile.tile-id
+        colliders tile.colliders]
+      (if (and (> id 0) (< id 21)) ;; 1-20 are wall tiles
+        (do
+          (self.batch:add (. self.quads id) (if tile.h-flip (+ x 25) x) y 0 (if tile.h-flip -1 1) 1)
+          (each [_ collider (pairs colliders)]
+            (let [
+              mirrored-collider (if tile.h-flip (mirror-collider collider) collider)
+              collider-x (+ x mirrored-collider.x)
+              collider-y (+ y mirrored-collider.y)]
+              (self.pool.data.bump-world:add {: x : y :name :wall :behavior :block} collider-x collider-y mirrored-collider.width mirrored-collider.height)
+              (table.insert
+                self.collider-debug-boxes
+                {:x collider-x :y collider-y :width mirrored-collider.width :height mirrored-collider.height})))))))))
+
+(fn walls.draw49 [self]
+    (color.reset-color)
+    (love.graphics.draw self.batch))
+
+(fn walls.draw-debug [self]
+  "draw collider debug boxes"
+    (color.set-color :black)
+    (each [_ collider (pairs self.collider-debug-boxes)]
+      (love.graphics.rectangle "line" collider.x collider.y collider.width collider.height)))
+
+walls