; *** Copyright 1998-2001 Zillions Development
; v.1.3.1
; You need to purchase Zillions of Games to load this rules file
; Visit the Zillions web site at http://www.zillions-of-games.com

;          *** TENCUBED CHESS *** VER1Z1 ***
;
;    __       All original content is        __  
;   / o\--                                --/o \ 
;   \ \/        copyright (c) 2005          \/ / 
;   /  \                                    /  \ 
;  [====]       by David Paulowich         [====]

; *** Abstract Chess Piece Images by Fergus Duniho
; *** These pieces are part of a larger set of abstract pieces.
; *** The whole set is at http://www.chessvariants.org/graphics.dir/abstract/
; *** You may not use them in your ZRFs without including this notice.

; The game rules are adapted from several of David Howe's Zillions of Games
; files and also use his Alfaerie chess images.  They are not intended to
; contest his rights as the author in any way.


(define shift        ($1 (verify not-friend?) add) )

(define leap1        ($1       (verify not-friend?) add) )
(define leap2        ($1 $2    (verify not-friend?) add) )
(define leap3        ($1 $2 $3 (verify not-friend?) add) )

(define slide       ($1 (while empty? add $1) (verify not-friend?) add))

(define Pawn-add
   (if (in-zone? promotion-zone) (add Archbishop Marshall Queen) else add)
)

(define Pawn-move
   (
      n
      (verify empty?)
      (Pawn-add)
      (verify (in-zone? third-rank))
      n
      (verify empty?)
      add
   )
)
(define Pawn-capture
   (
      $1
      (verify enemy?)
      (Pawn-add)
   )
)
(define En-Passant
   (
      $1
      (verify enemy?)
      (verify last-to?)
      (verify (piece? Pawn))
      capture
      n
      to
      n
      (verify last-from?)
      add
   )
)

(define Board-Definitions 
      (image "images\Chess\chess10x10.bmp")
      (grid
         (start-rectangle 5 5 53 53)
         (dimensions
             ("a/b/c/d/e/f/g/h/i/j" (49 0)) ; files
             ("10/9/8/7/6/5/4/3/2/1" (0 49)) ; ranks
         )
         (directions (n 0 -1) (e 1 0) (s 0 1) (w -1 0)
			         (ne 1 -1) (nw -1 -1) (se 1 1) (sw -1 1)
         )
      )
  (symmetry Black (n s)(s n) (nw sw)(sw nw) (ne se)(se ne))
  (zone
     (name promotion-zone)
     (players White)
     (positions a10 b10 c10 d10 e10 f10 g10 h10 i10 j10)
  )
  (zone
     (name promotion-zone)
     (players Black)
     (positions a1 b1 c1 d1 e1 f1 g1 h1 i1 j1)
  )
  (zone
     (name third-rank)
     (players White)
     (positions a4 b4 c4 d4 e4 f4 g4 h4 i4 j4)
  )
  (zone
     (name third-rank)
     (players Black)
     (positions a7 b7 c7 d7 e7 f7 g7 h7 i7 j7)
  )
)

