package fassade;

import domain.Game;
import domain.Player;
import domain.Sheet;
import domain.sheets.Category;

import java.util.*;

public class KniffelSystem {
    ArrayList<String> playerColors;
    ArrayList<Category> allValidCombinations = new ArrayList<>();
    Game game;
    public KniffelSystem(){
        game = new Game();
        playerColors = new ArrayList<>(Arrays.asList(
                "\u001B[31m",      // Quelle 2 Anfang
                "\u001B[32m",      //
                "\u001B[34m",      //
                "\u001B[33m",      //
                "\u001B[36m"));    // Quelle 2 Ende
    }


    public String LeaderBaordData(){
        return "Leaderboard - TODO \n";
    }


    public String addPlayer(int playerNumber, String name) {
        String playerColor = colorPicker(playerNumber);
        Player playerToAdd = new Player(playerNumber, name, playerColor, 0);
        game.addPlayer(playerToAdd);

        return changeStringFormat(name, playerColor);
    }


    public String changeStringFormat(String string, String formatation){
        String ANSI_RESET = "\u001B[0m";

        return String.format(formatation + string + ANSI_RESET);
    }


    private String colorPicker(int playerNumber){
        if (playerNumber == 1){
            return "\u001B[35m";   // Quelle 2
        }

        Random rand = new Random();                             // Quelle 1 Anfang
        int randomIndex = rand.nextInt(playerColors.size());    //
        return playerColors.remove(randomIndex);                // Quelle 1 Ende
    }


    public Player getCurrentPlayer(){
        return game.getCurrentPlayer();
    }


    public void nextPlayer(){
        game.nextTurn();
    }


    public void creteDevPlayers(int amountPlayer){
        String[] names = {"Vic", "Nastja", "Lilli", "Emelie", "Esra", "Oli"};
        for (int i = 0; i < amountPlayer; i++){
            addPlayer(i+1, names[i]);
        }
    }


    public ArrayList<Integer> rollDices(ArrayList<Integer> rolls, String keptDice){
        //? DEV TEST
        if (keptDice.startsWith("dev")){
            return createDevRoll(keptDice);
        }

        ArrayList<Integer> oldRolls = extractKeptDice(rolls, keptDice);

        int amountNewRolls = oldRolls.size();
        ArrayList<Integer> newRolls = rollMultipleDice(5 - amountNewRolls);

        oldRolls.addAll(newRolls);

        return oldRolls;
    }


    private ArrayList<Integer> extractKeptDice(ArrayList<Integer> previousRolls, String keptDice){
        ArrayList<Integer> keptRolls = new ArrayList<Integer>();

        if (keptDice.isEmpty()){
            return keptRolls;
        }

        //? Remove whitespaces
        keptDice = keptDice.replaceAll("\\s+","");

        if (keptDice.length() == 1){
            int singleIndex = Integer.parseInt(keptDice);
            keptRolls.add(previousRolls.get(singleIndex - 1));
            return keptRolls;
        }

        keptDice = keptDice.substring(1, keptDice.length()-1);

        String[] keptDiceIndicesStrings = keptDice.split(",");

        for (String keptDiceIndicesString : keptDiceIndicesStrings) {
            int index = Integer.parseInt(keptDiceIndicesString);
            keptRolls.add(previousRolls.get(index - 1));
        }

        return keptRolls;
    }


    private ArrayList<Integer> rollMultipleDice(int amountRolls){
        ArrayList<Integer> rolls = new ArrayList<>();
        if (amountRolls == 0){
            return rolls;
        }

        for (int i = 0; i < amountRolls; i++){
            rolls.add(game.rollDice());
        }
        return rolls;
    }


    public String evaluateRoll(ArrayList<Integer> rolls){
        HashMap<String, Category> possibleCombinations = createCategoryHashMap();
        ArrayList<Category> validUpperCombinations = new ArrayList<>();
        allValidCombinations = new ArrayList<>();
        //TODO Add starwars logic


        for (int dice : rolls){
            switch (dice){
                case 1:
                    possibleCombinations.get("Aces").addAmount();
                    break;
                case 2:
                    possibleCombinations.get("Twos").addAmount();
                    break;
                case 3:
                    possibleCombinations.get("Threes").addAmount();
                    break;
                case 4:
                    possibleCombinations.get("Fours").addAmount();
                    break;
                case 5:
                    possibleCombinations.get("Fives").addAmount();
                    break;
                case 6:
                    possibleCombinations.get("Sixes").addAmount();
                    break;
            }
        }

        StringBuilder sb = new StringBuilder();
        sb.append(String.format("%s \n", changeStringFormat("Possible combinations:", "\u001B[32m")));
        sb.append(String.format("%s \n", changeStringFormat("Upper half:", "\u001b[4m")));


        for (String key : possibleCombinations.keySet()) {
            Category keyObj = possibleCombinations.get(key);

            if (keyObj.getAmount() != 0){
                validUpperCombinations.add(keyObj);
                addCombinationToStringbuilder(sb, keyObj, allValidCombinations);
            }
        }

        //? ------------------------------ LOWER HALF-------------------------------------------------
        sb.append("\n");
        sb.append(String.format("%s \n", changeStringFormat("Lower half:", "\u001b[4m")));

        int index = 0;
        Category keyObj;
        for(Category category : validUpperCombinations){

            //? Three of a kind
            if (category.getAmount() >= 3){
                keyObj = possibleCombinations.get("ThreeOfKind");

                keyObj.calcValueFromRoll(rolls);
                addCombinationToStringbuilder(sb, keyObj, allValidCombinations);
            }

            //? Four of a kind
            if (category.getAmount() >= 4){
                keyObj = possibleCombinations.get("FourOfKind");

                keyObj.calcValueFromRoll(rolls);
                addCombinationToStringbuilder(sb, keyObj, allValidCombinations);
            }

            //? Full House
            if (category.getAmount() == 3){
                for(Category innerCategory : validUpperCombinations){
                    if ((innerCategory.getAmount() == 2) && !(innerCategory.toString().equals(category.toString()))){
                        keyObj = possibleCombinations.get("FullHouse");

                        keyObj.independentValue();
                        addCombinationToStringbuilder(sb, keyObj, allValidCombinations);
                    }
                }
            }

            ArrayList<Integer> sortedRolls = new ArrayList<>(rolls);
            Collections.sort(sortedRolls);


            //? Small Straight
            if (index == 0) {
                checkForSmallStraight(sortedRolls, possibleCombinations, sb);
            }

            //? Large Straight
            if (index == 0){
                checkForLargeStraight(sortedRolls, index, possibleCombinations, sb);
            }

            //? Yahtzee
            if (category.getAmount() == 5){
                keyObj = possibleCombinations.get("Yahtzee");

                keyObj.independentValue();
                addCombinationToStringbuilder(sb, keyObj, allValidCombinations);
            }

            index ++;
        }

        keyObj = possibleCombinations.get("Chance");

        keyObj.calcValueFromRoll(rolls);
        addCombinationToStringbuilder(sb, keyObj, allValidCombinations);

        return sb.toString();
    }


