Characters/Bytes used
1021

Source Code
g=mget
s=mset
p=poke
j=stat
r=rnd
a=spr
_=cls
p(0x5f2d,1)f=0t=0gd=0
c=10
_()m=" ˇ.:◆∧ .▒▥██⌂+"
?m,0,0,3
?m,0,8,7
?"웃",0,16,8
?"∧",32,0,12
?"▒▥██⌂",48,0,13
?"✽◆",16,0,9
?"◆",24,0,10
m=8192
memcpy(0,m*3,m)function _update()local x,y=j(32)-1,j(33)-1
if(t==7)c=10t=0
_()v=x/8
z=y/8
u=g(v,z)d=j(34)if(f==0)then
if(d>0 and u!=10)then
b=c
c=u
if(u>1 and u<4)then
c=0
if(u==2)b=1
w=u*10
if(t<2)gd+=w
end
if(c==1 and b==4)then
b=2
c=0
end
u=b
end
end
f=d
s(v,z,u)map(0,0)z=0
n=0
for i=0,15 do
for j=1,15 do
if(t<1)then
b=r(9)
if(r(5)<2)b=0
s(i,j,b)else
o=g(i,j)
if(o==10)z=1
if(o==4)n+=1
end
end
end
if(z<1 and c!=10)t=2
if(t!=0 and n<1)t=7
if(t<1)e={}
for i=0,10 do
if(t<1)then
k={}k.x=r(128)k.y=r(128)e[i]=k
end
k=e[i]q=k.x
o=k.y
for h=0,1 do
z=q
if(h>0)z=o
z+=-3+r(6)if(z<0)z=0
if(z>120)z=120
if(h<1)q=z
if(h>0)o=z
end
z=g((q+4)/8,(o+4)/8)if(z<6)then
k.x=q
k.y=o
else
s(q/8,o/8,z-1)end
a(32,q,o)end
if(t<1)t=1
z=c
if(c<1)z=11
z+=16
a(z,x-4,y-4)
?"money "..gd,0,0,7
z=""
if(c==10)z="colon1ks\nset!"
if(t>1)z="over"
?z,40,60
end