X-Git-Url: http://winboard.nl/cgi-bin?a=blobdiff_plain;f=backend.c;h=42f2ac2a58a3df9d073150a161a59bd0e2d3119d;hb=503c2492da768cc7c2744268382aa4c18a75caef;hp=9a9d0a44e7758b7878dbeb3e73a69429c840b9f5;hpb=dcd563701f4164a6f8b2e8e8c84ddb96601e147c;p=xboard.git

diff --git a/backend.c b/backend.c
index 9a9d0a4..42f2ac2 100644
--- a/backend.c
+++ b/backend.c
@@ -5141,10 +5141,17 @@ SendMoveToProgram (int moveNum, ChessProgramState *cps)
 	else SendToProgram(moveList[moveNum], cps);
       } else
       if(moveList[moveNum][4] == ';') { // [HGM] lion: move is double-step over intermediate square
-	  snprintf(buf, MSG_SIZ, "%c%d%c%d,%c%d%c%d\n", moveList[moveNum][0], moveList[moveNum][1] - '0', // convert to two moves
-					       moveList[moveNum][5], moveList[moveNum][6] - '0',
-					       moveList[moveNum][5], moveList[moveNum][6] - '0',
-					       moveList[moveNum][2], moveList[moveNum][3] - '0');
+	char *m = moveList[moveNum];
+	if((boards[moveNum][m[6]-ONE][m[5]-AAA] < BlackPawn) == (boards[moveNum][m[1]-ONE][m[0]-AAA] < BlackPawn)) // move is kludge to indicate castling
+	  snprintf(buf, MSG_SIZ, "%c%d%c%d,%c%d%c%d\n", m[0], m[1] - '0', // convert to two moves
+					       m[2], m[3] - '0',
+					       m[5], m[6] - '0',
+					       m[2] + (m[0] > m[5] ? 1 : -1), m[3] - '0');
+	else
+	  snprintf(buf, MSG_SIZ, "%c%d%c%d,%c%d%c%d\n", m[0], m[1] - '0', // convert to two moves
+					       m[5], m[6] - '0',
+					       m[5], m[6] - '0',
+					       m[2], m[3] - '0');
 	  SendToProgram(buf, cps);
       } else
       if(BOARD_HEIGHT > 10) { // [HGM] big: convert ranks to double-digit where needed