#endif\r
\r
/* make unique integer from engine move representation */\r
-#define PACK_MOVE 256*K + L;\r
+#define PACK_MOVE 256*K + L + (PromPiece << 16);\r
\r
/* convert intger argument back to engine move representation */\r
-#define UNPACK_MOVE(A) K = (A)>>8 & 255; L = (A) & 255;\r
+#define UNPACK_MOVE(A) K = (A)>>8 & 255; L = (A) & 255; PromPiece = (A)>>16 & 255;\r
\r
/* Global variables visible to engine. Normally they */\r
/* would be replaced by the names under which these */\r
R-=i/FAC; /*** total captd material ***/\r
Fifty = t|p<3?0:Fifty+1;\r
sp=ps;\r
+ if(!(u&32)&PromPiece&(K&112)==(k?0:112))\r
+ prom=b[K]=39+k-PromPiece,J+=333,pl[k+14-PromPiece]--; /* gating */\r
return l;} /* & not in check, signal */\r
v=m; /* (prevent fail-lows on */\r
} /* K-capt. replies) */\r
tlim = (0.6-0.06*(BW-8))*(TimeLeft+(m-1)*TimeInc)/(m+7);\r
if(tlim>TimeLeft/15) tlim = TimeLeft/15;\r
PromPiece = 0; /* Always promote to Queen ourselves */\r
+ if(pl[Side+13])PromPiece=1;else if(pl[Side+15])PromPiece=-1; /* S-Chess gating */\r
N=0;K=I;\r
if (D(Side,-I,I,Q,O,LL|S,3)==I) {\r
Side ^= BLACK^WHITE;\r
+ if(b[K]&&Score+D(Side,-I,I,Q,2*S,2*S,2)>S)\r
+ prom=b[K]=0,J-=333,pl[30-Side-PromPiece]++; /* undo bad gating */\r
if(UnderProm>=0 && UnderProm != L)\r
{ printf("tellics I hate under-promotions!\n");\r
printf("resign { underpromotion } \n");\r
sscanf(line, "variant %s", command);\r
LoadGame(command);\r
InitGame(); Setup = 0;\r
+ if(strstr(command,"seirawan")) pl[13] = pl[15] = pl[29] = pl[31] = 1;\r
continue;\r
}\r
if (!strcmp(command, "edit")) {\r
setupPosition[128] = Side;\r
setupPosition[129] = R;\r
for(i=0; i<32; i++) setupPosition[i+130] = pl[i];\r
+ Computer = EMPTY; // after edit: force mode!\r
continue;\r
}\r
/* command not recognized, assume input move */\r