get info pad rendering

two_player_cleaning_game/assets/tiled/tutorial.tmx

@@ -76,7 +76,4 @@
   <object id="15" name="controls" type="info_pad" x="550" y="1150" width="25" height="25"/>
   <object id="16" name="controls" type="info_pad" x="675" y="1150" width="25" height="25"/>
  </objectgroup>
- <objectgroup id="4" name="Layer via Copy">
-  <object id="18" name="waiting_for_player2" type="info_pad" x="675" y="1025" width="25" height="25"/>
- </objectgroup>
 </map>

two_player_cleaning_game/src/entities/info-pad.fnl

@@ -0,0 +1,31 @@
+(local utils (require "src/utils.fnl"))
+(local beholder (require "libs/beholder"))
+(local color (require "src/colors.fnl"))
+(local levels (require "levels.fnl"))
+(local assets (require "src/assets.fnl"))
+
+(lambda info-pad [x y name]
+  (let [pad {: x : y : name}
+        (w h) (assets.objects-sprite:getDimensions)]
+    (lambda pad.load [self]
+      (set self.quad (love.graphics.newQuad 75 0 25 25 w h)))
+
+    (fn pad.draw-debug [self]
+        (color.set-color :black)
+        (love.graphics.rectangle "line" self.x self.y 25 25))
+
+    (lambda pad.draw49 [self]
+      (color.reset-color)
+      (love.graphics.draw assets.objects-sprite self.quad self.x self.y))
+    pad
+
+
+  ))
+
+
+info-pad
+
+; (lambda [{:bump-world bw :level-key key}]
+;   (set bump-world bw)
+;   (set level-key key)
+;   player)

two_player_cleaning_game/src/levels/tutorial.fnl

@@ -7,21 +7,17 @@
 (local player (require "src/entities/player.fnl"))
 (local walls (require "src/systems/walls.fnl"))
 (local hud (require "src/systems/hud.fnl"))
+(local levels (require "levels.fnl"))
+(local info-pad (require "src/entities/info-pad.fnl"))
+
+(lambda load-objects [level-key pool]
+    (each [_ object  (pairs (. levels :levels level-key :objects))]
+      ; (debug-print object)
+      (case object.type
+        "info_pad" (pool:queue (info-pad object.x object.y object.name))
+    ))
+)
 
-; (local colliders {
-;   :added {}
-; })
-; (fn colliders.update [self]
-;   (each [_ c (ipairs self.pool.groups.colliders.entities)]
-;     (when (not (. self.added (. c 1)))
-;       (print "Adding collider to list")
-;       (utils.debug-print c)
-;       (tset self.added (. c 1) true)
-;       )))
-    ; (let [obj (. c 1)]
-    ;   (when (not (. self.added obj))
-    ;     (set self.added obj true)
-    ;     (self.pool.data.bump-world:add (unpack c))))))
 
 (fn load [screen]
   (let [
@@ -47,6 +43,7 @@
     ]
     })]
     (pool:queue (player {:bump-world bump-world :level-key :tutorial}))
+    (load-objects :tutorial pool)
     pool))
 
 {