#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[10][10];
int B[10],C[10]={9};
int L[10],V[10],W[10];
int P[242],p[484],ply[10]={9};
int w=3,y=21755;
int c,m,n,t,v,x;
void figura(f,F){
Q=q+18623+f%3*24-f/3*7680;
for(w=242;w--;*(Q+p[w])=*(Q+p[483-w])=P[w]?F:1);
}
void retirar(f){
t=!t;
B[f]=1;
for(x=G[f];x--;I[t][H[f][x]]--);
}
int main(){
_AX=0x13;
geninterrupt(0x10);
printf("%c[2;25fBlancas Rojas",27);
for(v=5;v--;w=3,y-=4992)
do{
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);
}while(w--);
for(c=v=w=y=0;y<22;y++,w+=298)
for(x=22;x--;p[v++]=w++)
if(y>2&&y<11&&x>2&&x<19) P[v]=ficha[y-3][x-3]!=32;
for(y=9;y--;figura(M[c][0]=c,1),B[c++]=1,ply[c]=c)
printf("%c[12;%uf%c",27,16-y%3*3,T[c][0]=99-y%3),
printf("%c[%u;7f%c",27,3+y/3*3,T[c][1]=51-y/3);
for(v=24;v--;H[c=D[v]-48][G[c]++]=v/3);
for(v=10;v--;w=v%2,V[v]=!w-w,W[v]=w*2);
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]=0;
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(n){
J[0][--n]=1;
if(!n){
for(v=y=0;y++<ply[m]*!v;)
if(!J[y-1][y]) v=y;
if(!m) L[c=C[0]]=w=v,
m=v+!v-1;
if(m)
if(w==v?C[0]=9:0) goto Inicio;
else if(v==m){
if(--m) M[c][w-v]=C[0],
C[0]=9;
else for(M[c][w-1]=C[0];w--;)
retirar(C[0]=M[c][w]);
goto Inicio;
}
}
else for(x=n+1,y=0;y++<ply[m]-n;x++) //Minimax
if(v=J[y-1][x]-J[y][x])
if(V[y]==(v>0)-(v<0)) J[y][x]+=v;
retirar(C[n]);
goto Inicio;
}
do{ //Teclado
figura(c,1);
do c+=(E==77)-(E==75);
while(!B[c=c<0?8:c<9?c:0]);
for(v=L[c]+!L[c],x=v+t;v;)
printf(R,27,x/2*2+4,25+x%2*12,S[v==L[c]?t!=v%2:3]),
printf(R,27,--x/2*2+4,33-x%2*4,T[y=M[c][--v]]);
figura(y,t?4:7);
while(kbhit()) getch();
while(!(E=getch()));
for(v=16;v--;printf(R,27,4+v/4*2,25+v%4*4,S[3]));
}while(E!=13);
printf(R,27,4,37-t*12,S[v=L[c]==1?!t:--ply[0]?3:2]);
while(v<3) if(getch()==27) return 0;
for(x=G[y];x--;I[t][H[y][x]]++);
B[y]=0;
C[0]=9;
t=!t;
goto Inicio;
}
Comentarios sobre la versión: 1.6 (0)
No hay comentarios