Edit the Settings File for Atlantean Coffee House Shatranj

Rules

How to Move Pieces

Available Pieces

Credits

Comments

Full Algebraic Notation

Please enable JavaScript. Game Courier makes use of JavaScript for displaying legal moves, for moving pieces by touch or mouse, for updating time clocks, and for updating the page when it is your turn again.

Right click here to view or download the board image

Atlantean Coffee House Shatranj

If this looks different than the preset you clicked on the Edit button for, this is because that was a customization, and this is for editing the settings file that customization was based on. This form is for defining the game and for giving it a default appearance. You should define a game only once, then go back and click on the Customize button to provide options for how the game looks. Changing the Settings Name will create a clone of this preset that will not inherit subsequent bug fixes or improvements made to it. If all you want to do is change the appearance, go back and click on the Customize button

Identification:
Game:		Rules URL:
Settings:		Redirect:
Userid:		Password:

Appearance:
Custom Sets
Shape:	Render as:
Set Group	Set

Colors:
Patterns:
Background:		Same Size
Border Color:	Border Size:
Highlight Color:	Text Color:
Exclude Pieces not in Setup:
Next File:	Next Rank:
Font:	Point Size:
Scale:	JPG Quality:
Max Colors:

Advanced:
Bypass Error Check on Piece Label:	Skip First Move:	Do Not Include Moves in Code:

