Characters/Bytes used
1024

Source Code
t=0c=0f=1l=1q=btn r=rect function m(x)return flr(rnd(x))+1end function u(x,y,k)for i=-2,2do for j=-2,2do if k==pget(x+i,y+j)then return 1end end end return end::_::t+=1if l>0then if f>0then w=12z=64h={}e={}b={}c+=1f=0for i=1,c do add(e,{x=32+m(80),y=m(80)})end for i=1,m(9)do add(h,m(15))end elseif #e<1then f=1end flip()o={w,z}d={0,0}d[1]=q(3)and 1or q(2)and-1or 0d[2]=q(1)and 1or q(0)and-1or 0w+=d[2]z+=d[1]if u(w,z,12)then w=o[1]z=o[2]end l=u(w,z,10)and 0or 1if q(5)and t%5<1and(d[1]!=0or d[2]!=0)then add(b,{x=w,y=z,o=1,d=d})end cls()r(3,0,124,120,12)for i=1,#h do y=flr(h[i]/4)*30x=3+(h[i]%4)*30r(x,y,x+(i%2<1and 30or 0),y+(i%2<1and 0or 30),12)end for a in all(b)do if u(a.x,a.y,12)then del(b,a)else r(a.x,a.y,a.x,a.y,a.o+10)a.x+=a.d[2]*3a.y+=a.d[1]*3end end
?"w-"..c,58,122,7
for a in all(e)do i=w<a.x and-.25or w>a.x and.25or 0j=z<a.y and-.25or z>a.y and.25or 0if t%15<1then add(b,{x=a.x,y=a.y,o=0,d={j,i}})end a.x+=i a.y+=j if u(a.x,a.y,11)then del(e,a)else
?"웃",a.x-3,a.y-2,10
end end
?"웃",w-3,z-2,11
end goto _