Compressed Bytes used
1023

Source Code (OPTIONAL)
function c(e,o,f,d)local t,n,l=mget(e.o,e.f),e.o+o,e.f+f if(n|l)&~7==0do local i=a[mget(n,l)]if not i or d and i.i and c(i,o,f)do if i do?"⁷i6v2s1x4cx5c1"
elseif d do?"⁷i6v1s1x4a1c1"
end mset(e.o,e.f)e.o=n e.f=l mset(n,l,t)if e.l do local n,o=a[mget(e.o-(1-abs(o)),e.f-(1-abs(f)))],a[mget(e.o+(1-abs(o)),e.f+(1-abs(f)))]if n and n.e and o and o.e and(e.l~="/"or n.e%o.e==0)do if e.l=="+"do e.e=n.e+o.e elseif e.l=="-"do e.e=n.e-o.e elseif e.l=="*"do e.e=n.e*o.e elseif e.l=="/"do e.e=n.e\o.e end?"⁷cga"
e.e%=12if e.e==0do e.e=12end e.l=nil n.e=nil o.e=nil mset(n.o,n.f)mset(o.o,o.f)end end return 1end end end f=""::e::repeat cls()?"paste a puzzle",1,1,7
?f,0,8,9
flip()e=stat(4)until#e>0if#e<64do f="wrong size"goto e end::n::a={}l=nil r=0i=0for n=0,min(#e,64)-1do local e=e[n+1]local n,o={o=n%8,f=n\8,i=e~="#"},tonum(e,5)if e=="_"do goto n elseif e=="0"do l=n elseif e=="+"or e=="-"or e=="/"or e=="*"do n.l=e n.d=e=="*"and"⁙"or e=="/"and"-⁸.⁸⁴c."or e elseif o>0and o<=12do i+=1n.e=o elseif e~="#"do f="bad char:"..e goto e end add(a,n)::n::end if l==nil do f="no player"goto e elseif i<1do f="no clocks"goto e end reload()for n,e in ipairs(a)do mset(e.o,e.f,n)end::o::if btnp(❎)do goto n end if stat(4)~=e do goto e end n=btnp(⬅️)and-1or btnp(➡️)and 1or 0o=btnp(⬆️)and-1or btnp(⬇️)and 1or 0if n==0~=(o==0)do f=""c(l,n,o,1)end cls(3)for n=0,7do for o=0,7do local e=a[mget(o,n)]if e do camera(-o*16-8,-n*16-8)if e==l do?"⁶o0ff웃⁸⁴c🐱",-3,0,9
elseif e.e do local e=e.e/12circfill(0,0,7,7)line(0,0,-sin(e)*6,-cos(e)*6,0)circfill(0,0,2,0)circ(0,0,7,7)elseif e.l do rrectfill(-7,-7,15,15,5,8)?e.d,-1,-2,7
else rrectfill(-7,-7,15,15,1,4)rrect(-7,-7,15,15,1,0)end camera()end end end flip()d=0for e in all(a)do if e.e do d+=1h=e end end if d>1do goto o end?h.e==12and"⁶o0ffwin!⁷sfddx5dfx0eex5egx0ffx5fafx0c<c<c<c<c<c<c<x5c"or"⁶o0fffail",57,60,7
while(not btnp(❎)and stat(4)==e)flip()
goto e