Compressed Bytes used
1023

Source Code (OPTIONAL)
k={{100,158,{{-64,64,{{16,2},{0,16},{48},{32,-2},{48},{16,2},{0,160},{64}}},{256,192,{{16,-2},{48},{16,2},{48},{32,-2},{48}}}}},{32,310,{{-64,64,{{16,1},{48},{48},{32,2},{32,-1},{16},{0,-112},{48},{8,-2},{48},{16,2},{0,128},{48},{48}}},{300,188,{{16,-2},{48},{48,2},{64},{16,-2},{32},{0,-64},{32},{16,-2},{16,-2},{128}}}}},{246,350,{{-64,64,{{16,-2},{48},{48,2},{48,2},{48,2},{48,-2},{48,-2},{32},{48},{16,2},{0,160},{64}}},{500,140,{{16,1},{48},{64,2},{48,2},{48,1},{48,-2},{48,-2},{16,2},{48},{32,-2},{48}}}}}}function n1(f,o)v={6,3,6,6,3,6,6,3,6}for n=0,8do if pget(f+cos(n/8+d)*v[n+1],o+sin(n/8+d)*v[n+1])>0and c<1then x()end end line()for n=0,8do line(f+cos(n/8+d)*v[n+1],o+sin(n/8+d)*v[n+1],7)end end function p()n2=r\3*.02+.02h+=800l=60a="level "..r+1d,u,b,w,q,s,y,n,g,f,o,e,i,c=.25,-.25,100,-32,0,0,0,-1,{},k[r%3+1][1],k[r%3+1][2],100,-48,0end r=0h=0m=0p()function z(f,o)for n=0,1,.02do local d=rnd()+1add(g,{f,o,cos(n)*d,sin(n)*d})end end function x()cls(8)c=1z(e\1,i\1)if n>0then z(f,o)end l=5000a="⁶wgame over"end function _update()for n in all(g)do if rnd()<.1then del(g,n)end n[1]+=n[3]n[2]+=n[4]end if l>0then l-=1if a=="⁶wbonus"and l==0then r+=1m+=h p()end if btn(5)then r=0h=0m=0p()end return end if n>0and w<-64then l=60a="⁶wbonus"end if c<1then if btn(0)then d+=.02end if btn(1)then d-=.02end if btn(4)and h>0then h-=1q+=cos(d)*(n>0and.05or.1)s+=sin(d)*(n>0and.05or.1)if n>0then y-=sin(u-d)/2000end end s+=n2 b+=q w+=s u+=y local d=abs(e-f)+abs(i-o)<64and sqrt((e-f)^2+(i-o)^2)or 32if n==0and d>32then n=1u=atan2(-(e-f),-(i-o))b,w=(f+e)/2,(o+i)/2q,s=0,0m+=500end if n<0and d<32then n=0end e,i=b-cos(u)*16,w-sin(u)*16if n>0then f,o=b+cos(u)*16,w+sin(u)*16end end end function _draw()cls()camera(e-64,i-64)for n in all(k[r%3+1][3])do j,nn,n0=0,n[1],n[2]for n in all(n[3])do for d=0,n[1]do line(nn,j,n0,j,j%2*12+1+r)n0+=n[2]or 0j+=1end end end for d=0,1,.1do if n>0and pget(f+cos(d)*6,o+sin(d)*6)>0and c<1then x()end end if n<1or c<1then circ(f,o,6,8)end if c<1then n1(e\1,i\1)if n>=0then line(e,i,f,o,7)end end for n in all(g)do pset(n[1],n[2],7)end camera()?"⁶w"..h,32,0,11
?"⁶w"..m,70,0,10
if l>0then print(a,64-print(a,0,-64)/2,61,2)print(a,64-print(a,0,-64)/2,60,7)end end