15 Second Devil Dungeon!

The devils harbor great wealth inside their scum hole. It must be retrieved!

Delve into an endless dungeon of devils and diamonds, but be quick! The evil of the scum hole will soon find you should you dillydally...

-------------------------------------------------------------------------------

Use Arrows to move, collect diamonds for points and avoid devils.

You die in one hit, and when the level timer runs out.

--------------------------------------------------------------------------------

Pico-Daily: Devil

--------------------------------------------------------------------------------

CODE:

cartdata("d")

l,s,g,h,n,v=1,0,mget,mset,sfx,dget(0)

::⌂::

tl,t,x,y,f,m,r,e=15,0,1,14,0,16,rnd,{}

for i=1,1+r(l\2)\1 do

h(1+r(m-3)\1,1+r(m-3)\1,17)

end

for j=1,l\2+r(1)\1 do

add(e,{x=1+r(m-3)\1*8,

y=1+r(m-3)\1*8,dx=r{-.5,0,0},dy=r{-.5,0,0}})

end

h(2+r(m-5)\1,2+r(m-5)\1,16)

::_::cls()t+=1if(t%30==0)tl-=1n(4)

pal(15,5+(t/4)%2)

map()

for d in all(e) do

d.x=(d.x+d.dx)%(m*8)

d.y=(d.y+d.dy)%(m*8)

spr(3+(t/2)%2,d.x,d.y)

end

if(g(x,y)==16)h(x,y,18)l+=1n(1)goto ⌂

if(g(x,y)==17)h(x,y,18)s+=1n(2)

if(pget(x*8+2,y*8+2)==8 or tl<0)then

if(s>v)dset(0,s)

n(3)

run()

end

b=btnp()

if(b!=0)f=(f+1)%2n(0)

x=(x+b\2%2-b%2)%m

y=(y+b\8%2-b\4%2)%m

spr(1+f,x*8,y*8)

?"⧗"..tl,2,2,15

?l,2,8

?s.."\n"..v,2,14

flip()goto _