Change Setup routine to read (dressed) 1-letter piece IDs
[hachu.git] / hachu.c
diff --git a/hachu.c b/hachu.c
index 98b776e..44a6de2 100644 (file)
--- a/hachu.c
+++ b/hachu.c
@@ -160,7 +160,7 @@ typedef struct {
   char fireMask;\r
 } UndoInfo;\r
 \r
-char *array, fenArray[4000], startPos[4000], *reason, checkStack[300];\r
+char *array, *IDs, fenArray[4000], startPos[4000], *reason, checkStack[300];\r
 int bWidth, bHeight, bsize, zone, currentVariant, chuFlag, tenFlag, chessFlag, repDraws, stalemate;\r
 int tsume, pvCuts, allowRep, entryProm, okazaki, pVal;\r
 int stm, xstm, hashKeyH=1, hashKeyL=1, framePtr, msp, nonCapts, rootEval, filling, promoDelta;\r
@@ -247,81 +247,81 @@ PieceDesc daiPieces[] = {
   {"AB", "G",  60, { 1,0,1,0,1,0,1,0 }, 1 }, // Angry Boar\r
   {"I",  "G",  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
-  {"ST", "G",  50, { 0,1,0,0,0,0,0,1 }, 0 }, // Stone\r
+  {"SG", "G",  50, { 0,1,0,0,0,0,0,1 }, 0 }, // Stone\r
   { NULL }  // sentinel\r
 };\r
 \r
 PieceDesc waPieces[] = {\r
   {"TE", "",   720, { X,X,1,X,X,X,1,X }, 4 }, // Tenacious Falcon\r
   {"GS", "",   500, { X,0,X,0,X,0,X,0 }, 4 }, // Gliding Swallow (R)\r
-  {"DE", "",   430, { X,3,1,1,X,1,1,3 }, 3 }, // Cloud Eagle\r
+  {"CE", "",   430, { X,3,1,1,X,1,1,3 }, 3 }, // Cloud Eagle\r
   {"K",  "",   410, { 1,1,1,1,1,1,1,1 }, 2 }, // Crane King (K)\r
-  {"BT", "",   390, { I,I,0,I,I,I,0,I }, 4 }, // Treacherous Fox\r
-  {"FL", "TE", 380, { 1,X,0,X,0,X,0,X }, 4 }, // Flying Falcon\r
-  {"FS", "",   290, { X,1,1,0,X,0,1,1 }, 3 }, // Raiding Falcon\r
-  {"S",  "GS", 260, { 1,0,X,0,1,0,X,0 }, 6 }, // Swallow's Wing (SM)\r
+  {"TF", "",   390, { I,I,0,I,I,I,0,I }, 4 }, // Treacherous Fox\r
+  {"FF", "TE", 380, { 1,X,0,X,0,X,0,X }, 4 }, // Flying Falcon\r
+  {"RF", "",   290, { X,1,1,0,X,0,1,1 }, 3 }, // Raiding Falcon\r
+  {"SW", "GS", 260, { 1,0,X,0,1,0,X,0 }, 6 }, // Swallow's Wing (SM)\r
   {"PO", "",   260, { 1,1,1,1,1,1,1,1 }, 2 }, // Plodding Ox (K)\r
-  {"R",  "BT", 260, { X,1,0,1,1,1,0,1 }, 2 }, // Running Rabit\r
-  {"B",  "",   240, { 1,1,1,1,0,1,1,1 }, 2 }, // Roaming Boar\r
+  {"RR", "TF", 260, { X,1,0,1,1,1,0,1 }, 2 }, // Running Rabit\r
+  {"RB", "",   240, { 1,1,1,1,0,1,1,1 }, 2 }, // Roaming Boar\r
   {"HH", "",   220, { N,0,0,N,N,0,0,N }, 1 }, // Heavenly Horse\r
-  {"EW", "PO", 220, { 1,1,1,0,1,0,1,1 }, 2 }, // Violent Wolf (G)\r
-  {"VM", "B",  200, { 1,1,0,1,0,1,0,1 }, 2 }, // Violent Stag (S)\r
-  {"G",  "S",  190, { 1,1,0,0,1,0,0,1 }, 2 }, // Flying Goose (C)\r
-  {"SM", "VM", 175, { 1,1,0,0,1,0,0,1 }, 2 }, // Climbing Monkey (C)\r
-  {"DH", "HH", 170, { X,0,0,0,2,0,0,0 }, 1 }, // Liberated Horse\r
-  {"DK", "EW", 150, { 0,1,1,0,1,0,1,1 }, 2 }, // Blind Dog\r
-  {"PH", "PO", 150, { X,0,0,0,0,0,0,0 }, 1 }, // Oxcart (L)\r
-  {"L",  "FS", 130, { 0,1,1,0,0,0,1,1 }, 2 }, // Flying Cock\r
-  {"KN", "DE", 115, { 1,0,0,1,0,1,0,0 }, 2 }, // Swooping Owl\r
-  {"C",  "FL", 105, { 1,0,0,1,0,1,0,0 }, 2 }, // Strutting Crow\r
-  {"P",  "EW",  80, { 1,0,0,0,0,0,0,0 }, 2 }, // Sparrow Pawn (P)\r
+  {"VW", "PO", 220, { 1,1,1,0,1,0,1,1 }, 2 }, // Violent Wolf (G)\r
+  {"VS", "RB", 200, { 1,1,0,1,0,1,0,1 }, 2 }, // Violent Stag (S)\r
+  {"FG", "SW", 190, { 1,1,0,0,1,0,0,1 }, 2 }, // Flying Goose (C)\r
+  {"CM", "VS", 175, { 1,1,0,0,1,0,0,1 }, 2 }, // Climbing Monkey (C)\r
+  {"LH", "HH", 170, { X,0,0,0,2,0,0,0 }, 1 }, // Liberated Horse\r
+  {"BD", "VW", 150, { 0,1,1,0,1,0,1,1 }, 2 }, // Blind Dog\r
+  {"OC", "PO", 150, { X,0,0,0,0,0,0,0 }, 1 }, // Oxcart (L)\r
+  {"FC", "RF", 130, { 0,1,1,0,0,0,1,1 }, 2 }, // Flying Cock\r
+  {"SO", "CE", 115, { 1,0,0,1,0,1,0,0 }, 2 }, // Swooping Owl\r
+  {"SC", "FF", 105, { 1,0,0,1,0,1,0,0 }, 2 }, // Strutting Crow\r
+  {"P",  "VW",  80, { 1,0,0,0,0,0,0,0 }, 2 }, // Sparrow Pawn (P)\r
   { NULL }  // sentinel\r
 };\r
 \r
 PieceDesc ddPieces[] = {\r
-  {"LO", "",   10, { 1,H,1,H,1,H,1,H } }, // Long-Nosed Goblin\r
-  {"OK", "LO", 10, { 2,1,2,0,2,0,2,1 } }, // Old Kite\r
-  {"PS", "HM", 10, { J,0,1,J,0,J,1,0 } }, // Poisonous Snake\r
-  {"GE", "",   10, { 3,3,5,5,3,5,5,3 } }, // Great Elephant\r
-  {"WS", "LD", 10, { 1,1,2,0,1,0,2,1 } }, // Western Barbarian\r
-  {"EA", "LN", 10, { 2,1,1,0,2,0,1,1 } }, // Eastern Barbarian\r
-  {"NO", "FE", 10, { 0,2,1,1,0,1,1,2 } }, // Northern Barbarian\r
-  {"SO", "WE", 10, { 0,1,1,2,0,2,1,1 } }, // Southern Barbarian\r
-  {"FE", "",   10, { 2,X,2,2,2,2,2,X } }, // Fragrant Elephant\r
-  {"WE", "",   10, { 2,2,2,X,2,X,2,2 } }, // White Elephant\r
-  {"FT", "",   10, { X,X,5,0,X,0,5,X } }, // Free Dream-Eater\r
-  {"FR", "",   10, { 5,X,X,0,5,0,X,X } }, // Free Demon\r
-  {"WB", "FT", 10, { 2,X,X,X,2,X,X,X } }, // Water Buffalo\r
-  {"RB", "FR", 10, { X,X,X,X,0,X,X,X } }, // Rushing Bird\r
-  {"SB", "",   10, { X,X,2,2,2,2,2,X } }, // Standard Bearer\r
-\r
-  {"FH", "FK", 10, { 1,2,1,0,1,0,1,2 } }, // Flying Horse\r
-  {"NK", "SB", 10, { 1,1,1,1,1,1,1,1 } }, // Neighbor King\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
+  {"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
+  {"NO", "FE", 10, { 0,2,1,1,0,1,1,2 } }, // Northern Barbarian N'\r
+  {"SO", "WE", 10, { 0,1,1,2,0,2,1,1 } }, // Southern Barbarian S'\r
+  {"FE", "",   10, { 2,X,2,2,2,2,2,X } }, // Fragrant Elephant +N'\r
+  {"WE", "",   10, { 2,2,2,X,2,X,2,2 } }, // White Elephant +S'\r
+  {"FT", "",   10, { X,X,5,0,X,0,5,X } }, // Free Dream-Eater +W\r
+  {"FR", "",   10, { 5,X,X,0,5,0,X,X } }, // Free Demon +U\r
+  {"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
   {"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
-  {"EB", "DO", 10, { 2,0,2,0,0,0,2,0 } }, // Enchanted Badger\r
-  {"EF", "SD", 10, { 0,2,0,0,2,0,0,2 } }, // Enchanted Fox\r
-  {"RA", "",   10, { X,0,X,1,X,1,X,0 } }, // Racing Chariot\r
-  {"SQ", "",   10, { X,1,X,0,X,0,X,1 } }, // Square Mover\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
+  {"SQ", "",   10, { X,1,X,0,X,0,X,1 } }, // Square Mover Q'\r
   {"PR", "SQ", 10, { 1,1,2,1,0,1,2,1 } }, // Prancing Stag\r
-  {"WT", "",   10, { X,1,2,0,X,0,2,X } }, // White Tiger\r
-  {"BD", "",   10, { 2,X,X,0,2,0,X,1 } }, // Blue Dragon\r
-  {"HD", "",   10, { X,0,0,0,1,0,0,0 } }, // Howling Dog\r
-  {"VB", "",   10, { 0,2,1,0,0,0,1,2 } }, // Violent Bear\r
-  {"SA", "",   10, { 2,1,0,0,2,0,0,1 } }, // Savage Tiger\r
-  {"W",  "",   10, { 0,2,0,0,0,0,0,2 } }, // Wood\r
-  {"CS", "DH",  70, { 0,1,0,1,0,1,0,1 } }, // cat sword\r
-  {"FD", "DK", 150, { 0,2,0,2,0,2,0,2 } }, // flying dragon\r
-  {"KN", "GD", 150, { J,1,J,1,J,1,J,1 } }, // kirin\r
-  {"PH", "GB", 150, { 1,J,1,J,1,J,1,J } }, // phoenix\r
-  {"LN", "FF",  1000, { L,L,L,L,L,L,L,L } }, // lion\r
-  {"LD", "GE", 10, { T,T,T,T,T,T,T,T } }, // Lion Dog\r
-  {"AB", "", 10, { 1,0,1,0,1,0,1,0 } }, // Angry Boar\r
-  {"B",  "", 10, { 0,X,0,X,0,X,0,X } }, // Bishop\r
-  {"C",  "", 10, { 1,1,0,0,1,0,0,1 } }, // Copper\r
-  {"DH", "", 10, { 1,X,1,X,1,X,1,X } }, // Dragon Horse\r
-  {"DK", "", 10, { X,1,X,1,X,1,X,1 } }, // Dragon King\r
-  {"FK", "", 10, {  } }, // \r
+  {"WT", "",   10, { X,1,2,0,X,0,2,X } }, // White Tiger T!\r
+  {"BD", "",   10, { 2,X,X,0,2,0,X,1 } }, // Blue Dragon D!\r
+  {"HD", "",   10, { X,0,0,0,1,0,0,0 } }, // Howling Dog D'\r
+  {"VB", "",   10, { 0,2,1,0,0,0,1,2 } }, // Violent Bear V\r
+  {"ST", "",   10, { 2,1,0,0,2,0,0,1 } }, // Savage Tiger T'\r
+  {"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
@@ -332,37 +332,37 @@ PieceDesc ddPieces[] = {
 };\r
 \r
 PieceDesc makaPieces[] = {\r
-  {"DV", "", 10, { 0,1,0,1,0,0,1,1 } }, // Deva\r
-  {"DS", "", 10, { 0,1,1,0,0,1,0,1 } }, // Dark Spirit\r
-  {"T",  "", 10, { 0,1,0,0,1,0,0,1 } }, // Tile\r
-  {"CS", "", 10, { 1,0,0,1,1,1,0,0 } }, // Coiled Serpent\r
-  {"RD", "", 10, { 1,0,1,1,1,1,1,0 } }, // Reclining Dragon\r
-  {"CC", "", 10, { 0,1,1,0,1,0,1,1 } }, // Chinese Cock\r
-  {"OM", "", 10, { 0,1,0,1,1,1,0,1 } }, // Old Monkey\r
-  {"BB", "", 10, { 0,1,0,1,X,1,0,1 } }, // Blind Bear\r
-  {"OR", "", 10, { 0,2,0,0,2,0,0,2 } }, // Old Rat\r
-  {"LD", "WS", 10, { T,T,T,T,T,T,T,T } }, // Lion Dog\r
-  {"WR", "", 10, { 0,3,1,3,0,3,1,3 } }, // Wrestler\r
-  {"GG", "", 10, { 3,1,3,0,3,0,3,1 } }, // Guardian of the Gods\r
-  {"BD", "", 10, { 0,3,1,0,1,0,1,3 } }, // Budhist Devil\r
-  {"SD", "", 10, { 5,2,5,2,5,2,5,2 } }, // She-Devil\r
-  {"DY", "", 10, { J,0,1,0,J,0,1,0 } }, // Donkey\r
-  {"CP", "", 10, { 0,H,0,2,0,2,0,H } }, // Capricorn\r
-  {"HM", "", 10, { H,0,H,0,H,0,H,0 } }, // Hook Mover\r
-  {"SF", "", 10, { 0,1,X,1,0,1,0,1 } }, // Side Flier\r
-  {"LC", "", 10, { X,0,0,X,1,0,0,X } }, // Left Chariot\r
-  {"RC", "", 10, { X,X,0,0,1,X,0,0 } }, // Right Chariot\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
-  {"FC", "", 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
-  {"FT", "", 10, { 0,X,0,0,X,0,0,X } }, // Free Tile\r
-  {"FN", "", 10, { 0,X,0,0,0,0,0,X } }, // Free Stone\r
-  {"FTg", "", 10, { 0,X,X,X,X,X,X,X } }, // Free Tiger\r
-  {"FLp", "", 10, { X,X,0,X,X,X,0,X } }, // Free Leopard (Free Boar?)\r
-  {"FSp", "", 10, { X,0,0,X,X,X,0,0 } }, // Free Serpent (Whale?)\r
-  {"FrD", "", 10, { X,0,X,X,X,X,X,0 } }, // Free Dragon\r
-  {"FC", "", 10, { 0,X,0,X,0,X,0,X } }, // Free Cat (Bishop?)\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
+  {"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
+  {"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
@@ -371,9 +371,9 @@ PieceDesc makaPieces[] = {
   {"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
-  {"FrW", "", 10, {  } }, // Free Wolf\r
-  {"FrB", "", 10, {  } }, // Free Bear\r
-  {"BT", "", 10, { X,0,0,X,0,X,0,0 } }, // Bat\r
+  {"fW", "", 10, {  } }, // Free Wolf\r
+  {"fB", "", 10, {  } }, // Free Bear\r
+  {"BA", "", 10, { X,0,0,X,0,X,0,0 } }, // Bat\r
   {"", "", 10, {  } }, // \r
   { NULL }  // sentinel\r
 };\r
@@ -420,48 +420,48 @@ PieceDesc taikyokuPieces[] = {
 };\r
 \r
 PieceDesc chessPieces[] = {\r
-  {"FK", "", 950, { X,X,X,X,X,X,X,X } },\r
+  {"Q", "",  950, { X,X,X,X,X,X,X,X } },\r
   {"R", "",  500, { X,0,X,0,X,0,X,0 } },\r
   {"B", "",  320, { 0,X,0,X,0,X,0,X } },\r
   {"N", "",  300, { N,N,N,N,N,N,N,N } },\r
   {"K", "",  280, { 1,1,1,1,1,1,1,1 } },\r
-  {"P", "FK", 80, { M,C,0,0,0,0,0,C } },\r
+  {"P", "Q",  80, { M,C,0,0,0,0,0,C } },\r
   { NULL }  // sentinel\r
 };\r
 \r
 PieceDesc lionPieces[] = {\r
-  {"LN","", LVAL, { L,L,L,L,L,L,L,L } },\r
-  {"FK", "", 600, { X,X,X,X,X,X,X,X } },\r
+  {"L", "", LVAL, { L,L,L,L,L,L,L,L } },\r
+  {"Q", "",  600, { X,X,X,X,X,X,X,X } },\r
   {"R", "",  300, { X,0,X,0,X,0,X,0 } },\r
   {"K", "",  280, { 1,1,1,1,1,1,1,1 } },\r
   {"B", "",  190, { 0,X,0,X,0,X,0,X } },\r
   {"N", "",  180, { N,N,N,N,N,N,N,N } },\r
-  {"P", "FK", 50, { M,C,0,0,0,0,0,C } },\r
+  {"P", "Q",  50, { M,C,0,0,0,0,0,C } },\r
   { NULL }  // sentinel\r
 };\r
 \r
 PieceDesc shatranjPieces[] = {\r
-  {"FK", "", 150, { 0,1,0,1,0,1,0,1 } },\r
+  {"Q", "",  150, { 0,1,0,1,0,1,0,1 } },\r
   {"R", "",  500, { X,0,X,0,X,0,X,0 } },\r
   {"B", "",   90, { 0,J,0,J,0,J,0,J } },\r
   {"N", "",  300, { N,N,N,N,N,N,N,N } },\r
   {"K", "",  280, { 1,1,1,1,1,1,1,1 } },\r
-  {"P", "FK", 80, { M,C,0,0,0,0,0,C } },\r
+  {"P", "Q",  80, { M,C,0,0,0,0,0,C } },\r
   { NULL }  // sentinel\r
 };\r
 \r
 PieceDesc makrukPieces[] = {\r
-  {"SM","",  150, { 0,1,0,1,0,1,0,1 } },\r
+  {"M", "",  150, { 0,1,0,1,0,1,0,1 } },\r
   {"R", "",  500, { X,0,X,0,X,0,X,0 } },\r
   {"S", "",  200, { 1,1,0,1,0,1,0,1 } }, // silver\r
   {"N", "",  300, { N,N,N,N,N,N,N,N } },\r
   {"K", "",  280, { 1,1,1,1,1,1,1,1 } },\r
-  {"P", "SM", 80, { M,C,0,0,0,0,0,C } },\r
+  {"P", "M",  80, { M,C,0,0,0,0,0,C } },\r
   { NULL }  // sentinel\r
 };\r
 \r
 PieceDesc wolfPieces[] = {\r
-  {"EW","EW",1050,{ W,W,W,W,W,W,W,W }, 6, 5 }, // kludge to get extra Werewolves\r
+  {"W", "W",1050,{ W,W,W,W,W,W,W,W }, 6, 5 }, // kludge to get extra Werewolves\r
   {"R", "",  500, { X,0,X,0,X,0,X,0 }, 3 },\r
   {"B", "",  320, { 0,X,0,X,0,X,0,X }, 1 },\r
   {"N", "",  300, { N,N,N,N,N,N,N,N }, 1 },\r
@@ -470,31 +470,48 @@ PieceDesc wolfPieces[] = {
   { NULL }  // sentinel\r
 };\r
 \r
-char chuArray[] = "l:flcsg:dekgsc:fll/:rv1b1:bt:ph:kn:bt1b1:rv/:sm:vmr:dh:dk:fk:ln:dk:dhr:vm:sm/pppppppppppp/3:gb4:gb3"\r
+char chuArray[] = "lfcsgekgscfl/a1b1txot1b1a/mvrhdqndhrvm/pppppppppppp/3i4i3"\r
                  "/12/12/"\r
-                 "3:GB4:GB3/PPPPPPPPPPPP/:SM:VMR:DH:DK:LN:FK:DK:DHR:VM:SM/:RV1B1:BT:KN:PH:BT1B1:RV/L:FLCSGK:DEGSC:FLL";\r
-char daiArray[] = "ln:sticsgkgsci:stnl/:rv1:cs1:fl1:bt:de:bt1:fl1:cs1:rv/1:vo1:ab1:ew:ph:ln:kn:ew1:ab1:vo1/r:fd:sm:vmb:dh:dk:fk:dk:dhb:vm:sm:fdr/"\r
-                 "ppppppppppppppp/4:gb5:gb4/15/15/15/4:GB5:GB4/PPPPPPPPPPPPPPP/"\r
-                 "R:FD:SM:VMB:DH:DK:FK:DK:DHB:VM:SM:FDR/1:VO1:AB1:EW:KN:LN:PH:EW1:AB1:VO1/:RV1:CS1:FL1:BT:DE:BT1:FL1:CS1:RV/LN:STICSGKGSCI:STNL";\r
-char tenArray[] = "ln:flicsg:dekgsci:flnl/:rv1:cs:cs1:bt:ph:fk:ln:kn:bt1:cs:cs1:rv/:ss:vsb:dh:dk:wb:fi:fe:lh:fi:wb:dk:dhb:vs:ss/"\r
-                 ":sm:vmr:hf:se:bg:rg:vg:gg:rg:bg:se:hfr:vm:sm/pppppppppppppppp/4d6d4/"\r
+                 "3I4I3/PPPPPPPPPPPP/MVRHDNQDHRVM/A1B1TOXT1B1A/LFCSGKEGSCFL";\r
+char daiArray[] = "lnuicsgkgsciunl/a1c'1f1tet1f1c'1a/1x'1a'1wxl!ow1a'1x'1/rf'mvbhdqdhbvmf'r/"\r
+                 "ppppppppppppppp/4p'5p'4/15/15/15/4P'5P'4/PPPPPPPPPPPPPPP/"\r
+                 "RF'MVBHDQDHBVMF'R/1X'1A'1WOL!XW1A'1X'1/A1C'1F1TET1F1C'1A/LNUICSGKGSCIUNL";\r
+char tenArray[] = "lnficsgekgscifnl/a1c!c!1txql!ot1c!c!1a/s'v'bhdw!d!q!h!d!w!dhbv's'/"\r
+                 "mvrf!e!b!r!v!q!r!b!e!f!rvm/pppppppppppppppp/4d6d4/"\r
                  "16/16/16/16/"\r
-                 "4D6D4/PPPPPPPPPPPPPPPP/:SM:VMR:HF:SE:BG:RG:GG:VG:RG:BG:SE:HFR:VM:SM/"\r
-                 ":SS:VSB:DH:DK:WB:FI:LH:FE:FI:WB:DK:DHB:VS:SS/:RV1:CS:CS1:BT:KN:LN:FK:PH:BT1:CS:CS1:RV/LN:FLICSGK:DEGSCI:FLNL";\r
-char shoArray[] = "lnsgkgsnl/1r2:de2b1/ppppppppp/9/9/9/PPPPPPPPP/1B2:DE2R1/LNSGKGSNL";\r
-char waArray[] = ":dh:sm:knl:vmk:ewgc:dk:ph/1:de3s3:fl1/ppprppp:btppp/3p3p3"\r
-                "/11/11/11/"\r
-                "3P3P3/PPP:BTPPPRPPP/1:FL3S3:DE1/:PH:DKCG:EWK:VML:KN:SM:DH";\r
-char chessArray[] = "rnb:fkkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNB:FKKBNR";\r
-char lionArray[]  = "r:lnb:fkkbnr/pppppppp/8/8/8/8/PPPPPPPP/R:LNB:FKKBNR";\r
-char shatArray[]= "rnbk:fkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBK:FKBNR";\r
-char thaiArray[]= "rns:smksnr/8/pppppppp/8/8/PPPPPPPP/8/RNSK:SMSNR";\r
-char wolfArray[]= "rnb:ewkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNB:EWKBNR";\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 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
+char lionArray[]  = "rlbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RLBQKBNR";\r
+char shatArray[]  = "rnbkqbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBKQBNR";\r
+char thaiArray[]  = "rnsmksnr/8/pppppppp/8/8/PPPPPPPP/8/RNSKMSNR";\r
+char wolfArray[]  = "rnbwkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBWKBNR";\r
+\r
+// translation tables for single-(dressed-)letter IDs to multi-letter names, per variant\r
+//                 A.B.C.D.E.F.G.H.I.J.K.L.M.N.O.P.Q.R.S.T.U.V.W.X.Y.Z.\r
+char chuIDs[] =   "RVB C DKDEFLG DHGB..K L SMLNKNP FKR S BT..VM..PH....";\r
+char daiIDs[] =   "RVB C DKDEFLG DHI ..K L SMN KNP FKR S BTSGVMEWPH...."  // L\r
+                  "AB  CS    FD                  GB              VO    "  // L'\r
+                  "                      LN                            "; // L!\r
+char tenIDs[] =   "RVB C DKDEFLG DHI ..K L SMN KNP FKR S BT..VM..PH...."  // L\r
+                  "..  ..D   ..                    FE  SS    VS        "  // L'\r
+                  "  BGCSFISEHF  LH      LN        GGRG      VGWB      "; // L!\r
+char waIDs[] =    "....FCBDCEFFFGLH....K SOCM..OCP ..RRSW..SCVSVWTF....";\r
+char chessIDs[] = "A B ....E F ........K L M N ..P Q R S ......W ......"; // covers all chess-like variants\r
+char makaIDs[]  = "RVB C DKDEFLG DHI ..K L SMN KNP FKR S BTSG..EWPHT .."  // L (also for Macadamia)\r
+                  "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
 \r
 typedef struct {\r
   int boardWidth, boardFiles, boardRanks, zoneDepth, varNr; // board sizes\r
   char *name;  // WinBoard name\r
   char *array; // initial position\r
+  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
@@ -502,17 +519,17 @@ typedef enum { V_CHESS, V_SHO, V_CHU, V_DAI, V_DADA, V_MAKA, V_TAI, V_KYOKU, V_T
 #define SAME (-1)\r
 \r
 VariantDesc variants[] = {\r
-  { 24, 12, 12, 4, V_CHU,     "chu",     chuArray }, // Chu\r
-  { 16,  8,  8, 1, V_CHESS,  "nocastle", chessArray }, // FIDE\r
-  { 18,  9,  9, 3, V_SHO, "9x9+0_shogi", shoArray }, // Sho\r
-  { 18,  9,  9, 3, V_SHO,     "sho",     shoArray }, // Sho duplicat\r
-  { 30, 15, 15, 5, V_DAI,     "dai",     daiArray }, // Dai\r
-  { 32, 16, 16, 5, V_TENJIKU, "tenjiku", tenArray }, // Tenjiku\r
-  { 16,  8,  8, 1, V_SHATRANJ,"shatranj",shatArray}, // Shatranj\r
-  { 16,  8,  8, 3, V_MAKRUK,  "makruk",  thaiArray}, // Makruk\r
-  { 16,  8,  8, 1, V_LION,    "lion",    lionArray}, // Mighty Lion\r
-  { 22, 11, 11, 3, V_WA,      "wa-shogi",waArray},   // Wa\r
-  { 16,  8,  8, 1, V_WOLF,    "werewolf",wolfArray},   // Wa\r
+  { 24, 12, 12, 4, V_CHU,     "chu",     chuArray,  chuIDs },   // Chu\r
+  { 16,  8,  8, 1, V_CHESS,  "nocastle", chessArray,chessIDs }, // FIDE\r
+  { 18,  9,  9, 3, V_SHO, "9x9+0_shogi", shoArray,  chuIDs },   // Sho\r
+  { 18,  9,  9, 3, V_SHO,     "sho",     shoArray,  chuIDs },   // Sho duplicat\r
+  { 30, 15, 15, 5, V_DAI,     "dai",     daiArray,  daiIDs },   // Dai\r
+  { 32, 16, 16, 5, V_TENJIKU, "tenjiku", tenArray,  tenIDs },   // Tenjiku\r
+  { 16,  8,  8, 1, V_SHATRANJ,"shatranj",shatArray, chessIDs},  // Shatranj\r
+  { 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
 \r
   { 0, 0, 0, 0, 0 }, // sentinel\r
   { 34, 17, 17, 0, V_DADA,    "dada",    chuArray }, // Dai Dai\r
@@ -887,12 +904,14 @@ SetUp (char *array, int var)
       }\r
       if(c == '/') break;\r
       name[1] = name[2] = 0;\r
-      if(c == ':') name[0] = *array++, name[1] = *array++;\r
-      if(name[0] >= 'a') {\r
+      if(c >= 'a') {\r
        color = BLACK;\r
-       name[0] += 'A' - 'a';\r
-       if(name[1]) name[1] += 'A' - 'a';\r
+       c += 'A' - 'a';\r
       } else color = WHITE;\r
+      if(*array == '\'') c += 26, array++; else\r
+      if(*array == '!')  c += 52, array++;\r
+      name[0] = IDs[2*(c - 'A')];\r
+      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
@@ -985,6 +1004,7 @@ Init (int var)
   bHeight = variants[var].boardRanks;\r
   zone    = variants[var].zoneDepth;\r
   array   = variants[var].array;\r
+  IDs     = variants[var].IDs;\r
   }\r
   bsize = bWidth*bHeight;\r
   chuFlag = (currentVariant == V_CHU || currentVariant == V_LION);\r