AccessTuner

Recreating the Security Access Tuner from Alien Isolation in under 560 characters.

Move your mouse to tune into security. Then use arrow keys and y or c to enter the code displayed before your access window closes.

#TweetTweetjam4

::a:: c=rnd()poke(0x5F2D,1)poke(0x5F2C,3)k={}d=0s=0m=32
for x=0,64 do
for y=0,8 do
sset(x,y,flr(rnd(2)))
pal(1,11)k[y]=flr(rnd(5))+1
end
end::_::cls(0)r=abs(stat(m)/100)line(m,m,m+sin(r)*60,m+cos(r)*60,11)rectfill(4,4,59,59,3)
if r<c+0.01 and r>c-0.01 then
if(z<1)goto a
z-=0.15
rect(7,7,57,24,7)for i=0,5 do
if(i<4)spr(k[i],16+8*i,12)
x=12+16*flr(i%3)y=m+flr(i/3)*12
spr(i,x,y)
?i,x+8,y
end b=btnp
if(b(0))d=(d-1)%6
if(b(1))d=(d+1)%6
if(b(4)and abs(d)==k[s])k[s]=9 s+=1
line( 5,27,z+5,27)
?abs(d),m,54
else z=52 end
if(s==4)cls()print('access')
flip()goto _