JS1k: The JavaScript code golfing competition

m='~ÿÿÿÿÿÿ~






<zr$
6LL66\\\\6 v6PP6v ';_='c.sY.display="block";w=c.wZWZ;h=c.hGHG;s=8;P=w*h+h;F=S=1;fgec=[L-2];	=functionOQ++F?(b.which-38,P+b%2+5b%6,U@P=b,2<@LS++))):0<ssetTimeout(	,99,s5)e)uV<^>_oV<^>_+=u&u]?u:oX]?oX:=V	(=F=NaNP;;Q2;-6-w-6+2+1+2+6+w+6-27-2`>
&P!=b(31f)if(fB&Ii-P)+I(i-P<sQf[i0;J}ifO)J;1*i;
<`*Se.pushOo=4*
|0;i=4;i5!(UDo]X@g[(O/2)X+bDo]/2L0.U
)o=++o%4}w,huV-wo=(P-hx=s;x5;)y=s;y5;Qfff"g)(gB7E),1==b?0:b,bK||(ii;000"e)24;40PP}top.document.title=S7+" ⬖"};	({})
random()-oE+y,L2)eB$Rect(-uE+x,((m.charCodeAt(x+;i in g[b	onkeyup+F%s)K(/w|0)$SY="#2*]=for(]||(D(o+1)%4]);f[b/2/(s)|0;&&%wMath.b=0,1=[];=innerUg[+$a.fill5--6w7-1@](B[i]D+c[E)*sGeightIabs(JbreakK>>y&1L2,O(bQ){U1<V=PX*wYtyleZidth^?7:P_?1:`0.01';for(Y=0;$='`_^ZYXVUQOLKJIGEDB@765$	
'[Y++];)with(_.split($))_=join(pop());eval(_)

bT0nfsO/w7/Dv8O/w7/Dv37CgQEBAQEBAcKBARg8enIkGAHCgRg2TEw2GMKBwoEYNlxcXFw2GMKBwoEgEHY2UAjCgcKBCFA2dhAgJztfPSdjLnNZLmRpc3BsYXk9ImJsb2NrIjt3PWMud1oeV1o7aD1jLmhHHkhHO3M9ODtQPXcqaCtoO0Y9Uz0xO2YdZx1lHWM9WxtMGy0yXTsJPWZ1bmN0aW9uT1ErK0Y/KBpiLndoaWNoLTM4LBpQK2IlMis1YiU2LFUIQFA9YiwyPAhACBBMUysrKSkpOjA8cxdzZXRUaW1lb3V0KAksOTksczUpB2UpdVYYPAMYXhg+Axhfb1Y8A14+A18DKz11Jh91XT91Oh9vWF0/b1g6GwM9VhcJKAM9Rj1OYU4UERpQOztRCBAyOwgtNhItdxUtNhwIKzISKzEVKzIcCCs2Eit3FSs2HAgtMhI3FS0yHGA+ASZQIT1iFygIEDMUGjEHZilpZihmQiZJaRgtUBgpK0koaQwtUAw8c1EaZltpEDA7Sn1pZk8pSjsaMSppOwE8YCpTF2UucHVzaE8Ubz00KgF8MDsRaT00O2k1FyEoVQhEb10TWEBnWyhPDBMvMilYK2IYRG9dLzIQTDAuVQEpFG89KytvJTQUfQQbG3csaBR1VhgtdxZvPShQDC1oFhF4PXM7eDU7KRF5PXM7eTU7UQ5mZmYiB2cpGgYoZ0I3RSksGjE9PWI/MDpiLGJLfHwEDyhpBWkCOw4wMDAiB2UpBjI0CwMFAwI7BjQwC1AFUAJ9dG9wLmRvY3VtZW50LnRpdGxlPVM3KyIg4qyWIn07CSh7fSkBGXJhbmRvbSgpAgwtb0UrD3ksTDIpA2VCBCRSZWN0KAUYLXVFKw94LA8oKAZtLmNoYXJDb2RlQXQoeCsHOxFpIGluIAhnW2IJb25rZXl1cAsrRiUPcylLFwQPKAwvd3wwKQ4kU1k9IiMPMioQXT0RZm9yKBJdfHwoCBNEKG8rMSklNF0UKTsVEGZbYhYvMi8oD3MpfDA7FyYmGCV3GU1hdGguGmI9GzAsHBAxFB09W107Hj1pbm5lch9VZ1sDKyRhLmZpbGw1LS02D3c3LTFAXRcoQltpXUQrY1tFKSpzR2VpZ2h0SRlhYnMoSmJyZWFrSz4+eSYxTDIsTyhiUSl7VTE8Vj1QWCp3WXR5bGVaaWR0aF4/NzpQXz8xOhtgMC4wMSc7Zm9yKFk9MDskPSdgX15aWVhWVVFPTEtKSUdFREJANzY1JB8eHRwbGhkYFxYVFBMSERAPDgwLCQgHBgUEAwIBJ1tZKytdOyl3aXRoKF8uc3BsaXQoJCkpXz1qb2luKHBvcCgpKTtldmFsKF8p

// thanks to malte for finding the right sprites and his second pair of eyes
// and thanks to @p01 for the string suggestions
m = '~ÿÿÿÿÿÿ~






<zr$
6LL66\\\\6 v6PP6v '

c.style.display = 'block' // thanks to @veubeke
w = c.width = innerWidth
h = c.height = innerHeight
s = 8 // scale
P = w * h + h // Player Position
F = S = 1 // Score

f = [] // frontier
g = [] // the grid
e = [] // entities

// direction to carve
c = [ 0, 2, 0, -2 ]

onkeyup = function( p ) {
  if ( ++F ) {
    // player movement
    // thanks to: http://js1k.com/2013-spring/demo/1367
    p = p.which - 38
    p = P + p%2 + --p%2 * w

    // check collision with walls
    if ( g[p] > 1 ) { 
      P = p
      if ( g[p] > 2 ) { // collect tresure
        g[p] = 2
        S++
      }
    }
  }
  else {
    if ( s > 0 ) setTimeout( onkeyup, 99, s-- )
  }

  // entity movement
  for ( i in e ) {
    // horizontal
    u = ( P % w < e[i] % w ) ? -1 : 
        ( P % w > e[i] % w ) ? 1 : 
        0

    // vertical
    o = ( P < e[i] ) ? -1 : 
        ( P > e[i] ) ? 1 : 
        0

    e[i] += u & g[e[i] + u] > 1 ? u : g[e[i] + o * w] > 1 ? o * w : 0

    if ( e[i] == P ) { // collision with player
      onkeyup(e[i] = F = NaN)
    }
  }

  for ( p = P;; ) {
    // add and mark
    g[p] = 2
    if ( !g[p-w*2] ) g[p-w] = f[p-w*2] = 1
    if ( !g[p+2] )   g[p+1] = f[p+2] = 1
    if ( !g[p+w*2] ) g[p+w] = f[p+w*2] = 1
    if ( !g[p-2] )   g[p-1] = f[p-2] = 1
    
    // add tresure
    if ( Math.random() < .01 & P != p ) {
      g[p] = 3
    }
    
    // select frontier in range
    p = 1
    for ( i in f ) {
      if ( f[i] & Math.abs( i % w - P % w ) + Math.abs( (i / w | 0) - P / w | 0 ) < s ) {
        p = f[i] = 0
        break
      }
    }

    // no frontier in range, abort
    if ( p ) break
    
    p = i * 1
    
    // add entities
    if ( Math.random() < .01 * S ) {
      e.push( p )
    }
    
    // carve to nearest way
    // and mark sourroundings as wall
    o = Math.random() * 4 | 0
    for ( i = 4; i--; o = ++o%4 ) {
      if ( g[p + c[o] + c[(o+1)%4] * w] > 1 ) {
        g[((p / w | 0) + c[(o+1)%4] / 2) * w + p % w + c[o] / 2] = 2
        if ( Math.random() > .1 ) break
      }
    }
  }

  a.fillRect( 0, 0, w, h )

  u = P % w - w/2 / (s*2) | 0 // camera x offset
  o = (P / w | 0 ) - h/2 / (s*2) | 0 // camera y offset

  for ( x = s; x--; ) {
    for ( y = s; y--; ) {
      a.fillStyle = '#fff' // tan
      // draw maze
      for ( i in g ) {
        p = m.charCodeAt( x + (g[i]-1) * s)
        p = p == 1 ? 0 : p // thanks to opera
        if ( !( p >> y & 1) ) {
          a.fillRect( 
            (i % w - u) * s * 2 + x*2, 
            ((i / w | 0) - o) * s * 2 + y*2, 
            2, 2
          )
        }
      }
      
      a.fillStyle = '#000' //red
      
      // draw enemies
      for ( i in e ) {
        if ( m.charCodeAt( x + 24 + F%2*s ) >> y & 1 ) {
          a.fillRect( 
            (e[i] % w - u) * s * 2 + x*2, 
            ((e[i] / w | 0) - o) * s * 2 + y*2, 
            2, 2
          )
        }
      }
      
      // draw player
      if ( m.charCodeAt( x + 40 + F%2*s ) >> y & 1 ) {
        a.fillRect( 
          (P % w - u) * s * 2 + x*2, 
          ((P / w | 0) - o) * s * 2 + y*2, 
          2, 2
        )
      }
    }
  }
  
  top.document.title = S - 1 + ' ⬖'
}

onkeyup({})