Version number 0.0
[hachu.git] / hachu.c
diff --git a/hachu.c b/hachu.c
index 1ea7853..8ca5cc7 100644 (file)
--- a/hachu.c
+++ b/hachu.c
@@ -12,7 +12,7 @@
 // promotions by pieces with Lion power stepping in & out the zone in same turn\r
 // promotion on capture\r
 \r
-#define VERSION 0.0\r
+#define VERSION "0.0"\r
 \r
 //define PATH level==0 || level==1 && path[0] == 0x55893\r
 #define PATH 0\r
@@ -46,7 +46,7 @@
 #define EMPTY      0\r
 #define EDGE   (1<<11)\r
 #define TYPE   (WHITE|BLACK|EDGE)\r
-#define ABSENT  4095\r
+#define ABSENT  2047\r
 #define INF     8000\r
 #define NPIECES 2000               /* length of piece list    */\r
 \r
@@ -78,15 +78,16 @@ typedef struct {
   char *name, *promoted;\r
   int value;\r
   signed char range[8];\r
+  int whiteKey, blackKey;\r
 } PieceDesc;\r
 \r
 typedef struct {\r
-  int from, to, piece, victim, new, booty, epSquare, epVictim, ep2Square, ep2Victim;\r
+  int from, to, piece, victim, new, booty, epSquare, epVictim, ep2Square, ep2Victim, revMoveCount, savKeyL, savKeyH;\r
 } UndoInfo;\r
 \r
-int stm, xstm, hashKeyH, hashKeyL, framePtr, msp, nonCapts, retMSP, retFirst, level, chuFlag=1;\r
+int stm, xstm, hashKeyH, hashKeyL, framePtr, msp, nonCapts, rootEval, retMSP, retFirst, pvPtr, level, cnt50, chuFlag=1;\r
 int nodes, startTime, tlim1, tlim2;\r
-Move retMove, moveStack[10000], path[100];\r
+Move retMove, moveStack[10000], path[100], repStack[300], pv[1000];\r
 \r
 #define X 36 /* slider              */\r
 #define J -1 /* jump                */\r
@@ -408,6 +409,13 @@ typedef struct {
   char age;\r
 } HashEntry; // hash-table entry\r
 \r
+    // Some global variables that control your engine's behavior\r
+    int ponder;\r
+    int randomize;\r
+    int postThinking;\r
+    int resign;         // engine-defined option\r
+    int contemptFactor; // likewise\r
+\r
 int squareKey[BSIZE];\r
 \r
 int rawBoard[BSIZE + 11*BW + 6];\r
@@ -420,11 +428,12 @@ signed char PST[2*BSIZE];
 #define board (rawBoard + 6*BW + 3)\r
 #define dist  (distance + BSIZE)\r
 \r
-int LookUp(char *name, PieceDesc *list)\r
+PieceDesc *\r
+LookUp (char *name, PieceDesc *list)\r
 { // find piece of given name in list of descriptors\r
   int i=0;\r
   while(list->name && strcmp(name, list->name)) i++, list++;\r
-  return (list->name == NULL ? -1 : i);\r
+  return (list->name == NULL ? NULL : list);\r
 }\r
 \r
 void\r
@@ -507,21 +516,24 @@ Compactify (int stm)
 }\r
 \r
 int\r