Rules and Automation, Programmed in the GAME Code Language:
View include files here
Pre-Game:
include fairychess; alias t bentshaman T BENTSHAMAN j jumpinggeneral J JUMPINGGENERAL m knightwazirdabbabah M KNIGHTWAZIRDABBABAH h highpriestess H HIGHPRIESTESS E ELEPHANTFERZ e elephantferz l warmachineriderwazir L WARMACHINERIDERWAZIR y warmachinewazir Y WARMACHINEWAZIR G GUARD g guard; setconst T Tusker; setconst t Tusker; setconst J JumpingGeneral; setconst j JumpingGeneral; setconst M Minister; setconst m Minister; setconst H HighPriestess; setconst h HighPriestess; setconst E Elephant; setconst e Elephant; setconst Y WarMachine; setconst y WarMachine; setconst L BattleEngine; setconst l BattleEngine; setconst K King; setconst k King; setconst P White_Pawn; setconst p Black_Pawn; setconst G Guard; setconst g Guard; setconst N Knight; setconst n Knight; if == thismove null: say This preset enforces the rules and displays legal moves.; endif; set kpos findpiece k spaces; set Kpos findpiece K spaces; set pzs 3; set wpieces diff unique onlyupper (P GUARD K); set bpieces diff unique onlylower (p guard k); set wprom (GUARD); set bprom (guard); //set promotable p P; set cap unique keys capturedpieces; def King or checkleap #0 #1 1 1 or checkleap #0 #1 1 0 or checkaleap #0 #1 -2 1 or checkaleap #0 #1 -1 2 or checkaleap #0 #1 1 -2 or checkaleap #0 #1 2 -1; def King-Range mergeall leaps #0 1 0 leaps #0 1 1 where #0 -2 1 where #0 -1 2 where #0 1 -2 where #0 2 -1; set King-Desc "The %s steps one space in any direction."; sub King from to: verify fn King #from #to; if isupper space #to: set Kpos #to; else: set kpos #to; endif; return true; endsub; def White_Pawn or (or (checkaleap #0 #1 0 1) (checkaleap #0 #1 -1 1) and empty #1) (and (or checkaleap #0 #1 -2 1 or checkaleap #0 #1 -1 2 or checkaleap #0 #1 1 1) (islower space #1)); def White_Pawn-Range mergeall where #0 -1 1 where #0 0 1 where #0 -2 1 where #0 -1 2 where #0 1 1; set White_Pawn-Desc "The %s moves without capturing one orthogonal step forward, and captures one diagonal step forward."; sub White_Pawn from to; if capture: verify (and (or checkaleap #0 #1 -2 1 or checkaleap #0 #1 -1 2 or checkaleap #0 #1 1 1) (islower space #1)); else: verify (or (checkaleap #0 #1 0 1) (checkaleap #0 #1 -1 1) and empty #1); endif; //Pawn Promotion if onboard where #to 0 #pzs or onboard where #to neg #pzs #pzs: // Not yet in promotion zone if != space #to $moved: set name alias const alias $moved; die "You may not promote a" #name "until it reaches the promotion zone."; endif; elseif onboard where #to 0 1 or onboard where #to -1 1: // Not yet on last rank if == White_Pawn const alias space #to and count var wprom: if not $answered and == mln $maxmln: push wprom space #to; askpromote #wprom; endif; elseif not match space #to var wprom and != White_Pawn const alias space #to: set name alias const alias $moved; set newname alias const alias space #to; set msg list "You may not promote your" #name "to a" join #newname ".<BR>"; set msg str_replace "_" " " var msg; die #msg; endif; elseif count var wprom: // On last rank if == White_Pawn const alias space #to: if == count var wprom 1: set newpiece join list var wprom; set newmove join #newpiece "-dest"; add #newpiece $dest; appendmove #newmove; else: askpromote #wprom; endif; elseif not match space #to var wprom: set name alias const alias $moved; set newname alias const alias space #to; set msg list "You may not promote your" #name "to a" join #newname ".<BR>"; set msg str_replace "_" " " var msg; die #msg; endif; else: set name alias const alias $moved; set msg list "You may not advance your" #name "to the last rank, because there is nothing you may promote it to."; set msg str_replace "_" " " var msg; die #msg; endif; set nopvc 0; return true; endsub; def Black_Pawn or (or (checkaleap #0 #1 0 -1) (checkaleap #0 #1 1 -1) and empty #1) (and (or checkaleap #0 #1 -1 -1 or checkaleap #0 #1 1 -2 or checkaleap #0 #1 2 -1) (isupper space #1)); def Black_Pawn-Range mergeall where #0 0 -1 where #0 1 -1 where #0 -1 -1 where #0 1 -2 where #0 2 -1; set Black_Pawn-Desc "The %s moves without capturing one orthogonal step forward, and captures one diagonal step forward."; sub Black_Pawn from to; if capture: verify (and (or checkaleap #0 #1 -1 -1 or checkaleap #0 #1 1 -2 or checkaleap #0 #1 2 -1) (isupper space #1)); else: verify (or (checkaleap #0 #1 0 -1) (checkaleap #0 #1 1 -1) and empty #1); endif; //Pawn Promotion if onboard where #to 0 neg #pzs or onboard where #to #pzs neg #pzs: // Not yet in promotion zone if != space #to $moved: set name alias const alias $moved; die "You may not promote a" #name "until it reaches the promotion zone."; endif; elseif onboard where #to 0 -1 or onboard where #to 1 -1: // Not yet on last rank if == Black_Pawn const alias space #to and count var bprom: if not $answered and == mln $maxmln: push bprom space #to; askpromote #bprom; endif; elseif not match space #to var bprom and != Black_Pawn const alias space #to: set name alias const alias $moved; set newname alias const alias space #to; set msg list "You may not promote your" #name "to a" join #newname ".<BR>"; set msg str_replace "_" " " var msg; die #msg; endif; elseif count var bprom: // On last rank if == Black_Pawn const alias space #to: if == count var bprom 1: set newpiece join list var bprom; set newmove join #newpiece "-dest"; add #newpiece $dest; appendmove #newmove; else: askpromote #bprom; endif; elseif not match space #to var bprom: set name alias const alias $moved; set newname alias const alias space #to; set msg list "You may not promote your" #name "to a" join #newname ".<BR>"; set msg str_replace "_" " " var msg; die #msg; endif; else: set name alias const alias $moved; set msg list "You may not advance your" #name "to the last rank, because there is nothing you may promote it to."; set msg str_replace "_" " " var msg; die #msg; endif; set nopvc 0; return true; endsub; def Guard fn King #0 #1; def Guard-Range fn King-Range #0; set Guard-Desc "The %s moves as a King but reverts to a Pawn if it leaves the promotion zone."; def WarMachine or (checkleap #0 #1 1 1 and < slope #0 #1 0 or checkleap #0 #1 1 0) (checkleap #0 #1 2 2 and < slope #0 #1 0 or checkleap #0 #1 2 0); def WarMachine-Range mergeall leaps #0 1 0 where #0 -1 1 where #0 1 -1 leaps #0 2 0 where #0 -2 2 where #0 2 -2; set WarMachine-Desc "The %s steps 1 or leaps 2 orthogonally."; def Elephant or checkaleap #0 #1 -2 1 or checkaleap #0 #1 -1 2 or checkaleap #0 #1 1 1 or checkaleap #0 #1 2 -1 or checkaleap #0 #1 1 -2 or checkaleap #0 #1 -1 -1 or checkaleap #0 #1 -4 2 or checkaleap #0 #1 -2 4 or checkaleap #0 #1 2 2 or checkaleap #0 #1 4 -2 or checkaleap #0 #1 2 -4 or checkaleap #0 #1 -2 -2; def Elephant-Range mergeall where #0 -2 1 where #0 -1 2 where #0 1 1 where #0 2 -1 where #0 1 -2 where #0 -1 -1 where #0 -4 2 where #0 -2 4 where #0 2 2 where #0 4 -2 where #0 2 -4 where #0 -2 -2; set Elephant-Desc "The %s steps 1 or leaps 2 diagonally."; def BattleEngine or and (or empty where #0 1 0 empty where #0 2 0) checkaleap #0 #1 3 0 or and empty where #0 2 0 checkaleap #0 #1 4 0 or and (or empty where #0 0 1 empty where #0 0 2) checkaleap #0 #1 0 3 or and empty where #0 0 2 checkaleap #0 #1 0 4 or and (or empty where #0 1 -1 empty where #0 2 -2) checkaleap #0 #1 3 -3 or and empty where #0 2 -2 checkaleap #0 #1 4 -4 or and (or empty where #0 -1 0 empty where #0 -2 0) checkaleap #0 #1 -3 0 or and empty where #0 -2 0 checkaleap #0 #1 -4 0 or and (or empty where #0 0 -1 empty where #0 0 -2) checkaleap #0 #1 0 -3 or and empty where #0 0 -2 checkaleap #0 #1 0 -4 or and (or empty where #0 -1 1 empty where #0 -2 2) checkaleap #0 #1 -3 3 or and empty where #0 -2 2 checkaleap #0 #1 -4 4 or fn WarMachine #0 #1; def BattleEngine-Range mergeall fn WarMachine-Range #0 where #0 -4 4 where #0 -3 3 where #0 4 0 where #0 3 0 where #0 0 4 where #0 0 3 where #0 4 -4 where #0 3 -3 where #0 -4 0 where #0 -3 0 where #0 0 -4 where #0 0 -3; set BattleEngine-Desc "The %s makes one or two WarMachine moves in the same direction."; def Tusker or and (or empty where #0 -4 2 empty where #0 -1 2) checkaleap #0 #1 -5 4 or and (or empty where #0 -2 1 empty where #0 -2 4) checkaleap #0 #1 -4 5 or and (or empty where #0 -2 4 empty where #0 1 1) checkaleap #0 #1 -1 5 or and (or empty where #0 -1 2 empty where #0 2 2) checkaleap #0 #1 4 1 or and (or empty where #0 2 2 empty where #0 -1 2) checkaleap #0 #1 1 4 or and (or empty where #0 1 1 empty where #0 4 -2) checkaleap #0 #1 5 -1 or and (or empty where #0 4 -2 empty where #0 1 -2) checkaleap #0 #1 5 -4 or and (or empty where #0 2 -1 empty where #0 2 -4) checkaleap #0 #1 4 -5 or and (or empty where #0 2 -4 empty where #0 -1 -1) checkaleap #0 #1 1 -5 or and (or empty where #0 1 -2 empty where #0 -2 -2) checkaleap #0 #1 -1 -4 or and (or empty where #0 -2 -2 empty where #0 -2 1) checkaleap #0 #1 -4 -1 or and (or empty where #0 -1 -1 empty where #0 -4 2) checkaleap #0 #1 -5 1 or fn Elephant #0 #1; def Tusker-Range mergeall fn Elephant-Range #0 where #0 -5 4 where #0 -4 5 where #0 -1 5 where #0 4 1 where #0 1 4 where #0 5 -1 where #0 5 -4 where #0 4 -5 where #0 1 -5 where #0 -1 -4 where #0 -4 -1 where #0 -5 1; set Tusker-Desc "The %s may take either elephant move component as its first step and then, optionally, take the other elephant move component as its second step, with the second step rotated 60 degrees from the first."; def Knight or checkaleap #0 #1 -2 3 or checkaleap #0 #1 -1 3 or checkaleap #0 #1 2 1 or checkaleap #0 #1 1 2 or checkaleap #0 #1 3 -1 or checkaleap #0 #1 3 -2 or checkaleap #0 #1 2 -3 or checkaleap #0 #1 1 -3 or checkaleap #0 #1 -1 -2 or checkaleap #0 #1 -2 -1 or checkaleap #0 #1 -3 1 or checkaleap #0 #1 -3 2; def Knight-Range mergeall where #0 -2 3 where #0 -1 3 where #0 2 1 where #0 1 2 where #0 3 -1 where #0 3 -2 where #0 2 -3 where #0 1 -3 where #0 -1 -2 where #0 -2 -1 where #0 -3 1 where #0 -3 2; set Knight-Desc "The %s is a normal hexagonal Knight."; def JumpingGeneral or fn WarMachine #0 #1 or fn Elephant #0 #1; def JumpingGeneral-Range mergeall fn WarMachine-Range #0 fn Elephant-Range #0; set JumpingGeneral-Desc "The %s moves as a WarMachine or Elephant."; def Minister or fn Knight #0 #1 or fn WarMachine #0 #1; def Minister-Range mergeall fn Knight-Range #0 fn WarMachine-Range #0; set Minister-Desc "The %s moves as a Knight or WarMachine."; def HighPriestess or fn Knight #0 #1 or fn Elephant #0 #1; def HighPriestess-Range mergeall fn Knight-Range #0 fn Elephant-Range #0; set HighPriestess-Desc "The %s moves as a Knight or Elephant.";
Pre-Move 1:

