Fix promotion value Shatranj / Courier / Makruk

[fairymax.git] / fairymax.c

diff --git a/fairymax.c b/fairymax.c
index c893b37..3bd0c69 100644 (file)
--- a/fairymax.c
+++ b/fairymax.c
@@ -232,7 +232,7 @@ int k,q,l,e,E,z,n;      /* (q,l)=window, e=current eval. score, E=e.p. sqr.*/
         {if(v+I&&x==K&y==L&gt==GT)             /*   if move found          */\r
          {Q=-e-i;O=F;LL=L;prom=gt;\r
           if(b[y]-u&15)prom=b[y]-=PromPiece,   /* (under-)promotion:       */\r
-           Q-=abs(w[prom&=15])-w[p]-6*S,       /*  correct piece & score & */\r
+           Q-=abs(w[prom&=15])-w[p]-(6*S>>sh), /*  correct piece & score & */\r
                        Z+=PromPiece;           /*  invalidate hash         */\r
           a->D=99;a->V=0;                      /* lock game in hash as draw*/\r
           R-=i/FAC;                            /*** total captd material ***/\r