Red de conocimiento informático - Conocimiento del nombre de dominio - Se necesita con urgencia el código fuente de Tetris escrito en vb

Se necesita con urgencia el código fuente de Tetris escrito en vb

var BX=nueva Matriz(4);

var BY=nueva Matriz(4);

var PX=nueva Matriz(4); =new Array(4);

var mTimer

var firstView

función comenzarJuego()

{

gameState=0;

velocidad=1;

outTime=1100-velocidad*100; (gameState!disabled=true;

window.clearInterval(mTimer);

mTimer=window.setInterval(" moveBar()", outTime);

}

función keyControl()

{

if(gameState!=1)return

switch(event.keyCode){

caso 37: { //izquierda

for(i=0; ilt; 4; i )if(BX[i]==0)return

for(i=0;ilt;4;i)if(getClass(BX[i]-1, BY[i])=="SB")return; ;i )setClass(BX[i], BY[i], "BK");

for(i=0; ilt; 4; i )BX[i]=BX[i]-1

for(i=0;ilt;4;i)setClass(BX[i], BY[i], "MB");

break;}

caso 38: { //arriba

var preMBarX=new Array(4);

var preMBarY=new Array(4); var cx=Math.round ((BX[0] BX[1] BX[2] BX[3])/4

var cy=Math.round((BY[0] BY[); 1] BY[2] BY[3])/4);

for(i=0;ilt;4;i){

preMBarX[i]= Math.round (cx-cy BY[2] BY[3])/4)round(cx-cy BY[i]

preMBarY[i]=Math.round(cx cy-BX[i]);

if(preMBarX[i]lt; 0 | | preMBarX[i]gt; 9 | | preMBarY[i]lt; 0 | | preMBarY[i]gt; 15)return

p>

if(getClass(preMBarX[i], preMBarY[i])=="SB")return

}

for(i) =0; ilt; 4;i)setClass(BX[i], POR[i], "BK");

){

BX[i]=preMBarX[i];

BY[i]=preMBarY[i]

}

for(i=0;ilt;4;i) setClass(BX[i], BY[i], "MB");

break;}

Caso 39: { //derecha

for(i=0;ilt;4;i)if(BX[i]==9)return

for(i=0;ilt; 4;) i )if(getClass(BX[i] 1, BY[i])=="SB")return

for(i=0; ilt; 4; i ) setClass(BX) [i], POR[i], "BK");

for(i=0; ilt; 4; i )BX[i]= BX[i] 1; >for(i=0;ilt;4;i)setClass(BX[i], BY[i], "MB");

break;}

caso 40: { //abajo

moveBar();

romper }

}

}

función delLine; ()

{

for(i=0;ilt;4;i)setClass(BX[i], BY[i], "SB");

for(j=0;jlt;16;j){

dLine=true;

for(i=0;ilt;9;i){

if(getClass(i,j)!= "SB"){

dLine=false

romper

}

}

if(dLine){

puntuación=puntuación 100

for(k=j;kgt;0;k--)

for(l=0;llt;10;l)

setClass(l,k,getClass(l,k-1)); (l=0;llt;10;l)setClass(l,0, "BK");

}

}

randBar(); /p>

velocidad=Math.floor(score/3000) 1;

outTime=1100-speed*100;

scoreBar.innerHTML="Puntuación: " puntuación;

speedBar.innerHTML="Velocidad: " velocidad

window.clearInterval(mTimer);

mTimer=window.setInterval("moveBar()", outTime);

}

función getClass(x, y){return GameBar.children[y].children[x].className;}

