Froggo 1K

Я впервые участвовал в джеме Pico-8 1K. В этом клоне Frogger есть аккуратная замена палитры и постоянно растущая сложность. Как далеко вы сможете продвинуться, уничтожив как можно меньше смертей?

Мой рекорд – 20 уровень/355 смертей 😅

Исходный код

си=0 функция ll(sd) fga=tonum("0x"..sub(sd,1,1))bga=tonum("0x"..sub(sd,2,2)) фгб=фга<<4 бгб=бга<<4 адрес=512*(си\16)+4*(си%16) для n=1,16,2 сделать v=n\2sc=tonum("0x"..sub(sd,n+2,n+3))csd={} для csi=1,4 делать csv=(csi-1)*2 csd[csi]=(bga*(((~sc)&(2^csv))/(2^csv)))|(bgb*(((~sc)&(2^(csv+1))) /(2^(CSV+1)))) |(fga*((sc&(2^csv))/(2^csv)))|(fgb*((sc&(2^(csv+1)))/(2^(csv+1)))) конец тыкать (адрес + v * 64, csd [1], csd [2], csd [3], csd [4]) конец си+=1 конец f={"\^:24bdff7e3c7ec366","\^:66c37e3c7effbd24","\^:46ecbf3e3ebfec46","\^:6237fd7c7cfd3762"} ll"613300000000ff0000" ll"610000ff0000000033" ll"6100000000ff000000" ll"b3aa7f490440022000" ll"b30010024004497faa" ll"c1000c728100186681" ll"d80607010000000606" ll"d80000000000000606" ll"d80000000000006060" ll"94ff000000000000ff" ll"94ff000000000000ff" ll"94ff000000000000ff" w="4535453120341203"x=56y=120q=4at=""dt=0cci=128dd=0cd=0::_::cls()srand(cci) приятель(3,(cci-6)%15) приятель(11,(cci)%15) для wti=1,16 сделать вес = вес [вес] wtn=tonum(вес) для tti=1,16 сделать spr(wtn,xv,(wti-1)*8)xv=8*(tti-1) конец если(wtn>=0 и wtn<=2 или wtn==5), то приятель(8,ряд(15)) tr=время()*(rnd()+cd) stu=6exp=истина if(wtn==5)stu=9exp=false tr*=.4 кп=-24+(tr*176%176) если(wt=="0") тогда кп=128-кп spr(stu,kp,(wti-1)*8,3,1,false) если (y\8)+1==wti и (x+8>=kp и x<=kp+16)==exp, то если(dt==0)at="\^w"dt=time()dd+=1?"\ac0c0c0c0" конец еще spr(stu,kp,(wti-1)*8,3,1,true) если (y\8)+1==wti и (x-8<=kp+16 и x-8>kp-8)==exp, то если(dt==0)at="\^w"dt=time()dd+=1?"\ac0c0c0c0" конец конец конец конец если dt>0 и time()-dt>1, то дт=0y=120at="" конец б=0 если (дт == 0) б = бтнп ()% 16 t="\^-t\^-w"..в ха=(b&2)*-4ya=(b&8)*-1 если(b>0)q=b ?"\as5c0a0" если(b&3>0)t="\^w" если(b&12>0)t="\^t" х=середина(0,х+(b&2)*4-(b&1)*8,120) y=середина(0,y+(b&8)-(b&4)*2,120) s=середина(0,(q&1)*3+(q&2)*2+(q&4)/4+(q&8)/4,4) ?t..f[s],x+xa+1,y+ya,0 ?t..f[s],x+xa-1,y+ya,0 ?t..f[s],x+xa,y+ya,11 если(y==0)y=120cci+=1cd+=.05?"\acdefgggg" ?"lvl:"..(cci-128).." смерти:"..dd.." сложность:"..cd,0,0,10 флип () перейти к _