    private void checkForLargeStraight(ArrayList<Integer> sortedRolls, int index, HashMap<String, Category> possibleCombinations, StringBuilder sb) {
        Category keyObj;
        int amountRolls = sortedRolls.size();

        if ((sortedRolls.get(index) + 1) == sortedRolls.get(index + 1)){
            boolean isNotLargeStraight = false;

            for (int i = 1; i < (amountRolls - 1); i++){

                if ((sortedRolls.get(i) + 1) != sortedRolls.get(i + 1)){
                    isNotLargeStraight = true;
                    break;
                }
            }
            if (!(isNotLargeStraight)){
                keyObj = possibleCombinations.get("LargeStraight");

                keyObj.independentValue();
                addCombinationToStringbuilder(sb, keyObj, allValidCombinations);
            }
        }
    }

    private void checkForSmallStraight(ArrayList<Integer> sortedRolls, HashMap<String, Category> possibleCombinations, StringBuilder sb) {
        Category keyObj;

        boolean isSmallStraight = false;
        for (int i = 0; i < sortedRolls.size() - 3; i++) {                  // Quelle 3 Anfang
            if (sortedRolls.get(i) + 1 == sortedRolls.get(i + 1)            //
                    && sortedRolls.get(i) + 2 == sortedRolls.get(i + 2)     //
                    && sortedRolls.get(i) + 3 == sortedRolls.get(i + 3))    //
            {                                                               // Quelle 3 Ende
                isSmallStraight = true;
                break;
            }
        }

        if (isSmallStraight) {
            keyObj = possibleCombinations.get("SmallStraight");

            keyObj.independentValue();
            addCombinationToStringbuilder(sb, keyObj, allValidCombinations);
        }
    }


    private void addCombinationToStringbuilder(StringBuilder sb, Category keyObj, ArrayList<Category> allValidCombinations){
        int keyValue = keyObj.getValue();
        String keyValueString = changeStringFormat(Integer.toString(keyValue), "\u001b[1m");

        allValidCombinations.add(keyObj);

        int keyAmount = keyObj.getAmount();
        if (keyAmount == 0) {
            sb.append(String.format("%s: Value: %s \n", keyObj, keyValueString));
            return;
        }

        sb.append(String.format("%s: %d, Value: %s \n",keyObj, keyAmount, keyValueString));
    }


    public void writeToSheet(String sheetInput){
        HashMap<String, Category> possibleCombinations = createCategoryHashMap();

        Sheet currentPlayerSheet = getCurrentPlayer().getSheet();

        Category categoryToWrite = possibleCombinations.get(sheetInput);


        boolean contains = false;

        for (Category validCombination : allValidCombinations){
            if(validCombination.toString().equals(categoryToWrite.toString())){
                categoryToWrite = validCombination;
                contains = true;
                break;
            }
        }

        if (contains){
            currentPlayerSheet.writeCategory(categoryToWrite, false);
        }else {
            currentPlayerSheet.writeCategory(categoryToWrite, true);
        }
    }


    public ArrayList<String> getUnusedRows(){
        Sheet currentPlayerSheet = getCurrentPlayer().getSheet();
        return currentPlayerSheet.getUnusedRows();
    }


    public boolean checkGameEnd(){
        return getCurrentPlayer().getSheet().checkGameEnd();
    }


    private HashMap<String, Category> createCategoryHashMap(){
        // TODO starwars sheet implementieren
        Sheet sheet = new Sheet();

        return sheet.getAllCategories();
    }


    private ArrayList<Integer> createDevRoll(String keptDice){
        // Format: dev(1,2,3,4,5)
        // values aren't indices, they are the dice value
        ArrayList<Integer> devRoll =  new ArrayList<>();

        keptDice = keptDice.replaceAll("\\s+","");
        keptDice = keptDice.substring(4, keptDice.length()-1);

        String[] rollStrings = keptDice.split(",");
        for (String rollString : rollStrings){
            devRoll.add(Integer.parseInt(rollString));
        }
        return devRoll;
    }


    //! TEST
    public String[] getAllPlayerStrings(){
        ArrayList<Player> players = game.getPlayers();
        String[] returnStrings = new String[players.size()];

        for (int i = 0; i < players.size(); i++){
            returnStrings[i] = players.get(i).toString();
        }

        return returnStrings;
    }
}