Genuary 2023 Day 6 - Steal Like An Artist

-- genuary #6 2023 -- steal like an artist -- by carson kompon frain={} fsmile=0 pal({[0]=0,7,5,128,2,136,8,137,9,10,138,11,139,131,140,129},1) cls() function colcycle(z,l) z=z or 0 l=l or 1 return 3+((t()/16+z)13l)%13 end ::_:: t4=t()*4

-- top left pump
clip(0,0,54,7)
for i=1,16do
	x=rnd(54)y=rnd(7)
	circfill(x,y,1,colcycle((x+y)/20/16))
end
rectfill(0,0,35,2,0)
rectfill(11,3,16,3,0)
rectfill(0,3,6,5,0)
rectfill(53-(sin(t())+.5)/2*5,3,53,4,1)

-- frog rain
clip(62,69,4,49)
if(fsmile>0)fsmile-=1
for i=1,8 do
	circ(62+rnd(4),69+rnd(49),1,0)
end
if flr(t()*60)%20==0 then
	add(frain,{
		x=62+rnd(4),
		y=69,
		c=14+rnd()\1,
		hs=0
	})
end
for o in all(frain) do
	o.hs+=0.1
	o.y+=o.hs
	pset(o.x,o.y,o.c)
	if(o.y>=118)del(frain,o)fsmile=4
end

-- top left square
clip(14,14,41,41)
rectfill(14,14,55,55,0)
for i=1,16 do
	for j=1,16 do
		pset(
			14+((i*6)+((j+i+rnd()%2)*3)+t4)%41,
			14+((j*6)+t4)%41,
			2
		)
	end
end
for i=1,8 do
	for j=1,4 do
		tt=t()+i/8
		x=34
		y=48-i*3
		s=8+sin(tt)*5
		line(
			x+cos(tt)*s,
			y+sin(tt)*s/2,
			x+cos(tt+(j/8))*s,
			y+sin(tt+(j/8))*s/2,
			colcycle(i/8)
		)
	end
end

-- top right square
clip(69,10,49,49)
for i=1,200 do
	x=rnd(2)-1
	y=rnd(2)-1
	if(x*x+y*y>1)circfill(93+x*24,34+y*24,1,0)
end
circfill(93+cos(t())*24,34+sin(t())*24,1,5)
circfill(93+cos(-t())*22,34+sin(-t())*22,1,14)
for i=1,200 do
	x=rnd(2)-1
	y=rnd(2)-1
	c=8+rnd(2)
	if(x*x+y*y>.7)c=0
	xx=93+x*24
	yy=34+y*24
	xd=xx-90
	yd=yy-31
	if(xd*xd+yd*yd>18^2)circfill(xx,yy,1,c)
end
for i=1,200 do
	x=rnd(2)-1
	y=rnd(2)-1
	c=4+(atan2(y,x)*11+t())%11
	if(x*x+y*y<=.8)circfill(90+x*15,31+y*15,1,c)
end
-- bottom right square
clip(69,69,49,49)
for i=1,100 do
	circfill(69+rnd(49),69+rnd(49),1,0)
end
for i=1,3 do
	d=t()/2+i/3+(t()/8)
	h=18+sin(t()*4+i/3)*6
	circfill(
		93+cos(d)*h,
		93+sin(d)*h,
		4,
		mid(colcycle(i/3),4,14)
	)
end

-- bottom left square
clip(10,69,49,49)
for i=1,9 do
	circ(34,93,rnd(20),0)
end
for i=1,4 do
	circ(34,93,(i*4+t()*20)%20,colcycle(0,16))
end

-- water in middle
clip(60,10,8,58)
rectfill(60,10,68,68,0)
for i=0,8 do
	l=30+sin(t())*4+sin(t()+i/8)
	line(60+i,68-l,60+i,68,14)
end

-- water at bottom
clip(0,118,128,10)
rectfill(0,118,128,128,0)
for i=0,127 do
	l=3+sin(t()+i/32)*2
	line(i,128-l,i,128,14)
end

--== full screen clip ==--
clip(0,0,128,128)

-- moving tractor beams on left
rectfill(1,70,7,90,0)
rectfill(1,99,7,116,0)
for i=0,3 do
	for j=0,4 do
		tt=t()*32
		if(i%2==0)tt*=-1
		pset(1+i*2,70+(j*4+tt)%18,2)
		tt*=-1
		pset(1+i*2,99+(j*4+tt)%18,2)
	end
end

-- character screen on right
rectfill(121,33,125,38,0)
print(chr(16+flr(t())%212),122,34,colcycle(1,16))
for i=1,4 do
	for j=1,6 do
		c=rnd({0,0,0,0,0,0,0,4+rnd(10)})
		pset(120+((i-1)*2),42+((j-1)*2),c)
	end
end

-- falling dots on the left
line(3,25,3,44,0)
for i=1,4 do
	pset(3,25+((i*5)+t()*16)%19,1)
end

-- frog eyes
rectfill(58,123,69,126,0)
rectfill(57,124,70,125,0)
rectfill(59,121,68,122,0)
rectfill(60,120,67,120,0)
if fsmile > 0 then
	pset(61,121,1)
	pset(66,121,1)
else
	line(61,121,61,120,1)
	line(66,121,66,120,1)
end

-- draw main sprite
pal(7,1)
sspr(0,0,128,128,0,0)
pal(7,7)
flip()

goto _