A tweet cart that uses the same island generation method seen in Pico Pirates

Cartridge code (279 chars):

r=rnd
c={1,7,13,15,3,11}o=64l=r()t=0s=sin::q::t+=.01cls(12)for i=1,6 do
srand(l)for j=0,9+r(9)do
if i<4then
w=23-i+s(t)*4
else
w=16/(i-3)end
if(i==1)w=25
circfill(o+s(r())*w,o-s(r())*w,w,c[i])
x=o+s(t/7)*22y=o-s(t/4)*22
if(i==4)print("웃",x,y,4)pset(x+3,y+3,1)end
end
flip()goto q