Pre-Move 2:

Post-Move 1:
if not isconst alias $moved: die The piece moved is undefined.; elseif isupper $old: die You may not capture your own pieces.; elseif islower $moved: die You may not move one of your opponent's pieces.; endif; if != const alias $moved White_Pawn: set ep false; if != space $dest $moved and (and != const alias $moved Guard < rank $dest 10): die You may not change the type of this piece.; elseif capture: set nopvc 0; else: inc nopvc; endif; endif; set codename const alias $moved; if sub #codename $origin $dest and issub #codename: elseif fn #codename $origin $dest and isfunc #codename and not issub #codename: else: set name alias #codename; set errmsg list "You may not move your" #name "from" $origin "to" join $dest ".<BR>"; set desc join #codename "-Desc"; set errmsg str_replace "_" " " join #errmsg str_replace "%s" #name var #desc; die #errmsg; endif; if sub checked var Kpos: die You may not move into check.; endif; unsetflag $origin $dest; set posvar join "w" join fencode boardflags; inc #posvar; if or (onboard where $dest 0 #pzs onboard where $dest neg #pzs #pzs) and == Guard #codename: //set newmove "P-dest"; add P $dest; //appendmove #newmove; endif; set cap unique keys capturedpieces; set wprom merge (GUARD) intersection var cap var wpieces; set bprom merge (guard) intersection var cap var bpieces;
Post-Move 2:
if not isconst alias $moved: die The piece $moved is undefined.; elseif islower $old: die You may not capture your own pieces.; elseif isupper $moved: die You may not move one of your opponent's pieces.; endif; if != const alias $moved Black_Pawn: set ep false; if != space $dest $moved and (and != const alias $moved Guard > rank $dest 2); die You may not change the type of this piece.; elseif capture: set nopvc 0; else: inc nopvc; endif; endif; set codename const alias $moved; if sub #codename $origin $dest and issub #codename: elseif fn #codename $origin $dest and isfunc #codename and not issub #codename: else: set name alias #codename; set errmsg list "You may not move your" #name "from" $origin "to" join $dest ".<BR>"; set desc join #codename "-Desc"; set errmsg str_replace "_" " " join #errmsg str_replace "%s" #name var #desc; die #errmsg; endif; if sub checked var kpos: die You may not move into check.; endif; unsetflag $origin $dest; set posvar join "b" join fencode boardflags; inc #posvar; if or (onboard where $dest 0 neg #pzs onboard where $dest #pzs neg #pzs) and == Guard #codename: //set newmove "p-dest"; add p $dest; //appendmove #newmove; endif; set cap unique keys capturedpieces; set wprom merge (GUARD) intersection var cap var wpieces; set bprom merge (guard) intersection var cap var bpieces;
Post-Game 1:
set posvar join "w" join fencode boardflags; if >= var #posvar 3: say Three Times Repetition! Drawn Game!; drawn; elseif sub stalemated var kpos: if sub checked var kpos: say Checkmate! White has won!; won; else: say Stalemate! The game is drawn.; drawn; endif; elseif >= #nopvc 100: say Fifty Moves Without Moving a Pawn or Capturing! Game Drawn!; drawn; elseif sub checked var kpos: say Check!; endif; if == 1 count onlylower and == status Ongoing: set mypieces onlyupper; switch count #mypieces: case 1: say Both Kings Bared! Game Drawn!; drawn; break; case 2: foreach (from piece) #mypieces: if == #piece K: continue; elseif not fn King #kpos #from or fn King #Kpos #from: say Bare King!! White Wins!!; won; break; else: say Both Kings Bared on Next Move! Game Drawn!; drawn; break; endif; next; break; default: say Bare King! White Wins!; won; break; endswitch; endif;
Post-Game 2:
set posvar join "b" join fencode boardflags; if >= var #posvar 3: say Three Times Repetition! Drawn Game!; drawn; elseif sub stalemated var Kpos: if sub checked var Kpos: say Checkmate! Black has won!; won; else: say Stalemate! The game is drawn.; drawn; endif; elseif >= #nopvc 100: say Fifty Moves Without Moving a Pawn or Capturing! Game Drawn!; drawn; elseif sub checked var Kpos: say Check!; endif; if == 1 count onlyupper and == status Ongoing: set mypieces onlylower; switch count #mypieces: case 1: say Both Kings Bared! Game Drawn!; drawn; break; case 2: foreach (from piece) #mypieces: if == #piece k: continue; elseif not fn King #Kpos #from or fn King #kpos #from: say Bare King!! Black Wins!!; won; break; else: say Both Kings Bared on Next Move! Game Drawn!; drawn; break; endif; next; break; default: say Bare King! White Wins!; won; break; endswitch; endif;
Initial Moves:

