/**

 *   $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 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 = 80;

            break;

        case KNIGHT:

            v = 30;

            break;

        case BISHOP:

            v = 30;

            break;

        case QUEEN:

            v = 90;

            break;

        case KING:

            v = 120;

            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;

    }

    /**