Compressed Bytes used
1020

Source Code (OPTIONAL)
o,e,r,c,j,b,g,m,q,v,u,y,z,f,n1,d,n,a,k,i,p,h,l,s={},{},{},{},{},{"e","r","c","i","s","p","w","x"},{150,40,50,50,20,10,100,10},{"ᶜa∧","⌂","▤","●"},{0,3,1,10},{0,11,12,9},{10,11,12,9,5,3,1,8},{6,11,6,6,5,3,1},{7,13,2},1,0,false,1,1,1900,0,1024,0,0,7function _init()for n=1,196do o[n]=0e[n]=0c[n]=false r[n]=false j[n]=false end pal(1,140,1)pal(11,139,1)poke(24365,1)end function _update()x,w=stat(32),stat(33)_=stat(34)==1and not d i+=1if(i>30)n+=1i=0if(n>30)n=1a+=1p=min(p+h,32000)h=0if(a>12)a=1k+=1
cls()rectfill(8,8,120,120,15)for n=1,196do local a,d=8+(n-1)%14*8,8+flr((n-1)/14)*8if(x>a and x<a+8and w>d and w<d+8and not(f==1and(n>182or n%14==0)))rect(a+1,d+1,a+(f==1and 16or 8),d+(f==1and 16or 8),u[f])if(_ and p-g[f]>0and(f==8and o[n]~=0or f~=8and(o[n]==0or o[n]==8)))r[n]=false c[n]=false j[n]=false l-=o[n]==2and e[n]*12or 0s-=o[n]>2and e[n]*8or 0o[n]=f==8and 0or f e[n]=0p-=g[f]if(f==1)o[n+1]=1o[n+14]=1o[n+15]=1
fillp(▒)rect(a,d,a+8,d+8,13)fillp()if(o[n]~=0)rectfill(a,d,a+8,d+8,y[o[n]]or 15)?"█",a+1,d+2,o[n]==1and 2or u[o[n]]
?m[o[n]]or"",a+1,d+2,not r[n]and i<15and 8or z[e[n]]
if(o[n]>1and o[n]<5and not j[n])rectfill(a,d,a+8,d+8,q[o[n]])rect(a,d,a+8,d+8,v[o[n]])?b[o[n]],a+3,d+2,not r[n]and i<15and 8or u[o[n]]
if(o[n]>0and o[n]<6)r[n]=(n%14~=1and r[n-1]or n%14~=0and r[n+1]or r[n+14]or r[n-14]or o[n]==1)and true or false c[n]=(n%14~=1and o[n-1]==5or n%14~=0and o[n+1]==5or o[n+14]==5or o[n-14]==5)and true or false if(i==15)r[n]=false c[n]=false
if(i==0)h+=e[n]*.07if(e[n]<3and r[n]and c[n]and rnd()<.3)if(o[n]==2and l<=s or(o[n]==3or o[n]==4)and s<l)e[n]+=1j[n]=true if(o[n]==2)l+=12else s+=8
if(i==10and rnd()<.3)if(e[n]>0)if(o[n]==2and l-6>s or(o[n]==3or o[n]==4)and s-3>l or not r[n]or not c[n])e[n]-=1if(o[n]==2)l-=12else s-=8
end rect(8,8,120,120,6)for a=1,8do local n=8+(a-1)*8if(x>=0and x<8and w>=n and w<n+8or a==f)rectfill(0,n,8,8+n,u[a])if(d)f=a
rect(0,n,8,n+8,6)?b[a],3,2+n
end?b[f],x,w,u[f]
?a.."/"..n.."/"..k,10,2,6
?"$"..flr(p),10,122
?"-$"..g[f],100,122,u[f]
?"p:"..l.." j:"..s-7,65,2,6
d=stat(34)==1end