Rules, Written in HTML for Players to Read:

The rules have not been provided on this page, but you may find them in the Related menu.

If you are the author of this preset, you may add written rules here in Edit mode. You may write the rules in HTML. Note that this is only for a brief presentation of the rules as a reference to the players. This is not the place to discuss history or strategy. That can be left for the rules page. Nor is it the place to simply link to the rules page. That is a low-effort misuse of this section that defeats its purpose.

You may use the [pc] shortcode to display pieces from the currently selected piece set. Within the square brackets, follow the pc by a space and then by the same piece label used in the FEN code. To display the name with the piece, follow the label by another space, and enter the name before the closing bracket. To include a piece description, write it between the opening [pc] tag and a closing [/pc] tag.

To enable moving by mouse or touch, you should enable JavaScript. Even without JavaScript enabled, you can still move pieces by entering your moves in the Moves field, using full algebraic notation.

Algebraic notation identifies each space by a coordinate that begins with its file label and ends with its rank label. On the Chess board, files go up and down from one player to the other, and ranks go from left to right. In most games, files are represented by letters, and ranks are represented by numbers, but there is no fixed rule requiring this for all games, and some games, such as Shogi, reverse this convention. If you look at the diagram, you will usually see the file labels going from left to right and the file labels going up and down. And if you hover your mouse over a space, you will normally see the name of the coordinate appear in a tooltip.

