patches

An interactive quilt for TTJ10, made in <500 chars of code.

More toy than game; think of it as a jigsaw puzzle, if you like.

> controls

Left click to pick up a patch, left click again to drop it.

> code

f={}e={}for e=0,221do d=16+rnd(240)\1f[e]=16+rnd(240)\1|d-tonum(d%17<1)<<8f[e+221]=f[e]end
for d=0,441do e[d]=del(f,rnd(f))end?"⁶!5f36@"
::▒::p=fillp?"⁶1⁶!5f58■f⁶\0◝"
▒^^=-1p(▒)rectfill(0,0,127,127,0)p()a=stat(32)n=stat(33)c=(a-1)\6l=(n-1)\6o=c+l*21if l\21|c\21==0and btnp()>9do
if ⬅️==e[o]do if(⬅️~=0)e[o]=0⬅️=0?"⁷i6x4d"
else e[o],⬅️=⬅️,e[o]?"⁷i6c0"
end end for f=0,440do x=f%21i=f\21if(abs(x-10)~abs(i-10)<t()*7)?chr(e[f]),x*6+1,i*6+1,e[f]>>8
end?"⁶-#⁵fe○⁶!5f2d3",a,n,7
?"⁵ee"..chr(⬅️),a,n,⬅️>>8
goto ▒

> code highlights

• each patch stores its glyph and both colors inside a single number, which is drawn with ?chr(packed),x,y,packed>>8. background-drawing needs to be enabled for this: poke(0x5f58,0x11)
• opening animation with XOR: if(abs(x-10)~abs(y-10)<t()*7) --draw
• shuffle a list by pulling elements out at random: list2[i]=del(list1,rnd(list1))
• multiple tiny tricks from my other projects, like inbounds-checking from bubblecat and fancy-cls from ghost patrol. thanks past-me for writing these summaries!