Super Solar System Syzygy

Align the planets before they are pulled into the super sun!

CONTROLS:

• < > - toggle between planets
• Z - push planet up
• X - new game (after you win/lose)

Entry to TweetTweetJam 11.

Code (496 chars):

g=circfill a=btnp f=rnd::f::o=4i={}for o=1,7do i[o]={30+flr(f(48)),f(5)+2,2+flr(f(13))}end::i::if(btn(4))i[o][1]-=7/i[o][2]
if(a(0)and o>1)o-=1
if(a(1)and o<7)o+=1
cls()g(64,240,128,10)d=0for a=1,7do g(f(128),f(99),0,5)e=i[a]r=e[2]e[1]+=r/25n=e[1]if(a<7)t=a+1h=i[t]if(abs(n-h[1])<8)line(a*16,n,t*16,h[1],h[3])d+=1
if(o==a)l=6else l=1
line(a*16,24,a*16,104,l)g(a*16,n,r,e[3])if(n-r>104or n+r<24)d=9
end if(d>5)goto o
?d,62,10,6
flip()goto i::o::s=d==6and":)"or":("?s,60,120,0
if(a(5))goto f
goto o