asrael/pxl8
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add auto run

Browse source
This commit is contained in:
asrael 2025-11-20 20:55:45 -06:00
parent fa57baf212
commit 2555bec8eb
9 changed files with 142 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

6
demo/main.fnl
View file

@ -26,11 +26,11 @@
(pxl8.transition_start transition)))
(global init (fn []
(cube3d.init)
(worldgen.init)
(pxl8.load_palette "res/sprites/pxl8_logo.ase")
(set logo-sprite (pxl8.load_sprite "res/sprites/pxl8_logo.ase"))
(set particles (pxl8.particles_new 1000))))
(set particles (pxl8.particles_new 1000))
(cube3d.init)
(worldgen.init)))
(global update (fn [dt]
(set time (+ time dt))

21
demo/mod/worldgen.fnl
View file

@ -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")