Characters/Bytes used
1023

Source Code
poke(0x5f2d,1)for x=7,15do for y=1,5do sset(x,y,6)end end
o=1x=12y=90h=0m=true p=false i=false
l=btn
e=btnp
t=mget
q=mset
g=pget
c=stat function _update60()a=c(32)b=c(33)cls()map()rect(0,1,127,127,8)s=0for x=1,15do for y=1,15do
if(t(x,y)==2)s+=1?"★",x*8,y*8,10
if(t(x,y)==4and p)?"★",x*8,y*8,13
if(t(x,y)==4and not p)q(x,y,2)
end end
for x=1,15do for y=1,15do
if(t(x,y)==3and(s==0or not p))rectfill(x*8,y*8,x*8+5,y*8+8,4)
end end
if p then
if(l(⬅️)and g(x-3,y-2)~=6)x-=1
if(l(➡️)and g(x+3,y-2)~=6)x+=1
if(e(❎)and not i)j=true y-=1h=2.5?"\a155",5,5
if(g(x,y+1)~=6)i=true else h=0 i=false
if(i)y+=1y-=h h-=0.05else j=false
if(g(x,y)==6)y-=2
if(g(x,y)==10)q(x\8,y\8,4)
if(g(x,y)==4)p=false
end
if(e(🅾️))p=not p
if not p then
if(e(❎))m=not m
if(o<2)?"ground",102,4,7
if(o==2)?"star",110,4,9
if(o>2)?"door",110,4,8
if(o>3)o=1
if(e(➡️))o+=1
pset(a,b)
if(c(34)==2or l(⬅️))h=0y=b+2x=a
if c(34)==1and not l(⬅️)then
if(m)q(a\8,b\8,o)else q(a\8,b\8,0)
end?"🅾️ play",5,5
if(m)print("❎ make",94,120)else?"❎ delete",90,120
end?"웃",x-3,y-4,7
end