JS1k: The JavaScript code golfing competition

a="c=docum3.g~EUm3ById('c'Qs=15;r=25;l=s*r;
widV=
height=l;b=[W7=7oor;m=['tomatoMorangeMoveMsteZblue'Wdocum3.body.s.marginp=KNLr~urn D!A_(8-sT||8T||-Js#)_8#T)||)_8T)6;up=
oncck=K(e&q=true,sc=s,w=[WGe&k=7(e.c3X/+7(e.c3Y/;G!p(k))r~urn;Fh=OkWK @LGD_`=hLDA;@-sQ@QGN-Js#)@#QGN)@Z(kQ9i=(s)#;i>i--LG`A&a=i;whiU(-=s]=AQG]L`W]A}Zse{G!Oi])w.pushN%s}9i in w&z=w[iWwhiU(z<sL9jj<s;j++&u=(j)+z;G(uLOu]=OuWOu]A}}z++}}}wiV(
g~Context('2d')L4SA;4Rect(0,0,l,lQH{4S=D;beginPf(Qarc%s)*+(),(7N/s)*+(),,0,PI*2,trueQclosePf(Q4(H{G`A)sc--;q=q_!pN6GqLaUrt('Sc: 'cQrs(;rs=K(LH`m[7(random()*m.UngV)Wup(6;rs(Q";for(b in c="r/2+J0((N=0;tyUM','Mf.Oa6}r)*s+1+sli
c.~et`D=@ZN&LF#-1_&&faV9for(F8(Oi7fl6)}4fill3entZelW];VthUleT]==D)Q);Ob[N(iL){KfunctionJ1)%s!=Hfor(Fi=0;i<s*s;i++)Gif(Fvar Db[i]A='#000'".split(""))a=a.replace(RegExp(c[b][0],"g"),c[b].slice(1));eval(a)

YT0iYz1kb2N1bTMuZ35FVW0zQnlJZCgnYydRcz0xNTtyPTI1O2w9cypyOwF3aWRWPQFoZWlnaHQ9bDtiPVtXNz0LN29vcjttPVsndG9tYXRvTW9yYW5nZU1vAnZlTXN0ZVpibHVlJ1dkb2N1bTMuYm9keS5zDC5tYXJnaW4OcD1LTkxyfnVybiBEIUFfKDgtc1R8fDgDVHx8Dy1KcyMpXzgjVCl8fA8QKV84BFQpNjt1cD0Bb25jAmNrPUsoZSZxPXRydWUsc2M9cwUsdz1bV0dlJms9NyhlLmMCM1gvBis3KGUuYwIzWS8GBTtHIXAoaykpcn51cm47Rmg9T2tXSyBATEdEX2A9aExEQTtALXNRQANRR04tSnMjKUAjUUdOEClABAdaKGtROWk9KHMFKSM7aT4OaS0tTEdgQSZhPWk7d2hpVSgILT1zXT1BUUcIXUxgCFcIXUF9WnNle0chT2kDXSl3LnB1c2hOJXMHfTlpIGluIHcmej13W2lXd2hpVSh6PHNMOWoOajxzO2orKyZ1PShqBSkrejtHKHUQTE91XT1PdQRXT3UEXUF9fXorK319fXdpVigBZ35Db250ZXh0KCcyZCcpTDRTDEE7NFJlY3QoMCwwLGwsbFFIezRTDD1EO2JlZ2luUGYoUWFyYw8lcykqBisoESksKDdOL3MpKgYrKBEpLBEsMCwLUEkqMix0cnVlUWNsb3NlUGYoUTQoB0h7R2BBKXNjLS07cT1xXyFwTjZHcUxhVXJ0KCdTYzogJwNjUXJzKAc7cnM9SyhMSGBtWzcoC3JhbmRvbSgpKm0uVW5nVilXdXAoNjtycyhRIjtmb3IoYiBpbiBjPSIRci8yHxArSjAfDygoTh8OPTA7Hwx0eVUfTScsJx8LTWYuHwhPYR8HNn0fBnIpHwUqcx8EKzEfAytzHwJsaR8BYy4ffmV0H2BEPR9AWk4fJkxGHyMtMR9fJiYfZmFWHzlmb3IoRh84KE9pHzdmbB82KX0fNGZpbGwfM2VudB9aZWwfV107H1Z0aB9VbGUfVF09PUQpH1EpOx9PYlsfTihpH0wpex9LZnVuY3Rpb24fSjEpJXMhPR9IZm9yKEZpPTA7aTxzKnM7aSsrKR9HaWYoH0Z2YXIgH0RiW2ldH0E9JyMwMDAnIi5zcGxpdCgiHyIpKWE9YS5yZXBsYWNlKFJlZ0V4cChjW2JdWzBdLCJnIiksY1tiXS5zbGljZSgxKSk7ZXZhbChhKQ==

c = document.getElementById('c');
s = 15;
r = 25;
l = s * r;
c.width = c.height = l;
b = [];
fl = Math.floor;
m = ['tomato', 'orange', 'olive', 'steelblue'];
document.body.style.margin = 0;
p = function (i) {
	return b[i] != '#000'
		&& ((b[i - s] == b[i]) 
			|| (b[i + s] == b[i])
			|| (((i-1)%s != s-1) && (b[i - 1] == b[i]))
			|| (((i+1)%s != 0) && (b[i + 1] == b[i])));
};
up = c.onclick = function (e) {
    var q = true,
        sc = s * s,
        w = [];
    if (e) {
        var k = fl(e.clientX / r) + fl(e.clientY / r) * s;
        if (!p(k)) return;
        var h = b[k];
        function el(i) {
            if (b[i] && b[i] == h) {
                b[i] = '#000';
                el(i - s);
                el(i + s);
				if((i-1)%s != s-1) el(i - 1);
				if((i+1)%s != 0) el(i + 1);
            }
        }
        el(k);
        for (var i = (s * s) - 1; i >= 0; i--) {
            if (b[i] == '#000') {
				var ii = i;
                while (b[ii-=s] == '#000');
                if (b[ii]) {
                    b[i] = b[ii];
                    b[ii] = '#000';
                } else {
					if (!b[i+s]) w.push(i % s);
				}
            }
        }
	    for (var i in w) {
	        var z = w[i];
	        while (z < s) {
	            for (var j = 0; j < s; j++) {
					var u = (j * s) + z;
					if((u+1)%s != 0) {
						b[u] = b[u + 1];
						b[u + 1] = '#000';	
					}
					
	            }
	            z++;
	        }
	    }
    }
	with(c.getContext('2d')) {
		fillStyle = '#000';
	    fillRect(0, 0, l, l);
	    for (var i = 0; i < s * s; i++) {
	        fillStyle = b[i];
	        beginPath();
	        arc(((i % s) * r) + (r / 2), (fl(i / s) * r) + (r / 2), r / 2, 0, Math.PI * 2, true);
	        closePath();
	        fill();
	    }
	}
    for (var i = 0; i < s * s; i++) {
		if(b[i] == '#000') sc--;
    	q = q && !p(i);
	}
    if (q) {
        alert('Sc: ' + sc);
        rs();
    }
};
rs = function () {
    for (var i = 0; i < s * s; i++)
    b[i] = m[fl(Math.random() * m.length)];
    up();
};
rs();