Se necesita con urgencia el código fuente de Tetris escrito en vb
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]
}
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