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