; Copyright MC Stabi

; Sie benötigen 'Zillions of Games', um diese Spieldatei laden zu können
; Besuchen Sie Zillions im Internet unter http://www.zillions.de

; Translation english - sachsenhoferisch
(translate
        ("White" "Weiß")
        ("Black" "Schwarz")
        ("Pawn" "Brrbrr")
        ("Knight" "Wieher")
        ("Bishop" "Slotser")
        ("Rook" "Rock")
        ("PromotedRook" "Bromrock")
        ("PromotedBishop" "Bromslotser")
        ("Queen" "Babsi")
	("PromotedQueen" "Christina")
        ("King" "Pflöck")
        ("Chessogi" "Schachogi")
	("PromotedPawn" "Brombrrbrr")
	("PromotedWieher" "Bromwieher")
      )

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

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

(define slotserslide (
  $1
  (verify not-friend?)
  (if (in-zone? promotion-zone) (change-type PromotedBishop))
  add
 (while empty? $1 (verify not-friend?) (if (in-zone? promotion-zone) (change-type PromotedBishop)) add)
 )
) 


(define rockslide (
  $1
  (verify not-friend?)
  (if (in-zone? promotion-zone) (change-type PromotedRook))
  add
 (while empty? $1 (verify not-friend?) (if (in-zone? promotion-zone) (change-type PromotedRook)) add)
 )
) 


(define ischnzug (
  $1
  (verify not-friend?)
  (if (in-zone? promotion-zone) (change-type PromotedQueen))
  add
 )
) 


(define Pawn-move
   (
      n
      (verify not-friend?)
      (if (in-zone? promotion-zone) (add PromotedPawn) else add)
   )
)

(define wiehermove1
   (
      n nw
      (verify not-friend?)
      (if (in-zone? promotion-zone) (add PromotedWieher) else add)
     
   )
)


(define wiehermove2
   (
      n ne
      (verify not-friend?)
      (if (in-zone? promotion-zone) (add PromotedWieher) else add)
     
   )
)


