tetris mizéria
így azért előttem van egy képzeletbeli meeting:
- tetris kéne, hány órával számoljunk?
- hát nem is tom, egy tetris az úgy kb 17 sor...
//Flash Tetris Game 1.2 by Strille, 1000 bytes
//Paste this code on frame 1, set scene size to 240x360 and Frame Rate to 18
createTextField("t",1,0,300,239,24);function c(a,b,g,h){for(var y=0;y<4;y++){
for(var x=0;x<4;x++){if(s[x+y*4]&1<<g){if(q==300){m[(a+x)+(b+y)*15]=-h;continue}
if(m[(a+x)+(b+y)*15]>0 or b+y>=20 or a+x<0 or a+x>=10)return 1;if(q==-2){
m[(a+x)+(b+y)*15]=h;if(b+y<0){delete onEnterFrame;t.text=z+"\tPress a key"}}}}}}
function p(){if(w){q--;c(u,v,i,d);for(var y=0;y<20;y++){for(var x=0;x<10;x++){
if (!m[x+y*15])break}if(x==10){x=16;m.splice(y*15,15);while(--x)m.unshift(0);
z+=10}}}i=j;j=random(28);d=random(16777216);v=-(u=3)}t.onKeyDown=function(){
q=Key.getCode();if(!onEnterFrame){w=z=0;s=[4325376,178954464,8653312,null,89458032,
268435455,89520863,83886080,2183168,178937791,1615119,null,null,167772160];m=[];p();
onEnterFrame=function(){t.text=z;if(q==37){u--;if(c(u,v,i,d))u++}if(q==38){
q=i++;if(!(i%4))i-=4;if(c(u,v,i,d))i=q}if(q==39){u++;if(c(u,v,i,d))u--}q=300;
c(11,3,j,0xeeeeee);c(u,v,i,d);clear();beginFill(0xeeeeee);lineStyle(0);lineTo(151,0);
lineTo(151,301);lineTo(0,301);endFill();lineStyle(2);while(q--){if(m[q]){
beginFill(m[q]);if(m[q]<0){beginFill(-m[q]);delete m[q]}moveTo(1+(q%15)*15,1+int(q/15)*15);
lineTo(15+1+(q%15)*15,1+int(q/15)*15);lineTo(15+1+(q%15)*15,15+1+int(q/15)*15);
lineTo(1+(q%15)*15,15+1+int(q/15)*15);endFill()}}if(!(w++%(3-2*Key.isDown(40)))){
v++;if(c(u,v,i,d)){v--;p()}}}}};t.onKeyDown();Key.addListener(t);