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

add jump to demo #9

Browse source
This commit is contained in:
asrael 2025-11-15 08:30:51 -06:00
parent 55b7a44af3
commit 53ea4dd883
3 changed files with 92 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

30
demo/main.fnl
View file

@ -5,10 +5,10 @@
(var time 0)
(var active-demo :logo)
(var particles nil)
(var fire-init false)
(var rain-init false)
(var snow-init false)
(var use-famicube-palette false)
(var fire-init? false)
(var rain-init? false)
(var snow-init? false)
(var use-famicube-palette? false)
(var logo-x 256)
(var logo-y 148)
@ -32,18 +32,18 @@
(when (pxl8.key_pressed "4") (set active-demo :raster))
(when (pxl8.key_pressed "5")
(set active-demo :fire)
(set fire-init false))
(set fire-init? false))
(when (pxl8.key_pressed "6")
(set active-demo :rain)
(set rain-init false))
(set rain-init? false))
(when (pxl8.key_pressed "7")
(set active-demo :snow)
(set snow-init false))
(set snow-init? false))
(when (pxl8.key_pressed "8") (set active-demo :cube3d))
(when (pxl8.key_pressed "9") (set active-demo :worldgen))
(when (pxl8.key_pressed "=")
(set use-famicube-palette (not use-famicube-palette))
(local palette-path (if use-famicube-palette "res/palettes/famicube.ase" "res/sprites/pxl8_logo.ase"))
(set use-famicube-palette? (not use-famicube-palette?))
(local palette-path (if use-famicube-palette? "res/palettes/famicube.ase" "res/sprites/pxl8_logo.ase"))
(pxl8.load_palette palette-path))
(case active-demo
@ -81,28 +81,28 @@
:fire (do
(pxl8.clr 0)
(when particles
(when (not fire-init)
(when (not fire-init?)
(pxl8.particles_clear particles)
(pxl8.vfx_fire particles 160 140 100 12)
(set fire-init true))
(set fire-init? true))
(pxl8.particles_render particles)))
:rain (do
(pxl8.clr 0)
(when particles
(when (not rain-init)
(when (not rain-init?)
(pxl8.particles_clear particles)
(pxl8.vfx_rain particles 320 10.0)
(set rain-init true))
(set rain-init? true))
(pxl8.particles_render particles)))
:snow (do
(pxl8.clr 0)
(when particles
(when (not snow-init)
(when (not snow-init?)
(pxl8.particles_clear particles)
(pxl8.vfx_snow particles 320 5.0)
(set snow-init true))
(set snow-init? true))
(pxl8.particles_render particles)))
:cube3d (cube3d.frame)