(define Board-Definitions
  (image "images\Chess\Chess8x8.bmp")
  (grid
     (start-rectangle 5 5 53 53)
     (dimensions
         ("a/b/c/d/e/f/g/h" (49 0)) ; files
         ("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 a8 b8 c8 d8 e8 f8 g8 h8 a7 b7 c7 d7 e7 f7 g7 h7)
  )
  (zone
     (name promotion-zone)
     (players Black)
     (positions a1 b1 c1 d1 e1 f1 g1 h1 a2 b2 c2 d2 e2 f2 g2 h2)
  )
  
)

(game
   (title "Schachogi")
   (description "Ziel: Erobern Sie den gegnerischen Pflöck!!!
	   Wenn Sie wissen wollen, wie eine
	   Figur zieht, klicken Sie mit der rechten Maustaste darauf und wählen
           dann anschließend Eigenschaften.\\")
   (history "Schachogi ist eine moderne Variante des Schachspieles, sie verknüpft zwei Schachspiele -
	     Das westliche und östliche Schach (Shogi). Schachogi wurde von den beiden Top-Spielern
  	     MC Stabi und Vasi im Jänner 2003 erfunden")
   (strategy "Schauen Sie, dass sie den gegnerischen Pflöck zuerst erobern können, 
	      ehe Ihrer sich vom Spielbrett vertschüsst.")
   (win-sound "Audio\\Orchestra_CF.wav")
   (loss-sound "Audio\\Orchestra_FC.wav")
   (click-sound "Audio\\Pickup.wav")
   (release-sound "Audio\\WoodThunk.wav")
   (players White Black)
   (turn-order White Black)
   (pass-turn false)
   (board (Board-Definitions))

   (board-setup
      (White
         (Pawn a2 b2 c2 d2 e2 f2 g2 h2)
         (Knight b1 g1)
         (Bishop c1 f1)
         (Rook a1 h1)
         (Queen d1)
         (King e1)
      )
      (Black
         (Pawn a7 b7 c7 d7 e7 f7 g7 h7)
         (Knight b8 g8)
         (Bishop c8 f8)
         (Rook a8 h8)
         (Queen d8)
         (King e8)
      )
   )

   (piece
      (name Pawn)
	  (help "Brrbrr: Zieht und schlägt ein Feld vorwärts, ab 7. Reihe in Brombrrbrr umgewandelt")
      (image White "images\Chess\wpawn.bmp" Black "images\Chess\bpawn.bmp")
      (moves
         (Pawn-move)
      )
   )


(piece
      (name PromotedWieher)
	  (help "Bromwieher: zieht wie Pflöck ausser den beiden Feldern diagonal rückwärts")
      (image White "images\Chess\wDownKnight.bmp" Black "images\Chess\bDownknight.bmp")
      (moves
	 (pfloeckzug n)
         (pfloeckzug e)
         (pfloeckzug s)
         (pfloeckzug w)
         (pfloeckzug ne)
         (pfloeckzug nw)
      )	     
   )

 (piece
      (name PromotedPawn)
	  (help "Brombrrbrr: zieht wie Pflöck ausser den beiden Feldern diagonal rückwärts")
      (image White "images\Chess\wDownPawn.bmp" Black "images\Chess\bDownpawn.bmp")
      (moves
	 (pfloeckzug n)
         (pfloeckzug e)
         (pfloeckzug s)
         (pfloeckzug w)
         (pfloeckzug ne)
         (pfloeckzug nw)
      )	     
   )

 (piece
      (name PromotedQueen)
	  (help "Christina - die Perfektion der besten Art und Weise : zieht eine beliebige Anzahl von Feldern in irgendeine Richtung")
      (image White "images\Chess\wDownQueen.bmp" Black "images\Chess\bDownQueen.bmp")
      (moves
       (slide n)
	(slide e)
	(slide s)
	(slide w)
	(slide ne)
	(slide nw)
	(slide se)
	(slide sw)
      )	     
   )





   (piece
      (name Knight)
	  (help "Wieher: zieht 2 vorwärts eins seitlich,kann Figuren überspringen, ab 7.Reihe in Bromwieher umgewandelt")
      (image White "images\Chess\wknight.bmp" Black "images\Chess\bknight.bmp")
      (moves
	     (wiehermove1)
             (wiehermove2)                 
      )	     

   )
   (piece
     (name PromotedRook)
     (help "Bromrock: zieht wie Rock und wie Pflöck")
     (image White "images\Chess\wDownRook.bmp" Black "images\Chess\bDownRook.bmp")
(moves
         (pfloeckzug ne)
         (pfloeckzug nw)
         (pfloeckzug se)
         (pfloeckzug sw)
         (slide n)
         (slide e)
         (slide s)
         (slide w)
      )
    )
   (piece
      (name Bishop)
	  (help "Slotser: zieht eine beliebige Anzahl von Feldern diagonal")
      (image White "images\Chess\wbishop.bmp" Black "images\Chess\bbishop.bmp")
      (moves
         (slotserslide ne)
         (slotserslide nw)
         (slotserslide se)
         (slotserslide sw)
      )
   )

(piece
      (name PromotedBishop)
	  (help "Bromslotser: zieht wie Slotser und Pflöck")
      (image White "images\Chess\wDownbishop.bmp" Black "images\Chess\bDownbishop.bmp")
      (moves
         (pfloeckzug n)
         (pfloeckzug w)
         (pfloeckzug e)
         (pfloeckzug s)
         (slide ne)
         (slide nw)
         (slide se)
         (slide sw)
      )
   )


   (piece
      (name Rook)
	  (help "Rock: zieht eine beliebige Anzahl von Feldern waagerecht oder senkrecht")
      (image White "images\Chess\wrook.bmp" Black "images\Chess\brook.bmp")
      (attribute never-moved? true)
      (moves
         
         (rockslide n)
         (rockslide e)
         (rockslide s)
         (rockslide w)
      )
   )

   (piece
      (name Queen)
	  (help "Babsi: zieht ein Feld in irgendeine Richtung, ab 7. Reihe Beförderung zur Christina")
      (image White "images\Chess\wqueen.bmp" Black "images\Chess\bqueen.bmp")
      (moves
         (ischnzug n)
         (ischnzug w)
         (ischnzug e)
         (ischnzug s)
	 (ischnzug ne)
         (ischnzug nw)
         (ischnzug se)
         (ischnzug sw)

      )
   )

   (piece
      (name King)
	  (help "Pflöck: zieht um ein Feld in irgendeine Richtung")
      (image White "images\Chess\wking.bmp" Black "images\Chess\bking.bmp")
      (moves
         (pfloeckzug n)
         (pfloeckzug e)
         (pfloeckzug s)
         (pfloeckzug w)
         (pfloeckzug ne)
         (pfloeckzug nw)
         (pfloeckzug se)
         (pfloeckzug sw)
         
      )
   )

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