add auto run

demo/mod/worldgen.fnl

@@ -10,7 +10,7 @@
 (var cam-z 1000)
 (local cell-size 64)
 (local gravity -800)
-(local grid-size 32)
+(local grid-size 64)
 (var grounded? true)
 (local ground-y 64)
 (local jump-force 175)
@@ -24,18 +24,20 @@
 (local turn-speed 2.0)
 (var velocity-y 0)
 (var world nil)
+(var auto-run? false)
 
 (fn init []
   (set world (pxl8.world_new))
   (let [result (pxl8.world_generate world {
-                 :type pxl8.PROCGEN_CAVE
-                 :width 32
-                 :height 32
+                 :type pxl8.PROCGEN_ROOMS
+                 :width 64
+                 :height 64
                  :seed 42
-                 :density 0.45
-                 :iterations 4})]
+                 :min_room_size 5
+                 :max_room_size 10
+                 :num_rooms 20})]
     (if (< result 0)
-        (pxl8.error (.. "Failed to generate cave - result: " result))
+        (pxl8.error (.. "Failed to generate rooms - result: " result))
         (let [floor-tex (pxl8.procgen_tex {:name "floor"
                                            :seed 11111
                                            :width 64
@@ -73,6 +75,9 @@
   (when (pxl8.key_pressed "escape")
     (set mouse-look? (not mouse-look?)))
 
+  (when (pxl8.key_pressed "`")
+    (set auto-run? (not auto-run?)))
+
   (when (pxl8.world_is_loaded world)
     (let [forward-x (- (math.sin cam-yaw))
           forward-z (- (math.cos cam-yaw))
@@ -85,7 +90,7 @@
       (var move-forward 0)
       (var move-right 0)
 
-      (when (pxl8.key_down "w")
+      (when (or (pxl8.key_down "w") auto-run?)
         (set move-forward (+ move-forward 1)))
 
       (when (pxl8.key_down "s")