How many characters did you use?
553

Include your code here, if you'd like to show it off!
q=band b={{},{},{}}k={'⌂','◆'}c=0 x=64 y=x m=1000l=0p=0j=0::a::w=btnp() x+=q(w,2)-q(w,1)*2 y+=q(w,8)/4-q(w,4)/2 c+=q(w,32)/32c%=3 if(btnp(🅾️))then if(c==0 and m>499)then add(b[1],{x,y})m-=500 end if(c==1 and m>99)then add(b[2],{x,y})m-=100 end if(c==2 and m>0)then add(b[3],{x,y})m-=1 end end n=flr(t())if(n!=l)then m+=min(p,#b[1]*10) if(j>0)p=min(#b[2]*2,p+1)j=0 else j=1 end l=n for i=3,1,-1 do for h in all(b[i])do ?k[flr((i-1)/2)+1],h[1],h[2],(i-1)*2+1 end end ?k[flr(c/2)+1],x,y,c*2+1 ?'$'..m,56,0 ?'#'..p,4,0 ?'∧'..#b[1]*10,104,0 flip()cls(6)goto a