Compressed Bytes used
1024

Source Code (OPTIONAL)
function _init()n1,d,e,n,r,a,h,b,k,g,j,y,i,f,o,v,m=40,20,20,0,0,95,1,0,0,95,1,1,1,45,60,0,0_,n0,w,x=d,e,1,1s,c=420,12p={{e=383,d=10},{e=394,d=32},{e=411,d=54},{e=437,d=54},{e=454,d=32},{e=465,d=10}}end function q(n,e,d,f)b,y,k,g,j,i=0,n,e,d,f,5end function l(d,f,n,i,t,o,e)z((d*cos(e)-f*sin(e)+t-r)*h+240-n*h,135-(d*sin(e)+f*cos(e)+o-a)*h-n*h,n*h*2,n*h*2,n*h,i)end function u(e,d,n,f)z((e-r)*h+240-n*h,135-(d-a)*h-n*h,n*h*2,n*h*2,max(1,n*h*.2),f)end function _draw()cls()if i==5do b+=1if b>=270or abs(r-k)<.1and abs(a-g)<.1and abs(h-j)<.01do r,a,h,i=k,g,j,y else local n=min(b/270,1)n=n*n*(3-2*n)r+=(k-r)*n a+=(g-a)*n h+=(j-h)*n end end if i==4do d+=v e+=m m-=.3if e<=20do q(6,240,119,.8)e=20end if abs(d-s)<26and abs(e-c)<26do q(7,240,119,.8)end for n=1,#p do if abs(d-p[n].e)<26and abs(e-p[n].d)<26do nn.f(p,n)q(6,240,119,.8)break end end end for n=0,80do pset((n*37-n%4*7+r*.2/h)%480,(n*33-n%4*5+a*.15/h)%250,n%3~=0and 7or t()/n%2*6)end if i==2do f+=w if f>=80or f<=15do w=-w end elseif i==3do o+=x if o>=100or o<=20do x=-x end end if i<2or i>5do r,a,h=240,119,.8elseif i<5do r,a,h=d+120,e+40,1.5end if btnp(5)and i~=5do if i==1do q(2,d+120,e+40,1.5)elseif i==2do i=3elseif i==3do i=4v=cos(-f/360)*o*.13m=sin(-f/360)*o*.13elseif i==6do d,e,v,m,i=_,n0,0,0,1elseif i==7do _init()end end rectfill((-240-r)*h+240,135+a*h,(720-r)*h+240,270,13)l(0,0,16,8,d,e,n)l(4,6,4,9,d,e,n)l(5,6,2,0,d,e,n)l(-4,6,4,9,d,e,n)l(-5,6,2,0,d,e,n)l(0,-6,4,9,d,e,n)l(-10,-16,6,8,d,e,n)l(10,-16,6,8,d,e,n)l(0,-16,6,8,d,e,n)for n=1,#p do u(p[n].e,p[n].d,10,12)end u(s,c+8,7,7)u(s-1,c+8,5,0)u(s-8,c-4,3,7)u(s+8,c-4,3,7)u(s,c-4,4,7)u(s-4,c-11,3,7)u(s+4,c-11,3,7)if i>1and i<4do n=-((f-90)/360)line((d-r)*h+240,135-(e-a)*h,(d-r)*h+240+cos(-f/360)*(i==3and o or 60),135-(e-a)*h-sin(-f/360)*(i==3and o or 60),10)z((d-r)*h+240+cos(-f/360)*(i==3and o or 60)-2,135-(e-a)*h-sin(-f/360)*(i==3and o or 60)-2,4,4,2,10)end if i==1do?"⁶pSPACE DERPS",175,100,8
?"❎ TO LAUNCH",200,120,7
n=0elseif i==7do?"⁶pHUMANS DEFEATED",160,100,8
?"❎ TO RESTART",198,120,7
end end