función setClass(x, y, cName){GameBar.

función moveBar()

{

if(

estado del juego! =1)return;

dropLine=true;

for(i=0;ilt;4;i)if(BY[i]==15)dropLine=false; /p>

if(dropLine)for(i=0;ilt;4;i)if(getClass(BX[i], BY[i] 1)=="SB")dropLine= false

if(!

ventana.clearInterval(mTimer);

delLine();

retorno;

}

For(BX[i]BY[i] 1 ==="SB")dropLine= false

if(!

for(i=0; ; ilt; 4; i ) setClass(BX[i], POR[i], "BK");

for(i=0; ilt; 4; i ) POR[i]=BY[ i ] 1;

for(i=0;ilt;4;i)setClass(BX[i], BY[i], "MB");

}

p >

}

función pausaJuego()

{

if(gameState==0)return

if( event .srcElement.value=="Pausa"){

gameState=2

event.srcElement.value="Continuar"; ( mTimer);

}

else.

else{

gameState=1; srcElement .value="Pausa";

mTimer=window.setInterval("moveBar()", outTime

}

}

else{

gameState=1

evento.

}

}

función fMnu ( ){return false;}

document.oncontextmenu=fMnu;

función vista previa()

{

if(previewBar. estilo .display!="none")

previewBar.}

función replayGame()

{

if( gameState!= 1 )return;

if(!confirm("¿Realmente quieres reiniciar?")) return

gameState=0

window.clearInterval(mTimer; ) ;

beginGame();

}

función randBar()

{

randNum=Matemáticas . piso(Matemáticas.aleatorio()*20)

1;

if(!firstView)

for(i=0;ilt;4;i){

BX[i]=PX[i] ;

BY[i]=PY[i];

}

cambiar(randNum){

caso 1: {

PX[0]=4;

PY[0]=0

PX[1]=4; 1]=1;

PX[2]=5;

PY[2]=1.

PX[3]=6; >

PY[3]=1;

romper;}

Ejemplo 2: {

PX[0]=4;

PY[0]=0;

PX[1]=5

PY[1]=0

PX[2]= 4;

PY[2]=1

PX[3]=4

PY[3]=2; >romper;}

Ejemplo 3: {

PX[0]=4

PY[0]=0; PX[1]=5;

PY[1]=0;

PX[2]=6

PY[2]=0; /p>

PX[3]=6;

PY[3]=1;

romper;}

Ejemplo 4: { p>

PX[0]=5

PY[0]=0

PX[1]=5

PY; [1 ]=1;

PX[2]=5;

PY[2]=2

PX[3]=4; p>

PY[3]=2;

romper;}

Ejemplo 5: {

PX[0]=6; >

PY[0]=0;

PX[1]=6

PY[1]=1

PX[2] =4 ;

PY[2]=1

PX[3]=5

PY[3]=1; p> romper; }

Ejemplo 6: {

PX[0]=4

PY[0]=0; >PX[1]=4;

PY[1]=1;

PX[2]=4;

PY[2]=2;

PX[2]=4; p>

PX[3]=5

PY[3]=2;}

Ejemplo 7: {

PX[0]=4

PY[0]=0; =4;

PY[1] =1;

romper;}

Ejemplo 7: {

PX[0]= 4;

PY[0]= 0

PX[1]=4

PY[1]=1; >PX[2]=5;

PY[2]=0;

PX[3]=6

PY[3]=0;

break;}

Ejemplo 8: {

PX[0]=4

PY[0]=0; /p>

PX[1]=5;

PY[1]=0

P;

X[2]=5;

PY[2]=1; <

PX[3]=5

PY[3]=2;

descanso;}

Ejemplo 9: {

PX[0]=4

PY[0]=0; /p>

PX[1]=5;

PY[1]=0

PX[2]=5

PY[; 2]=1;

PX[3]=6;

PY[3]=1

romper;}

Ejemplo 10: {

PX[0]=5

PY[0]=0;

PX[1]=5;

PY[1]=1;

PX[2]=4;

PY[2]=1;

PX[3]= 4;

PY[3]=2

romper;}

Ejemplo 11: {

PX[0]=4 ;

PY[0]=1;

PX[1]=5

PY[1]=1; >PX[2]=5;

PY[2]=0;

PX[3]=6

PY[3]=0;

descanso;}

Ejemplo 12: {

PX[0]=4

PY[0]=0; /p>

PX[1]=4;

PY[1]=1

PX[2]=5

PY[; 2]=1;

PX[3]=5

PY[3]=2

romper;}

caso 13: {

PX[0]=4

PY[0]=0

PX[1]=5;

PY[1]=0;

PX[2]=6;

PY[2]=0;

PX[3]= 5;

PY[3]=1;

romper;}

Ejemplo 14: {

PX[0]=4 ;

PY[0]=0

PX[1]=4

PY[1]=1; PX[2]=4;

PY[2]=2;

PX[3]=5

PY[3]=1; /p>

romper;}

Ejemplo 15: {

PX[0]=5

PY[0]=0

p>

p>

PX[1]=5

PY[1]=1

PX[2]=4; p>PY[2 ]=1;

PX[3]=6;

PY[3]=1

romper;}

Ejemplo 16: {

PX[0]=5;

PY[0]=0

PX[1]=5;

PY[1]=1

PX[2]=5

PY[2]=2; [3]=4 ;

PY[3]=1;

romper;}

Ejemplo 17: {

PX[ 0]=4;

PY[0]=0

PX[1]=5;

>PX[1]=5;

PY[1]=0;

PX[2]=4

PY[2]=1;

PX[3]=5;

PY[3]=1

romper;}

Ejemplo 18: {

PX[0]=4;

PY[0]=0; <

PX[1]=5

PY; [1]=0;

PX[2]=4;

PY[2]=1

PX[3]=5; p>

PY[2]=1; p>

PY[3]=1;

romper;}

Ejemplo 19: {

PX[0]=3;

PY[0]=0;

PX[1]=4; ;

PX[2] =5

PY[2]=0

PX[3]=6; PY[3]=0;

romper;}

Caso 20: {

PX[0]=5

PY; [0]=0;

PX[1]=5;

PY[1]=1

PX[2]=5; p>

PY[2]=2;

PX[3]=5;

PY[3]=3;

}

if(primeraVista){

primeraVista=false

randBar();

}

for(i=0;ilt;4;i){

for(j=0;jlt;4;j){

previewBar.children[j] .children[i].className="BK"

}

}

}

for(i=0; ilt ;4;i) vista previaBar.children[PY[i]].children[PX[i]-3].className="MB"

for(i=0;ilt;4;i) {

if(getClass(BX[i], BY[i])!= "BK"){

alert( "¡Juego terminado!");

window.clearInterval(mTimer);

Play.disabled=false

gameState=0; p>regresar;

}

}.

}

for(i=0;ilt;4;i)setClass(BX[i], BY[i], "MB"); >}

También hay /code/vb/6734.html descargable