Compressed Bytes used
999

Source Code (OPTIONAL)
█=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