Add variants Cashew and Macadamia Shogi
[hachu.git] / hachu.c
diff --git a/hachu.c b/hachu.c
index 28bec4b..e3290fa 100644 (file)
--- a/hachu.c
+++ b/hachu.c
@@ -179,13 +179,14 @@ Move retMove, moveStack[20000], path[100], repStack[300], pv[1000], repeatMove[3
 #define I -3 /* jump + step         */\r
 #define D -4 /* linear double move  */\r
 #define T -5 /* linear triple move  */\r
-#define L -6 /* true Lion move      */\r
-#define W -7 /* Werewolf move       */\r
-#define F -8 /* Lion + 3-step       */\r
-#define S -9 /* Lion + range        */\r
-#define H -10 /* hook move           */\r
-#define C -11 /* capture only       */\r
-#define M -12 /* non-capture only   */\r
+#define K -6 /* triple + range      */\r
+#define L -7 /* true Lion move      */\r
+#define W -8 /* Werewolf move       */\r
+#define F -9 /* Lion + 3-step       */\r
+#define S -10 /* Lion + range        */\r
+#define H -11 /* hook move           */\r
+#define C -12 /* capture only       */\r
+#define M -13 /* non-capture only   */\r
 \r
 #define LVAL 1000 /* piece value of Lion. Used in chu for recognizing it to implement Lion-trade rules  */\r
 #define FVAL 5000 /* piece value of Fire Demon. Used in code for recognizing moves with it and do burns */\r
@@ -279,9 +280,11 @@ PieceDesc waPieces[] = {
 };\r
 \r
 PieceDesc ddPieces[] = {\r
+  {"HM", "",   10, { H,0,H,0,H,0,H,0 } }, // Hook Mover H!\r
   {"LO", "",   10, { 1,H,1,H,1,H,1,H } }, // Long-Nosed Goblin G!\r
   {"OK", "LO", 10, { 2,1,2,0,2,0,2,1 } }, // Old Kite K'\r
   {"PS", "HM", 10, { J,0,1,J,0,J,1,0 } }, // Poisonous Snake S'\r
+  {"FF", "",   10, { F,F,F,F,F,F,F,F } }, // Furious Fiend +L!\r
   {"GE", "",   10, { 3,3,5,5,3,5,5,3 } }, // Great Elephant +W!\r
   {"WS", "LD", 10, { 1,1,2,0,1,0,2,1 } }, // Western Barbarian W'\r
   {"EA", "LN", 10, { 2,1,1,0,2,0,1,1 } }, // Eastern Barbarian E'\r
@@ -294,11 +297,12 @@ PieceDesc ddPieces[] = {
   {"WB", "FT", 10, { 2,X,X,X,2,X,X,X } }, // Water Buffalo W\r
   {"RU", "FR", 10, { X,X,X,X,0,X,X,X } }, // Rushing Bird U\r
   {"SB", "",   10, { X,X,2,2,2,2,2,X } }, // Standard Bearer +N\r
-\r
   {"FH", "FK", 10, { 1,2,1,0,1,0,1,2 } }, // Flying Horse  H'\r
   {"NK", "SB", 10, { 1,1,1,1,1,1,1,1 } }, // Neighbor King N\r
+  {"RG", "",   10, { 1,1,0,1,1,1,1,1 } }, // Right General R'\r
+  {"LG", "",   10, { 1,1,1,1,1,1,0,1 } }, // Left General L'\r
   {"BM", "MW", 10, { 0,1,1,1,0,1,1,1 } }, // Blind Monkey\r
-  {"DO", "",   10, { 2,X,2,X,2,X,2,X } }, // Dove\r
+  {"DO", "",   10, { 2,5,2,5,2,5,2,5 } }, // Dove\r
   {"EB", "DO", 10, { 2,0,2,0,0,0,2,0 } }, // Enchanted Badger B'\r
   {"EF", "SD", 10, { 0,2,0,0,2,0,0,2 } }, // Enchanted Fox X'\r
   {"RA", "",   10, { X,0,X,1,X,1,X,0 } }, // Racing Chariot A\r
@@ -312,68 +316,114 @@ PieceDesc ddPieces[] = {
   {"W",  "",   10, { 0,2,0,0,0,0,0,2 } }, // Wood General V'\r
   {"CS", "DH",  70, { 0,1,0,1,0,1,0,1 } }, // Cat Sword C'\r
   {"FD", "DK", 150, { 0,2,0,2,0,2,0,2 } }, // Flying Dragon F'\r
-  {"KN", "GD", 150, { J,1,J,1,J,1,J,1 } }, // Kirin O\r
-  {"PH", "GB", 150, { 1,J,1,J,1,J,1,J } }, // Phoenix X\r
-  {"LN", "FF",  1000, { L,L,L,L,L,L,L,L } }, // lion L!\r
   {"LD", "GE", 10, { T,T,T,T,T,T,T,T } }, // Lion Dog W!\r
-  {"AB", "", 10, { 1,0,1,0,1,0,1,0 } }, // Angry Boar A'\r
-  {"B",  "", 10, { 0,X,0,X,0,X,0,X } }, // Bishop B\r
-  {"C",  "", 10, { 1,1,0,0,1,0,0,1 } }, // Copper C\r
-  {"DH", "", 10, { 1,X,1,X,1,X,1,X } }, // Dragon Horse H\r
-  {"DK", "", 10, { X,1,X,1,X,1,X,1 } }, // Dragon King D\r
-  {"FK", "", 10, {  } }, // Free King Q\r
-  {"EW", "", 10, { 1,1,1,0,0,0,1,1 } }, // Evil Wolf\r
-  {"FL", "", 10, {  } }, // \r
-  {"", "", 10, {  } }, // \r
-  {"", "", 10, {  } }, // \r
+  {"AB", "",   10, { 1,0,1,0,1,0,1,0 } }, // Angry Boar A'\r
+  {"EW", "",   10, { 1,1,1,0,0,0,1,1 } }, // Evil Wolf\r
+  {"SD", "",   10, { 5,2,5,2,5,2,5,2 } }, // She-Devil\r
+  {"GD", "",   10, { 2,3,X,3,2,3,X,3 } }, // Great Dragon\r
+  {"GO", "",   10, { X,3,2,3,X,3,2,3 } }, // Golden Bird\r
+  {"LC", "",   10, { X,0,0,X,1,0,0,X } }, // Left Chariot L'\r
+  {"RC", "",   10, { X,X,0,0,1,X,0,0 } }, // Right Chariot R'\r
+  // Chu pieces (but with different promotion)\r
+  {"LN", "FF",LVAL, { L,L,L,L,L,L,L,L }, 4 }, // lion\r
+  {"FK", "",   600, { X,X,X,X,X,X,X,X }, 4 }, // free king\r
+  {"DK", "",   400, { X,1,X,1,X,1,X,1 }, 4 }, // dragon king\r
+  {"DH", "",   350, { 1,X,1,X,1,X,1,X }, 4 }, // dragon horse\r
+  {"R",  "",   300, { X,0,X,0,X,0,X,0 }, 4 }, // rook\r
+  {"K",  "",   280, { 1,1,1,1,1,1,1,1 }, 2, 4 }, // king\r
+  {"B",  "",   250, { 0,X,0,X,0,X,0,X }, 2 }, // bishop\r
+  {"VM", "",   200, { X,0,1,0,X,0,1,0 }, 2 }, // vertical mover\r
+  {"SM", "",   200, { 1,0,X,0,1,0,X,0 }, 6 }, // side mover\r
+  {"G",  "",   151, { 1,1,1,0,1,0,1,1 }, 2 }, // gold\r
+  {"FL", "",   150, { 1,1,0,1,1,1,0,1 }, 2 }, // ferocious leopard\r
+  {"KN", "GD", 154, { J,1,J,1,J,1,J,1 }, 2 }, // kirin\r
+  {"PH", "GO", 153, { 1,J,1,J,1,J,1,J }, 2 }, // phoenix\r
+  {"RV", "",   150, { X,0,0,0,X,0,0,0 }, 1 }, // reverse chariot\r
+  {"L",  "",   150, { X,0,0,0,0,0,0,0 }, 1 }, // lance\r
+  {"S",  "",   100, { 1,1,0,1,0,1,0,1 }, 2 }, // silver\r
+  {"C",  "",   100, { 1,1,0,0,1,0,0,1 }, 2 }, // copper\r
+  {"P",  "",    40, { 1,0,0,0,0,0,0,0 }, 2 }, // pawn\r
   {"", "", 10, {  } }, // \r
   {"", "", 10, {  } }, // \r
   { NULL }  // sentinel\r
 };\r
 \r
 PieceDesc makaPieces[] = {\r
-  {"DV", "TK", 10, { 0,1,0,1,0,0,1,1 } }, // Deva\r
-  {"DS", "BS", 10, { 0,1,1,0,0,1,0,1 } }, // Dark Spirit\r
-  {"T",  "fT", 10, { 0,1,0,0,1,0,0,1 } }, // Tile General\r
-  {"CS", "fS", 10, { 1,0,0,1,1,1,0,0 } }, // Coiled Serpent\r
-  {"RD", "fD", 10, { 1,0,1,1,1,1,1,0 } }, // Reclining Dragon\r
-  {"CC", "WS", 10, { 0,1,1,0,1,0,1,1 } }, // Chinese Cock\r
-  {"OM", "MW", 10, { 0,1,0,1,1,1,0,1 } }, // Old Monkey\r
-  {"BB", "fB", 10, { 0,1,0,1,X,1,0,1 } }, // Blind Bear\r
-  {"OR", "BA", 10, { 0,2,0,0,2,0,0,2 } }, // Old Rat\r
+  {"DV", "TK", 10, { 0,1,0,1,0,0,1,1 } }, // Deva I'\r
+  {"DS", "BS", 10, { 0,1,1,0,0,1,0,1 } }, // Dark Spirit J'\r
+  {"T",  "fT", 10, { 0,1,0,0,1,0,0,1 } }, // Tile General Y\r
+  {"CO", "fS", 10, { 1,0,0,1,1,1,0,0 } }, // Coiled Serpent S!\r
+  {"RD", "fD", 10, { 1,0,1,1,1,1,1,0 } }, // Reclining Dragon D!\r
+  {"CC", "WS", 10, { 0,1,1,0,1,0,1,1 } }, // Chinese Cock N'\r
+  {"OM", "MW", 10, { 0,1,0,1,1,1,0,1 } }, // Old Monkey M'\r
+  {"BB", "fB", 10, { 0,1,0,1,X,1,0,1 } }, // Blind Bear B'\r
+  {"OR", "BA", 10, { 0,2,0,0,2,0,0,2 } }, // Old Rat O'\r
   {"LD", "WS", 10, { T,T,T,T,T,T,T,T } }, // Lion Dog W!\r
-  {"WR", "G", 10, { 0,3,1,3,0,3,1,3 } }, // Wrestler\r
-  {"GG", "G", 10, { 3,1,3,0,3,0,3,1 } }, // Guardian of the Gods\r
-  {"BD", "G", 10, { 0,3,1,0,1,0,1,3 } }, // Budhist Devil\r
-  {"SD", "G", 10, { 5,2,5,2,5,2,5,2 } }, // She-Devil\r
-  {"DY", "G", 10, { J,0,1,0,J,0,1,0 } }, // Donkey\r
+  {"WR", "G", 10, { 0,3,1,3,0,3,1,3 } }, // Wrestler W'\r
+  {"GG", "G", 10, { 3,1,3,0,3,0,3,1 } }, // Guardian of the Gods G'\r
+  {"BD", "G", 10, { 0,3,1,0,1,0,1,3 } }, // Budhist Devil D'\r
+  {"SD", "G", 10, { 5,2,5,2,5,2,5,2 } }, // She-Devil S'\r
+  {"DY", "G", 10, { J,0,1,0,J,0,1,0 } }, // Donkey Y'\r
   {"CA", "G", 10, { 0,H,0,2,0,2,0,H } }, // Capricorn C!\r
   {"HM", "G", 10, { H,0,H,0,H,0,H,0 } }, // Hook Mover H!\r
-  {"SF", "G", 10, { 0,1,X,1,0,1,0,1 } }, // Side Flier\r
-  {"LC", "G", 10, { X,0,0,X,1,0,0,X } }, // Left Chariot L!\r
-  {"RC", "G", 10, { X,X,0,0,1,X,0,0 } }, // Right Chariot R!\r
-  {"fG", "", 10, { X,X,X,0,X,0,X,X } }, // Free Gold\r
-  {"fS", "", 10, { X,X,0,X,0,X,0,X } }, // Free Silver\r
-  {"WH", "", 10, { X,X,0,0,X,0,0,X } }, // Free Copper\r
-  {"fI", "", 10, { X,X,0,0,0,0,0,X } }, // Free Iron\r
-  {"fY", "", 10, { 0,X,0,0,X,0,0,X } }, // Free Tile\r
-  {"fU", "", 10, { 0,X,0,0,0,0,0,X } }, // Free Stone\r
-  {"fT", "", 10, { 0,X,X,X,X,X,X,X } }, // Free Tiger\r
-  {"fL", "", 10, { X,X,0,X,X,X,0,X } }, // Free Leopard (Free Boar?)\r
-  {"WL", "", 10, { X,0,0,X,X,X,0,0 } }, // Free Serpent (Whale?)\r
-  {"fD", "", 10, { X,0,X,X,X,X,X,0 } }, // Free Dragon\r
-  {"B",  "", 10, { 0,X,0,X,0,X,0,X } }, // Free Cat (Bishop?)\r
-  {"EM", "", 10, {  } }, // Emperor\r
-  {"TK", "", 10, {  } }, // Teaching King\r
-  {"BS", "", 10, {  } }, // Budhist Spirit\r
-  {"WS", "", 10, { X,X,0,X,1,X,0,X } }, // Wizard Stork\r
-  {"MW", "", 10, { 1,X,0,X,X,X,0,X } }, // Mountain Witch\r
-  {"FF", "", 10, {  } }, // Furious Fiend\r
-  {"GD", "", 10, { 2,3,X,3,2,3,X,3 } }, // Great Dragon\r
-  {"GB", "", 10, { X,3,2,3,X,3,2,3 } }, // Golden Bird\r
-  {"fW", "", 10, {  } }, // Free Wolf\r
-  {"fB", "", 10, {  } }, // Free Bear\r
-  {"BA", "", 10, { X,0,0,X,0,X,0,0 } }, // Bat\r
+  {"SF", "G", 10, { 0,1,X,1,0,1,0,1 } }, // Side Flier F!\r
+  {"LC", "G", 10, { X,0,0,X,1,0,0,X } }, // Left Chariot L'\r
+  {"RC", "G", 10, { X,X,0,0,1,X,0,0 } }, // Right Chariot R'\r
+  {"fT", "", 10, { 0,X,X,X,X,X,X,X } }, // Free Tiger +T\r
+  {"fD", "", 10, { X,0,X,X,X,X,X,0 } }, // Free Dragon +D!\r
+  {"fG", "", 10, { X,X,X,0,X,0,X,X } }, // Free Gold +G\r
+  {"fS", "", 10, { X,X,0,X,0,X,0,X } }, // Free Silver +S\r
+  {"fI", "", 10, { X,X,0,0,0,0,0,X } }, // Free Iron +I\r
+  {"fY", "", 10, { 0,X,0,0,X,0,0,X } }, // Free Tile +Y\r
+  {"fU", "", 10, { 0,X,0,0,0,0,0,X } }, // Free Stone +U\r
+  {"EM", "", 10, { 0,0,0,0,0,0,0,0 } }, // Emperor +K\r
+  {"TK", "", 10, { K,K,K,K,K,K,K,K } }, // Teaching King +I'\r
+  {"BS", "", 10, { S,S,S,S,S,S,S,S } }, // Budhist Spirit +J'\r
+  {"WS", "", 10, { X,X,0,X,1,X,0,X } }, // Wizard Stork +N'\r
+  {"MW", "", 10, { 1,X,0,X,X,X,0,X } }, // Mountain Witch +M'\r
+  {"FF", "", 10, { F,F,F,F,F,F,F,F } }, // Furious Fiend +L!\r
+  {"GD", "", 10, { 2,3,X,3,2,3,X,3 } }, // Great Dragon +W!\r
+  {"GO", "", 10, { X,3,2,3,X,3,2,3 } }, // Golden Bird +X\r
+  {"fW", "", 10, { X,X,X,0,0,0,X,X } }, // Free Wolf +W\r
+  {"BA", "", 10, { X,0,0,X,0,X,0,0 } }, // Bat +O'\r
+  {"FD", "G", 150, { 0,2,0,2,0,2,0,2 }, 2 }, // Flying Dragon\r
+  // Dai pieces with different promotion\r
+  {"FD", "G", 150, { 0,2,0,2,0,2,0,2 }, 2 }, // Flying Dragon\r
+  {"VO", "G", 200, { 2,0,2,0,2,0,2,0 }, 2 }, // Violent Ox\r
+  {"EW", "fW", 80, { 1,1,1,0,0,0,1,1 }, 2 }, // Evil Wolf\r
+  {"CS", "B",  70, { 0,1,0,1,0,1,0,1 }, 1 }, // Cat Sword\r
+  {"AB", "FB", 60, { 1,0,1,0,1,0,1,0 }, 1 }, // Angry Boar\r
+  {"T",  "fY", 80, { 0,1,0,0,1,0,0,1 }, 2 }, // Tile\r
+  {"I",  "fI", 80, { 1,1,0,0,0,0,0,1 }, 2 }, // Iron\r
+  {"N",  "G",  60, { N,0,0,0,0,0,0,N }, 0 }, // Knight\r
+  {"SG", "fU", 50, { 0,1,0,0,0,0,0,1 }, 0 }, // Stone\r
+  // Chu pieces (but with different promotion)\r
+  {"LN", "FF",LVAL, { L,L,L,L,L,L,L,L }, 4 }, // lion\r
+  {"FK", "",   600, { X,X,X,X,X,X,X,X }, 4 }, // free king\r
+  {"FO", "",   400, { X,X,0,X,X,X,0,X }, 4 }, // flying ox (free leopard)\r
+  {"FB", "",   400, { 0,X,X,X,0,X,X,X }, 4 }, // free boar\r
+  {"DK", "",   400, { X,1,X,1,X,1,X,1 }, 4 }, // dragon king\r
+  {"DH", "",   350, { 1,X,1,X,1,X,1,X }, 4 }, // dragon horse\r
+  {"WH", "",   350, { X,X,0,0,X,0,0,X }, 3 }, // white horse (free copper)\r
+  {"R",  "G",  300, { X,0,X,0,X,0,X,0 }, 4 }, // rook\r
+  {"WL", "",   250, { X,0,0,X,X,X,0,0 }, 4 }, // whale (free serpent)\r
+  {"K",  "EM", 280, { 1,1,1,1,1,1,1,1 }, 2, 4 }, // king\r
+  {"CP", "",   270, { 1,1,1,1,1,1,1,1 }, 2, 4 }, // king\r
+  {"B",  "G",  250, { 0,X,0,X,0,X,0,X }, 2 }, // bishop\r
+  {"VM", "G",  200, { X,0,1,0,X,0,1,0 }, 2 }, // vertical mover\r
+  {"SM", "G",  200, { 1,0,X,0,1,0,X,0 }, 6 }, // side mover\r
+  {"DE", "CP", 201, { 1,1,1,1,0,1,1,1 }, 2 }, // drunk elephant\r
+  {"BT", "fT", 152, { 0,1,1,1,1,1,1,1 }, 2 }, // blind tiger\r
+  {"G",  "fG", 151, { 1,1,1,0,1,0,1,1 }, 2 }, // gold\r
+  {"FL", "FO", 150, { 1,1,0,1,1,1,0,1 }, 2 }, // ferocious leopard\r
+  {"KN", "GD", 154, { J,1,J,1,J,1,J,1 }, 2 }, // kirin\r
+  {"PH", "GB", 153, { 1,J,1,J,1,J,1,J }, 2 }, // phoenix\r
+  {"RV", "G",  150, { X,0,0,0,X,0,0,0 }, 1 }, // reverse chariot\r
+  {"L",  "G",  150, { X,0,0,0,0,0,0,0 }, 1 }, // lance\r
+  {"S",  "fS", 100, { 1,1,0,1,0,1,0,1 }, 2 }, // silver\r
+  {"C",  "WH", 100, { 1,1,0,0,1,0,0,1 }, 2 }, // copper\r
+  {"GB", "RV",  50, { 1,0,0,0,1,0,0,0 }, 1 }, // go between\r
+  {"P",  "G",   40, { 1,0,0,0,0,0,0,0 }, 2 }, // pawn\r
   {"", "", 10, {  } }, // \r
   { NULL }  // sentinel\r
 };\r
@@ -481,6 +531,10 @@ char tenArray[] = "lnficsgekgscifnl/a1c!c!1txql!ot1c!c!1a/s'v'bhdw!d!q!h!d!w!dhb
                  "16/16/16/16/"\r
                  "4D6D4/PPPPPPPPPPPPPPPP/MVRF!E!B!R!Q!V!R!B!E!F!RVM/"\r
                  "S'V'BHDW!D!H!Q'D!W!DHBV'S'/A1C!C!TOL!QXT1C!C!1A/LNFICSGKEGSCIFNL";\r
+char cashewArray[]= "lh!f'dh'j'ki'qc'hg!l/t!p'w!+oogngx+xl!k'd!/r've'fst'+nt'sfw'vl'/ppppppppppppp/3d'5d'3/13/"\r
+                   "13/13/3D'5D'3/PPPPPPPPPPPPP/L'VW'FST'+NT'SFE'VR'/D!K'L!+XXGNGO+OW!P'T!/LG!HC'QI'KJ'H'DF'H!L";\r
+char macadArray[] = "lxcsgi'kj'gscol/1f'1w!1tet1l!1f'1/rr'g'bdh!qc!dbw'l'r/ppppppppppppp/3p'5p'3/13/"\r
+                   "13/13/3P'5P'3/PPPPPPPPPPPPP/RL'W'BDC!QH!DBG'R'R/1F'1L!1TET1W!1F'1/LOCSGI'KJ'GSCXL";\r
 char shoArray[]   = "lnsgkgsnl/1r2e2b1/ppppppppp/9/9/9/PPPPPPPPP/1B2E2R1/LNSGKGSNL";\r
 char waArray[]    = "hmlcvkwgudo/1e3s3f1/ppprpppxppp/3p3p3/11/11/11/3P3P3/PPPXPPPRPPP/1F3S3E1/ODUGWKVCLMH";\r
 char chessArray[] = "rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR";\r
@@ -504,8 +558,8 @@ char makaIDs[]  = "RVB C DKDEFLG DHI ..K L SMN KNP FKR S BTSG..EWPHT .."  // L (
                   "ABBBCSBDE FDGG  DVDS  LCBMCCORGB  RCSD      WRVODY  "  // L'\r
                   "    CARD      HM      LN            CO    VMLD      "; // L!\r
 char dadaIDs[]  = "RVB C DKEFFLG DHI ..K L SMNKKNP FKR S ..SGVBEWPH...."  // L (also for Cashew)\r
-                  "ABEBCSHDEBFDPRFHLGRGOKLCOMNBORPS  RCSBST  W WBVO    "  // L'\r
-                  "RAWB  BD    GOHM      LN        SQ    WTRUVMLD      "; // L!\r
+                  "ABEBCSHDEAFDPRFHLGRGOKLCOMNOORPS  RCSOST  W WSVO    "  // L'\r
+                  "RAWB  BD    LGHM      LN        SQ    WTRUVMLD      "; // L!\r
 \r
 typedef struct {\r
   int boardWidth, boardFiles, boardRanks, zoneDepth, varNr; // board sizes\r
@@ -514,7 +568,8 @@ typedef struct {
   char *IDs;\r
 } VariantDesc;\r
 \r
-typedef enum { V_CHESS, V_SHO, V_CHU, V_DAI, V_DADA, V_MAKA, V_TAI, V_KYOKU, V_TENJIKU, V_SHATRANJ, V_MAKRUK, V_LION, V_WA, V_WOLF } Variant;\r
+typedef enum { V_CHESS, V_SHO, V_CHU, V_DAI, V_DADA, V_MAKA, V_TAI, V_KYOKU, V_TENJIKU,\r
+              V_CASHEW, V_MACAD, V_SHATRANJ, V_MAKRUK, V_LION, V_WA, V_WOLF } Variant;\r
 \r
 #define SAME (-1)\r
 \r
@@ -529,7 +584,9 @@ VariantDesc variants[] = {
   { 16,  8,  8, 3, V_MAKRUK,  "makruk",  thaiArray, chessIDs},  // Makruk\r
   { 16,  8,  8, 1, V_LION,    "lion",    lionArray, chessIDs},  // Mighty Lion\r
   { 22, 11, 11, 3, V_WA,      "wa-shogi", waArray,  waIDs},     // Wa\r
-  { 16,  8,  8, 1, V_WOLF,    "werewolf",wolfArray, chessIDs},  // Wa\r
+  { 16,  8,  8, 1, V_WOLF,    "werewolf",wolfArray, chessIDs},  // Werewolf Chess\r
+  { 26, 13, 13,13, V_CASHEW, "cashew-shogi",    cashewArray, dadaIDs },  // Cashew\r
+  { 26, 13, 13,13, V_MACAD,  "macadamia-shogi", macadArray,  makaIDs },  // Macadamia\r
 \r
   { 0, 0, 0, 0, 0 }, // sentinel\r
   { 34, 17, 17, 0, V_DADA,    "dada",    chuArray }, // Dai Dai\r
@@ -727,6 +784,10 @@ LookUp (char *name, int var)
       return ListLookUp(name, waPieces);\r
     case V_WOLF: // Werewolf\r
       return ListLookUp(name, wolfPieces);\r
+    case V_CASHEW: // Cashew\r
+      return ListLookUp(name, ddPieces);\r
+    case V_MACAD: // Cashew\r
+      return ListLookUp(name, makaPieces);\r
   }\r
   return NULL;\r
 }\r
@@ -885,8 +946,8 @@ AddPiece (int stm, PieceDesc *list)
 void\r
 SetUp (char *array, int var)\r
 {\r
-  int i, j, n, m, color;\r
-  char c, name[3], prince = 0;\r
+  int i, j, n, m, color, c;\r
+  char name[3], prince = 0;\r
   PieceDesc *p1, *p2;\r
   last[WHITE] = 1; last[BLACK] = 0;\r
   royal[WHITE] = royal[BLACK] = 0;\r
@@ -914,7 +975,7 @@ SetUp (char *array, int var)
       name[1] = IDs[2*(c - 'A') + 1]; if(name[1] == ' ') name[1] = 0;\r
       if(!strcmp(name, "CP") || pflag && !strcmp(name, "DE")) prince |= color+1; // remember if we added Crown Prince\r
       p1 = LookUp(name, var);\r
-      if(!p1) printf("tellusererror Unknown piece '%s' in setup\n", name), exit(-1);\r
+      if(!p1) printf("tellusererror Unknown piece '%s' in setup (%d)\n", name, c), exit(-1);\r
       if(pflag && p1->promoted) p1 = LookUp(p1->promoted, var); // use promoted piece instead\r
       n = AddPiece(color, p1);\r
       p[n].pos = j;\r
@@ -1239,7 +1300,7 @@ GenNonCapts (int promoSuppress)
     for(j=0; j<8; j++) {\r
       int y, v = kStep[j], r = p[i].range[j];\r
       if(r < 0) { // jumping piece, special treatment\r
-       if(r == N) { // pure Knightm do off-ray jump\r
+       if(r == N) { // pure Knight, do off-ray jump\r
          NewNonCapture(x, x + nStep[j], pFlag);\r
        } else\r
        if(r >= S) { // in any case, do a jump of 2\r
@@ -1251,6 +1312,10 @@ GenNonCapts (int promoSuppress)
              v = nStep[j];\r
              if(r != W) NewNonCapture(x, x + v, pFlag);\r
            } else if(r == T) NewNonCapture(x, x+3*v, pFlag); // Lion Dog, also triple step\r
+           else if(r == K) {\r
+             occup |= NewNonCapture(x, x+3*v, pFlag); // Lion Dog, also triple step\r
+             if(!occup) for(y=x+3*v; !NewNonCapture(x, y+=v, pFlag); ); // TK moves\r
+           }\r
          } else if(r == I) NewNonCapture(x, x + v, pFlag); // also do step\r
        } else\r
        if(r == M) { // FIDE Pawn; check double-move\r
@@ -1294,9 +1359,20 @@ MapOneColor (int start, int last, int *map)
            if(board[x + v] != EMPTY && board[x + v] != EDGE)\r
              map[2*(x + v) + start] += one[j];\r
            if(r < I) {\r
-           if(r == T) { // Lion Dog, also jump of 3\r
+           if(r == T || r == K) { // Lion Dog, also jump of 3\r
              if(board[x + 3*v] != EMPTY && board[x + 3*v] != EDGE)\r
                map[2*(x + 3*v) + start] += one[j];\r
+             if(r == K) { // also range (Teaching King)\r
+               int y = x, n = 0;\r
+               while(1) {\r
+                 if(board[y+=v] == EDGE) break;\r
+                 if(board[y] != EMPTY) {\r
+                   if(n > 2) map[2*y + start] += one[j]; // outside Lion range\r
+                   break;\r
+                 }\r
+                 n++;\r
+               }\r
+             }\r
            } else\r
            if(r <= L) {  // true Lion, also Knight jump\r
              if(r < L) { // Lion plus (limited) range\r
@@ -1634,6 +1710,7 @@ GenCapts (int sqr, int victimValue)
              }\r
              break;\r
            case T: // Lion-Dog move (awful!)\r
+           case K:\r
              if(d > 3) break;\r
              NewCapture(x, sqr + victimValue - SORTKEY(attacker), p[attacker].promoFlag);\r
              att -= one[i];\r
@@ -1697,7 +1774,7 @@ GenCapts (int sqr, int victimValue)
 //printf("mask[%d] = %o\n", i, att);\r
        if((att & attackMask[i]) == 0) break;\r
       }\r
-      // more attacks to come; san for next stop\r
+      // more attacks to come; scan for next stop\r
       if(jcapt < p[board[x]].qval) jcapt = p[board[x]].qval; // raise barrier for range jumpers further upstream\r
       while(board[x+=v] == EMPTY); // this should never run off-board, if the attack map is not corrupted\r
       } while(1);\r
@@ -3006,6 +3083,14 @@ pboard(board);
                    "piece +P& WfF\npiece +O& K\npiece +H& vN\npiece +U& BfW\npiece +L& vRfF3bFsW\npiece +M& FfW\npiece +G& sRvW\npiece +C& vRsWfF\n"\r
                    "piece D& sbWfF\npiece V& FfW\npiece W& WfF\npiece S& sRvW\npiece R& FfRbW\npiece F& BfW\npiece X& FvWAvD\n"\r
                    "piece +D& WfF\npiece +V& FfsW\npiece +W& K\npiece +S& R\npiece +R& FvWAvD\npiece +F& BvRsW\npiece E& vRfF3bFsW\n");\r
+          if(currentVariant == V_MACAD)\r
+            printf("setup (P.*B*RQSEXOG....D^J'..*LP'.L!J'...*W!...*F'...^C.C.^L!.^P'^K.T*L'.*C!*H!^I'.^E...*R'^P^T*W'*G'^G^SI'^X^OK"\r
+                          "p.*b*rqsexog....d^j'..*lp'.l!j'...*w!...*f'...^c.c.^l!.^p'^k.t*l'.*c!*h!^i'.^e...*r'^p^t*w'*g'^g^si'^x^ok) 13x13+0_chu "\r
+                         "%s w 0 1\n", macadArray);\r
+          if(currentVariant == V_CASHEW)\r
+            printf("setup (P.^K'^S'QS.XOGND'.HDT!...P'.L!E'.^EK'W!..LF'V^W'J'H'...^L!^N..FT'L'C'G!H!D!I'.^H'..R'..^C'^F'..W'^X^OK"\r
+                          "p.^k'^s'qs.xognd'.hdt!...p'.l!e'.^ek'w!..lf'v^w'j'h'...^l!^n..ft'l'c'g!h!d!i'.^h'..r'..^c'^f'..w'^x^ok) 13x13+0_chu "\r
+                         "%s w 0 1\n", cashewArray);\r
          repStack[199] = hashKeyH, checkStack[199] = 0;\r
           continue;\r
         }\r