lpiece = KNIGHT;
else if (c == 'p')
lpiece = PAWN;
+ else if (c == 'd')
+ lpiece = DRAGONKING;
else
goto nomatch;
break;
if (s == NULL) {
return;
}
-
+
+ if(gs->promoType == 3) { // handle Shogi promotions
+ piece = gs->board[mt->fromFile][mt->fromRank];
+ if(colorval(piece) == WHITE && mt->fromRank < gs->ranks - gs->ranks/3
+ && mt->toRank < gs->ranks - gs->ranks/3 ) return;
+ if(colorval(piece) == BLACK && mt->fromRank >= gs->ranks/3
+ && mt->toRank >= gs->ranks/3 ) return;
+ switch(piecetype(piece)) {
+ case PAWN:
+ case LANCE:
+ case HONORABLEHORSE:
+ case SILVER:
+ if(s[1] != '+' && s[1] != '^' && s[1] != 'G' && s[1] != 'g') return;
+ piece = GOLD; break;
+ case BISHOP:
+ if(s[1] != '+' && s[1] != '^' && s[1] != 'H' && s[1] != 'h') return;
+ piece = DRAGONHORSE; break;
+ case ROOK:
+ if(s[1] != '+' && s[1] != '^' && s[1] != 'D' && s[1] != 'd') return;
+ piece = DRAGONKING; break;
+ default: return; // others do not promote, so ignore
+ }
+ mt->piecePromotionTo = piece | colorval(gs->board[mt->fromFile][mt->fromRank]);
+ return;
+ }
+
if (piecetype(gs->board[mt->fromFile][mt->fromRank]) != PAWN) {
return;
}
break;
case HORSE:
if(strstr(gs->variant, "great")) piece = PRIESTESS;
+ if(strstr(gs->variant, "shogi")) piece = DRAGONHORSE;
break;
case GOLD:
if(strstr(gs->variant, "great")) piece = MASTODON;
strcpy(mStr, "N");
break;
case DRAGONKING:
- strcpy(mStr, "J");
+ strcpy(mStr, "D");
break;
case DRAGONHORSE:
- strcpy(mStr, "I");
+ strcpy(mStr, "H");
break;
case LANCE:
strcpy(mStr, "L");
strcat(mStr, "G");\r
break;\r
case DRAGONHORSE:\r
- strcat(mStr, "I");\r
+ strcat(mStr, "H");\r
break;\r
case DRAGONKING:\r
- strcat(mStr, "J");\r
+ strcat(mStr, "D");\r
break;\r
default:\r
break;\r