Disrupted River

-- disrupted river -- 2022/12/23 a=rnd?"^!5f100▒1😐<" o={}g=128h={}s={}::_::if(t()30%15==0)add(o,{x=a(g)\1,y=0,s=0}) for i=1,999do x=a(g)y=a(g)circ(x,y,1,max(a(2),pget(x,y)-1))end for j in all(o)do j.s+=.1j.y+=j.s circ(j.x,j.y,1,4)if(j.y>98)s[j.x+1]-=9del(o,j)end for i=1,g do e=s[i]or 0f=h[i]or 32s[i]=e+.01((32-f)-e)h[i]=f+s[i]line(i-1,g-f,i-1,g,4)end l={}r={}for j=1,8do for i=2,g-1do l[i]=.1*(h[i]-h[i-1])s[i-1]+=l[i]r[i]=.1*(h[i]-h[i+1])s[i+1]+=r[i]end for i=2,g-1do h[i-1]+=l[i]h[i+1]+=r[i]end end flip()goto _