Froggo 1K

This was the first time I participated in a Pico-8 1K jam. This Frogger clone has some neat palette swaps and an ever increasing difficulty. How far can you get in as few deaths as possible?

My record is level 20 / 355 deaths 😅

Source code

si=0 function ll(sd) fga=tonum("0x"..sub(sd,1,1))bga=tonum("0x"..sub(sd,2,2)) fgb=fga<<4 bgb=bga<<4 addr=512*(si\16)+4*(si%16) for n=1,16,2 do v=n\2sc=tonum("0x"..sub(sd,n+2,n+3))csd={} for csi=1,4 do 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)))) end poke(addr+v*64,csd[1],csd[2],csd[3],csd[4]) end si+=1 end 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) pal(3,(cci-6)%15) pal(11,(cci)%15) for wti=1,16 do wt=w[wti] wtn=tonum(wt) for tti=1,16 do spr(wtn,xv,(wti-1)*8)xv=8*(tti-1) end if(wtn>=0 and wtn<=2 or wtn==5) then pal(8,rnd(15)) tr=time()*(rnd()+cd) stu=6exp=true if(wtn==5)stu=9exp=false tr*=.4 kp=-24+(tr*176%176) if(wt=="0") then kp=128-kp spr(stu,kp,(wti-1)*8,3,1,false) if (y\8)+1==wti and (x+8>=kp and x<=kp+16)==exp then if(dt==0)at="\^w"dt=time()dd+=1?"\ac0c0c0c0" end else spr(stu,kp,(wti-1)*8,3,1,true) if (y\8)+1==wti and (x-8<=kp+16 and x-8>kp-8)==exp then if(dt==0)at="\^w"dt=time()dd+=1?"\ac0c0c0c0" end end end end if dt>0 and time()-dt>1 then dt=0y=120at="" end b=0 if(dt==0) b=btnp()%16 t="\^-t\^-w"..at xa=(b&2)*-4ya=(b&8)*-1 if(b>0)q=b ?"\as5c0a0" if(b&3>0)t="\^w" if(b&12>0)t="\^t" x=mid(0,x+(b&2)*4-(b&1)*8,120) y=mid(0,y+(b&8)-(b&4)*2,120) s=mid(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 if(y==0)y=120cci+=1cd+=.05?"\acdefgggg" ?"lvl:"..(cci-128).." deaths:"..dd.." difficulty:"..cd,0,0,10 flip()goto _