/**

 *   $Id: ChessBoard.java 152 2008-04-27 02:04:31Z mbroeker $

 *  $URL: http://localhost/svn/eclipse/Schachspiel/trunk/org/homelinux/largo/games/board/chessboard/ChessBoard.java $

 */

package org.homelinux.largo.games.board.chessboard;

import java.awt.Image;

import org.homelinux.largo.games.board.Board;

import org.homelinux.largo.games.board.Piece;

import org.homelinux.largo.utils.ImgComponent;

public class ChessBoard extends Board {

	static final long serialVersionUID = 140208;

	static final int ROOK = 1;

	static final int KNIGHT = 2;

	static final int BISHOP = 3;

	static final int QUEEN = 4;

	static final int KING = 5;

	static final int PAWN = 6;

	final Piece white_queen = new Piece(new ImgComponent("images/white_queen.png").getImage(),

					"white", QUEEN, 90);

	final Piece black_queen = new Piece(new ImgComponent("images/black_queen.png").getImage(),

					"black", QUEEN, 90);

	boolean white_rochades_small;

	boolean white_rochades_big;

	boolean black_rochades_small;

	boolean black_rochades_big;

	void initBoard () {

		add (new ImgComponent ("images/black_rook.png").getImage (), 0, "black", ROOK);

		add (new ImgComponent ("images/black_knight.png").getImage (), 1, "black", KNIGHT);

		add (new ImgComponent ("images/black_bishop.png").getImage (), 2, "black", BISHOP);

		add (new ImgComponent ("images/black_queen.png").getImage (), 3, "black", QUEEN);

		add (new ImgComponent ("images/black_king.png").getImage (), 4, "black", KING);

		add (new ImgComponent ("images/black_bishop.png").getImage (), 5, "black", BISHOP);

		add (new ImgComponent ("images/black_knight.png").getImage (), 6, "black", KNIGHT);

		add (new ImgComponent ("images/black_rook.png").getImage (), 7, "black", ROOK);

		for (int i = 0; i < 8; i++)

			add (new ImgComponent ("images/black_pawn.png").getImage (), 8 + i, "black", PAWN);

		add (new ImgComponent ("images/white_rook.png").getImage (), 56, "white", ROOK);

		add (new ImgComponent ("images/white_knight.png").getImage (), 57, "white", KNIGHT);

		add (new ImgComponent ("images/white_bishop.png").getImage (), 58, "white", BISHOP);

		add (new ImgComponent ("images/white_queen.png").getImage (), 59, "white", QUEEN);

		add (new ImgComponent ("images/white_king.png").getImage (), 60, "white", KING);

		add (new ImgComponent ("images/white_bishop.png").getImage (), 61, "white", BISHOP);

		add (new ImgComponent ("images/white_knight.png").getImage (), 62, "white", KNIGHT);

		add (new ImgComponent ("images/white_rook.png").getImage (), 63, "white", ROOK);

		for (int i = 0; i < 8; i++)

			add (new ImgComponent ("images/white_pawn.png").getImage (), 55 - i, "white", PAWN);

	}

	/**

	 * The init method initializes a complete chess board with figures and a history.

	 */

	public void init() {

		super.init();

		initBoard();

		board_pieces = getPieces();

		repaint();

	}

	public ChessBoard (int w, int h) {

		super(w, h);

	}

	void add (Image img, int i, String c, int t) {

		int v = 0;

		switch (t) {

		case ROOK:

			v = 40;

			break;

		case KNIGHT:

			v = 30;

			break;

		case BISHOP:

			v = 30;

			break;

		case QUEEN:

			v = 90;

			break;

		case KING:

			v = 500;

			break;

		case PAWN:

			v = 10;

			break;

		}

		setPiece(i, new Piece(img, c, t, v));

	}

	/**

	 * returns true, when the white king is at pieces[i]

	 */

	public boolean isWhiteKing(int i) {

		if ( isWhite(i) && getType(i) == KING)

			return true;

		return false;

	}

	/**

	 * returns true, when the black king is at pieces[i]

	 */

	public boolean isBlackKing(int i) {

		if ( isBlack(i) && getType(i) == KING)

			return true;

		return false;

	}

	/**

	 * Returns the score of the current position

	 * Every field controlled by [color] gives one point

	 * A King, controlled by [color], gives 10 extra points

	 */

	public int controls(String color) {

		int t, o;

		int value = 0;

		for ( o=0;o<64;o++) {

			if (color.equals(getColor(o))) {

				for (t=0;t<64;t++) {

					if(validMove(t, o)) {

						if ( getType(t) == KING )

							value+=10;

						value++;

					}

				}

			}

		}

		return value;

	}

	/**

	 * Checks, wether this move is possible or not.

	 */

