#include<dos.h>
#include<stdio.h>
#include<conio.h>
char ficha[8][16]={" 000000 ",
" 0000000000 ",
" 000000000000 ",
" 00000000000000 ",
" 00000000000000 "};
char far*Q,far*q=(char far*)0xA0000000;
char S[][3]={"0-1","1-0","1/2"," "};char D[]="012345678036147258048246";
char T[10][3],R[]="%c[%u;%uf%.3s";
char H[10][4],I[2][8],G[10],E;
char J[10][10],M[250][10];
int A[10],B[10],C[10]={9};int L[10],N[10],V[10],W[10];
int P[242],p[484],ply[10]={9};int a,c,m,n,t,v,w,x,y=21755;
void figura(f,F){Q=q+f/3*7680-f%3*24+3631;
for(w=242;w--;*(Q+p[w])=*(Q+p[483-w])=P[w]?F:1);
}
int main(){_AX=0x13;
geninterrupt(0x10);
printf("%c[2;25fBlancas Rojas",27);for(v=5;v--;y-=4992)
for(w=4;w--;){ x=!v&&w?1211:v*5120+w*32+1147;
for(c=16;c--;*(q+x+c*320)=*(q+y+c*320)=7);
for(c=y-x+1,y=x;c--;*(q+x+c)=*(q+x+c+5120)=7);
}
for(c=v=w=y=0;++y<23;w+=298)
for(x=22;x--;p[v++]=w++)
if(y>3&&y<12&&x>2&&x<19) P[v]=ficha[y-4][x-3]!=32;
for(y=9;y--;figura(c++,1),ply[c]=c)
printf("%c[12;%uf%c",27,10+y%3*3,T[c][0]=97+y%3),printf("%c[%u;7f%c",27,9-y/3*3,T[c][1]=49+y/3);for(v=24;v--;H[c=D[v]-48][G[c]++]=v/3);
for(v=10;v--;W[v]=w=v%2,V[v]=!w-w);
Inicio:
for(x=y=ply[m]+1;--y>n;) //Reinicio de contadores
for(v=x-y;v--;J[v][y+v]=W[v]);
while(y=C[n]--) //Casilla siguiente
if(!B[--y]){ B[y]=C[++n]=9;
for(x=G[y];x--;)
if(++I[t][H[y][x]]>2) C[n]=0;
if(n==ply[m]&&C[n]) J[C[n]=0][n]=1;
t=!t;
}
if(x=n)
if(--n) for(J[y=0][n]=1;ply[m]-n>y++;x++) //Minimax
J[y][x]+=V[y]==J[y-1][x]-J[y][x]?V[y]:0;
else{ for(x=y=0;!x*ply[m]>y++;x=J[y-1][y]?0:y);
if(!m) L[c=C[0]]=w=x-1,
M[A[c]=N[c]=a][0]=c,
(m=!x+w)?C[0]=9:a++;
else if(m==x)
if(--m) M[a][w-m]=C[0],
C[0]=9;
else for(M[N[c]=a++][w]=C[m++],y=9;y--;)
M[a][y]=M[a-1][y];
}
else if(m) C[0]=M[a-1][w-m++],
m*=m<=w;
else{ Teclado:
figura(c,1);
do c+=y=(E==75)-(E==77);
while(B[c=c<0?8:c<9?c:0]);
a+=(E==72)-(E==80);
a=a>N[c]*!y?A[c]:a<A[c]?N[c]:a;
figura(c,t?4:7);
for(v=14;v--;printf(R,27,4+v/4*2,25+v%4*4,S[3]));
for(v=L[c]+1,v+=!v,w=v+t;v--;)
printf(R,27,y=--w/2*2+4,x=33-w%2*8,T[M[a][v]]),
printf(R,27,y,4+x,S[v==L[c]?t==v%2:ply[0]>1?3:2]);
while(kbhit()) getch();
while(!(E=getch()));
if(E!=13) goto Teclado;
if(--ply[0]*L[c]==0) return 0;
for(x=G[c];x--;I[t][H[c][x]]++);
B[c]=C[a=0]=9;
t=!t;
}
if(C[n]<9) for(B[y=C[n]]=0,t=!t,x=G[y];x--;)
I[t][H[y][x]]--;
goto Inicio;
}
Crear cuenta
Comentarios sobre la versión: 1.9 (2)
Hay versiones del mismo para sistemas modernos, tambien se puede ejecutar en cualquier dispositivo bajo Dosbox teniendo conocimientos de Msdos .....
Gracias.