X-Git-Url: http://winboard.nl/cgi-bin?a=blobdiff_plain;f=hachu.c;h=11e5710c70f5b9dac7134aef71dcafe6d0c9f9b8;hb=f72cb2001c9dfc2e44c9c453b61c96835836fcb5;hp=ec89af4cb0e18bd1c437f3ee8439921a814fe120;hpb=a6e527af5886ee2be168cf87cccc2ade770a5247;p=hachu.git diff --git a/hachu.c b/hachu.c index ec89af4..11e5710 100644 --- a/hachu.c +++ b/hachu.c @@ -10,9 +10,9 @@ // promotions by pieces with Lion power stepping in & out the zone in same turn // promotion on capture -#define VERSION "0.18" +#define VERSION "0.20" -//define PATH level==0 || path[0] == 0x1103a && (level==1 || path[1] == 0x6f0f6 && (level == 2 /*|| path[2] == 0x8710f && (level == 3 /*|| path[3] == 0x3e865 && (level == 4 || path[4] == 0x4b865 && (level == 5)))*/)) +//define PATH level==0 || path[0] == 0x590cb && (level==1 || path[1] == 0x4c0c9 && (level == 2 || path[2] == 0x8598ca && (level == 3 /*|| path[3] == 0x3e865 && (level == 4 || path[4] == 0x4b865 && (level == 5))*/))) #define PATH 0 #define HASH @@ -24,8 +24,9 @@ #define XWINGS #define KINGSAFETY #define KSHIELD -#define XFORTRESS +#define FORTRESS #define PAWNBLOCK +#define TANDEM 100 /* bonus for pairs of attacking light steppers */ #define KYLIN 100 /* extra end-game value of Kylin for promotability */ #define PROMO 0 /* extra bonus for 'vertical' piece when it actually promotes (diagonal pieces get half) */ @@ -88,6 +89,7 @@ #define PROMOTE (1<<2*SQLEN+1) /* promotion bit in move */ #define SPECIAL 1400 /* start of special moves */ #define BURN (SPECIAL + 96) /* start of burn encodings */ +#define CASTLE (SPECIAL + 100) /* castling encodings */ #define STEP(X,Y) (BW*(X)+ (Y)) #define SORTKEY(X) 0 @@ -117,7 +119,8 @@ #define PST_RETRACT (5*BW*BH+BH) #define PST_WFLYER (6*BW*BH) #define PST_BFLYER (6*BW*BH+BH) -#define PST_END (7*BW*BH) +#define PST_LANCE (7*BW*BH) +#define PST_END (8*BW*BH) typedef unsigned int Move; @@ -125,6 +128,7 @@ char *MoveToText(Move move, int m); // from WB driver void pmap(int *m, int col); void pboard(int *b); void pbytes(unsigned char *b); +int myRandom(); typedef struct { int lock[5]; @@ -151,7 +155,7 @@ typedef struct { } PieceDesc; typedef struct { - int from, to, piece, victim, new, booty, epSquare, epVictim[8], ep2Square, revMoveCount; + int from, to, piece, victim, new, booty, epSquare, epVictim[9], ep2Square, revMoveCount; int savKeyL, savKeyH, gain, loss, filling, saveDelta; char fireMask; } UndoInfo; @@ -164,7 +168,7 @@ int retMSP, retFirst, retDep, pvPtr, level, cnt50, mobilityScore; int ll, lr, ul, ur; // corner squares int nodes, startTime, lastRootMove, lastRootIter, tlim1, tlim2, tlim3, repCnt, comp, abortFlag; Move ponderMove; -Move retMove, moveStack[10000], path[100], repStack[300], pv[1000], repeatMove[300], killer[100][2]; +Move retMove, moveStack[20000], path[100], repStack[300], pv[1000], repeatMove[300], killer[100][2]; int maxDepth; // used by search @@ -496,7 +500,7 @@ Vector direction[] = { // clockwise! { 2,-1} }; -int epList[96], ep2List[96], toList[96], reverse[96]; // decoding tables for double and triple moves +int epList[104], ep2List[104], toList[104], reverse[104]; // decoding tables for double and triple moves int kingStep[10], knightStep[10]; // raw tables for step vectors (indexed as -1 .. 8) int neighbors[9]; // similar to kingStep, but starts with null-step char fireFlags[10]; // flags for Fire-Demon presence (last two are dummies, which stay 0, for compactify) @@ -618,7 +622,7 @@ int rawBoard[BSIZE + 11*BHMAX + 6]; int attackMaps[200*BSIZE], *attacks = attackMaps; char distance[2*BSIZE]; // distance table char promoBoard[BSIZE]; // flags to indicate promotion zones -char rawFire[BSIZE+2*BWMAX]; // flags to indicate squares controlled by Fire Demons +unsigned char rawFire[BSIZE+2*BWMAX]; // flags to indicate squares controlled by Fire Demons signed char PST[7*BSIZE]; #define board (rawBoard + 6*BHMAX + 3) @@ -705,7 +709,6 @@ Lance (signed char *r) int EasyProm (signed char *r) { - int i; if(r[0] == X) return 30 + PROMO*((unsigned int)(r[1] | r[2] | r[3] | r[5] | r[6] | r[7]) <= 1); if(r[1] == X || r[7] == X) return 30 + PROMO/2; return 0; @@ -735,7 +738,7 @@ Range (signed char *r) int i, m=0; for(i=0; i<8; i++) { int d = r[i]; - if(r[i] < 0) d == r[i] >= L ? 2 : 36; + if(r[i] < 0) d = r[i] >= L ? 2 : 36; if(d > m) m = d; } return m; @@ -760,7 +763,7 @@ StackMultis (int col) void Compactify (int stm) { // remove pieces that are permanently gone (captured or promoted) from one side's piece list - int i, j, k; + int i, k; for(i=stm+2; i<=last[stm]; i+=2) { // first pass: unpromoted pieces if((k = p[i].promo) >= 0 && p[i].pos == ABSENT) { // unpromoted piece no longer there p[k].promo = -2; // orphan promoted version @@ -800,7 +803,7 @@ AddPiece (int stm, PieceDesc *list) p[i].bulk = list->bulk; p[i].mobWeight = v > 600 ? 0 : v >= 400 ? 1 : v >= 300 ? 2 : v > 150 ? 3 : v >= 100 ? 2 : 0; if(Lance(list->range)) - p[i].mobWeight = 5 + 3*(list->range[4]==X), p[i].pst = 0; // clear path but don't move forward + p[i].mobWeight = 0, p[i].pst = list->range[4] ? PST_NEUTRAL : PST_LANCE; // keep back for(j=stm+2; j<= last[stm]; j+=2) { if(p[j].promo >= i) p[j].promo += 2; } @@ -812,12 +815,13 @@ AddPiece (int stm, PieceDesc *list) } void -SetUp(char *array, int var) +SetUp (char *array, int var) { - int i, j, n, m, nr, color; - char c, *q, name[3], prince = 0; + int i, j, n, m, color; + char c, name[3], prince = 0; PieceDesc *p1, *p2; last[WHITE] = 1; last[BLACK] = 0; + royal[WHITE] = royal[BLACK] = 0; for(i=0; ; i++) { //printf("next rank: %s\n", array); for(j = BW*i; ; j++) { @@ -858,6 +862,9 @@ SetUp(char *array, int var) } } eos: + // add dummy Kings if not yet added (needed to set royal[] to valid value!) + if(!royal[WHITE]) p[AddPiece(WHITE, LookUp("K", V_CHU))].pos = ABSENT; + if(!royal[BLACK]) p[AddPiece(BLACK, LookUp("K", V_CHU))].pos = ABSENT; // add dummy Crown Princes if not yet added if(!(prince & WHITE+1)) p[AddPiece(WHITE, LookUp("CP", V_CHU))].pos = ABSENT; if(!(prince & BLACK+1)) p[AddPiece(BLACK, LookUp("CP", V_CHU))].pos = ABSENT; @@ -874,10 +881,10 @@ SetUp(char *array, int var) if(i == kylin[WHITE]) p[i].promoGain = 1.25*KYLIN, p[i].value += KYLIN; // if(j > 0 && p[i].pst == PST_STEPPER) p[i].pst = PST_WPPROM; // use white pre-prom bonus if(j > 0 && p[i].pst == PST_STEPPER && p[i].value >= 100) - p[i].pst = p[i].value <= 150 ? PST_ADVANCE : PST_NEUTRAL; // light steppers advance + p[i].pst = p[i].value <= 150 ? PST_ADVANCE : PST_WPPROM; // light steppers advance if(j > 0 && p[i].bulk == 6) p[i].pst = PST_WFLYER, p[i].mobWeight = 4; // SM defends zone if((j = p[i].promo) > 0 && g) - p[i].promoGain = (p[j].value - p[i].value - g)*1.25, p[i].value = p[j].value - g; + p[i].promoGain = (p[j].value - p[i].value - g)*0.9, p[i].value = p[j].value - g; else p[i].promoGain = 0; board[p[i].pos] = i; rootEval += p[i].value + PST[p[i].pst + p[i].pos]; @@ -888,11 +895,11 @@ SetUp(char *array, int var) int g = p[i].promoGain; // if(j > 0 && p[i].pst == PST_STEPPER) p[i].pst = PST_BPPROM; // use black pre-prom bonus if(j > 0 && p[i].pst == PST_STEPPER && p[i].value >= 100) - p[i].pst = p[i].value <= 150 ? PST_RETRACT : PST_NEUTRAL; // light steppers advance + p[i].pst = p[i].value <= 150 ? PST_RETRACT : PST_BPPROM; // light steppers advance if(j > 0 && p[i].pst == PST_WJUMPER) p[i].pst = PST_BJUMPER; // use black pre-prom bonus if(j > 0 && p[i].bulk == 6) p[i].pst = PST_BFLYER, p[i].mobWeight = 4; // SM defends zone if((j = p[i].promo) > 0 && g) - p[i].promoGain = (p[j].value - p[i].value - g)*1.25, p[i].value = p[j].value - g; + p[i].promoGain = (p[j].value - p[i].value - g)*0.9, p[i].value = p[j].value - g; else p[i].promoGain = 0; if(i == kylin[BLACK]) p[i].promoGain = 1.25*KYLIN, p[i].value += KYLIN; board[p[i].pos] = i; @@ -953,6 +960,11 @@ Init (int var) toList[88+i] = kStep[i]; epList[88+i] = 2*kStep[i]; } + toList[100] = BH - 2; epList[100] = BH - 1; ep2List[100] = BH - 3; + toList[100+1] = 2; epList[100+1] = 0; ep2List[100+1] = 3; + toList[100+2] = bsize - BH - 2; epList[100+2] = bsize - BH - 1; ep2List[100+2] = bsize - BH - 3; + toList[100+3] = bsize - BW + 2; epList[100+3] = bsize - BW; ep2List[100+3] = bsize - BW + 3; + // fill distance table for(i=0; i<2*BSIZE; i++) { distance[i] = 0; @@ -989,17 +1001,23 @@ Init (int var) PST[PST_STEPPER+s] = d/4 - (i < 2 || i > BH-3 ? 3 : 0) - (j == 0 || j == BH-1 ? 5 : 0) + 3*(i==zone || i==BH-zone-1); // stepper centralization PST[PST_WJUMPER+s] = d/6; // double-stepper centralization - PST[PST_SLIDER +s] = d/12 - 7*(i==BH/2 || i==(BH-1)/2); // slider centralization + PST[PST_SLIDER +s] = d/12 - 15*(i==BH/2 || i==(BH-1)/2);// slider centralization PST[PST_TRAP +s] = j < 3 || j > BH-4 ? (i < 3 ? 7 : i == 3 ? 4 : i == 4 ? 2 : 0) : 0; PST[PST_CENTER+s] = ((BH-1)*(BH-1) - (2*i - BH + 1)*(2*i - BH + 1) - (2*j - BH + 1)*(2*j - BH + 1))/6; PST[PST_WPPROM+s] = PST[PST_BPPROM+s] = PST[PST_STEPPER+s]; // as stepper, but with pre-promotion bonus W/B PST[PST_BJUMPER+s] = PST[PST_WJUMPER+s]; // as jumper, but with pre-promotion bonus B PST[PST_ZONDIST+s] = BW*(zone - 1 - i); // board step to enter promo zone black PST[PST_ADVANCE+s] = PST[PST_WFLYER-s-1] = 2*(5*i+i*i) - (i >= zone)*6*(i-zone+1)*(i-zone+1) - - 50 - 20*(j==0 || j == BH-1) - 10*(j == 1 || BH-2); // advance-encouraging table - PST[PST_WFLYER +s] = PST[PST_END-s-1] = (i == zone-1)*40 + (i == zone-2)*20 - 20; + - (2*j - BH + 1)*(2*j - BH + 1)/BH + BH/2 + - 50 - 35*(j==0 || j == BH-1) - 15*(j == 1 || BH-2); // advance-encouraging table + PST[PST_WFLYER +s] = PST[PST_LANCE-s-1] = (i == zone-1)*40 + (i == zone-2)*20 - 20; + PST[PST_LANCE +s] = (PST[PST_STEPPER+j] - PST[PST_STEPPER+s])/2; } if(zone > 0) PST[PST_WPPROM+BW*(BH-1-zone) + j] += 10, PST[PST_BPPROM + BW*zone + j] += 10; + if(j > (BH-1)/2 - 3 && j < BH/2 + 3) + PST[PST_WPPROM + j] += 4, PST[PST_BPPROM + BW*(BH-1) + j] += 4; // fortress + if(j > (BH-1)/2 - 2 && j < BH/2 + 2) + PST[PST_WPPROM + BW + j] += 2, PST[PST_BPPROM + BW*(BH-2) + j] += 2; // fortress #if KYLIN // pre-promotion bonuses for jumpers if(zone > 0) PST[PST_WJUMPER + BW*(BH-2-zone) + j] = PST[PST_BJUMPER + BW*(zone+1) + j] = 100, @@ -1045,8 +1063,8 @@ NewNonCapture (int x, int y, int promoFlags) { if(board[y] != EMPTY) return 1; // edge, capture or own piece //if(flag) printf("# add %c%d%c%d, pf=%d\n", x%BW+'a',x/BW,y%BW+'a',y/BW, promoFlags); - if( (promoBoard[x] | promoBoard[y]) & promoFlags && - (!entryProm || promoBoard[y] & ~promoBoard[x] & CAN_PROMOTE )){ // piece can promote with this move + if( (entryProm ? promoBoard[y] & ~promoBoard[x] & CAN_PROMOTE + : promoBoard[y] | promoBoard[x] ) & promoFlags ){ // piece can promote with this move moveStack[msp++] = moveStack[nonCapts]; // create space for promotion moveStack[nonCapts++] = x<>1, t = CASTLE; + if(stm != WHITE) f += bsize - BW, t += 2; + if(p[board[f]].value = 280) { + if(p[board[f-4]].value == 300 && board[f-3] == EMPTY && board[f-2] == EMPTY && board[f-1] == EMPTY) moveStack[msp++] = f<new = u->piece; if(u->to >= SPECIAL) { // two-step Lion move + if(u->to >= CASTLE) { // move Rook, faking it was an e.p. victim so that UnMake works automatically + u->epSquare = epList[u->to - SPECIAL]; + u->ep2Square = ep2List[u->to - SPECIAL]; + u->epVictim[0] = board[u->epSquare]; // kludgy: fake that King e.p. captured the Rook! + u->epVictim[1] = board[u->ep2Square]; // should be EMPTY (but you never know, so save as well). + board[u->ep2Square] = u->epVictim[0]; // but put Rook back + board[u->epSquare] = EMPTY; + p[u->epVictim[0]].pos = u->ep2Square; + p[u->epVictim[1]].pos = ABSENT; + u->to = toList[u->to - SPECIAL]; + hashKeyL ^= p[u->epVictim[0]].pieceKey * squareKey[u->epSquare]; + hashKeyH ^= p[u->epVictim[0]].pieceKey * squareKey[u->epSquare+BH]; + hashKeyL ^= p[u->epVictim[0]].pieceKey * squareKey[u->ep2Square]; + hashKeyH ^= p[u->epVictim[0]].pieceKey * squareKey[u->ep2Square+BH]; + } else { // take care of first e.p. victim u->epSquare = u->from + epList[u->to - SPECIAL]; // decode u->epVictim[0] = board[u->epSquare]; // remember for takeback @@ -1323,6 +1367,7 @@ MakeMove(Move m, UndoInfo *u) hashKeyH ^= p[u->epVictim[1]].pieceKey * squareKey[u->ep2Square+BH]; if(p[u->piece].value != LVAL && p[u->epVictim[0]].value == LVAL) deferred |= PROMOTE; // flag non-Lion x Lion cnt50 = 0; // double capture irreversible + } } if(u->fireMask & fireBoard[u->to]) { // we moved next to enemy Fire Demon (must be done after SPECIAL, to decode to-sqr) @@ -1419,13 +1464,13 @@ UnMake(UndoInfo *u) } void -GenCapts(int sqr, int victimValue) +GenCapts (int sqr, int victimValue) { // generate all moves that capture the piece on the given square - int i, range, att = attacks[2*sqr + stm]; + int i, att = attacks[2*sqr + stm]; //printf("GenCapts(%c%d,%d) %08x\n",sqr%BW+'a',sqr/BW,victimValue,att); if(!att) return; // no attackers at all! for(i=0; i<8; i++) { // try all rays - int x, v, jumper, jcapt=0; + int x, v, jcapt=0; if(att & attackMask[i]) { // attacked by move in this direction v = -kStep[i]; x = sqr; while( board[x+=v] == EMPTY ); // scan towards source until we encounter a 'stop' @@ -1556,10 +1601,27 @@ Guard (int sqr) int Fortress (int forward, int king, int lion) { // penalty for lack of Lion-proof fortress - int rank = PST[king], anchor, r, l, q; - if(!rank) return -300; + int rank = PST[king], anchor, r, l, q, res = 0; + if(rank != 2) return 25*(rank-2); anchor = king + forward*(rank-1); + q = Guard(anchor); l = Guard(anchor-1); r = Guard(anchor+1); + if(!q) return l > 1 || r > 1 ? 0 : -25; + if(q == 1) res = 40*(l > 1 && r > 1); // TGT, EGT or TGE get 40 + else { // T or E in front of King + if(l > 1) res = 30 + (r > 1)*(20 + 5*(q==2)); // TT., ET. or TE. (30), TET (50), TTE (55) + else if(r > 1) res = 30; // .TT, .ET or .TE (30) + } + q = 0; + if(filling > 32) { + if(r > 1 && Guard(king+2) == 1) q += 10; + if(l > 1 && Guard(king-2) == 1) q += 10; + q += 5*(Guard(king+1) == 1); + q += 5*(Guard(king-1) == 1); + if(filling < 96) q = q*(filling - 32)>>6; + } + return res + q; + if(Guard(anchor) == 3 || Guard(anchor+1) == 3 || Guard(anchor-1) == 3) return 0; if(rank == 2 && Guard(king+1) == 3 || Guard(king-1) == 3) return -50; if(Guard(r=anchor) == 2 || Guard(r=anchor+1) == 2 || Guard(r=anchor-1) == 2) @@ -1588,7 +1650,7 @@ Fortress (int forward, int king, int lion) } int -Surround (int stm, int king, int start) +Surround (int stm, int king, int start, int max) { int i, s=0; for(i=start; i<9; i++) { @@ -1598,7 +1660,7 @@ Surround (int stm, int king, int start) v = p[piece].value; s += -(v > 70) & v; } - return (s > 512 ? 512 : s); + return (s > max ? max : s); } int @@ -1614,7 +1676,9 @@ Ftest (int side) int Evaluate (int difEval) { - int wLion = ABSENT, bLion = ABSENT, wKing, bKing, score=mobilityScore, f, i, j; + int wLion = ABSENT, bLion = ABSENT, wKing, bKing, score=mobilityScore, f, i, j, max=512; + + if(tsume) return difEval; if(p[WHITE+2].value == LVAL) wLion = p[WHITE+2].pos; if(p[BLACK+2].value == LVAL) bLion = p[BLACK+2].pos; @@ -1656,17 +1720,18 @@ Evaluate (int difEval) score += (PST[PST_CENTER+wKing] - PST[PST_CENTER+bKing])*(32 - filling) >> 7; if(lead > 100) score -= PST[PST_CENTER+bKing]*(32 - filling) >> 3; // white leads, drive black K to corner if(lead < -100) score += PST[PST_CENTER+wKing]*(32 - filling) >> 3; // black leads, drive white K to corner + max = 16*filling; } # ifdef FORTRESS f = 0; if(bLion != ABSENT) f += Fortress( BW, wKing, bLion); if(wLion != ABSENT) f -= Fortress(-BW, bKing, wLion); - score += (filling < 96 ? f : f*(224 - filling) >> 7); // build up slowly + score += (filling < 192 ? f : f*(224 - filling) >> 5); // build up slowly # endif # ifdef KSHIELD - score += Surround(WHITE, wKing, 1) - Surround(BLACK, bKing, 1) >> 3; + score += Surround(WHITE, wKing, 1, max) - Surround(BLACK, bKing, 1, max) >> 3; # endif #endif @@ -1678,17 +1743,17 @@ Evaluate (int difEval) int sq; if((wLion = kylin[WHITE]) && (sq = p[wLion].pos) != ABSENT) { int anchor = sq - PST[5*BW*BH - 1 - sq]; // FIXME: PST_ZONDIST indexed backwards - score += (512 - Surround(BLACK, anchor, 0))*(128 - filling)*PST[p[wLion].pst + sq] >> 15; + score += (512 - Surround(BLACK, anchor, 0, 512))*(128 - filling)*PST[p[wLion].pst + sq] >> 15; } if((bLion = kylin[BLACK]) && (sq = p[bLion].pos) != ABSENT) { int anchor = sq + PST[PST_ZONDIST + sq]; - score -= (512 - Surround(WHITE, anchor, 0))*(128 - filling)*PST[p[bLion].pst + sq] >> 15; + score -= (512 - Surround(WHITE, anchor, 0, 512))*(128 - filling)*PST[p[bLion].pst + sq] >> 15; } } #endif #ifdef PAWNBLOCK - // penalty for blocking own P or GB: 20 by slider, 10 by other, but 50 if only retreat mode is straight back + // penalty for blocking own P or GB: 20 by slider, 10 by other, but 50 if only RETRACT mode is straight back for(i=last[WHITE]; i > 1 && p[i].value<=50; i-=2) { if((f = p[i].pos) != ABSENT) { // P present, if((j = board[f + BW])&1) // square before it white (odd) piece @@ -1707,7 +1772,26 @@ Evaluate (int difEval) } #endif - return difEval - (filling*filling*promoDelta >> 16) + (stm ? score : -score); +#ifdef TANDEM + if(zone > 0) { + int rw = BW*(BH-1-zone), rb = BW*zone, h=0; + for(f=0; f 0) h += (p[board[rw+f-BW-1]].pst == PST_ADVANCE); + if(f+1 < BH) h += (p[board[rw+f-BW+1]].pst == PST_ADVANCE); + } + if(p[board[rb+f]].pst == PST_ADVANCE) { + h -= (p[board[rb+f+BW]].pst == PST_RETRACT); + if(f > 0) h -= (p[board[rb+f+BW-1]].pst == PST_RETRACT); + if(f+1 < BH) h -= (p[board[rb+f+BW+1]].pst == PST_RETRACT); + } + } + score += h*TANDEM; + } +#endif + + return difEval - (filling*promoDelta >> 8) + (stm ? score : -score); } inline void @@ -1742,8 +1826,15 @@ if(PATH) /*pboard(board),pmap(attacks, BLACK),*/printf("search(%d) {%d,%d} eval= // in-check test and TSUME filter { k = p[king=royal[stm]].pos; - if( k == ABSENT) k = p[king + 2].pos; - else if(p[king + 2].pos != ABSENT) k = ABSENT; // two kings is no king... + if( k == ABSENT) { + if((k = p[king + 2].pos) == ABSENT && (!tsume || tsume & stm+1)) + return -INF; // lose when no King (in tsume only for side to be mated) + } else if(p[king + 2].pos != ABSENT) { + if(tsume && tsume & stm+1) { + retDep = 60; return INF; // we win when not in check + } + k = ABSENT; // two kings is no king... + } if( k != ABSENT) { // check is possible if(!attacks[2*k + xstm]) { if(tsume && tsume & stm+1) { @@ -1765,7 +1856,7 @@ if(!level) {for(i=0; i<5; i++)printf("# %d %08x, %d\n", i, repStack[200-i], chec } } else { // he has no king! Test for attacks on Crown Prince k = p[king + 2].pos; - if(k == ABSENT || attacks[2*k + stm]) return INF; // we have attack on Crown Prince + if(k == ABSENT ? !tsume : attacks[2*k + stm]) return INF; // we have attack on Crown Prince } //printf("King safe\n");fflush(stdout); // EVALUATION & WINDOW SHIFT @@ -1860,7 +1951,11 @@ if(PATH) printf("%d:%2d:%2d next victim %d/%d\n",level,depth,iterDep,curMove,msp if(to == ABSENT) continue; // ignore if absent if(!attacks[2*to + stm]) continue; // skip if not attacked group = p[nextVictim].value; // remember value of this found victim - if(iterDep <= QSdepth + 1 && 2*group + curEval + 30 < alpha) { resDep = QSdepth + 1; goto cutoff; } + if(iterDep <= QSdepth + 1 && 2*group + curEval + 30 < alpha) { + resDep = QSdepth + 1; nextVictim -= 2; + if(bestScore < 2*group + curEval + 30) bestScore = 2*group + curEval + 30; + goto cutoff; + } if(PATH) printf("%d:%2d:%2d group=%d, to=%c%d\n",level,depth,iterDep,group,to%BW+'a',to/BW+ONE); GenCapts(to, 0); if(PATH) printf("%d:%2d:%2d first=%d msp=%d\n",level,depth,iterDep,firstMove,msp); @@ -1901,6 +1996,7 @@ if(PATH) printf("# autofail end (%d-%d)\n", firstMove, msp); case 6: // non-captures nonCapts = msp; nullMove = GenNonCapts(oldPromo); + if(msp == nonCapts) goto cutoff; #ifdef KILLERS { // swap killers to front Move h = killer[level][0]; int j = curMove; @@ -1964,6 +2060,7 @@ if(flag & depth >= 0) printf("%2d:%d found %d/%d %08x %s\n", depth, iterDep, cur if(flag & depth >= 0) printf("%2d:%d made %d/%d %s\n", depth, iterDep, curMove, msp, MoveToText(moveStack[curMove], 0)); for(i=2; i<=cnt50; i+=2) if(repStack[level-i+200] == hashKeyH) { + retDep = iterDep; if(repDraws) { score = 0; goto repetition; } if(!allowRep) { moveStack[curMove] = 0; // erase forbidden move @@ -2005,6 +2102,7 @@ MapFromScratch(attacks); // for as long as incremental update does not work. score = -Search(-beta, -iterAlpha, -difEval - tb.booty, iterDep-1+ext, curMove >= late && iterDep > QSdepth + LMR, promoSuppress & ~PROMOTE, defer, depth ? INF : tb.gain); + #else score = 0; #endif @@ -2082,7 +2180,7 @@ if(PATH) printf("%d:%2d:%d %3d %6x %-10s %6d %6d (%d)\n", level, depth, iterDep #ifdef HASH // hash store hashTable[index].lock[hit] = hashKeyH; - hashTable[index].depth[hit] = iterDep; + hashTable[index].depth[hit] = resDep; hashTable[index].score[hit] = bestScore; hashTable[index].flag[hit] = (bestScore < beta) * H_UPPER; if(bestScore > alpha) { @@ -2174,7 +2272,7 @@ pmoves(int start, int end) // some parameter of your engine #define MAXMOVES 2000 /* maximum game length */ - #define MAXPLY 30 /* maximum search depth */ + #define MAXPLY 60 /* maximum search depth */ #define OFF 0 #define ON 1 @@ -2268,8 +2366,10 @@ Convert (char *fen) *p++ = table[2* (*fen - 'A' - n)+1] + n; } } else *p++ = *fen; + if(!*fen) break; fen++; } + *p = '\0'; printf("# converted FEN '%s'\n", fenArray); return fenArray; } @@ -2288,7 +2388,7 @@ Setup2 (char *fen) SetUp(array, currentVariant); strcpy(startPos, array); sup0 = sup1 = sup2 = ABSENT; - hashKeyH = hashKeyL = 87620895*currentVariant; + hashKeyH = hashKeyL = 87620895*currentVariant + !!fen; return stm; } @@ -2317,7 +2417,8 @@ MoveToText (MOVE move, int multiLine) char *promoChar = ""; if(f == t) { sprintf(buf, "@@@@"); return buf; } // null-move notation in WB protocol buf[0] = '\0'; - if(t >= SPECIAL) { // kludgy! Print as side effect non-standard WB command to remove victims from double-capture (breaks hint command!) + if(t >= SPECIAL) { + if(t < CASTLE) { // castling is printed as a single move, implying its side effects int e = f + epList[t - SPECIAL]; // printf("take %c%d\n", e%BW+'a', e/BW+ONE); sprintf(buf, "%c%d%c%d,", f%BW+'a', f/BW+ONE, e%BW+'a', e/BW+ONE); f = e; @@ -2328,6 +2429,7 @@ MoveToText (MOVE move, int multiLine) sprintf(buf+strlen(buf), "%c%d%c%d,", f%BW+'a', f/BW+ONE, e%BW+'a', e/BW+ONE); f = e; if(multiLine) printf("move %s\n", buf), buf[0] = '\0'; } + } t = g + toList[t - SPECIAL]; } if(move & PROMOTE) promoChar = currentVariant == V_MAKRUK ? "m" : repDraws ? "q" : "+"; @@ -2338,7 +2440,7 @@ MoveToText (MOVE move, int multiLine) int ReadSquare (char *p, int *sqr) { - int i=0, f, r; + int f, r; f = p[0] - 'a'; r = atoi(p + 1) - ONE; *sqr = r*BW + f; @@ -2358,7 +2460,8 @@ MapFromScratch(attacks); Search(-INF-1, INF+1, 0, QSdepth+1, 0, sup1 & ~PROMOTE, sup2, INF); postThinking++; - listStart = retFirst; listEnd = msp = retMSP; + listStart = retFirst; msp = retMSP; + if(currentVariant == V_LION) GenCastlings(); listEnd = msp; } MOVE @@ -2384,6 +2487,11 @@ ParseMove (char *moveText) if(t == f + BW - 1) t2 = SPECIAL + 48; else if(t == f - BW + 1) t2 = SPECIAL + 20; else if(t == f - BW - 1) t2 = SPECIAL + 52; // fake double-move + } else if(currentVariant == V_LION && board[f] != EMPTY && p[board[f]].value == 280 && (t-f == 2 || f-t == 2)) { // castling + if(t == f+2 && f < BW) t2 = CASTLE; else + if(t == f-2 && f < BW) t2 = CASTLE + 1; else + if(t == f+2 && f > BW) t2 = CASTLE + 2; else + if(t == f-2 && f > BW) t2 = CASTLE + 3; } ret = f<>SQLEN & SQUARE)) { int t = moveStack[i] & SQUARE; + if(t >= CASTLE) t = toList[t - SPECIAL]; else // decode castling if(t >= SPECIAL) { int e = sqr + epList[t - SPECIAL]; // decode b[e] = 'C'; @@ -2498,7 +2607,7 @@ printf("# limits %d, %d, %d mode = %d\n", tlim1, tlim2, tlim3, abortFlag); int SearchBestMove (MOVE *move, MOVE *ponderMove) { - int score, i; + int score; printf("# SearchBestMove\n"); startTime = GetTickCount(); nodes = 0; @@ -2577,18 +2686,21 @@ printf("# ponder hit\n"); } } + int main() { - int engineSide=NONE; // side played by engine + int engineSide=NONE; // side played by engine MOVE move; int i, score, curVarNr; - Init(V_CHU); // Chu + setvbuf(stdin, NULL, _IOLBF, 1024); // buffering more than one line flaws test for pending input! + + Init(V_CHU); // Chu seed = startTime = GetTickCount(); moveNr = 0; // initialize random while(1) { // infinite loop - fflush(stdout); // make sure everything is printed before we do something that might take time + fflush(stdout); // make sure everything is printed before we do something that might take time *inBuf = 0; if(moveNr >= 20) randomize = OFF; //if(moveNr >20) printf("resign\n"); @@ -2760,5 +2872,6 @@ pboard(board); if(!strcmp(command, "remove")) { stm = TakeBack(2); continue; } printf("Error: unknown command\n"); } + return 0; }