ROCKET 1K

Remember those Rocket Games you might have played on your phone - or kerbal space program? Get ready to try to get as high as possible in this highly accurate fun Rocket Simulator! 

How To Play

Construct your rocket, spent your money wisely and try to go as high as possible. 

Buy with X(x on keyboard) and choose parts with the Arrow keys.

Accelerate with X(x on keyboard) and seperate the three stages of your rocket with O(C on keyboard).

Why?

It was created for PICO-1K 2024, the code is exactly 1000 compressed bytes, have a look right here.

█=128a=█ o=rectfill 𝘵=0d=0𝘰=circfill 𝘢={.003,.2,1.1}𝘴=0t=2𝘮={{.004,.005,.006},{.6,.5,.4},{1.3,1.2,1.1}}c={"n𝘰𝘻𝘻𝘭𝘦","f𝘶𝘦𝘭𝘵𝘢𝘯𝘬","b𝘰𝘥𝘺","c𝘩𝘦𝘢𝘱 ","s𝘵𝘢𝘯𝘥𝘢𝘳𝘥 ","p𝘳𝘦𝘮𝘪𝘶𝘮 "}f=1e=700i=1s={}n=rnd function _draw()cls(0)𝘩(𝘵)o(63,87,65,87+t*6,7)pset(64,86)o(1,█-a,0,█)pset(█-1,█-𝘵/3000*█)pset(0,64,2)if(𝘵<999)𝘳(n(128),0,n(.5)-.25,.2+n(.5),1,13) if f>4do 𝘦("g𝘢𝘮𝘦 o𝘷𝘦𝘳",50)𝘦("t𝘩𝘦 h𝘪𝘨𝘩𝘦𝘴𝘵 p𝘰𝘪𝘯𝘵 𝘸𝘢𝘴",60)𝘦("p𝘳𝘦𝘴𝘴 🅾️ 𝘵𝘰 𝘵𝘳𝘺 𝘢𝘨𝘢𝘪𝘯",120)𝘦(flr(𝘴/10).."𝘬𝘮!",66)if(btnp(🅾️))f=1𝘵=0e=700t=2d=0a=█ elseif f>3and f<5do if(btnp(❎)and a>0)d+=𝘢[1]a-=𝘢[2] if(btnp(🅾️)and t>0and 𝘵>1)t-=1a=min(t*54+10,a)𝘢[3]-=.15𝘢[1]*=1.3 if(𝘵+d>0)𝘵+=d d-=.0005*𝘢[3]if(btn(❎)and a>0)𝘳(62+n(4),90+t*6,n(.5)-.25,d*(4+n(1)),n(4),n{13,5,6,9,10}) 𝘦("s𝘱𝘥:"..flr(d*█).."|h𝘦𝘪𝘨𝘩𝘵:"..flr(𝘵/10).."𝘬𝘮|b𝘦𝘴𝘵:"..flr(𝘴/10).."𝘬𝘮",122)𝘦("❎a𝘤𝘤𝘦𝘭𝘦𝘳𝘢𝘵𝘦 🅾️s𝘦𝘱𝘦𝘳𝘢𝘵𝘦 s𝘵𝘢𝘨𝘦𝘴",2)if(𝘵>𝘴)𝘴=𝘵 if(𝘵>999and n(1)<.1)𝘳(n(128),-2,0,0,1,9+n(2)) if(𝘵>5and 𝘵<800and n(1)<.05)𝘳(n(█),-50,0,0,20+rnd(30),6)𝘳(n(█),-50,0,0,20+rnd(30),6) if(d<-.005)f=5 elseif f<4do 𝘦("c𝘩𝘰𝘰𝘴𝘦 y𝘰𝘶𝘳 "..c[f],40,7)if(e>=i*100or sin(time())>0)𝘦(e.."$",46)𝘦("❎"..c[i+3]..c[f],52)𝘦("⬅️"..i.."00$➡️",59) if(btnp(❎)and e>=i*100)e-=i*100𝘢[f]=𝘮[f][i]f+=1 if(btnp(➡️)and i<3)i+=1 if(btnp(⬅️)and i>1)i-=1 end end function 𝘩(f)o(0,55537+f*10,█,█,1)o(0,20+f*10,█,█,3)fillp(▒)o(0,54537+f*10,█,55537+f*10,1)𝘰(64,99+f*10,30,11)𝘰(80,36536+f*10,50,15)fillp()𝘰(64,99+f*10,10,13)for n in all(s)do 𝘰(n[1],n[2]+f*10,n[5],n[6])n[1]+=n[3]n[2]+=n[4]n[5]*=.999if(n[2]>168)del(s,n) end end function 𝘳(n,f,i,𝘦,d,a)add(s,{n,f-𝘵*10,i,𝘦,d,a})end function 𝘦(n,f)?n,64-print(n,0,█)/2,f,7 end