Snake Cave

Explore the caves but watch out for holes and snakes! Collect diamonds to increase your score,   and crush snakes to find more lives.

use the arrows to move around the dark cave more will be revealed as you search. 

Find openings in the outer walls to enter new rooms.

#Pico1k

Explore The Cave

Find New Rooms

Collect Diamonds

Crush Snakes 

Squeeze through tight cracks

Perform Death Defying Jumps

Source Code -1023 Compressed Bytes

--jusa

a=176he=100h=3f=1g=0d={{0}}k={{0}}t={{4,8,190}}e={}r=0::q::

if(#d[f]<196)add(d[f],flr(rnd(6)))add(k[f],0)goto q

if#t<f+1 then

add(d,{})add(k,{})add(e,{flr(rnd(4)+1),flr(rnd(11)+2)})

while e[f][1]==t[f][1]do e[f][1]=flr(rnd(4)+1)end

if(e[f][1]==1)e[f][3]=e[f][2]t[f+1]={4,e[f][2],e[f][3]+182}l=t[f][2]-1 n3=e[f][3]+(l*14)n2=e[f][2]>t[f][2]and 3 or 2

if(e[f][1]==2)e[f][3]=1+((e[f][2]-1)*14)t[f+1]={3,e[f][2],e[f][3]+13}l=t[f][2]n3=e[f][3]+l n2=e[f][2]>t[f][2]and 4 or 1

if(e[f][1]==3)e[f][3]=e[f][2]*14 t[f+1]={2,e[f][2],e[f][3]-13}l=14-t[f][2]n3=e[f][3]-l n2=e[f][2]>t[f][2]and 4 or 1

if(e[f][1]==4)e[f][3]=e[f][2]+182 t[f+1]={1,e[f][2],e[f][3]-182}l=14-t[f][2]n3=e[f][3]-(l*14)n2=e[f][2]>t[f][2]and 3 or 2

m=t[f][1]==1 and e[f][2]-1 or t[f][1]==2 and e[f][2] or t[f][1]==3 and 14-e[f][2] or t[f][1]==4 and 14-e[f][2]

if(e[f][1]+t[f][1]==5)l=6 m=6

n=1+abs(e[f][2]-t[f][2])

o={{l,e[f][1],e[f][3]},{n,n2,n3},{m,t[f][1],t[f][3]}}

for o in all(o)do

for h=0,o[1]do

p=o[2]==1 and o[3]+(h*14)or o[2]==2 and o[3]+h or o[2]==3 and o[3]-h or o[2]==4 and o[3]-(h*14)

d[f][p]=1

if(h==1)x=p

a=x

end

end

end

k[f][a]=1

for i=1,14 do

d[f][i]=2

d[f][1+((i-1)*14)]=2

d[f][(i*14)]=2

d[f][i+182]=2

d[f][e[f][3]]=7

for j=1,14 do

y=d[f][i+((j-1)*14)]

if k[f][i+((j-1)*14)]!=0 and r<2 then

rectfill(118,110-he,124,110,11)

c=y==5 and 0 or y==2 and 5 or y!=5 and 4

rectfill(i*8-5,j*8,i*8+3,(j*8)+8,c)

if(y==2)rect(3+i*8,j*8,i*8-5,j*8+8,6)

pr=k[f][i+((j-1)*14)]==1 and "웃" or y==3 and "∧" or y==4 and "◆" or ""

c=y==3 and 11 or y==4 and 12 or k[f][i+((j-1)*14)]==1 and 9 or ""

?pr,i*8-4,j*8+2,c

end

end

end

u={}

if r==1 then

for i=1,196 do

if(d[f][i]==3)add(u,i)

end

for i in all(u)do

v=flr(rnd(4)+1)

z=v==1 and i-14 or v==2 and i+14 or v==3 and i+1 or v==4 and i-1 or i

if(d[f][z]>1)z=i

if(k[f][z]==1)d[f][i]=3 d[f][z]=1 he-=10?"\aa'-1"

d[f][i]=1

d[f][z]=3

end

if(d[f][a]!=3)r=0

end

b=btnp()pl=a

if r<1 then

a+=(b\2%2-b%2) or 0

a+=(b\8%2-b\4%2)*14 or 0

k[f][pl]=2

k[f][a+1]=2

k[f][a-1]=2

k[f][a+14]=2

k[f][a-14]=2

k[f][a+13]=2

k[f][a-13]=2

k[f][a+15]=2

k[f][a-15]=2

if(d[f][pl]==7)g+=100f+=1 goto q

if(d[f][a]==5 or he<0)h-=1 he=100 a=x

if(d[f][a]==4)g+=25 d[f][a]=1?"\ag+#g",0,0

if(d[f][a]==3)g+=4 d[f][a]=1 h+=rnd(9)>8 and 1 or 0?"\ae+#g",0,0

if(d[f][a]==2)a=pl

if(b>0)r+=1

if(h<0)r=3

end

?"\fdlvl\f7:"..f.." \fascore\f7:"..g.." \f9웃\f7:"..h,0,0

?"⁶1⁶c"

goto q