JS1k: The JavaScript code golfing competition

_='ITwTe000"},888"},ff0"G[0,0]pZ,Z+U>2)SVUE0$wOpW~}UE1Xw^p~;wiY(Pi:0Gp}$c=vTfTu=U<0@i;L<2||LEi@L;qd@cEf;U@i;L=i;L=%NN],cWcEf@~ L};i=4;p=w[i/4$%NNNNBFw]FFc.height=c.widY=20=+0.005;d0,0x
,0J1J49J48]]z0!1!49!48]iV9>_;$p*50,*50eO?080"GpI[uA
-

,A-]];Wp=uF}:Pd:[C,C]GpV]X`]E0X
]E0[D;=-}`][`D}
][
SV=-}pF})}onkeydown=c=p.which-37;c>=0Xc<4$d(c&2),0c&1)d,]F;SsetInterval(S$ip=e[_$p.m(WI[p.p]=i}{QStyle=qc;QRect(4*
*4,4,4)F},40)
p^p[1]0|MaY.random()$w.join(b).match(K+function(p,c$+]],c)X%)<0?0:t>49?49:t	[p]~returnd^pTzxif(,m:wiY(Yis$+K))I[[B;%for({c:"#d[1]>0?1:)*(*3.3)+,=[I	-1=1;
+];0;!]=$){%u([
6--;)@)~ AZ(e[2].B],fW_C(*2)*2DSV=-E==F}}G,p:H=5J]!
,K"\\\\b"Lc	N+1O.push(Pfff",Qa.fillTUV=W);X&&YthZ(t=^[0]_++i`]qe[].x
H
6zH6';for(i in $='zxq`_^ZYXWVUTQPONLKJHGFEDCBA@6%$!~	
')with(_.split($[i]))_=join(pop());eval(_)

Xz0nSVR3VGUZFTAwMCJ9LBU4ODgifSwVZmYwIkdbMCwwXRAaHHAZWh0ILFoCKxYIHlU+MilTVlVFMCR3T3BXfn1VRTFYd14EcBF+O3dpWShQaTowR3B9JGM9dlRmVHU9BVU8MEBpOw9MPDJ8fExFaUBMOw9xZEBjRWY7VUBpO0w9aTtMPSVOGAcbGAcYTgcYG10sY1cPY0VmQBocfiBMfTsUaT00O3A9d1tpLzQbHiQlThgHThgTGxgHGxgTGE4HGE4TGBsHGBtCRncZXUZGHmMuaGVpZ2h0PWMud2lkWT0yMB8OGj0DKzAuMDA1O2QZMCwwHngSASwwSjFKNDlKNDhdXRx6EjAGITEGITQ5BiE0OAZdHBRpVjk+XzskcBkDKjUwLAMqNTAeZU8aPxUwODAiR3AQFBocSVt1GUEBLQEXAQgsQQItAhcCCF1dGztXcD11Rn06UGQ6W0MsQ11HcBAaVg8SHQZdWBJgXUUwWBIBBl1FMARbHQZEOxY9LRZ9DxJgXQRbYER9DxIBBl0EWwEGEVNWFj0tFn1wGR0GRn0pfW9ua2V5ZG93bj0FYz1wLndoaWNoLTM3Ow9jPj0wWGM8NCRkGShjJjIpGywwHg9jJjEpZBkWLAxdRjtTHHNldEludGVydmFsKAUPUyQUaRxwPWVbXx4kcC5tKFdJW3AucF09aX0Oe1FTdHlsZT1xYztRUmVjdCg0KgEYKjQsNCw0KUZ9LDQwKQFwXgJwWzFdAzB8TWFZLnJhbmRvbSgpBCQPdy5qb2luKGIpLm1hdGNoKEsrBWZ1bmN0aW9uKHAsYyQGGCsWXQddLGMpWCUIKTwwPzA6dD40OT80OTp0CVtwXX5yZXR1cm4MZF4OcFR6eA9pZigQLG06BXdpWShZaXMkEStLKSkSSVtbE0I7JRRmb3IoFXtjOiIjFmRbMV0XPjA/MTobKSooAyozGy4zKSsYLAIZPVsaSQkbLTEcPTE7HQErDB5dOx8wOyFdPRIkKXsldShbATYtLTspQCl+IEFaKGVbMl0uQl0sZldfQygDKjIpKjIbRBFTVgw9LQxFPT1GfX1HLHA6SD01H0pdIQEsSyJcXFxcYiJMYwlOKzFPLnB1c2goUBVmZmYiLFFhLmZpbGxUGR5VDxpWPR9XKTtYJiZZdGhaKHQ9XlswXV8rK2lgHRhdcWVbGl0ueBQBSAE2ehQCSAI2Jztmb3IoaSBpbiAkPSd6eHFgX15aWVhXVlVUUVBPTkxLSkhHRkVEQ0JBQDYlJCEfHh0cGxoZGBcWFRQTEhEQDw4MfgkIBwYFBAMCAScpd2l0aChfLnNwbGl0KCRbaV0pKV89am9pbihwb3AoKSk7ZXZhbChfKQ==

I = []
w = []
e = [
  //# empty
  { c: "#000" }, 
  //# cell
  { c: "#888" }, 
  //# player
  { 
    c: "#ff0", 
    p: [0, 0], 
    m: function(p, c) { 
      with(this) {
        I[p] = 1
        p = [(t = p[0] + d[0]) < 0 ? 0 : t > 49 ? 49 : t, (t = p[1] + d[1]) < 0 ? 0 : t > 49 ? 49 : t]
        //# fly or hedgehog
        if(I[p] > 2) {
          S = 0
        }
        //# empty cell
        if(I[p] == 0) {
          //# new cell for { w }
          w.push(p)
          return
        }
        //# web cell
        if(I[p] == 1 && w[0]) {
          if(w.join(b).match("\\b" + p + "\\b")) {
            return
          }
          with({ c: "#fff", i: 0, p: p }) {
            c = v = []
            f = []
            u = function(p, c) {
              if(I[p] < 0) {
                return i
              }
              if(c[p] < 2 || c[p] == i) {
                return c[p] 
              }
              if(e[I[p]].d) {
                return c == f
              }
              if(I[p]) {
                return i
              }
              c[p] = i
              c[p] = (u([p[0] + 1, p[1]], c) && u([p[0] - 1, p[1]], c)
                  && u([p[0], p[1] + 1], c) && u([p[0], p[1] - 1], c)
              )
              if(c == f) {
                return I[p] = 1
              }
              return c[p]
            }
            //? avoid new var
            for(i = 4; p = w[i / 4 - 1];) {
              u([p[0] + 1, p[1]], c) && u([p[0] + 1, p[1]], f)  
              ++i
              u([p[0] - 1, p[1]], c) && u([p[0] - 1, p[1]], f)  
              ++i
              u([p[0], p[1] + 1], c) && u([p[0], p[1] + 1], f)  
              ++i
              u([p[0], p[1] - 1], c) && u([p[0], p[1] - 1], f)  
              ++i
            }
          }
          w = []
        }      
      }
    }
  }
]

c.height = c.width = 200

p = []
for(p[1] = 50; p[1]--;) {
  for(p[0] = 50; p[0]--;) {
    I[p] = 0 | Math.random() + 5e-3
  }
}  

d = [0, 0]
for(p[0] = 50; p[0]--;) {
  I[[p[0], 0]] = I[[p[0],  1]] = I[[p[0], 49]] = I[[p[0], 48]] = 1 
} 
for(p[1] = 50; p[1]--;) {
  I[[0, p[1] + d[1]]] = I[[1, p[1] + d[1]]] = I[[49, p[1] + d[1]]] = I[[48, p[1] + d[1]]] = 1 
}

for(i = 0; 9 > ++i;) {
  p = [0 | Math.random() * 50, 0 | Math.random() * 50]
  //e[I[[x, p[1]]] = i + 3] = (I[[x, p[1]]] 
  e.push(I[p] 
    //# hedgehog
    ? { 
      c: "#080", 
      //# old cell
      p: p, 
      m: function(p, c) {
        with(this) {
          //# random movement by web, but bit closer to player
          for(I[p] = 1; I[u = [(t = (e[2].p[0] - p[0] > 0 ? 1 : -1) * (0 | Math.random() * 3 - 1.3) + p[0]) < 0 ? 0 : t > 49 ? 49 : t, (t = (e[2].p[1] - p[1] > 0 ? 1 : -1) * (0 | Math.random() * 3 - 1.3) + p[1]) < 0 ? 0 : t > 49 ? 49 : t]] - 1;);
          p = u
        }
      }  
    }
    //# fly
    : { 
      c: "#fff", 
      d: [(0 | Math.random() * 2) * 2 - 1, (0 | Math.random() * 2) * 2 - 1], 
      p: p, 
      m: function(p, c) {
        with(this) {
          I[p] = 0
          
          if(I[[p[0] + d[0], p[1] + d[1]]] && I[[p[0] + d[0], p[1]]] == 0 && I[[p[0], p[1] + d[1]]] == 0) {
            //? try avoid { join }
            //? dont work
            if(w.join(b).match("\\b" + [p[0] + d[0], p[1] + d[1]] + "\\b")) {
              S = 0
            }
            d[0] = -d[0]
            d[1] = -d[1]
          }
          if(I[[p[0] + d[0], p[1]]]) {
            if(w.join(b).match("\\b" + [p[0] + d[0], p[1]] + "\\b")) {
              S = 0
            }
            d[0] = -d[0]
          }
          if(I[[p[0], p[1] + d[1]]]) {
            if(w.join(b).match("\\b" + [p[0], p[1] + d[1]] + "\\b")) {
              S = 0
            }
            d[1] = -d[1]
          }
          
          p = [p[0] + d[0], p[1] + d[1]]
        }
      }  
    }
  )
}
//setInterval(s, 1e4)
onkeydown = function(p, c) {
  c = p.which - 37
  if(c >= 0 && c < 4) {
    d = [(c & 2) - 1, 0]
    if(c & 1) {
      d = [d[1], d[0]]
    }
  }
}

//get from compressor for free
S = 1

setInterval(function(p, c) {
  if(S) {
    //# move
    for(i = 1; p = e[++i];) {
      p.m()
      I[p.p] = i
    } 
    //# draw
    p = []
    for(p[1] = 50; p[1]--;) {
      for(p[0] = 50; p[0]--;) {
        a.fillStyle = e[I[p]].c
        a.fillRect(4 * p[0], p[1] * 4, 4, 4)
      }
    }
  }
}, 40)