JS1k: The JavaScript code golfing competition

function W(a){return 0|R()*a}function C(){return e=W(4095),"#"+e.toString(16)}function P(){h.push({c:[C(),C(),C()],p:{l:W(440),t:W(460)}}),k=0}function B(b,c,d){a.fillStyle=d,a.fillRect(x,y,b,c)}function A(b,c){a.font=b+"px Arial",a.fillStyle="red",a.fillText(c,x,y+b/2)}function D(a,b,c,d){v=a.p,w=a.c,x=d?x+22:v.l+3,!d&&(y=v.t),B(5,4,w[0]),y+=14,B(5,5,w[2]),x--,y-=9,B(7,9,w[1])}function E(){L(),m=1,o=h.shift(),t=W(w=h.length),h.push(o),r=o.p,o=w,x=r.l+15,y=r.t,A(29,"♥"),D(h[t],"","",1),G(function(){m=0},s*2)}function L(){c.width=d}function U(){m=1,p=h[o].p,L(),x=p.l+15,y=p.t,t^q?A(60,"☹"):A(40,"♥"),G(function(){h.splice(o,1),q==t&&(h.splice(q,1),j++),q=-1,m=0,G(E,s)},s*2)}function K(a,b){a=a.p,o^b&&M.abs(a.l+6-f)<6&&M.abs(a.t+10-g)<10&&(q=b,U())}c.width=c.height=d=500,M=Math,R=M.random,G=setTimeout,q=t=-1,s=1e3,o=l=m=j=0,h=[],b.onclick=function(a){f=a.pageX,g=a.pageY,!m&&h.map(K)};for(n=11;--n;)P();setInterval(function(){m?(D(h[o]),q>-1&&D(h[q])):(L(),h.map(D),++k>6&&P()),x=y=5,A(15,"M="+j)},250),G(E,s)

ZnVuY3Rpb24gVyhhKXtyZXR1cm4gMHxSKCkqYX1mdW5jdGlvbiBDKCl7cmV0dXJuIGU9Vyg0MDk1KSwiIyIrZS50b1N0cmluZygxNil9ZnVuY3Rpb24gUCgpe2gucHVzaCh7YzpbQygpLEMoKSxDKCldLHA6e2w6Vyg0NDApLHQ6Vyg0NjApfX0pLGs9MH1mdW5jdGlvbiBCKGIsYyxkKXthLmZpbGxTdHlsZT1kLGEuZmlsbFJlY3QoeCx5LGIsYyl9ZnVuY3Rpb24gQShiLGMpe2EuZm9udD1iKyJweCBBcmlhbCIsYS5maWxsU3R5bGU9InJlZCIsYS5maWxsVGV4dChjLHgseStiLzIpfWZ1bmN0aW9uIEQoYSxiLGMsZCl7dj1hLnAsdz1hLmMseD1kP3grMjI6di5sKzMsIWQmJih5PXYudCksQig1LDQsd1swXSkseSs9MTQsQig1LDUsd1syXSkseC0tLHktPTksQig3LDksd1sxXSl9ZnVuY3Rpb24gRSgpe0woKSxtPTEsbz1oLnNoaWZ0KCksdD1XKHc9aC5sZW5ndGgpLGgucHVzaChvKSxyPW8ucCxvPXcseD1yLmwrMTUseT1yLnQsQSgyOSwi4pmlIiksRChoW3RdLCIiLCIiLDEpLEcoZnVuY3Rpb24oKXttPTB9LHMqMil9ZnVuY3Rpb24gTCgpe2Mud2lkdGg9ZH1mdW5jdGlvbiBVKCl7bT0xLHA9aFtvXS5wLEwoKSx4PXAubCsxNSx5PXAudCx0XnE/QSg2MCwi4pi5Iik6QSg0MCwi4pmlIiksRyhmdW5jdGlvbigpe2guc3BsaWNlKG8sMSkscT09dCYmKGguc3BsaWNlKHEsMSksaisrKSxxPS0xLG09MCxHKEUscyl9LHMqMil9ZnVuY3Rpb24gSyhhLGIpe2E9YS5wLG9eYiYmTS5hYnMoYS5sKzYtZik8NiYmTS5hYnMoYS50KzEwLWcpPDEwJiYocT1iLFUoKSl9Yy53aWR0aD1jLmhlaWdodD1kPTUwMCxNPU1hdGgsUj1NLnJhbmRvbSxHPXNldFRpbWVvdXQscT10PS0xLHM9MWUzLG89bD1tPWo9MCxoPVtdLGIub25jbGljaz1mdW5jdGlvbihhKXtmPWEucGFnZVgsZz1hLnBhZ2VZLCFtJiZoLm1hcChLKX07Zm9yKG49MTE7LS1uOylQKCk7c2V0SW50ZXJ2YWwoZnVuY3Rpb24oKXttPyhEKGhbb10pLHE+LTEmJkQoaFtxXSkpOihMKCksaC5tYXAoRCksKytrPjYmJlAoKSkseD15PTUsQSgxNSwiTT0iK2opfSwyNTApLEcoRSxzKQ==

c.width = c.height = d = 500;
M = Math;
R = M.random;
G = setTimeout;
q = t = -1;
s = 1e3;
o = l = m = j = 0;

// bit people
h = [];

// helper return random number from 0 to x
function W(x) {
	return 0|R()*x
}

// generate random Color
function C() {
	e = W(4095);
    return '#' + e.toString(16);
}

// generate BitPerson
function P() {
	h.push({
        c: [C(), C(), C()], // skin, body, pants
        p: {
        	l: W(440), // left
        	t: W(460) // top
        }
    });
    k = 0;
}

// draw body part
function B(w, h, c) {
    a.fillStyle = c;
    a.fillRect(x, y, w, h);
}

// draw chAr
function A(s, c) {
	a.font = s +"px Arial";
    a.fillStyle = 'red';
    a.fillText(c, x, y+s/2);
}

// draw BitPerson
function D(person, i, a, z) {
    v = person.p,
    w = person.c;

    x = z ? x + 22 : v.l + 3;
    !z && (y = v.t);
    B(5, 4, w[0]); // face

    y += 14;
    B(5, 5, w[2]); // left left

    x--;
    y -= 9;
    B(7, 9, w[1]); // body
}

// Find mate
function E() {
	L();
	m = 1;
	o = h.shift();
//	w = h.length;
	t = W( w = h.length );
	h.push(o);
	r = o.p;
	o = w;

	x = r.l + 15;
	y = r.t;// - 15;

	A(29, '♥');
	D(h[t],'','',1);

	G(function() {
		m=0;
	}, s*2);
}

// cLear
function L() {
	c.width = d;
}

// resUlt
function U() {
	m = 1;
	p = h[o].p;
	L();

	x = p.l + 15;
	y = p.t;// - 15;

	t ^ q ? A(60, '☹') : A(40, '♥');
	G(function() {
		h.splice(o, 1);
		q == t ? (h.splice(q,1), j++) : j--;
		q = -1;
		m=0;
		G(E, s);
	}, s*2);
}

// checK click
function K(p, i) {
	p=p.p, o ^ i && M.abs(p.l+6 - f) < 6 && M.abs(p.t+10 - g) < 10 && (q=i,U())
}

b.onclick = function(e) {
	f = e.pageX;
	g = e.pageY;

	!m && h.map(K)
}

// start
for (n=11; --n;) P();

setInterval(function() {
	m ?	(
		D(h[o]), q > -1 && D(h[q])
	):(
		L(), h.map(D), ++k > 6 && P()
	);
	x = y = 5;
	A(15, '♥ = ' + j)
}, 250);

G(E, s);