>urnd=math.random r=5 c=10 cls() px=nil py=nil function TIC() mx,my,left,middle,right,scrollx,scrolly=mouse() c=(c+scrolly)%16 if left then pc=c elseif right then pc=0 else pc=nil px=nil py=nil end if pc~=nil then if px==nil then px=mx py=my end n=10 for i=0,n do t=i/n cx=t*px+(1-t)*mx cy=t*py+(1-t)*my circ(cx,cy,r,pc) end px=mx py=my end rect(0,0,240,8,0) rect(1,0,16*7+1,8,0) --print("fg bg",1,1,14) for i=0,15 do rect(7*i+2,1,6,6,i) end rectb(7*c+1,0,8,8,12) for x=238,1,-1 do for y=135,9,-1 do my=pix(x,y) if my==0 then top=pix(x,y-1) if top~=0 then pix(x,y,top) pix(x,y-1,0) else if rnd()>0.5 then left=pix(x-1,y) pix(x,y,left) pix(x-1,y,0) else right=pix(x+1,y) pix(x,y,right) pix(x+1,y,0) end end end end end end