七行プログラミング part4
■ このスレッドは過去ログ倉庫に格納されています
0427417
NGNG<body onKeyDown=K=event.keyCode><script>B="■";M=[H=529];N=23;T=[-1,-N,+1,+N];
K=0;Z=504;function S(){if(Z==504){for(R=0;R<H;R++)M[R]=(R<N||R>506||!(R%N)||R%
N==22)?B:"<font color=white>_</font>";for(R=0;R<100;R++){I=48+Math.floor(R/10
)*N*2+R%10*2;U=Math.random();J=(R<10)?Math.floor(U*4):(Math.floor(U*3)+2)%4;M[
I]=M[I+T[(M[I+T[J]]==B)?J+2:J]]=B;}M[Z]="G";Z=24;}Z=((K>36 && K<41)&&(M[Z+T[K
-37]]!=B))?Z+T[K-37]:Z;K=0;G="";for(R=0;R<H;R++){G+=(R-Z)?M[R]:"●";G+=(R%N-22
)?"":"<BR>";}document.body.innerHTML=G;setTimeout(S,99);}S();</script></body>
■ このスレッドは過去ログ倉庫に格納されています