	public boolean validMove (int t, int o) {

		int steps;

		int rows;

		int dx;

		/* Must be here */

		white_rochades_small = false;

		white_rochades_big = false;

		black_rochades_small = false;

		black_rochades_big = false;

		if ( t == o )

			return false;

		if (isSamePiece(t, o))

			return false;

		if (getType(o) == EMPTY)

			return false;

		/*

		 *	00 01 02 03 04 05 06 07

		 *	08 09 10 11 12 13 14 15

		 *	16 17 18 19 20 21 22 23

		 *	24 25 26 27 28 29 30 31

		 *	32 33 34 35 36 37 38 39

		 *	40 41 42 43 44 45 46 47

		 *	48 49 50 51 52 53 54 55

		 *	56 57 58 59 60 61 62 63

		 */

		steps = Math.abs(t-o);

		rows = Math.abs(t/8 - o/8);

		switch( getType(o) ) {

		case ROOK:

			if (steps < 8 && rows == 0 ) {

				if(t>o)

					for ( dx = o+1; dx < t; dx++ ) {

						if ( getColor(dx) != null ) {

							return false;

						}

					}

				else

					for ( dx = o-1; dx > t; dx-- ) {

						if ( getColor(dx) != null ) {

							return false;

						}

					}

				return true;

			}

			if (steps % 8 == 0 ) {

				if ( t>o ) {

					for ( dx = o+8;  dx < t; dx+=8 ) {

						if (getColor(dx) != null)

							return false;

					}

				} else {

					for ( dx = o-8;  dx > t; dx-=8 ) {

						if (getColor(dx) != null)

							return false;

					}

				}

				if (steps == 8 && rows == 1)

					return true;

				if (steps == 16 && rows == 2)

					return true;

				if (steps == 24 && rows == 3)

					return true;

				if (steps == 32 && rows == 4)

					return true;

				if (steps == 40 && rows == 5)

					return true;

				if (steps == 48 && rows == 6)

					return true;

				if (steps == 56 && rows == 7)

					return true;

			}

			break;

		case KNIGHT:

			/* works fine */

			if (steps == 6 && rows == 1)

				return true;

			if (steps == 10 && rows == 1)

				return true;

			if (steps == 15 && rows == 2)

				return true;

			if (steps == 17 && rows == 2)

				return true;

			break;

		case BISHOP:

			if (steps % 7 == 0 ) {

				if ( t>o ) {

					for ( dx = o+7;  dx < t; dx+=7 ) {

						if (getColor(dx) != null)

							return false;

					}

				} else {

					for ( dx = o-7;  dx > t; dx-=7 ) {

						if (getColor(dx) != null)

							return false;

					}

				}

				if (steps == 7 && rows == 1)

					return true;

				if (steps == 14 && rows == 2)

					return true;

				if (steps == 21 && rows == 3)

					return true;

				if (steps == 28 && rows == 4)

					return true;

				if (steps == 35 && rows == 5)

					return true;

				if (steps == 42 && rows == 6)

					return true;

				if (steps == 49 && rows == 7)

					return true;

			}

			if (steps % 9 == 0 ) {

				if ( t>o ) {

					for ( dx = o+9;  dx < t; dx+=9 ) {

						if (getColor(dx) != null)

							return false;

					}

				} else {

					for ( dx = o-9; dx > t; dx-=9 ) {

						if (getColor(dx) != null)

							return false;

					}

				}

				if (steps == 9 && rows == 1)

					return true;

				if (steps == 18 && rows == 2)

					return true;

				if (steps == 27 && rows == 3)

					return true;

				if (steps == 36 && rows == 4)

					return true;

				if (steps == 45 && rows == 5)

					return true;

				if (steps == 54 && rows == 6)

					return true;

				if (steps == 63 && rows == 7)

					return true;

			}

			break;

		case QUEEN:

			if (steps < 8 && rows == 0 ) {

				if(t>o)

					for ( dx = o+1; dx < t; dx++ ) {

						if ( getColor(dx) != null )

							return false;

					}

				else

					for ( dx = o-1; dx > t; dx-- ) {

						if ( getColor(dx) != null )

							return false;

					}

				return true;

			}

			if (steps % 8 == 0 ) {

				if ( t>o ) {

					for ( dx = o+8;  dx < t; dx+=8 ) {

						if (getColor(dx) != null)

							return false;

					}

				} else {

					for ( dx = o-8;  dx > t; dx-=8 ) {

						if (getColor(dx) != null)

							return false;

					}

				}

				if (steps == 8 && rows == 1)

					return true;

				if (steps == 16 && rows == 2)

					return true;

				if (steps == 24 && rows == 3)

					return true;

				if (steps == 32 && rows == 4)

					return true;

				if (steps == 40 && rows == 5)

					return true;

				if (steps == 48 && rows == 6)

					return true;

				if (steps == 56 && rows == 7)

					return true;

			}

			if (steps % 7 == 0 ) {

				if ( t>o ) {

					for ( dx = o+7;  dx < t; dx+=7 ) {

						if (getColor(dx) != null)

							return false;

					}

				} else {

					for ( dx = o-7;  dx > t; dx-=7 ) {

						if (getColor(dx) != null)

							return false;

					}

				}

				if (steps == 7 && rows == 1)

					return true;

				if (steps == 14 && rows == 2)

					return true;

				if (steps == 21 && rows == 3)

					return true;

				if (steps == 28 && rows == 4)

					return true;

				if (steps == 35 && rows == 5)

					return true;

				if (steps == 42 && rows == 6)

					return true;

				if (steps == 49 && rows == 7)

					return true;

			}

			if (steps % 9 == 0 ) {

				if ( t>o ) {

					for ( dx = o+9;  dx < t; dx+=9 ) {

						if (getColor(dx) != null)

							return false;

					}

				} else {

					for ( dx = o-9;  dx > t; dx -=9 ) {

						if (getColor(dx) != null)

							return false;

					}

				}

				if (steps == 9 && rows == 1)

					return true;

				if (steps == 18 && rows == 2)

					return true;

				if (steps == 27 && rows == 3)

					return true;

				if (steps == 36 && rows == 4)

					return true;

				if (steps == 45 && rows == 5)

					return true;

				if (steps == 54 && rows == 6)

					return true;

				if (steps == 63 && rows == 7)

					return true;

			}

			break;

		case KING:

			if ( (steps == 1) && (rows == 0) )

				return true;

			if ( (steps == 8) && (rows == 1) )

				return true;

			if ( (steps == 7) && (rows == 1) )

				return true;

			if ( (steps == 9) && (rows == 1) )

				return true;

			if ( (steps == 2) && (rows == 0) ) {

				if ( isWhiteKing(o) ) {		/* White: Rochade */

					if ( isWhiteKing(60) && isEmpty(61) && isEmpty(62) && (t==62) ) {

						if ( (getType(63) == ROOK) && isWhite(63) ) {

							white_rochades_small = true;

							return true;

						}

					}

					if ( isWhiteKing(60) && isEmpty(59) && isEmpty(58) && isEmpty(57) && (t==58) ) {

						if ( (getType(56) == ROOK) && isWhite(56) ) {

							white_rochades_big = true;

							return true;

						}

					}

				}

				if ( isBlackKing(o) ) {		/* Black: Rochade */

					if ( isBlackKing(4) && isEmpty(5) && isEmpty(6) && (t==6) ) {

						if ( (getType(7) == ROOK) && isBlack(7) ) {

							black_rochades_small = true;

							return true;

						}

					}

					if ( isBlackKing(4) && isEmpty(3) && isEmpty(2) && isEmpty(1) && (t==2) ) {

						if ( (getType(0) == ROOK) && isBlack(0) ) {

							black_rochades_big = true;

							return true;

						}

					}

				}

			}

			break;

		case PAWN:

			if (getColor(o).equals("white")) {

				if (steps == 7 && rows == 1 && isEnemy(t, o) && t<o)

					return true;

				if (steps == 9 && rows == 1 && isEnemy(t, o) && t<o)

					return true;

			} else {

				if (steps == 7 && rows == 1 && isEnemy(t, o) && t>o)

					return true;

				if (steps == 9 && rows == 1 && isEnemy(t, o) && t>o)

					return true;

			}

			if (steps % 8 == 0 ) {

				if ( t>o ) {

					for ( dx = o+8;  dx <= t; dx+=8 ) {

						if (getColor(dx) != null)

							return false;

					}

				} else {

					for ( dx = o-8; dx >= t; dx-=8 ) {

						if (getColor(dx) != null)

							return false;

					}

				}

				if (steps == 8 && rows == 1) {

					if ( getColor(o).equals("white") && t < o )

						return true;

					if ( getColor(o).equals("black") && t > o )

						return true;

				}

				if (steps == 16 && rows == 2 && (o>= 8 && o <=15) ) {

					if ( getColor(o).equals("white") && t < o )

						return true;

					if ( getColor(o).equals("black") && t > o )

						return true;

				}

				if (steps == 16 && rows == 2 && (o>=48 && o <=55) ) {

					if ( getColor(o).equals("white") && t < o )

						return true;

					if ( getColor(o).equals("black") && t > o )

						return true;

				}

			}

			break;

		}

		return false;

	}

	/**

	 * This method must be called immediately after isValidMove(t, o)

	 */

	boolean rochade() {

		if (white_rochades_small) {

			setPiece(61, getPiece(63));

			setPiece(63, new Piece(null, null, EMPTY, 0));

			return true;

		}

		if (white_rochades_big) {

			setPiece(59, getPiece(56));

			setPiece(56, new Piece(null, null, EMPTY, 0));

			return true;

		}

		if (black_rochades_small) {

			setPiece(5, getPiece(7));

			setPiece(7, new Piece(null, null, EMPTY, 0));

			return true;

		}

		if (black_rochades_big) {

			setPiece(3, getPiece(0));

			setPiece(0, new Piece(null, null, EMPTY, 0));

			return true;

		}

		return false;

	}

	/**

	 * checks, whether color is in check or not.

	 */

	public boolean isCheck(String color) {