Código de C/Visual C - Tetris en modo texto

Imágen de perfil
Val: 981
Oro
Ha mantenido su posición en C/Visual C (en relación al último mes)
Gráfica de C/Visual C

Tetris en modo textográfica de visualizaciones


C/Visual C

Actualizado el 24 de Noviembre del 2019 por Adelino (Publicado el 25 de Enero del 2018)
2.777 visualizaciones desde el 25 de Enero del 2018
Juego de tetris en pantalla de texto, se maneja con las teclas de dirección y escape.
Para subir o bajar de nivel + y -.
5a72583eee6a3-tetrix

Requerimientos

Esta probado en turboC++ 3.0

1.0

Actualizado el 3 de Marzo del 2019 (Publicado el 25 de Enero del 2018)gráfica de visualizaciones de la versión: 1.0
191 visualizaciones desde el 25 de Enero del 2018
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
#include<time.h>
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
int i[250],Y[25],X[10]={20};
int main()
{
textmode(C40);
_setcursortype(_NOCURSOR);
clock_t T;
srand(time(NULL));
printf("%c[3;28f Nivel=1",27);
char far*q=1967+(char far*)0xB8000000;
char E,C[7][4][4],far*Q[250];
char B[4][4][7][4]={"0000","0000","0000","0000","0000","0000","0000",
                    "1111","0100","0010","0110","0110","0100","0110",
                    "0000","0111","1110","0011","1100","1110","0110",
                    "0000","0000","0000","0000","0000","0000","0000"};
int e[256],f[250],J[250],G[]={1,2,3,0};
int a,g,n,x,y,b=256,c=249,p=6,L=48,M=9;
 
while(b--) e[b]=10;
e[72]=0;
e[75]=-1;
e[77]=1;
for(y=25;y--;q-=60)
for(x=10;x--;q-=2,f[c--]=y)
if(*(q-1)=*(q+X[x]-1)=219)
*(Q[c]=q)=*(q+X[x])=J[c]=y%24<1||!x?8:0;
for(g=4;g--;L=0)
for(a=7;a--;)
for(n=y=4;y--;)
for(x=4;x--;) if(B[g][y][a][x]=B[G[g]][x][a][3-y]-L)
              C[a][g][--n]=x+10*y;
 
Inicio:
for(g=n=0;n<4;n++,i[b]++)
if(J[b=C[a=p][0][n]+4]) break;
else if(*Q[b]=a+1)
     *(Q[b]+502)=0;
while (n<4) if(getch()==27)
            return 0;
p=rand()%7;
while(n--) if(*(q=Q[C[p][0][n]]+510)=p+1)
           *(--q)=219;
c=4;
T=clock();
do{
   while(E=kbhit()) getch();
   do if(kbhit()) E=getch();
      while(!E&&clock()-T<M);
   if(E==27&&getch()==E) return 0;
   if(E=='-') printf("%c[3;35f%u",27,10-(M+=M<10));
   if(E=='+') printf("%c[3;35f%u",27,10-(M-=M>1));
   x=c+e[E];
   y=e[E]?g:G[g];
   for(n=0;n<4;n++)
   if(J[C[a][y][n]+x]) break;
   if(n>3){
           while(n--) if(++i[b=C[a][y][n]+x]<2)
                      *Q[b]=a+1;
           for(n=4;n--;) if(--i[b=C[a][g][n]+c]<1)
                         *Q[b]=0;
           c=x;
           g=y;
           T=clock();
          }
  }while(n<0||e[E]<10);
 
for(n=0;n<4;n++,J[b]=a+1,i[b]--)
Y[y=f[b=C[a][g][n]+c]]++;
do while(Y[x=y]>8)
   do{
      if(x==y) printf("%c[5;28fLineas=%u",27,++L);
      b=10*x+1;
      c=b-10;
      Y[--x]-=Y[x+1]=Y[x];
      for(n=9;n--;J[c++]-=J[b++]=g)
      *Q[c]-=*Q[b]=g=x?J[c]:0;
     }while(Y[x+1]);
   while(Y[--y]);
goto Inicio;
}



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

1.1

Actualizado el 3 de Marzo del 2019 (Publicado el 13 de Julio del 2018)gráfica de visualizaciones de la versión: 1.1
249 visualizaciones desde el 13 de Julio del 2018

1.2

Actualizado el 3 de Marzo del 2019 (Publicado el 26 de Julio del 2018)gráfica de visualizaciones de la versión: 1.2
296 visualizaciones desde el 26 de Julio del 2018

1.3

Actualizado el 3 de Marzo del 2019 (Publicado el 17 de Agosto del 2018)gráfica de visualizaciones de la versión: 1.3
1.495 visualizaciones desde el 17 de Agosto del 2018

1.4

Actualizado el 15 de Octubre del 2019 (Publicado el 9 de Octubre del 2019)gráfica de visualizaciones de la versión: 1.4
281 visualizaciones desde el 9 de Octubre del 2019

1.5

Publicado el 24 de Noviembre del 2019gráfica de visualizaciones de la versión: 1.5
266 visualizaciones desde el 24 de Noviembre del 2019
http://lwp-l.com/s4407