It is not uncommon to see algebraic notation being used for Chess, but it is often in an abbreviated format that requires you to know both the rules of the game and the current position to know exactly which piece moves where. For example, the notation "Ne6" indicates that a Knight is moving to e6, but it doesn't indicate which Knight, and it doesn't specify where the Knight is coming from. To figure this out, you need to know how a Knight moves and which Knight on the board can make a legal move to e6.

Although rules may be programmed for individual games, Game Courier itself does not know the rules of any game, and it is unable to parse abbreviated algebraic notation. Therefore, it relies on full algebraic notation, which completely specifies the move without requiring any knowledge of the game's rules or the current position. The most usual type of full algebraic notation indicates the piece that is moving by its label, the space it is moving from, and the space it moving to. In Chess, a typical first move might be written as "P e2-e4". When you hover your mouse over a piece, you will normally see the piece label followed by the coordinate for the space, and when you hover it over an empty space, you will normally see the coordinate label. Including the piece label in your notation allows Game Courier to check that the piece you're moving is the right one, and it makes game notation easier to follow, but it is not mandatory.

You may promote a piece by including a promotion move after your regular move. A promotion move has a piece go directly to a coordinate. Here is an example: "p e7-e8; q-e8".

You may remove a piece from a space by adding an @ to the space or by omitting the destination coordinate. For example, both "@-e4" and "e4-" would remove the piece on "e4". This is useful for en passant when you are playing a game that does not handle this automatically. For example, "P d5-e6; e5-" removes the Pawn on e5 after a Pawn moves from d5 to e6.

