Pay-Co Model 560

"Pay-Co Patented Model 560 is guaranteed to protect your digital files. Virtually un-crackable and compact! Give it a whirl!"

Controls

• Z or C to start picking.
• Get the red notch over the green dot and press Z to change directions for to the next number.
• The number in the center indicates how many reps to pick the lock.
• Every time you successfully pick the lock, the number of reps goes up and it gets faster

Code k=.03b=11d=0g=0j=0l=2e=2n=1g=circfill::_::p=abs(n+j-.25)%1p=p>.5and 1-p or p if(p>k and f)b=8d=0e=l if(p<k)f=1 if(btnp(4))then if(d==0)then d=1b=9e=l elseif(p>k)then b=8d=0e=l end if(p<k)e-=1d=-d if(e<1and d!=0)b=11d=0l+=1e=l n=(.75-j)%1f=_ end cls(b)for z=-3,3do camera(cos(j)*z-63,sin(j)*z-80)g(0,0,40,z<2and 13or 6)for i=0,39do a=i/40c=cos(a+j)s=sin(a+j)w=i%5<1and 3or 0r=w+30h=27-w line(c*r,s*r,c*h,s*h,abs(a-n)<k and 8) if(abs(z)<2 and a<.8)s=sin(a)c=cos(a)g((s<0 and c or sgn(c))*23,s*23-(b<11and 35or 52),4,13)end end ?e,0,0,0 g(0,-32,2,11)j+=d/80j%=1flip()goto _