Compressed Bytes used
1022

Source Code (OPTIONAL)
?"\as❎l0wi7v2e1gc2dedcg1egc2dedcg1d#g#c2dd#dcg#1fa#d2efeda#1 \asgl0wi5x5v3c2<c<c>>b1<b<b>>c2<c<c>>g<g<g<cccccccc>>i7g3<<g>>c<<c>>c4<<ccc>>d \^!5f40エ"
line()
gds={[-1]="",[0]=" \f8✽"," \f9🐱"," \fa◆"," \fb♪"," \fc●"," \fd😐"," \fe♥"}px=rnd(-1) py=rnd(-1) ph=0 pdx=0 pdy=0 sc=256 t=0 ts=0 td=0 hold=-1 cash=10 pd=""
function _update60()
if(btn(0))ph+=1/64
if(btn(1))ph-=1/64
if(btn(2))pdx+=cos(ph)*0.05 pdy+=sin(ph)*0.05
if(btn(3))pdx*=0.9 pdy*=0.9
pdx*=0.98
pdy*=0.98
px+=pdx/sc
py+=pdy/sc
t+=1 lst=nil s=★(flr(px),flr(py))
if((s.dx-px%1)^2+(s.dy-py%1)^2<0.005) lst=s
if lst then
if(btnp(5) and hold<0 and cash>=lst.t) hold=lst.g cash-=lst.t pd=" =\b("..lst.t ?"\acf"
if(btnp(4) and lst.ec[hold])cash+=lst.ec[hold] hold=-1 td+=1 pd="" ?"\ag3ce4"
end
end

function _draw()
cls()
srand()
for i=1,100 do
d=rnd(2)+1
pset((-px*d+rnd())*128%128,(-py*d+rnd())*128%128,5)
end
memset(0,17,2000)
for mx=-1,1 do for my=-1,1 do
s=★(flr(px+mx),flr(py+my))
rx=s.dx-px%1+mx
ry=s.dy-py%1+my
circfill(2*rx*sc+64,2*ry*sc+64,10,s.g+8)
sset(8+rx*8,8+ry*8)
circfill(2*rx*sc+64,2*ry*sc+64,8.5+sin(t/60),7)
end end
sset(8,8,6)
sspr(0,0,17,17,109,2)
srand(px~py)
if(btn(2))circfill(64-cos(ph)*((t/2)%3+4)+rnd()-rnd()-pdx*((t/2)%3)*2,64-sin(ph)*((t/2)%3+4)+rnd()-rnd()-pdy*((t/2)%3)*2,(t/2)%3+1,10-flr(t/2)%3)?"\a3i6v2s0c0"
line(64,64,6)
for a=-0.375,0.375,0.375 do
line(64+cos(a+ph)*3,64+sin(a+ph)*3)
end
?"\f7=\b("..cash..(cash>=10000 and"\fa"or"\f6").."/=\b(10000 ∧"..td,2,2
?gds[hold]..pd
if lst then
?"\n\f7❎buy"
?gds[lst.g].." =\b("..lst.t
?"\f7🅾️sell"
for j,v in pairs(lst.ec) do
?gds[j].." =\b("..v
end
end
end

function ★(x,y)
srand(x|y>>>16)g=flr(rnd(7))w=rnd()+1
s={g=g,w=w,dx=rnd(),dy=rnd(),c=x..","..y,t=flr((3^(g+1))*w),ec={}}
for i=0,2 do
s.ec[(g+2^i)%7]=flr((3^((g+2^i)%7+1))*(1.5+i/2)*w)
end
return s
end