(game
   (title "TenCubed Chess")
   (description "Object: Checkmate the opponent's King by attacking it so that it cannot escape.\\
TenCubed Chess uses ten kinds of pieces on a 10x10 board.  Moves and Rules for the standard chess pieces are mostly unchanged.  Pawns still have an initial double step and may capture `En Passant`.  Pawn promotion is restricted to the pieces archbishop, marshall, or queen.  Castling does not exist.\\
The queen combines the moves of rook and bishop.  The marshall combines the moves of rook and knight.  The archbishop combines the moves of bishop and knight.  The Champion combines the moves of dababba and alfil and wazir.  The wizard combines the moves of camel and ferz.")

   (history "Great Chess and its variants have been played on 10x10 (and larger) boards for centuries, usually including these two pieces: the knight-bishop compound and the knight-rook compound.\\
In recent years Christian Freeling and Jean-Louis Cazaux have created variants with pawns on the third rank and most of the pieces on the second rank.  Daniel C. Macdonald's Omega Chess has champions and wizards on 104 squares.  For more information on Omega Chess go to http://www.omegachess.com/")

   (strategy "Queens, marshalls, and archbishops are the most valuable pieces.  You will find that all the basic principles of Chess still apply: maximize the activity of your pieces, gain space, and above all keep your King safe.")

   (win-sound "Audio\\Pan.wav")
   (loss-sound "Audio\\Pan.wav")
   (opening-sound "Audio\\Pan.wav")
   (release-sound "Audio\\BongPercussive.wav")
   (move-sound "Audio\\Bong5th.wav")
   (capture-sound "Audio\\WoodBells.wav")
   (players White Black)
   (turn-order White Black)
   (pass-turn false)
   (board (Board-Definitions))

   (board-setup
      (White
         (Pawn a3 b3 c3 d3 e3 f3 g3 h3 i3 j3)
         (Rook b2 i2)
         (Knight c2 h2)
         (Bishop d2 g2)
         (Queen e2)
         (King f2)
         (Champion c1 h1)
         (Wizard d1 g1)
         (Archbishop e1)
         (Marshall f1)
      )
      (Black
         (Pawn a8 b8 c8 d8 e8 f8 g8 h8 i8 j8)
         (Rook b9 i9)
         (Knight c9 h9)
         (Bishop d9 g9)
         (Queen e9)
         (King f9)
         (Champion c10 h10)
         (Wizard d10 g10)
         (Archbishop e10)
         (Marshall f10)
      )
   )

   (piece
      (name Pawn)
	  (help "Pawn: moves forward, captures diagonally, can promote on 10th row")
      (description "Pawn\A Pawn can move straight ahead one square, or two from its starting position.  A Pawn captures by moving one square ahead and diagonally.  If a Pawn reaches the far rank it promotes, changing into an Archbishop, Marshall, or Queen of the same color.  On rare occasions Pawns can also execute a move called `En Passant`, or `in passing`.  This allows a Pawn to take an enemy Pawn that has just moved two squares.")
      (image White "images\Abstract\wpawn.bmp" "images\alfaerie\wpawn.bmp" Black "images\Abstract\bpawn.bmp" "images\alfaerie\bpawn.bmp")
      (moves
         (Pawn-capture nw)
         (Pawn-capture ne)
         (Pawn-move)
         (En-Passant e)
         (En-Passant w)
      )
   )

(define Knight-moves
	 (leap2 n ne)
	 (leap2 n nw)
	 (leap2 s se)
	 (leap2 s sw)
	 (leap2 e ne)
	 (leap2 e se)
	 (leap2 w nw)
	 (leap2 w sw)
)
   (piece
      (name Knight)
	  (help "Knight: moves like an `L`, 2 squares one way and one the other")
      (description "Knight\A Knight moves like an `L`, two squares vertically plus one
          horizontally, or two squares horizontally plus one vertically.  It
          leaps over any pieces on the way.")
      (image White "images\Abstract\wknight.bmp" "images\alfaerie\wknight.bmp" Black "images\Abstract\bknight.bmp" "images\alfaerie\bknight.bmp")
      (moves (Knight-moves))
   )

(define Bishop-moves
         (slide ne)
         (slide nw)
         (slide se)
         (slide sw)
)
   (piece
      (name Bishop)
	  (help "Bishop: slides diagonally any number of squares")
      (description "Bishop\A Bishop moves any number of squares on a diagonal. \It may
           not leap over other pieces.")
      (image White "images\Abstract\wbishop.bmp" "images\alfaerie\wbishop.bmp" Black "images\Abstract\bbishop.bmp" "images\alfaerie\bbishop.bmp")
      (moves (Bishop-moves))
   )

(define Rook-moves
         (slide n)
         (slide e)
         (slide s)
         (slide w)
)
   (piece
      (name Rook)
	  (help "Rook: slides any number of squares along the row or column.")
      (description "Rook\A Rook moves any number of squares orthogonally on a rank
           or a file.")
      (image White "images\Abstract\wrook.bmp" "images\alfaerie\wrook.bmp" Black "images\Abstract\brook.bmp" "images\alfaerie\brook.bmp")
      (moves (Rook-moves))
   )

   (piece
      (name King)
	  (help "King: steps 1 square in any direction to a safe square")
      (description "King\A King can move to any adjacent square, but never to a square where it can be captured.")
      (image White "images\Abstract\wking.bmp" "images\alfaerie\wking.bmp" Black "images\Abstract\bking.bmp" "images\alfaerie\bking.bmp")
      (moves
         (leap1 n)
         (leap1 e)
         (leap1 s)
         (leap1 w)
         (leap1 ne)
         (leap1 nw)
         (leap1 se)
         (leap1 sw)
      )
   )

; Cardinal and Paladin are other names used for the (Bishop + Knight) piece.
   (piece
      (name Archbishop)
      (help "Archbishop: combines the bishop's moves with the knight's")
      (description "Archbishop\The Archbishop can move like a bishop or leap like a knight.")
      (image White"images\Abstract\wKnightBishop.bmp" "images\Alfaerie\wcardinalrider.bmp" Black "images\Abstract\bKnightBishop.bmp" "images\Alfaerie\bcardinalrider.bmp")
      (moves (Knight-moves) (Bishop-moves))
   )

; Chancellor is another name used for the (Rook + Knight) piece.
  (piece
      (name Marshall)
      (help "Marshall: combines the rook's moves with the knight's")
      (description "Marshall\The Marshall can move like a rook or leap like a knight.")
     (image White "images\Abstract\wKnightRook.bmp" "images\Alfaerie\wchancellor.bmp" Black "images\Abstract\bKnightRook.bmp" "images\Alfaerie\bchancellor.bmp")
      (moves (Knight-moves) (Rook-moves))
   )

   (piece
      (name Queen)
	  (help "Queen: can slide any distance in any direction")
      (description "Queen\A Queen can move like a rook or a bishop. \It may not leap over other pieces.")
      (image White "images\Abstract\wqueen.bmp" "images\alfaerie\wqueen.bmp" Black "images\Abstract\bqueen.bmp" "images\alfaerie\bqueen.bmp")
      (moves (Rook-moves) (Bishop-moves))
   )

; Champion and Wizard are from Daniel C. Macdonald's Omega Chess 
; coding adapted from David Howe's OmegaChess.zrf
   (piece
      (name Champion)
	  (help "Champion: can leap one or two squares orthogonally or two squares diagonally")
      (description "Champion\The Champion, like the Knight, is classified as a
                    leaper. It can move one square orthogonally, forward,
                    backward or to either side. Or the Champion can jump two
                    squares forward or backward or to either side, or jump two
                    squares diagonally in all four directions. The Champion can jump over 
                    pieces and it can control up to twelve squares. The Champion cannot 
                    move one square diagonally.")
      (image White "images\Abstract\wchampion.bmp" "images\Alfaerie\wchampion.bmp" Black "images\Abstract\bchampion.bmp" "images\Alfaerie\bchampion.bmp")
      (moves
         (leap2 n n)
         (leap2 w w)
         (leap2 s s)
         (leap2 e e)

         (leap2 ne ne)
         (leap2 se se)
         (leap2 nw nw)
         (leap2 sw sw)

         (shift e)
         (shift w)
         (shift n)
         (shift s)
      )
   )

   (piece
      (name Wizard)
	  (help "Wizard: has an exaggerated knight move, or can move one square diagonally")
      (description "Wizard\The Wizard is classified as a leaper. It can move one
                    square diagonally in all four directions. Or, like an
                    exaggerated Knight move, the Wizard can jump three squares
                    horizontally or vertically and then one square to either side.
                    The Wizard is bound to the color of its starting square. The Wizard can
                    jump over pieces to control up to twelve squares.")
      (image White "images\Abstract\wwizard.bmp" "images\Alfaerie\wmoon.bmp" Black "images\Abstract\bwizard.bmp" "images\Alfaerie\bmoon.bmp")
      (moves
         (leap3 n n ne)
         (leap3 n n nw)
         (leap3 s s se)
         (leap3 s s sw)
         (leap3 e e ne)
         (leap3 e e se)
         (leap3 w w nw)
         (leap3 w w sw)

         (shift ne)
         (shift nw)
         (shift se)
         (shift sw)
      )
   )


   (loss-condition (White Black) (checkmated King) )

   (draw-condition (White Black) stalemated)

)