Compressed Bytes used
1021

Source Code (OPTIONAL)
for d=0,62do for a=0,79do sset(a+8,d%7,"0x"..("0000000003bbbb00dd505d50000000000000000000a0aaaaaaaa0a0000288820000ccd0000a9a900000000003bbb3bb0dd50dd5000000000aaaa000000a0a0a0aaaa0a00028888200ccccd000aaa9a9000000000b32bb3b0555055500000aaaaa00aa00000a0000aaaaa0a000288822000a4acc0aaa999a900000100b042b3b000000550000aa0000a00a00000a00aaa0000aa0088822220000aa0000a4004a0001001000022b0b05dd50000000a00a00aa0a00000aa0000aaaaa0002828208000a88a00a400004a0001000004422000dd550d50000a00aaaaa0a000000aaaaaa000000088808080000880000400004000000000044420005555055000aa00a0a0a00a000000000000000000020080000044040004000040")[a+1+d%7*80])b=("222022222002222200002000000020000022020002222022200002222000002222020200002000022202202000222202222220222220002220000020020200200020020222222000022222022220000022000002000000020000022000002222022200000222200222022000000000200000020022222200002222000000222220200000000220220000000022200220000022000002202220020200000000220002002000222202000000222202222000002202220200200002022202200000222202222220222200020220222000020000202022220000022220000")[(a\7+d\7*2)%9*49+a%7+d%7*7+1]if(a*d<1or a==62or d==62)b=2
if(a<=62)mset(a,d,b+rnd(2))
end end i=0n={}function e(a)r=d.a+sin(a/4)s=d.d+cos(a/4)if(mget(s,r)\2~=1)d.d,d.a,d.f=s,r,true
end::a::poke(24364,3)o=btnp(❎)?"⁶1⁶c"
if i<1then a=0c=0srand()mset(3,3,4)mset(62-3,3,5)mset(62-3,62-3,7)mset(3,62-3,6)mset(31,31,10)for a=0,62do f={d=32,a=32}n[a]={d=rnd(60)\1,a=rnd(60)\1,i=1}spr(1,a,rnd(124))spr(4,32-8,32,2,1)spr(6,32-8,32+8-1,2,1)end?"⁶w⁶td𝘢𝘨𝘨𝘦𝘳\n`w𝘶𝘭𝘧",8,8,8
?"@𝘱01 #𝘱𝘪𝘤𝘰1𝘬",8,58,5
?"❎ to start⁷szdagerwf",10,50,t()*62
if(o)i=5
else c*=.9map(0,0,4-f.d\7*56-c\1*sin(rnd()),4-f.a\7*56,64,64)d=f d.f=o if(o)?"⁷ce"
if(c>1)?"⁷i6c"
if(btnp(➡️))e(0)
if(btnp(⬆️))e(1)
if(btnp(⬅️))e(2)
if(btnp(⬇️))e(3)
spr(9,4-f.d\7*56+d.d*8,4-f.a\7*56+d.a*8,1,1,t()%2>1)b=mget(d.d,d.a)if(b\4==1)a+=1mset(d.d,d.a,0)?"⁷szc-g"
if(b*a==40)?"well done⁷szdagerwf",14,19,10
for a=0,62do d=n[a]if(d.i>0)spr(8,4-f.d\7*56+d.d*8,4-f.a\7*56+d.a*8,1,1,(a+t())%2>1)if(f.f)e(rnd(4)\1)if(f.d==d.d and f.a==d.a)if(o)d.i=0else c=2i-=1
end?i.."웃 ◆"..a,1,2,0
?i.."웃 ◆"..a,0,1,0
?i.."웃 ◆"..a,2,1,0
?i.."웃 ◆"..a,1,1,t()*62
end goto a