You will not need to remove spaces for most games, but if you should need to, you can do this by omitting the first coordinate in a move. For example, "-e4" would remove e4 from the board. To add or return a space to the board, you may add an @ or any other piece to it.

Pieces are represented by labels, usually using uppercase letters for White and lowercase letter for Black. When you enter a move or specify the starting position for a game, you should remember that piece labels are case-sensitive. Many piece sets are available for use with Game Courier, and this table shows you which pieces belong to the piece set you are currently using.

The inclusion of a piece does not indicate that it is used in the game you are playing. But if your game uses pieces not included here, you should choose a different piece set.

This preset uses the fairychess settings file for Atlantean Coffee House Shatranj, which was made by Daniel Zacharias.

Game Courier was created, programmed and written by Fergus Duniho.

WWW Page Created: 15 August 2001

Rank Labels:

Max Columns:

Checker Pattern:

Positions:

Game Courier. PHP script for playing Chess variants online.

Em Nil wrote on Wed, Oct 16 12:30 AM EDT:

I'm having some issues with programming a game courier preset for a game that I'm working on. It is exhibiting behavior that I don't quite understand. Here is the link to the entry, including the rules for how the game is supposed to work.

Em Nil wrote on Tue, Oct 15 07:44 PM EDT:

encountered an HTTP ERROR 500 while using this preset

Aurelian Florea wrote on Fri, May 31 04:40 AM EDT:

@Fergus & @ HG,

I have managed to make presets for all the 6 games of my collection of games inspired by Kevin Pacey. Thanks for your help! Here they are:

https://www.chessvariants.com/play/pbm/play.php?game=Frog+Chess+with+Gryphon+and+Falcon&settings=default

https://www.chessvariants.com/play/pbm/play.php?game=Frog+Chess+with+Manticore+and+Falcon&settings=default

https://www.chessvariants.com/play/pbm/play.php?game=Hannibal+Chess+with+Gryphon+and+Falcon&settings=default

https://www.chessvariants.com/play/pbm/play.php?game=Hannibal+Chess+with+Manticore+and+Falcon&settings=default

https://www.chessvariants.com/play/pbm/play.php?game=Waffle+Chess+with+Gryphon+and+Falcon&settings=default

https://www.chessvariants.com/play/pbm/play.php?game=Waffle+Chess+with+Manticore+and+Falcon&settings=default

Aurelian Florea wrote on Fri, May 31 04:37 AM EDT:

I have managed to make presets for all the 6 games of my collection of games inspired by Kevin Pacey. Thanks for your help!

🕸💡📝Fergus Duniho wrote on Wed, May 29 03:35 PM EDT in reply to Fergus Duniho from 12:13 PM:

// Keep all legal moves except the e Pawn's double move
set lglmvs ();
for v $legalmoves:
  if != #v "P e2-e4":
    push lglmvs #v;
  endif;
next;

setsystem legalmoves #lglmvs;

With the fix I made to unless, described here, this can all be done with one line:

setsystem legalmoves aggregate lambda (#0 unless == #0 "P e2-e4") $legalmoves;

Number of ratings: 25, Average rating: Good, Number of comments: 582