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 _