JS1k: The JavaScript code golfing competition

_=' b?{a={Kcdk
h
i
j
f
g
a=7;b=5;e=?{ a,bh1@20g1@0f3@0j1Ji2Jk;22,7d[39a+H7a-H8b-=dd[40b+=d)KDa} t={a:e:?{Z,b%@523)5)3012,$q4$->(Z-=3)O(Z=8Qb=4+1W)}Ke=[];pg=bYc/=2;d/=2;for(i=30;i--;)b?pgtd=[];z_down0Kz_up1Kg=setf,33),h=0;  f?{^Silver"8Q6We.forEach(`){e?}e.sort(`,k){Db-k.b}^G~y"3Q)7Q1Qscale(.7,.79-a,9-befzt="30px Serif";%;"Take me  the t~in!X435h+=.033;h.Fixed(1)+"sX7135Z<aOb<bOa<Z+20Ob<b+20O(^GreenX"NICE	 if(8W<aUa||6W<bUb)^RedX"FAIL	K
="#"+(16777215<<0).String(16fill*~ndom?Style=;Rect(functiz);=V*pow(-1,ceilV	!X3Q3W),clearg)a.pg.YresreY0,t~nslate(beginPathYq=`){d[_Code]=!5,Text(saveY]O(e.push(var c.t.Math.Interval(501$43,7,7%^Black"?()@1Dreturn H=cd[3J28,5K};O&&Q0U||->V(5+2)W00X",Y(Za^"_key`(aqarc(zon~rato';for(Y in $='~zq`_^ZYXWVUQOKJHD@?%$	
')with(_.split($[Y]))_=join(pop());eval(_)

Xz0nBiBiP3sZYT17SwtjCGQIawFoAWkBagFmAWcBYT03HgM7C2I9NR4DOwtlPQY/exUgEAthLAtiGGgFMR9AMjAYZwUxQB8wGGYFM0AfMBhqBTFKaQUySms7ETIyLBMTDzcHAg5kWzM5FmErSDcWYS1IOBZiLT0LZAdkWzQwFmIrPQtkKUtEYX0gdD17YToPZToGP3sVEFosG2IHJQVANQ8yMykFEw8fNSkFMxMfHzAHETEyLCRxNA8kAg4tHj4oWi09MylPKFo9OFEbYj00HgMrMVcpfUsZZT1bXTtwZz1iWQxjLz0yOwxkLz0yO2ZvcihpPTMwO2ktLTspF2I/BxdwZwcXdAcZZD1bXTt6X2Rvd24SMEt6X3VwEjFLGWc9c2V0HWYsMzMpLGg9MDsgBiBmP3teU2lsdmVyIgUPDzhRNlcHZS5mb3JFYWNoKGApewtlP30HZS5zb3J0KGAsayl7RAtiLWsuYn0HFV5HfnkiBQ8PM1EeKQU3UQ8xUR4HGnNjYWxlKC43LC43BxA5LQxhLDktDGIHDGUOGmZ6dD0iMzBweCBTZXJpZiI7JTsUIlRha2UgbWUgfyB0aGUgdH5pbiFYNA8zNQdoKz0uMDMzOxRoLn9GaXhlZCgxKSsic1g3MQ8zNQdaPAxhTxtiPAxiTwxhPForMjBPDGI8G2IrMjBPKF5HcmVlblgUIk5JQ0UJByBpZig4VzwMYVVhfHw2VzwMYlViKV5SZWRYFCJGQUlMCUsBPSIjIisoMTY3NzcyMTUDPDwwKS5/U3RyaW5nKDE2BwsCGmZpbGwDKhx+bmRvbT8EAlN0eWxlPQU7AlJlY3QoBmZ1bmN0aXoHKTsIPVYqHHBvdygtMSwcY2VpbFYHCwkhWDNRM1cpLGNsZWFyHWcpC2EuDHBnLg5ZGnJlc39yZVkPMCwQGnR+bnNsYXRlKBEaYmVnaW5QYXRoWXESPWApe2RbC19Db2RlXT0hEzUsFAJUZXh0KBUac2F2ZVkWXU8oCxdlLnB1c2goGAcECxl2YXIgGmMuG3QuHE1hdGguHUludGVydmFsKB41MB8TMSQ0Myw3LA83ByVeQmxhY2siPygpQA8xE0RyZXR1cm4gSD0LYwdkWzNKEzI4LB81GEt9O08mJlEwD1V8fC0ePgxWKDUDKzIpVzAwWCIsWSgHWhthXgQiX2tleWAGKGFxGmFyYyh6b25+cmF/dG8nO2ZvcihZIGluICQ9J39+enFgX15aWVhXVlVRT0tKSERAPyUkHx4dHBsaGRgXFhUUExIREA8ODAsJCAcGBQQDAgEnKXdpdGgoXy5zcGxpdCgkW1ldKSlfPWpvaW4ocG9wKCkpO2V2YWwoXyk=

function b(){var a={};a.c=(5*Math.random()+2)*Math.pow(-1,Math.ceil(5*Math.random()+2));a.d=(5*Math.random()+2)*Math.pow(-1,Math.ceil(5*Math.random()+2));a.k="#"+(16777215*Math.random()<<0).toString(16);a.h="#"+(16777215*Math.random()<<0).toString(16);a.i="#"+(16777215*Math.random()<<0).toString(16);a.j="#"+(16777215*Math.random()<<0).toString(16);a.f="#"+(16777215*Math.random()<<0).toString(16);a.g="#"+(16777215*Math.random()<<0).toString(16);a.a=750*Math.random();a.b=550*Math.random();a.e=function(){c.save(); c.translate(a.a,a.b);c.fillStyle=a.h;c.fillRect(15,10,15,20);c.fillStyle=a.g;c.fillRect(10,15,5,10);c.fillStyle=a.f;c.fillRect(30,15,5,10);c.fillStyle=a.j;c.fillRect(15,28,5,15);c.fillStyle=a.i;c.fillRect(25,28,5,15);c.fillStyle=a.k;c.beginPath();c.arc(22,5,5,0,7);c.fill();c.restore();d[39]&&(a.a+=a.c);d[37]&&(a.a-=a.c);d[38]&&(a.b-=a.d);d[40]&&(a.b+=a.d)};return a} t={a:0,e:function(){c.save();c.translate(t.a,t.b);c.fillStyle="Black";c.fillRect(0,15,50,23);c.fillRect(5,0,5,15);c.fillRect(35,5,15,10);c.beginPath();c.arc(12,43,7,0,7);c.arc(40,43,7,0,7);c.fill();c.restore();-50>(t.a-=3)&&(t.a=800,t.b=450*Math.random()+100)}};var e=[];pg=b();pg.c/=2;pg.d/=2;for(i=30;i--;)e.push(b());e.push(pg);e.push(t);var d=[];onkeydown=function(a){d[a.keyCode]=!0};onkeyup=function(a){d[a.keyCode]=!1};var g=setInterval(f,33),h=0; function f(){c.fillStyle="Silver";c.fillRect(0,0,800,600);e.forEach(function(a){a.e()});e.sort(function(a,k){return a.b-k.b});c.save();c.fillStyle="Gray";c.fillRect(0,0,300,50);c.fillRect(700,0,100,50);c.scale(.7,.7);c.translate(9-pg.a,9-pg.b);pg.e();c.restore();c.font="30px Serif";c.fillStyle="Black";c.fillText("Take me to the train!",40,35);h+=.033;c.fillText(h.toFixed(1)+"s",710,35);t.a<pg.a&&t.b<pg.b&&pg.a<t.a+20&&pg.b<t.b+20&&(c.fillStyle="Green",c.fillText("NICE!",300,300),clearInterval(g)); if(800<pg.a||-50>pg.a||600<pg.b||-50>pg.b)c.fillStyle="Red",c.fillText("FAIL!",300,300),clearInterval(g)};