Dotful Dodger

You are the blue dot. Dodge red dots! Green dots clear the board.

Use your arrow keys to move left and right. 

Good luck, Dotful Dodger!

Entry to TweetTweetJam  11

Code follows:

g=rrectfill f=btnp i=rnd h=flip::d::o=4e=0d={}::n::r=0if(f(0)and o>1)o-=1r=1 if(f(1)and o<7)o+=1r=1 if r>0do e+=1a=ceil(i(7))for o=1,2do l=8if(i()>.9)l=11 add(d,{a,1,l})a=(a+i(6)\1)%7+1end for o in all(d)do o[2]+=1end end cls(7)for f=1,7do for i=2,13do n=6if(o==f and i==13)n=12 for o in all(d)do if o[1]==f and o[2]==i do if(n==12)if(o[3]<9)goto o else d={} n=o[3]end end g(f*8,i*8,7,7,1,n)end end?e,80,32,12 h()goto n::o::cls(8)g(o*8,104,7,7,1,7)?e.."\n\n[x]",80,32 if(f(5))goto d h()goto o