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)*13*l)%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 _