Suppress bad gatings in variant seirawan

[fairymax.git] / fairymax.c

diff --git a/fairymax.c b/fairymax.c
index 205e89b..85783a1 100644 (file)
--- a/fairymax.c
+++ b/fairymax.c
@@ -226,7 +226,7 @@ int k,q,l,e,E,z,n;      /* (q,l)=window, e=current eval. score, E=e.p. sqr.*/
           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++,pl[k+14-PromPiece]--; /* gating    */\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
@@ -550,6 +550,8 @@ int main(int argc, char **argv)
                         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