###
# Copyright (c) 2012, James Scott
# Copyright (c) 2020, oddluck <oddluck@riseup.net>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
#   * Redistributions of source code must retain the above copyright notice,
#     this list of conditions, and the following disclaimer.
#   * Redistributions in binary form must reproduce the above copyright notice,
#     this list of conditions, and the following disclaimer in the
#     documentation and/or other materials provided with the distribution.
#   * Neither the name of the author of this software nor the name of
#     contributors to this software may be used to endorse or promote products
#     derived from this software without specific prior written consent.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
###

from random import choice
import os
import json

# Settings you change
card_folder = "cards"
answer_cards_file_names = ["answer_main", "custom_answer_cards"]
question_cards_file_name = ["question_main", "custom_question_cards"]
blank_format = "__________"

# Settings that are used
# this is one level higher than it should be
base_directory = os.path.dirname(os.path.abspath(__file__))


class Deck(object):
    def __init__(self):
        self.answerDb = self.parse_card_file("answer")
        self.questionDb = self.parse_card_file("question")

    def parse_card_file(self, card_type):
        card_type_map = {
            "answer": answer_cards_file_names,
            "question": question_cards_file_name,
        }

        # Read text file into a list containing only strings of text for the card
        card_text_list = []
        for file_name in card_type_map[card_type]:
            path = os.path.abspath(os.path.join(base_directory, card_folder, file_name))
            if os.path.exists(path):
                with open(path) as file_handle:
                    file_data = file_handle.readlines()
                card_text_list.extend(file_data)
        if len(card_text_list) == 0:
            raise IOError

        # Deduplicate the text from the cards
        card_text_list = list(set(card_text_list))

        # Turn the strings of text into a Card object
        card_object_list = []
        for index, card in enumerate(card_text_list):
            # Prepare card text by removing control chars
            card = card.rstrip()
            # Figure out how many answers are required for a question card
            if card_type == "question":
                answers = self.count_answers(card)
                card_object_list.append(Card(index, card_type, card, answers=answers))
            else:
                card_object_list.append(Card(index, card_type, card))
        return card_object_list

    def count_answers(self, text):
        blanks = text.count(blank_format)
        if blanks == 0:
            return 1
        else:
            return blanks

    def drawCard(self, typeOfCard):
        typeMap = {"answer": self.answerDb, "question": self.questionDb}
        type = typeMap[typeOfCard]
        card = choice(type)
        type.remove(card)
        return card

    def __repr__(self):
        return json.dumps(
            {"questions": len(self.questionDb), "answers": len(self.answerDb)}
        )


class Card(object):
    def __init__(self, id, type, text, **kwargs):
        self.id = id
        self.type = type
        self.text = text
        for key, value in kwargs.items():
            setattr(self, key, value)

    def __str__(self):
        return self.text


class Game(object):
    def __init__(self, players, round_limit=5):
        self.round_limit = round_limit
        self.deck = Deck()
        self.players = self.build_player_list(players)
        self.round = None
        self.question = None
        self.score = {}

    def build_player_list(self, players):
        player_list = {}
        for player in players:
            player_list[player] = PlayerHand(self.deck)
        return player_list

    def next_round(self):
        if not self.round:
            self.round = 0
        if self.round < self.round_limit:
            self.round += 1
        else:
            raise IndexError

        self.question = self.deck.drawCard("question")
        return {"question": self.question, "hands": self.players}

    def end_round(self, winner_name, cards_played):
        self.score_keeping(winner_name)
        for player in list(cards_played.keys()):
            if isinstance(cards_played[player], Card):
                cards_played[player] = [cards_played[player]]
            for card in cards_played[player]:
                self.players[player].card_list.remove(card)
            self.players[player].deal_hand(self.deck)

    def score_keeping(self, player_name):
        if player_name not in self.players:
            raise NameError
        if player_name in self.score:
            self.score[player_name] += 1
        else:
            self.score[player_name] = 1

    def cardSubmit(self):
        for player in self.players:
            cardInput = None
            cardRange = list(range(5))
            while cardInput not in cardRange:
                try:
                    cardInput = int(input("%s Pick a Card: " % player)) - 1
                except ValueError:
                    pass


class Round(object):
    def __init__(self, deck, players):
        self.question = deck.drawCard("question")
        self.players = players


class PlayerHand(object):
    def __init__(self, deck):
        self.card_list = []
        self.deal_hand(deck)

    def deal_hand(self, deck):
        while len(self.card_list) < 5:
            card = deck.drawCard("answer")
            self.card_list.append(card)

    def text_list(self):
        card_text = []
        for index, card in enumerate(self.card_list):
            card_text.append(card.text)
        return card_text

    def showHand(self):
        print("%s" % self.text_list())


if __name__ == "__main__":
    game = Game(["Bear", "Swim", "Jazz"])
    print(
        "\nGame started with the following players: %s \n" % list(game.players.keys())
    )
    round = game.next_round()
    print("The first question is: %s \n" % game.question.text)

    print("Swim's hand the easy way:")
    game.players["Swim"].showHand()

    print("\nJazz's hand in a weird way")
    round["hands"]["Jazz"].showHand()

    print("\nBear's hand the hard way:")
    for index, card in enumerate(game.players["Bear"].card_list):
        print("%s: %s" % (index + 1, card.text))

    print(
        "\nEnd the round by picking a random cards amd winner: %s"
        % str(test.build_end_round_data(game))
    )