JS1k: The JavaScript code golfing competition

_='with(Math)R=random,F=floor,S=sin,C=cos,Q=2*PI;Z in a)a[Z+(Z[6]$Z)]=a[Z];W=60X=147,d=p=g=l=h=q=[],v=o=A=Z=1,c.width=c.height=W,setInterval(if(Z:8.5
fc(W,Wv.1*-5,v=.9>v?.9:1.4<v?1.4:v,tW/2,W/2
sv,v+.3*S(g).3:9135K(5i=6;iEi,4-1@pd,0>pp=Q+pp>Qp-=Q
t48*C48*S)
rt"▶",-3,4
iB;s=G;i++)s^1s,	,s	-=4+.7*l,	<40-20*sG=1)$52>	&&p>s*X&&p<(s+1XZB)@if(K(5
s3,3"L"+l,2,o,88,
g(15+04*lA,03>A*=-10o%D*(6-l/2)))n=2+D4*m=D6*@nEx=D1+R(lz=.5>$4<n?1:2,m=(m+z)%6,q.push([m,W,x]@hh>W?-h:.8,!--ol++,o=W)}},20P,t,in=n*X+g;var rBi?W:20*i;-1ir=t+3)$(rt,t=40>t?40:ti=n+X,bntn#ti#rirnrnr
fl()},KfillStyle="hsl("+h+",0%,"+*n+"%)"downk=n.which,d=37k?-H39k?H0up=dB};
function(),
ln(C(&&()*,40for(	s[1]R()},b.onkey[0],S(
sv((g+p
fx(re(K(l%2?10,){10.0+=a.a(P(==[2]=n#ti$||@);B=0DF(E--;)Gq[i]H.15:';for(Y=0;$='HGEDB@$#	
'[Y++];)with(_.split($))_=join(pop());eval(_)

Xz0nd2l0aChNYXRoKVI9cmFuZG9tLEY9Zmxvb3IsUz1zaW4sQz1jb3MsUT0yKlBJOwhaIGluIGEpYVtaDisoWls2XSRaHildPWFbWl07Vz02MBVYPTEYNDcsZD1wPWc9bD1oPRVxPVtdLHY9bz1BPVo9MSxjLndpZHRoPWMuaGVpZ2h0PVcsc2V0SW50ZXJ2YWwoAhZpZihaFggUOjguNQFmYygVFVcsVxADdhkuMSoLLRg1LHY9Ljk+dj8uOToxLjQ8dj8xLjQ6diwadBtXLzIsVy8yAXMbdix2Ky4zKlMoZykDFC4zOjkDHDEHHDMHHDUHSyg1A2k9NjtpRRxpLDQVLTFACHAZZCwwPnAFcD1RK3ADcD5RBXAtPVEQAXQbNDgqQxEDNDgqUxEpAXJ0ERIi4pa2IiwtMyw0ARNpQjtzPUc7aSsrKXNeMQUccw4sCSxzHgMJLT00Ky43KmwsCTw0MC0yMCpzHgVHPTEpJDUyPgkmJnA+cw4qWCYmcDwocw4rMQZYBVpCKUBpZigaE0soNRABcxszLDMSIkwiK2wsMiwXEm8sODgsFwETZxkoGDE1KxgwNCpsBkEsGDAzPgsFQSo9LTEDMB1vJUQXKig2LWwvMikpKQhuPTIrRDQqCwNtPUQ2KgtAbkV4PUQxK1IoBmwDej0uNT4LJDQ8bj8xOjIsbT0obSt6KSU2LHEucHVzaChbbSxXLHhdQGgZaD5XPy1oOi44LCEtLW8FbCsrLG89Vyl9fSwyMANQHyx0LGkWbj1uKlgrZzt2YXIgckIdaT9XOjIwKmk7LTEdaQVyPXQrMykkKHIZdCx0PTQwPnQ/NDA6dANpPW4rWCwaYhsEbgZ0D24jdA9pI3IPaQZyBG4Gcg9uBnIBZmwoKX0sSx8WGmZpbGxTdHlsZT0iaHNsKCIraCsiLBcwJSwiKxcqbisiJSkiDGRvd24fFms9bi53aGljaCxkPTM3HWs/LUgzOR1rP0gwDHVwPQIWZEJ9OwEDGgJmdW5jdGlvbigDKSwEAWxuKEMoBSYmKAYpKgcsNBUwAwhmb3IoCXNbMV0LUigpDH0sYi5vbmtleQ5bMF0PLFMoEAFzdigRKGcrcBIBZngoE3JlKAMUSyhsJTI/MRUwLBYpexcxMBguMBkrPRphLhthKBxQKB09PR5bMl0fPQJuIwZ0BGkGJHx8QCk7Qj0wREYoRS0tOylHcVtpXUguMTU6Jztmb3IoWT0wOyQ9J0hHRURCQCQjHx4dHBsaGRgXFhUUExIREA8ODAsJCAcGBQQDAgEnW1krK107KXdpdGgoXy5zcGxpdCgkKSlfPWpvaW4ocG9wKCkpO2V2YWwoXyk=

with(Math) R=random, F=floor, S=sin, C=cos, Q= PI*2;
for(Z in a)a[Z[0]+(Z[6]||Z[2])]=a[Z]; //canvas context hash trick http://www.claudiocc.com/javascript-golfing/
//X=angle of a sector
//d= direction of the player
//p= position of the player
//g= global angle of the hexagon
//h= global hue
//q=sectors queue (each sector is [sector#, radius, type])
//l= level
W=600,X=1.047,d=p=g=l=h=0,q=[],v=o=A=Z=1;

c.width= c.height= W,

setInterval(function()
{
	if (Z)
	{
	//background
	K(l%2?1:8.5); a.fc(0,0,W,W); //cls

	a.sv();	
	v+= R()*.1-.05;
	v= v<.9?.9:(v>1.4?1.4:v);
	a.ta(W/2, W/2); //translate
	a.sa(v, v+S(g)*.3); //scale
	
	K(l%2?1.3:9); 
	P(1, 40, 0)
	P(3, 40, 0)
	P(5, 40, 0)
	
	K(5);
	for(i=6;i--;) P(i, 40, -1);

	//player
	p+= d; if (p<0) p=Q+p; if (p>Q) p= p-Q;
	a.sv();
	a.ta(C(g+p)*48, S(g+p)*48);
	a.rt(g+p);
	a.fx('▶',-3,4);
	a.re();

	//sectors
	for (i=0; s=q[i]; i++) if(s^1)
	{
		P(s[0], s[1], s[2]);
		s[1]-= 4+l*.7;
		(s[1]< 40-s[2]*20 && (q[i]=1)) || 
		(s[1]<52 && p> s[0]*X && p< (s[0]+1)*X && (Z=0)	)
	}

	a.re();
	K(5);
	a.sv();
	a.sa(3,3);
	a.fx('L'+l,2,10);
	a.fx(o,88,10);
	a.re();

	//other
	g+=(.015+l*.004)*A;
	if (R()<.003) A*=-1;
	if (o%F((6-l/2)*10)==0) //add sector
	{ 
		//n= F(R()*3)+(l>3?3:1);
		n= 2+F(R()*4);
		//(each sector is [sector#, radius, type])
		m= F(R()*6); //start sector
		for(;n--;)
			x= F(1+R()*l), 
			z= R()<.5||n>4?1:2,
			m= (m+z)%6,
			q.push([m, W, x]);
		
	}
	h+=h>W?-h:.8;
	!--o && (l++, o=W);
	//if (l>6) a.fx('WIN!',W2,99), Z=0; //no level limit (was 6)
	}

}, 20)

P= function(s, r, t)  //paints a section of the hexagon. s: section, r: radius, t: type
{
	s= s*X+g;
	var w= t==0?W:t*20;
	/*if (t==-1) w= r+3;
	else {
		w+= r;
		if (r<40) r= 40
	}*/
	(t==-1&&(w=r+3))||(w+= r, r=r<40?40:r);
	t= s+X;
	a.ba();
	a.ln(C(s)*r, S(s)*r);
	a.ln(C(t)*r, S(t)*r);
	a.ln(C(t)*w, S(t)*w);
	a.ln(C(s)*w, S(s)*w);
	a.fl()
}
K=function(b) //constructs a color. hue, brightness
{
	a.fillStyle= 'hsl('+h+',100%,'+(b*10)+'%)'
}
b.onkeydown=function(f){k=f.which;d=k==37?-.15:(k==39?.15:0) } //37 <-> 39
b.onkeyup=function(){d=0}