1K Pico Star Gate #Pico1K

Выберите правильные символы пикозвездных врат. Игра, состоящая менее чем из 1024 символов для #Pico1k Jam

Код:

_set_fps(60)e=0l=0f=128h=64o=4096m=mset n = круговое заполнение функция z(s,k,x,y)m(0,0,s)m(1,0,s+1)s+=16m(0,1,s)m(1,1,s+1)a =cos(k)b=sin(k)для i=0,31do c,d=y+i,i/16-1tline(x,c,x+31,c,1-a-d*b,1.1-b+d*a,a/16,b/16)конец конец cls(1)n(h,h,h,13)n(h,h,48,0)rectfill(0,h,f,f,0)p="🐱✽●♥☉웃⌂😐♪🅾️◆ ★⧗❎▤▥ˇ∧"v={}для i=1,#p сделать j=i-1v[i]=j==13and 6или j?sub(p,i,i),5+j%8*16,h+6+j\8*16,13 конец memcpy(0,6*o,2*o)poke2(24374,8,514)n=16t={}для i=1,n сделать т [я] = я end::s::e=max(e,l)l=0r=0s=.004u=time()+60::n::cls()w={}для i=1,n сделать j=1+rnd(n)\1t[i],t[j]=t[j],t[i]end::_::g=(1+((.25-r)*n+.5 )%n)\1a=#w/2a,b=rnd(a)-a/2,rnd(a)-a/2для i=8,h,2do круг(ч+а,ч+б,я,2+(14*г+я/8)%14\1)конец для i=1,6до j = т [я] ?"\^w\^t\#d"..sub(p,j,j),a+h+24*(i-#w)-30,b+h-4,v[j] if(i<=#w и w[i]!=t[i])goto s конец спр(0,0,0,16,8)спр(0,0,ч,16,8,1,1) if(#w>5)s*=1.1перейти к n если(btnp(4))добавить(w,g)l+=1s=-s для i=0,n-1do к=г+я/п pal(13,v[i+1])x=h+56*cos(k)y=h+56*sin(k)k,q=.25-k,f+i%8*2+i\ 8*32z(q,k,x-16,y-16)конец pal()rect(56,0,72,16,10)a=u-время() если(a<0)перейти к s ?"\^p"..a\1,110,3 ?л,3,3 ?е г+=с флип () перейти к _