Compressed Bytes used
1024

Source Code (OPTIONAL)
s="も³ン▥ホ▥ン」ホ」ン。もᵉちちも²し」ˇ」ˇ」ˇ▥し▥<ᵉちちむ⌂>3シぬCひSほC3b⌂ちちむち>はシ4C4S3Cはbちちちそむち🅾️◜に³てそッち█+マゆ?P¹tんUコツレWョュエユれ\0@◝よつjつjつjつjつjつjVU◝よつjつjつjつjつjつjVUちち²ち²そ\nき²そ²ちちちちちちちちちちちちちちむUレ\0ユちむたちすちあちjちちたちすちあちjちjちあちすちたjちあちすちたちちちちちむちちちちちちなちちちち❎ち❎ち❎ち❎ちしちしなしちしち"
for i=0,895 do
sset(i\8,i%8,ord("34903416701m1l6",i\128*2+ord(s,i\4+1)\4^(i%4)%4))end
cls(☉)?"⁶!5f56█"
s="\0フひᵉ⁴か\0コ/KすかCのo⁙[=¹\\<>nュ cU、テo⁷しD(#dᶠぬD ᵇoB、oTのケ⁷Zよ゜○よ*ふて\0ひ\rPむふᵉ よ|Q⁵⁴#$(。ア\nみふ0*よ6{に³fm¹g\\?rに。d4>ゅO,³ᶠ⬇️はoRひ?Hひl¹は\rZラノ⁴○に⁸□⁸⁘ぬオ⁴{g³fO ⁘;¹⁵ ∧の○²³⁸4\n\n゛⁸\nᶜ{g³q⁶¹⁴6▶'ᶠ⁸{g⁙ ?¥しも(よに「へもt{gᵇ⁘;ᵇ³V⁵&ᵇ⁸{g.…█\0¹\n\0 ᵇ¥ \n\0¹ᵇ「⁶\nT³「,{g⁷;⁶⁵⁘\nヌひO⁴ \n¥ \n ⁶⁸6z_⁶⁷\n⁶³⁸"
for i=1,#s,3 do
a,b,c=ord(s,i,3)⬅️+=a\2({rectfill,ovalfill})[a%2+1](⬅️%128,⬅️\128*11+b%11,⬅️%128+max(b\11,b\11*16-223),⬅️\128*11+b%11+max(c\16,c\16*11-98),c%16)end
for i=0,▥ do
mset(i%128,i\128,pget(i%128,i\128))end
a,b,c=128*4,88*4,"⁶y3¥¥¥"x=584y=400::s::
cls(☉)h=btn()%2-btn()\2%2v=btn()\4%2-btn()\8%2
if(h!=0)p=2+x\4%2웃=h
if(v!=0)p=1+v/2웃=y\4%2
if(mget(x/8,y/8)==10)y+=v*560b+=v*528☉=v/2
if(mget(x/8,y/8)==7)☉=13
if(btn()\28*mget(x/8,y/8+71-.5)==10)mset(x/8,y/8-.5,10)
if(mget(x/8,y/8)==8)mset(x/8,y/8,15)c..="¥"
if(mget(x/8-h/2,y/8-v/2)\7>a%128+b%88)x-=h y-=v
a=mid(a+4,x\128*128,a-4)b=mid(b+4,y\88*88,b-4)map(0,0,-a,32-b)spr(p,x-3-a,y+28-b,.9,1-mget(x/8,y/8)%14\12/2,웃>0)
?"⁶!5f0c⁶\r0000😐⬅️"
if(☉>1)map(56,88,-a%128,32-b%88,16,11)map(56,88,-a%128-128,32-b%88,16,11)map(56,88,-a%128,120-b%88,16,11)
rectfill(0,0,128,31,0)
rectfill(0,120,128,128)
?c,88,16,8
?"⁶1⁶!5f0c²¹"
goto s