Compressed Bytes used
1024

Source Code (OPTIONAL)
poke(24365,1)r={0,1,2,3}i=1u=0l=true a=7t=300e=1n=0d=0o={{{1,1,1,1,1,1,1,1,1,7},{1,1,1,7,1,12,7,11,1,1},{1,1,1,1,1,11,11,12,1,1},{5,12,7,1,1,11,12,12,1,1},{5,8,8,1,1,1,1,1,1,1},{5,1,1,1,1,1,1,1,1,1},{5,6,6,6,6,6,6,6,6,6},{6,6,6,6,6,6,6,6,6,6},"moonview"},{{1,1,6,6,6,6,6,6},{6,6,6,6,6,6,6,6},{6,6,15,15,15,15,6,6},{6,6,12,15,12,15,15,6},{6,6,15,15,15,15,15,6},{6,6,15,15,15,15,15,6},{1,6,6,8,8,15,6,6},{1,1,1,1,15,15,15,1},{1,3,3,7,3,3,3,7},{3,3,3,3,7,3,7,3},"duchess"},{{12,12,12,6,12,12,12,12,6,6},{12,5,12,6,6,12,6,1,12,12},{5,12,12,12,6,1,6,5,1,12},{5,12,12,12,12,6,5,5,5,12},{12,5,5,5,5,5,6,14,12,12},{5,5,6,6,5,5,5,11,11,11},{5,11,6,6,6,5,11,6,11,11},{5,11,6,11,11,5,11,11,6,11},"goodboy"}}r[1]=function()
if(x())print("⁶w⁶t level "..e.."⁶7\n\nobserve art⁶7",20,50,7)
c(e,64-n*5,10,10)
if(m(300))w(i+1)
end r[2]=function()if x()then print("⁶w⁶tnow copy it⁶7",25,50,7)p()end c(0,64-n*5,10,10)h=64-n*5g=10j=mid(1,ceil((stat(32)-h)/10),n)k=mid(1,ceil((stat(33)-g)/10),d)
if stat(32)>h and stat(32)<h+10*n
and stat(33)>g and stat(33)<g+10*d then
if(stat(34)==1)o[0][k][j]=a
end if stat(32)>118and stat(34)==1then a=mid(1,flr((stat(33)+3)/8),15)end y=4for n=1,15do rectfill(118,y,126,y+8,n)y+=8end circfill(stat(32)-1,stat(33)-1,2,a)print(chr(19),stat(32)-2,stat(33)-3,0)
if(m(1800))w(i+1)
end r[3]=function()c(e,20-(n),40,5)c(0,80-(n),40,5)v=0for f=1,d do for d=1,n do
if(o[0][f][d]==o[e][f][d])v+=1.25
end end local n=8if v>79then f="good job!"e+=1n=11
if(e>3)e=1
else f="try again"end print("⁶w⁶tscore "..flr(v).."%",28,10,n)print("⁶w⁶t"..f.."⁶8",30,100,n)w(1)end function w(n)i=n u=0l=true cls()end function c(i,t,r,e)f=o[i][#o[i]]print(f,t+n*e/2-#f*2,r-8,6)rect(t-2,r-2,t+e*n+2,r+e*d+2,4)s=0 b=0for f=1,d do for d=1,n do rectfill(t+s,r+b,t+s+e,r+b+e,o[i][f][d])s=e*d d+=1end q=1s=0 b=e*f f+=1end end function x()if l then l=false return true else return false end end function m(n)print("⁶w⁶t"..ceil((n-u)/60),63,115,7)u+=1
if(u>n)return true else return false
end function p()o[0]={{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},{7,7,7,7,7,7,7,7,7,7},"forgery"}end::_::n=#o[e][1]d=#o[e]-1cls(0)r[i]()flip()goto _