-AddPiece (int stm, int n, PieceDesc *list)\r
+AddPiece (int stm, PieceDesc *list)\r
 {\r
-  int i, j;\r
+  int i, j, *key;\r
   for(i=stm+2; i<=last[stm]; i += 2) {\r
-    if(p[i].value < 10*list[n].value || p[i].value == 10*list[n].value && (p[i].promo < 0)) break;\r
+    if(p[i].value < 10*list->value || p[i].value == 10*list->value && (p[i].promo < 0)) break;\r
   }\r
   last[stm] += 2;\r
   for(j=last[stm]; j>i; j-= 2) p[j] = p[j-2];\r
-  p[i].value = 10*list[n].value;\r
-  for(j=0; j<8; j++) p[i].range[j] = list[n].range[j^4*(WHITE-stm)];\r
+  p[i].value = 10*list->value;\r
+  for(j=0; j<8; j++) p[i].range[j] = list->range[j^4*(WHITE-stm)];\r
   switch(Range(p[i].range)) {\r
     case 1:  p[i].pst = BH; break;\r
     case 2:  p[i].pst = BSIZE; break;\r
     default: p[i].pst = BSIZE + BH; break;\r
   }\r
+  key = (stm == WHITE ? &list->whiteKey : &list->blackKey);\r
+  if(!*key) *key = ~(myRandom()*myRandom());\r
+  p[i].pieceKey = *key;\r
   p[i].promoFlag = 0;\r
   for(j=stm+2; j<= last[stm]; j+=2) {\r
     if(p[j].promo >= i) p[j].promo += 2;\r
@@ -534,8 +546,9 @@ AddPiece (int stm, int n, PieceDesc *list)
 void\r
 SetUp(char *array, PieceDesc *list)\r
 {\r
-  int i, j, k, k2, n, m, nr, color;\r
+  int i, j, n, m, nr, color;\r
   char c, *q, name[3];\r
+  PieceDesc *p1, *p2;\r
   last[WHITE] = 1; last[BLACK] = 0;\r
   for(i=0; ; i++) {\r
 //printf("next rank: %s\n", array);\r
@@ -551,17 +564,17 @@ SetUp(char *array, PieceDesc *list)
        name[0] += 'A' - 'a';\r
        if(name[1]) name[1] += 'A' - 'a';\r
       } else color = WHITE;\r
-      k = LookUp(name, list);\r
-      n = AddPiece(color, k, list);\r
+      p1 = LookUp(name, list);\r
+      n = AddPiece(color, p1);\r
       p[n].pos = j;\r
-      if(list[k].promoted[0]) {\r
-       k2 = LookUp(list[k].promoted, list);\r
-        m = AddPiece(color, k2, list);\r
+      if(p1->promoted[0]) {\r
+       p2 = LookUp(p1->promoted, list);\r
+        m = AddPiece(color, p2);\r
        if(m <= n) n += 2;\r
        p[n].promo = m;\r
-       p[n].promoFlag = IsUpwardCompatible(list[k2].range, list[k].range) * DONT_DEFER + CAN_PROMOTE;\r
-       if(Forward(list[k].range)) p[n].promoFlag |= LAST_RANK; // Pieces that only move forward can't defer on last rank\r
-       if(!strcmp(list[k].name, "N")) p[n].promoFlag |= CANT_DEFER; // Knights can't defer on last 2 ranks\r
+       p[n].promoFlag = IsUpwardCompatible(p2->range, p1->range) * DONT_DEFER + CAN_PROMOTE;\r
+       if(Forward(p1->range)) p[n].promoFlag |= LAST_RANK; // Pieces that only move forward can't defer on last rank\r
+       if(!strcmp(p1->name, "N")) p[n].promoFlag |= CANT_DEFER; // Knights can't defer on last 2 ranks\r
        p[n].promoFlag &= n&1 ? P_WHITE : P_BLACK;\r
        p[m].promo = -1;\r
        p[m].pos = ABSENT;\r
@@ -616,7 +629,6 @@ Init()
 \r
   // hash key tables\r
   for(i=0; i<BSIZE; i++) squareKey[i] = ~(myRandom()*myRandom());\r
-  for(i=0; i<NPIECES; i++) p[i].pieceKey = ~(myRandom()*myRandom());\r
 \r
   // board edge\r
   for(i=0; i<BSIZE + 11*BW + 6; i++) rawBoard[i] = EDGE;\r
@@ -675,10 +687,13 @@ AddMove (int i, int x, int y)
 }\r
 #endif\r
 \r
+int flag;\r
+\r
 inline int\r
 NewNonCapture (int x, int y, int promoFlags)\r
 {\r
   if(board[y] != EMPTY) return 1; // edge, capture or own piece\r
+//if(flag) printf("# add %c%d%c%d, pf=%d\n", x%BW+'a',x/BW,y%BW+'a',y/BW, promoFlags);\r
   if( (promoBoard[x] | promoBoard[y]) & promoFlags) { // piece can promote with this move\r
     moveStack[msp++] = moveStack[nonCapts];           // create space for promotion\r
     moveStack[nonCapts++] = x<<SQLEN | y | PROMOTE;   // push promotion\r
@@ -690,6 +705,7 @@ NewNonCapture (int x, int y, int promoFlags)
     }\r
   } else\r
     moveStack[msp++] = x<<SQLEN | y; // push normal move\r
+//if(flag) printf("msp=%d nc=%d\n", msp, nonCapts);    \r
   return 0;\r
 }\r
 \r
@@ -841,8 +857,8 @@ MapFromScratch (int *map)
 \r
 void\r
 Connect (int sqr, int piece, int dir)\r
-{\r
-  int x, step = kStep[dir], r1 = p[piece].range[dir], r2 = p[piece].range[dir+1], piece1, piece2;\r
+{ // scan to both sides along ray to elongate attacks from there, and remove our own attacks on there, if needed\r
+  int x, step = kStep[dir], r1 = p[piece].range[dir], r2 = p[piece].range[dir+4], piece1, piece2;\r
   int d1, d2, r, y, c;\r
 \r
   if((attacks[2*sqr] + attacks[2*sqr+1]) & attackMask[dir]) {         // there are incoming attack(s) from 'behind'\r
@@ -861,15 +877,17 @@ Connect (int sqr, int piece, int dir)
        attacks[2*y + (piece1 & WHITE)] += one[dir];                  // count attack\r
        UPDATE_MOBILITY(piece1, d2);\r
       } else UPDATE_MOBILITY(piece1, r1 - d1);                        // does not connect, but could still gain mobility\r
-      if(d1 + d2 <= (r2 = p[piece2].range[dir])) {                    // 2 hits 1\r
+      if(d1 + d2 <= (r2 = p[piece2].range[dir+4])) {                  // 2 hits 1\r
        attacks[2*x + (piece2 & WHITE)] += one[dir+4];                // count attack\r
        UPDATE_MOBILITY(piece2, d1);\r
       } else UPDATE_MOBILITY(piece2, r2 - d2);                        // does not connect, but could still gain mobility\r
+      // if r1 or r2<0, moves typically jump, and thus cannot be unblocked. Exceptions are FF and BS distant moves.\r
+      // test for d1+d2 > 2 && rN == F && d== 3 or rN == S\r
 \r
     } else { // we were only attacked from behind\r
 \r
       r = (r2 = p[piece1].range[dir]) - d1;\r
-      if(r < 0 || c > one[dir+1]) { // Oops! This was not our attacker, or not the only one. There must be a jump attack from even further behind!\r
+      if(r < 0 || c > one[dir+4]) { // Oops! This was not our attacker, or not the only one. There must be a jump attack from even further behind!\r
        // for now, forget jumpers\r
       }\r
       y = sqr; \r
@@ -885,7 +903,7 @@ Connect (int sqr, int piece, int dir)
        }\r
       // we hit nothing with the extended move of the attacker behind us.\r
       UPDATE_MOBILITY(piece1, r2 - d1);\r
-      r = r1 - r2;                                            // extra squares covered by mover\r
+      r = r1 - r2 + d1;                                       // extra squares covered by mover\r
       while(r-- > 0)\r
        if(board[y+=step] != EMPTY) {\r
          d2 = dist[y-sqr]; piece2 = board[y];\r
@@ -895,6 +913,7 @@ Connect (int sqr, int piece, int dir)
          return;\r
        }\r
     }\r
+    // if r2<0 we should again test for F and S moves\r
 \r
   } else // no incoming attack from behind\r
   if(c = (attacks[2*sqr] + attacks[2*sqr+1]) & attackMask[dir+4]) { // but incoming attack(s) from 'ahead'\r
@@ -919,7 +938,7 @@ Connect (int sqr, int piece, int dir)
        }\r
       // we hit nothing with the extended move of the attacker behind us.\r
       UPDATE_MOBILITY(piece2, r2 - d1);\r
-      r = r2 - r1;                                                  // extra squares covered by mover\r
+      r = r2 - r1 + d2;                                             // extra squares covered by mover\r
       while(r-- > 0)\r
        if(board[x-=step] != EMPTY) {\r
          d1 = dist[x-sqr]; piece1 = board[x];\r
@@ -948,25 +967,64 @@ Connect (int sqr, int piece, int dir)
   }\r
 }\r
 \r
+inline int\r
+Hit (int r, int d)\r
+{ // test if move with range r reaches over (un-obstructed) distance d\r
+  if(r < 0) switch(r) {\r
+    case J: return (d == 2);\r
+    case D:\r
+    case L: return (d <= 2);\r
+    case T:\r
+    case F: return (d <= 3);\r
+    case S: return 1;\r
+    default: return 0;\r
+  } else return (d <= r);\r
+  return 0; // not reached\r
+}\r
+\r
 void\r
-Disconnect (int sqr, int dir)\r
+Disconnect (int sqr, int piece, int dir)\r
 {\r
-  int x = sqr, step = kStep[dir], piece1, piece2, y;\r
+  int x = sqr, step = kStep[dir], piece1, piece2, d1, d2, r1, r2, y;\r
   while( board[x+=step] == EMPTY );\r
-  if(board[x] != EDGE) { // x has hit a piece\r
-    piece1 = board[x];\r
+  piece1 = board[x];\r
+  if(piece1 != EDGE) { // x has hit a piece\r
+    d1 = dist[x-sqr];\r
+    r1 = p[piece1].range[dir+4];\r
     y = sqr; while( board[y-=step] == EMPTY );\r
-    if(board[y] != EDGE) { // both ends of the ray hit a piece\r
-      piece2 = board[y];\r
-      \r
+    piece2 = board[y];\r
+    if(piece2 != EDGE) { // both ends of the ray hit a piece\r
+      d2 = dist[y-sqr];\r
+      r2 = p[piece2].range[dir];\r
+      if(r1 >= d1) {      // piece1 hits us\r
+       attacks[2*sqr + (piece1 & WHITE)] += one[dir+4];\r
+       if(r1 >= d1 + d2) // was hitting piece2 before, now blocked\r
+         attacks[2*y + (piece1 & WHITE)] -= one[dir+4];\r
+      }\r
+      if(r2 >= d2) {      // piece2 hits us\r
+       attacks[2*sqr + (piece2 & WHITE)] += one[dir];\r
+       if(r2 >= d1 + d2) // was hitting piece1 before, now blocked\r
+         attacks[2*x + (piece2 & WHITE)] -= one[dir];\r
+      }\r
+      if( Hit(p[piece].range[dir], d1) )\r
+       attacks[2*sqr + stm] += one[dir];\r
+      if( Hit(p[piece].range[dir+4], d2) )\r
+       attacks[2*sqr + stm] += one[dir+4];\r
       return;\r
     }\r
   } else {\r
     x = sqr; while( board[x-=step] == EMPTY );\r
-    if(board[x] == EDGE) return; // ray empty on both sides\r
+    piece1 = board[x];\r
+    if(piece1 == EDGE) return; // ray empty on both sides\r
+    d1 = dist[x-sqr];\r
+    r1 = p[piece1].range[dir];\r
+    dir += 4;\r
   }\r
-  // we only get here if one side hits a \r
-  \r
+  // we only get here if one side looks to the board edge\r
+  if(r1 >= d1) // piece1 hits us\r
+    attacks[2*sqr + (piece1 & WHITE)] += one[dir^4];\r
+  if( Hit(p[piece].range[dir], d1) )\r
+    attacks[2*sqr + stm] += one[dir];\r
 }\r
 \r
 void\r
@@ -974,7 +1032,7 @@ Occupy (int sqr)
 { // determines attacks on square and blocking when a piece lands on an empty square\r
   int i;\r
   for(i=0; i<4; i++) {\r
-    Disconnect(sqr, i);\r
+    Disconnect(sqr, board[sqr], i);\r
   }\r
 }\r
 \r
@@ -995,6 +1053,9 @@ MakeMove(Move m, UndoInfo *u)
   u->piece = board[u->from];\r
   board[u->from] = EMPTY;\r
   u->booty = 0;\r
+  u->revMoveCount = cnt50++;\r
+  u->savKeyL = hashKeyL;\r
+  u->savKeyH = hashKeyH;\r
 \r
   if(m & (PROMOTE | DEFER)) {\r
     if(m & DEFER) {\r
@@ -1004,6 +1065,7 @@ MakeMove(Move m, UndoInfo *u)
       p[u->piece].pos = ABSENT;\r
       u->new = p[u->piece].promo;\r
       u->booty = p[u->new].value - p[u->piece].value;\r
+      cnt50 = 0; // promotion irreversible\r
     }\r
   } else u->new = u->piece;\r
 \r
@@ -1029,12 +1091,13 @@ MakeMove(Move m, UndoInfo *u)
     hashKeyL ^= p[u->ep2Victim].pieceKey * squareKey[u->ep2Square];\r
     hashKeyH ^= p[u->ep2Victim].pieceKey * squareKey[u->ep2Square+BH];\r
     if(p[u->piece].value != 1000 && p[u->epVictim].value == 1000) deferred |= PROMOTE; // flag non-Lion x Lion\r
+    cnt50 = 0; // double capture irreversible\r
   } else u->epVictim = EMPTY;\r
 \r
   u->victim = board[u->to];\r
   p[u->victim].pos = ABSENT;\r
   u->booty += p[u->victim].value + PST[p[u->victim].pst + u->to];\r
-//  if(p[u->victim].value == 1000 && p[u->piece].value != 1000) deferred |= PROMOTE; // flag non-Lion x Lion\r
+  if(u->victim != EMPTY) cnt50 = 0; // capture irreversible\r
 \r
   p[u->new].pos = u->to;\r
   board[u->to] = u->new;\r
@@ -1065,6 +1128,10 @@ UnMake(UndoInfo *u)
   p[u->new].pos = ABSENT; \r
   p[u->piece].pos = u->from; // this can be the same as above\r
   board[u->from] = u->piece;\r
+\r
+  cnt50 = u->revMoveCount;\r
+  hashKeyL = u->savKeyL;\r
+  hashKeyH = u->savKeyH;\r
 }\r
        \r
 void\r
@@ -1177,13 +1244,11 @@ Evaluate ()
   return 0;\r
 }\r
 \r
-int flag;\r
-\r
 int\r
 Search (int alpha, int beta, int difEval, int depth, int oldPromo, int promoSuppress)\r
 {\r
   int i, j, k, firstMove, oldMSP = msp, curMove, sorted, bad, phase, king, iterDep, replyDep, nextVictim, to, defer, dubious, bestMoveNr;\r
-  int savHashL = hashKeyL, savHashH = hashKeyH;\r
+  int myPV = pvPtr;\r
   int score, bestScore, curEval, iterAlpha;\r
   Move move, nullMove;\r
   UndoInfo tb;\r
@@ -1206,6 +1271,9 @@ if(PATH) printf("search(%d) %d-%d eval=%d, stm=%d\n",depth,alpha,beta,difEval,st
   alpha -= (alpha < curEval);\r
   beta  -= (beta <= curEval);\r
 \r
+  nodes++;\r
+  pv[pvPtr++] = 0; // start empty PV, directly behind PV of parent\r
+\r
   firstMove = curMove = sorted = msp += 20; // leave 20 empty slots in front of move list\r
   phase = 0; iterDep=1; replyDep = (depth < 1 ? depth : 1) - 1;\r
   do {\r
@@ -1270,6 +1338,11 @@ if(flag && depth>= 0) printf("phase=%d: first/curr/last = %d / %d / %d\n", phase
            break;\r
          case 7: // bad captures\r
          case 8: // PV null move\r
+           phase = 9;\r
+           if(nullMove != ABSENT) {\r
+             moveStack[msp++] = nullMove + (nullMove << SQLEN) | DEFER; // kludge: setting DEFER guarantees != 0, and has no effect\r
+           }\r
+printf("# %d. sqr = %08x null = %08x\n", msp, nullMove, moveStack[msp-1]);\r
          case 9:\r
            goto cutoff;\r
        }\r
@@ -1289,10 +1362,18 @@ if(flag & depth >= 0) printf("%2d:%d extract %d/%d\n", depth, iterDep, curMove,
        if(move == 0) continue; // skip invalidated move\r
       }\r
 if(flag & depth >= 0) printf("%2d:%d found %d/%d\n", depth, iterDep, curMove, msp);\r
+\r
       // RECURSION\r
       stm ^= WHITE;\r
-      defer = MakeMove(moveStack[curMove], &tb);\r
-path[level++] = moveStack[curMove];\r
+      defer = MakeMove(move, &tb);\r
+\r
+      for(i=2; i<=cnt50; i+=2) if(repStack[level-i+200] == hashKeyH) {\r
+       moveStack[curMove] = 0; // erase forbidden move\r
+       score = -INF; goto repetition;\r
+      }\r
+      repStack[level+200] = hashKeyH;\r
+\r
+path[level++] = move;\r
 attacks += 2*BSIZE;\r
 MapFromScratch(attacks); // for as long as incremental update does not work.\r
 if(PATH) pmap(attacks, stm);\r
@@ -1305,7 +1386,7 @@ if(PATH) pmap(attacks, stm);
          if(promoSuppress & PROMOTE) score = -INF; // non-Lion captures Lion after opponent did same\r
          defer |= PROMOTE;                         // if we started, flag  he cannot do it in reply\r
        }\r
-        if(score == -INF) { moveStack[curMove] = 0; goto abortMove; }\r
+        if(score == -INF) { moveStack[curMove] = 0; goto abortMove; } // zap illegal moves\r
       }\r
 #if 1\r
       score = -Search(-beta, -iterAlpha, -difEval - tb.booty, replyDep, promoSuppress & ~PROMOTE, defer);\r
@@ -1313,16 +1394,14 @@ if(PATH) pmap(attacks, stm);
       score = 0;\r
 #endif\r
     abortMove:\r
-\r
-\r
 attacks -= 2*BSIZE;\r
 level--;\r
+    repetition:\r
       UnMake(&tb);\r
-      hashKeyL = savHashL;\r
-      hashKeyH = savHashH;\r
       xstm = stm; stm ^= WHITE;\r
 #if 1\r
 if(PATH) printf("%d:%2d:%d %3d %6x %-10s %6d %6d\n", level, depth, iterDep, curMove, moveStack[curMove], MoveToText(moveStack[curMove], 0), score, bestScore);\r
+\r
       // ALPHA-BETA STUFF\r
       if(score > bestScore) {\r
        bestScore = score; bestMoveNr = curMove;\r
@@ -1343,6 +1422,10 @@ if(PATH) printf("%d:%2d:%d %3d %6x %-10s %6d %6d\n", level, depth, iterDep, curM
            // update killer\r
            goto cutoff;\r
          }\r
+         { int i=pvPtr;\r
+           for(pvPtr = myPV+1; pv[pvPtr++] = pv[i++]; ); // copy daughter PV\r
+           pv[myPV] = move;                              // behind our move (pvPtr left at end of copy)\r
+         }\r
        }\r
 \r
       }\r
@@ -1350,13 +1433,20 @@ if(PATH) printf("%d:%2d:%d %3d %6x %-10s %6d %6d\n", level, depth, iterDep, curM
     } // next move\r
   cutoff:\r
     if(!level) { // root node\r
+      if(postThinking > 0) {\r
+        int i;   // WB thinking output\r
+       printf("%d %d %d %d", iterDep, bestScore, (GetTickCount() - startTime)/10, nodes);\r
+       for(i=0; pv[i]; i++) printf(" %s", MoveToText(pv[i], 0));\r
+       printf("\n"); fflush(stdout);\r
+      }\r
       if(GetTickCount() - startTime > tlim1) break; // do not start iteration we can (most likely) not finish\r
     }\r
     replyDep = iterDep;\r
   } while(++iterDep <= depth); // next depth\r
   retMSP = msp;\r
   retFirst = firstMove;\r
-  msp = oldMSP;\r
+  msp = oldMSP; // pop move list\r
+  pvPtr = myPV; // pop PV\r
   retMove = bestMoveNr ? moveStack[bestMoveNr] : 0;\r
 if(flag && depth >= 0) printf("return %d: %d %d\n", depth, bestScore, curEval);\r
   return bestScore + (bestScore < curEval);\r
@@ -1464,15 +1554,23 @@ int lastLift, lastPut;
 int\r
 MakeMove2 (int stm, MOVE move)\r
 {\r
+  int i;\r
   sup0 = sup1; sup1 = sup2;\r
   sup2 = MakeMove(move, &undoInfo);\r
+  rootEval = -rootEval - undoInfo.booty;\r
+  for(i=0; i<200; i++) repStack[i] = repStack[i+1];\r
+  repStack[199] = hashKeyH;\r
+printf("# makemove %08x %c%d %c%d\n", move, sup1%BW+'a', sup1/BW, sup2%BW+'a', sup2/BW);\r
   return stm ^ WHITE;\r
 }\r
 \r
 void\r
 UnMake2 (MOVE move)\r
 {\r
+  int i;\r
+  rootEval = -rootEval - undoInfo.booty;\r
   UnMake(&undoInfo);\r
+  for(i=200; i>0; i--) repStack[i] = repStack[i-1];\r
   sup2 = sup1; sup1 = sup0;\r
 }\r
 \r
@@ -1481,6 +1579,7 @@ Setup2 (char *fen)
 {\r
   SetUp(chuArray, chuPieces);\r
   sup0 = sup1 = sup2 = ABSENT;\r
+  rootEval = cnt50 = hashKeyH = hashKeyL = 0;\r
   return WHITE;\r
 }\r
 \r
@@ -1494,6 +1593,7 @@ MoveToText (MOVE move, int multiLine)
 {\r
   static char buf[50];\r
   int f = move>>SQLEN & SQUARE, g = f, t = move & SQUARE;\r
+  if(f == t) { sprintf(buf, "@@@@"); return buf; } // null-move notation in WB protocol\r
   buf[0] = '\0';\r
   if(t >= SPECIAL) { // kludgy! Print as side effect non-standard WB command to remove victims from double-capture (breaks hint command!)\r
     int e = f + epList[t - SPECIAL];\r
@@ -1526,6 +1626,7 @@ MOVE
 ParseMove (char *moveText)\r
 {\r
   int i, j, f, t, t2, e, ret, deferred=0;\r
+  char c = moveText[0];\r
   moveText += ReadSquare(moveText, &f);\r
   moveText += ReadSquare(moveText, &t); t2 = t;\r
   if(*moveText == ',') {\r
@@ -1542,15 +1643,21 @@ ParseMove (char *moveText)
   }\r
   ret = f<<SQLEN | t2;\r
   if(*moveText == '+') ret |= PROMOTE;\r
+printf("# suppress = %c%d\n", sup1%BW+'a', sup1/BW);\r
 MapFromScratch(attacks);\r
+  postThinking--;\r
   Search(-INF-1, INF+1, 0, 1, sup1, sup2);\r
+  postThinking++;\r
   for(i=retFirst; i<retMSP; i++) {\r
+    if(moveStack[i] == INVALID) continue;\r
+    if(c == '@' && (moveStack[i] & SQUARE) == (moveStack[i] >> SQLEN & SQUARE)) break; // any null move matches @@@@\r
     if((moveStack[i] & (PROMOTE | DEFER-1)) == ret) break;\r
     if((moveStack[i] & DEFER-1) == ret) deferred = i; // promoted version of entered non-promotion is legal\r
   }\r
   if(i>=retMSP) {  // no exact match\r
     if(deferred) { // but maybe non-sensical deferral\r
       int flags = p[board[f]].promoFlag;\r
+printf("# deferral of %d\n", deferred);\r
       i = deferred; // in any case we take that move\r
       if(!(flags & promoBoard[t] & (CANT_DEFER | LAST_RANK))) { // but change it into a deferral if that is allowed\r
        moveStack[i] &= ~PROMOTE;\r
@@ -1573,7 +1680,9 @@ Highlight(char *coords)
   ReadSquare(coords, &sqr);\r
 MapFromScratch(attacks);\r
 flag=1;\r
+  postThinking--;\r
   Search(-INF-1, INF+1, 0, 1, sup1, sup2);\r
+  postThinking++;\r
 flag=0;\r
   for(i=retFirst; i<retMSP; i++) {\r
     if(sqr == (moveStack[i]>>SQLEN & SQUARE)) {\r
@@ -1629,7 +1738,7 @@ SearchBestMove (int stm, int timeLeft, int mps, int timeControl, int inc, int ti
   tlim2 = 1.9*targetTime;\r
   nodes = 0;\r
 MapFromScratch(attacks);\r
-  score = Search(-INF-1, INF+1, 0, 20, sup1, sup2);\r
+  score = Search(-INF-1, INF+1, rootEval, 20, sup1, sup2);\r
   *move = retMove;\r
   *ponderMove = INVALID;\r
   return score;\r
@@ -1640,13 +1749,6 @@ PonderUntilInput (int stm)
 {\r
 }\r
 \r
-    // Some global variables that control your engine's behavior\r
-    int ponder;\r
-    int randomize;\r
-    int postThinking;\r
-    int resign;         // engine-defined option\r
-    int contemptFactor; // likewise\r
-\r
     int TakeBack(int n)\r
     { // reset the game and then replay it to the desired point\r
       int last, stm;\r
@@ -1746,7 +1848,7 @@ printf("in: %s\n", command);
         if(!strcmp(command, "protover")){\r
           printf("feature ping=1 setboard=1 colors=0 usermove=1 memory=1 debug=1 sigint=0 sigterm=0\n");\r
           printf("feature variants=\"chu,12x12+0_fairy\"\n");\r
-          printf("feature highlight=1\n");\r
+          printf("feature myname=\"HaChu " VERSION "\" highlight=1\n");\r
           printf("feature option=\"Resign -check 0\"\n");           // example of an engine-defined option\r
           printf("feature option=\"Contempt -spin 0 -200 200\"\n"); // and another one\r
           printf("feature done=1\n");\r
@@ -1788,6 +1890,7 @@ printf("in: %s\n", command);
         if(!strcmp(command, "ics"))     { continue; }\r
         if(!strcmp(command, "accepted")){ continue; }\r
         if(!strcmp(command, "rejected")){ continue; }\r
+        if(!strcmp(command, "result"))  { continue; }\r
         if(!strcmp(command, "hover"))   {  continue; }\r
         if(!strcmp(command, ""))  {  continue; }\r
         if(!strcmp(command, "usermove")){\r