Stonk Market

559 chars of pure stonky goodness.

Z to buy

X to sell

don't let the market fall below 0 points

do buy 100% of the market

n=0s={50}o=1y=1m=500::_::
e=s[y]
p=e/4if btn(5)and o>0then
o-=1m+=e
s[y]-=p
end
if btn(4)and m>e then
o+=1m-=e
s[y]+=p
end
camera(y-127,-n-64)add(s,e+rnd(8)-4)for i,v in ipairs(s)do
line(i,-v)end
line()rect(y-127,0,y,0,8)camera(0,0)
for i=max(#s-127,1),#s do
n+=s[i]
end
n/=min(y,127)
p="⬇️"if e>n then
color(11)p="⬆️"end
print(p.." "..flr(e),0,12)cursor(0,0,7)print("$"..flr(m).." "..o.."%")print("global stonks market")y+=1flip()cls()
if (o>99)goto w
if (e<0)goto l
goto _
::w::
?"own all stonks you win!"
goto w
::l::
?"stonks have crashed game over."
goto l