Compressed Bytes used
1021

Source Code (OPTIONAL)
function _init()c,i,n,s,e,r,x,d,u=40,0,25,1,1,0,0,1,{}pal({[4]=131,[5]=136,[6]=129,[11]=139,[14]=135},1)w()for e=1,56do add(u,{rnd(127),rnd(127),rnd{1,6,7}})end end function _draw()local v=7-flr(t()%2)cls()for e in all(u)do pset(e[1],e[2],e[3])e[1]+=1if(e[1]>128)e[1]=0
end if s==1then?"⁶w⁶t²1solar harvest",13,48,7
?"²2press x!",48,64,v
?"a 1kb game by adam!",26,120,7
if(btnp(❎))s=2
return end if s==3then?"⁶w⁶tcongrats!",30,48,7
?"you harvested "..n.." res",26,60
?"²2press x!",48,78,v
if(btnp(❎))e=1s=1i=1n=25d=1
return end circfill(64,64,f+a,h[1]+t()%2)if e~=4then for e=2,5do if(e>3)fillp(y+16)
circfill(64,64,f-(e),h[e])fillp()end end?"²1planet: "..l.." ["..i.."/"..c.."]",1,1,7
?"²3desc: "..p,1,9,7
?"²9my res: "..n,1,28,7
if e~=2and btnp(🅾️)then i+=1?"⁷fe-c"
w()n-=1if(i>c)s=3return
end if e==1then?"x to harvest\n\nz to warp [-1 res]",1,108,7
if(btnp(❎))e=2
elseif e==2then local t=64+rnd(abs(d))?"x to shoot\n\nplanet harvester engaged",1,108,7
?"⁶w⁶t-><-",r,t,v
?"⁶w⁶t-><-",r-1,t,8
r+=d*m if btnp(❎)then?"⁷ce-g"
if(r+8>=58-f*1.2and r+8<=58+f)e=4n+=o d+=.25else e=3n-=o
end if(r>132or r<-8)e=3n-=o
elseif e==3then?"miss!\nlost "..o.." res\n\nz to warp [-1 res]",1,102,7
else?"hit!\ngot "..o.." res\n\nz to warp [-1 res]",1,102,7
if(g)a+=8else a-=10
if(a>56)g=false
end if(n<0)n=0
end function w()e,r,z,a,m,g,l,v,o,f,y=1,0,rnd{1,sin(30)},0,rnd{-1,1},true,"",flr(rnd(4))+3,flr(rnd(5)+1),rnd(12)+12,flr(rnd(32767))+128.5if(m==-1)r=128
for e=1,v do if(e%2==0)l..=rnd{"a","e","i","o"}else l..=chr(rnd(26)+97)
end p,k="a ",flr(rnd(12))+4p..=rnd{"cold","hot","rocky","humid","dry","scenic","smelly"}.." world\n +"..o.." res on hit\n -"..o.." res on miss"h={}h[1]=rnd{7,9,12}for e=2,5do h[e]=rnd(15)+e end end