switch repo to just cleaning game focus

game/src/levels/dev.fnl

@@ -0,0 +1,72 @@
+(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"))
+(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))
+    ))
+)
+
+(lambda collider-manager [bump-world]
+  (local collider-manager {})
+  (lambda collider-manager.addToGroup [self group-name entity]
+    (when (= group-name :hitbox)
+      ; (utils.debug-print {:adding entity})
+      (bump-world:add entity (unpack entity.hitbox))))
+  collider-manager)
+
+; (lambda register-notifications []
+  ; (beholder.observe "PLAYER.HIT" (lambda [other]
+  ;   (when (= other.object-type :info-pad)
+  ;     (beholder.trigger "NOTIFICATION" "[a] is left wheel forward [d] is right wheel forward"))
+  ;   (utils.debug-print {: other}))))
+  ; (beholder.observe "PLAYER.HIT" :info-pad (lambda [info-pad-name]
+  ;   (case info-pad-name
+  ;     :controls (beholder.trigger "NOTIFICATION" "[a] is left wheel forward [d] is right wheel forward")
+    ; ))))
+
+
+(fn load [screen]
+  ; (register-notifications)
+  (let [
+    canvas (love.graphics.newCanvas screen.canvas-w screen.canvas-h)
+    level-key :dev
+    bump-world (bump.newWorld 25)
+    pool (nata.new {
+      :data {
+        : screen
+        : canvas
+        : bump-world
+        : level-key
+      }
+      :groups  {
+        ; gravity = {filter = {'gravity'}},
+       :hitbox {:filter [:hitbox]}
+       ; :post-draw {:filter  [:post-draw]}
+      }
+      :systems [
+        (nata:oop)
+        (collider-manager bump-world)
+        camera
+        walls
+        (hud {: screen})
+    ]
+    })]
+    (pool:queue (player {: bump-world : level-key}))
+    (load-objects level-key pool)
+    pool))
+
+{
+  : load
+}