pico_vibrations #150

Something just for fun to explore some concepts like seed looping.

Source code:

pico-8 cartridge // http://www.pico-8.com
version 35
__lua__
_set_fps(60)

r=rnd
w=stat(6)
seed=1
for i=1,#w do
ch=ord(sub(w,i,i))seed+=seed*31+ch
end
if(#w==0)seed=r(-1)
srand(seed)

lines=r({-1,0,1})
fp=r({true,false})
--poke(24364,r({0,0,0,5,6,7}))
fillp(r({▥,█,▤}))
for i=0,15do
pal(i,r(32)-16,1)
end
cls()

::_::

clip(16,16,96,96)

srand(seed)
x=r(64)+16
y=r(64)+16
for i=0,10do
line(x*r({1,-1}),y*r({1,-1}),y*r({1,-1}),x*r({1,-1}),r(6))
x+=r(4)-2
y+=r(4)-2
circ(x,y,r(30)+.5,pget(x,y)-1)
end

poke(0x5f54,0x60)
palt(0,false)
sspr(0,0,128,128,2,2,128-4,128-4)
for i=0,15 do
circ(rnd(128),rnd(128),rnd(64)+64,rnd(8))
sspr(0,rnd(128),128,rnd(5),rnd(128),0,rnd(5),128)
sspr(rnd(128),0,rnd(5),128,0,rnd(128),128,rnd(5))
end
poke(0x5f54,0x00)
palt(0,true)


--blur boxes
for i=0,40do
a=96
b=16
pset(r(a)+b,r(a)+b,pget(r(a)+b,r(a)+b))
end

if(fp)flip()
clip()
for i=0,lines do
x=r(96)+16
y=r(96)+16
line(x,0,x,128,r(15))
line(0,y,128,y,r(15))
end

if not rec then
if(btnp(🅾️))extcmd("screen")rec=true
if(btnp(❎))extcmd("video")rec=true
end
if(t()*100\1%500==0)rec=false

goto _