Snake Cave (joeAmerica Gayms)

Исследуйте пещеры, но берегитесь дыр и змей! Собирайте алмазы, чтобы увеличить свой счет, и сокрушайте змей, чтобы получить больше жизней.

Используйте стрелки, чтобы перемещаться по темной пещере, и по мере поиска вы увидите больше.

Находите отверстия во внешних стенах, чтобы попасть в новые комнаты.

#Pico1k

Исследуйте пещеру

Исследуйте и раскройте больше пещеры

Найти новые комнаты

Ищите отверстия во внешних стенах, чтобы найти новые комнаты

Собирать бриллианты

Сделайте свое состояние

Раздавить змей 

Убейте смертельных змей, прежде чем они убьют вас

Протискиваться сквозь узкие щели

Протиснуться через 9-дюймовую щель, чтобы вернуть свое состояние

Совершайте смертельные прыжки

Преодолеть 2 пропасти, чтобы получить алмазы

Исходный код -1023 сжатых байта

--джуса

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

if(#d[f]<196)добавить(d[f],flr(rnd(6)))добавить(k[f],0)перейти к q

если#t

добавить(d,{})добавить(k,{})добавить(e,{flr(rnd(4)+1),flr(rnd(11)+2)})

в то время как 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]и 3 или 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]и 4 или 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] и 4 или 1

if(e[f][1]==4)e[f][3]=e[f][2]+182t[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]и 3 или 2

m=t[f][1]==1 и e[f][2]-1 или t[f][1]==2 и e[f][2] или t[f][ 1]==3 и 14-e[f][2] или t[f][1]==4 и 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]}

для o во всех(o)do

для h=0,o[1] сделать

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

д[f][p]=1

если(ч==1)х=р

а=х

конец

конец

конец

к[ф][а]=1

для i=1,14 сделать

д[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

для j=1,14 сделать

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

если k[f][i+((j-1)*14)]!=0 и r<2, то

прямая заливка(118,110-he,124,110,11)

c=y==5 и 0 или y==2 и 5 или y!=5 и 4

прямая заливка(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 и "웃" или y==3 и "∧" или y==4 и "◆" или ""< /p>

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

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

конец

конец

конец

и={}

если r==1, то

для i=1196 сделать

если(d[f][i]==3)добавить(u,i)

конец

ибо я во всем(и)делаю

v=flr(rnd(4)+1)

z=v==1 и i-14 или v==2 и i+14 или v==3 и i+1 или v==4 и i-1 или i

если(d[f][z]>1)z=i

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

д[f][i]=1

д[f][z]=3

конец

если(d[f][a]!=3)r=0

конец

b=btnp()pl=a

если r<1, то

a+=(b\2%2-b%2) или 0

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

к[ф][пл]=2

к[ф][а+1]=2

к[ф][а-1]=2

к[ф][а+14]=2

к[ф][а-14]=2

к[ф][а+13]=2

к[ф][а-13]=2

к[ф][а+15]=2

к[ф][а-15]=2

if(d[f][pl]==7)g+=100f+=1 перейти к q

if(d[f][a]==5 или 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 и 1 или 0?"\ae+#g",0, 0

если(d[f][a]==2)a=pl

если(b>0)r+=1

если(ч<0)r=3

конец

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

?"⁶1⁶c"

перейти к вопросу