Соревнования по баскетбольной стрельбе на время. Игра со сжатым кодом в 1024 байта для PICO-1K Jam 2022 #Pico1k
Код:
_set_fps(60)h=0s=0::s::x=64y=64m=0g=.002t=0o=0w=0u=nil?"\aszv7g1def#gdef#aef#g#aef#g#bf#g #а#бб"
::_::cls(1)t+=1pal(0,129,1)
тыкать(24405,0)cls()
circfill(16,16,5,9)a=6*cos(t/99)b=6*sin(t/99)
цирк(16-а,16-б,3,0)круг(16+а,16+b,3)
линия(16+б,16-а,16-б,16+а)
тыкать(24405,96)
прямоугольникзаполнение(0,0,2,64,6)
прямоугольникзаполнение(0,120,127,127,3)
прямоугольникзаполнение(0,123,127,127,11)
прямоугольникзаполнение(0,65,2,127,13)
л=120-т\60
if(m>0)b=max(l)c=b\60d="0"..(b%60)rectfill(32,0,112,12,0)rect(32,0,112,12,2)?" \^p"..c..":"..sub(d,#d-1,#d).." "..s,40,2,10
если(m>0 и l<0)m=max(m,2)
если m<1, то
h=max(h,s)a=t\16%8
?"\^w\^tbasketball\nchallenge",40,24,8+мин(a,8-a)
?"\n\nscore: "..с
?"\nhighscore: "..ч
?"\n\nнажмите 🅾️, чтобы начать"
если(btnp(5))m=1s=0t=0
иначе, если m<2то
если(u==nil)u=64+rnd(64)v=48+rnd(64)
b=btn()x=mid(3,x+b\2%2-b%2,124)y=mid(2,y+b\8%2-b\4%2,125)
?"><",x-3,y-2,10
spr(0,u-16,v-16,4,4)a=x-u
б=у-в
с=у
d=v
а/=96b/=96e=a f=b
для i=0,255do
с+=е
д+=е
е+=г
if((i-t)%16<1)pset(c,d,12)
конец
е=0f=0
если(btnp(4))m=2e=a f=b
иначе, если m<512, то
м+=1
спр(0,u-16,v-16,4,4)
для я=1,5до
а=у
б=в
ты+=е
v+=f
е+=г
if(b<40and v>=40and abs(u-20)<10)s+=1o=5?"\as8i4x3c4s3c0"
к=-.7
if(u<8и e<0)w=1u=16-u e*=k
if(u>122and e>0)w=1u=244-u e*=k
if(v>122and f>0)w=1v=244-v f*=k
для a=10-u,30-u,20do
б=40-в
с=а*а+b*b
если с<49, то
с^=.5а/=с
б/=в
d=a*e+b*f
if(d>0)w=1e-=a*d*1.7f-=b*d*1.7
конец
конец
конец
если (v>40 и f>0)m=max(m,386)
if(l>=0 и btnp(4))m=1u=nil
еще
м+=1
если (l>=0)m=1u=ноль
если(m>640)перейти к с
if(l<0)?"\^w\^ttime over",32,56,6+t\16%2
конец
o=max(o-.1)a=2+o*sin(t/20)b=2-o*sin(t/20)
для я=0,1до
j=i+.5k=i+1
строка(10+a*i,40+8*i,30-b*j,40+8*j,6)строка(10+a*k,40+8*k,6)строка(30-b* я,40+8*i,10+a*j,40+8*j,6)строка(30-b*k,40+8*k,6)
конец
прямоугольникзаполнение(3,39,31,40,5)
если(w>0)w=0?"\as1i1cge"
if(m>0 и l==-1)?"\aszcccccc"
перевернуть()перейти к _