from discord.ext import commands
from random import choice
from .utils.dataIO import dataIO
from .utils import checks
from .utils.chat_formatting import box
from collections import Counter, defaultdict
import time
import os
import asyncio
import chardet

DEFAULTS = {"MAX_SCORE"    : 10,
            "TIMEOUT"      : 120,
            "DELAY"        : 15,
            "BOT_PLAYS"    : False,
            "REVEAL_ANSWER": True}


class Trivia:
    """General commands."""
    def __init__(self, bot):
        self.bot = bot
        self.trivia_sessions = []
        self.file_path = "data/trivia/settings.json"
        settings = dataIO.load_json(self.file_path)
        self.settings = defaultdict(lambda: DEFAULTS.copy(), settings)

    @commands.group(pass_context=True, no_pm=True)
    @checks.mod_or_permissions(administrator=True)
    async def triviaset(self, ctx):
        """Change trivia settings"""
        server = ctx.message.server
        if ctx.invoked_subcommand is None:
            settings = self.settings[server.id]
            msg = box("Red gains points: {BOT_PLAYS}\n"
                      "Seconds to answer: {DELAY}\n"
                      "Points to win: {MAX_SCORE}\n"
                      "Reveal answer on timeout: {REVEAL_ANSWER}\n"
                      "".format(**settings))
            msg += "\nSee {}help triviaset to edit the settings".format(ctx.prefix)
            await self.bot.say(msg)

    @triviaset.command(pass_context=True)
    async def maxscore(self, ctx, score : int):
        """Points required to win"""
        server = ctx.message.server
        if score > 0:
            self.settings[server.id]["MAX_SCORE"] = score
            self.save_settings()
            await self.bot.say("Points required to win set to {}".format(score))
        else:
            await self.bot.say("Score must be superior to 0.")

    @triviaset.command(pass_context=True)
    async def timelimit(self, ctx, seconds : int):
        """Maximum seconds to answer"""
        server = ctx.message.server
        if seconds > 4:
            self.settings[server.id]["DELAY"] = seconds
            self.save_settings()
            await self.bot.say("Maximum seconds to answer set to {}".format(seconds))
        else:
            await self.bot.say("Seconds must be at least 5.")

    @triviaset.command(pass_context=True)
    async def botplays(self, ctx):
        """Red gains points"""
        server = ctx.message.server
        if self.settings[server.id]["BOT_PLAYS"]:
            self.settings[server.id]["BOT_PLAYS"] = False
            await self.bot.say("Alright, I won't embarass you at trivia anymore.")
        else:
            self.settings[server.id]["BOT_PLAYS"] = True
            await self.bot.say("I'll gain a point everytime you don't answer in time.")
        self.save_settings()

    @triviaset.command(pass_context=True)
    async def revealanswer(self, ctx):
        """Reveals answer to the question on timeout"""
        server = ctx.message.server
        if self.settings[server.id]["REVEAL_ANSWER"]:
            self.settings[server.id]["REVEAL_ANSWER"] = False
            await self.bot.say("I won't reveal the answer to the questions anymore.")
        else:
            self.settings[server.id]["REVEAL_ANSWER"] = True
            await self.bot.say("I'll reveal the answer if no one knows it.")
        self.save_settings()

    @commands.group(pass_context=True, invoke_without_command=True)
    async def trivia(self, ctx, list_name: str):
        """Start a trivia session with the specified list"""
        message = ctx.message
        server = message.server
        session = self.get_trivia_by_channel(message.channel)
        if not session:
            t = TriviaSession(self.bot, message.channel, self.settings[server.id])
            self.trivia_sessions.append(t)
            await t.load_questions(list_name)
        else:
            await self.bot.say("A trivia session is already ongoing in this channel.")

    @trivia.group(name="stop", pass_context=True)
    async def trivia_stop(self, ctx):
        """Stops an ongoing trivia session"""
        session = self.get_trivia_by_channel(ctx.message.channel)
        if session:
            await session.end_game()
            await self.bot.say("Trivia stopped.")
        else:
            await self.bot.say("There's no trivia session ongoing in this channel.")

    @trivia.group(name="list")
    async def trivia_list(self):
        """Shows available trivia lists"""
        lists = os.listdir("data/trivia/")
        lists = [l for l in lists if l.endswith(".txt") and " " not in l]
        lists = [l.replace(".txt", "") for l in lists]

        if lists:
            msg = "+ Available trivia lists\n\n" + ", ".join(lists)
            msg = box(msg, lang="diff")
            if len(lists) < 100:
                await self.bot.say(msg)
            else:
                await self.bot.whisper(msg)
        else:
            await self.bot.say("There are no trivia lists available.")

    def get_trivia_by_channel(self, channel):
        for t in self.trivia_sessions:
            if t.channel == channel:
                return t
        return None

    async def on_message(self, message):
        if message.author != self.bot.user:
            session = self.get_trivia_by_channel(message.channel)
            if session:
                await session.check_answer(message)

    async def on_trivia_end(self, instance):
        if instance in self.trivia_sessions:
            self.trivia_sessions.remove(instance)

    def save_settings(self):
        dataIO.save_json(self.file_path, self.settings)


class TriviaSession():
    def __init__(self, bot, channel, settings):
        self.bot = bot
        self.reveal_messages = ("I know this one! {}!",
                                "Easy: {}.",
                                "Oh really? It's {} of course.")
        self.fail_messages = ("To the next one I guess...",
                              "Moving on...",
                              "I'm sure you'll know the answer of the next one.",
                              "\N{PENSIVE FACE} Next one.")
        self.current_q = None # {"QUESTION" : "String", "ANSWERS" : []}
        self.question_list = ""
        self.channel = channel
        self.scores = Counter()
        self.status = None
        self.timer = None
        self.count = 0
        self.settings = settings

    async def load_questions(self, filename):
        path = "data/trivia/{}.txt".format(filename)
        if os.path.isfile(path):
            self.question_list = await self.load_list(path)
            self.status = "new question"
            self.timeout = time.perf_counter()
            if self.question_list:
                await self.new_question()
        else:
            await self.bot.say("There is no list with that name.")
            await self.stop_trivia()

    async def stop_trivia(self):
        self.status = "stop"
        self.bot.dispatch("trivia_end", self)

    async def end_game(self):
        self.status = "stop"
        if self.scores:
            await self.send_table()
        self.bot.dispatch("trivia_end", self)

    def guess_encoding(self, trivia_list):
        with open(trivia_list, "rb") as f:
            try:
                return chardet.detect(f.read())["encoding"]
            except:
                return "ISO-8859-1"

    async def load_list(self, qlist):
        encoding = self.guess_encoding(qlist)
        with open(qlist, "r", encoding=encoding) as f:
            qlist = f.readlines()
        parsed_list = []
        for line in qlist:
            if "`" in line and len(line) > 4:
                line = line.replace("\n", "")
                line = line.split("`")
                question = line[0]
                answers = []
                for l in line[1:]:
                    answers.append(l.lower().strip())
                if len(line) >= 2:
                    line = {"QUESTION" : question, "ANSWERS": answers} #string, list
                    parsed_list.append(line)
        if parsed_list != []:
            return parsed_list
        else:
            await self.stop_trivia()
            return None

    async def new_question(self):
        for score in self.scores.values():
            if score == self.settings["MAX_SCORE"]:
                await self.end_game()
                return True
        if self.question_list == []:
            await self.end_game()
            return True
        self.current_q = choice(self.question_list)
        self.question_list.remove(self.current_q)
        self.status = "waiting for answer"
        self.count += 1
        self.timer = int(time.perf_counter())
        msg = "**Question number {}!**\n\n{}".format(self.count, self.current_q["QUESTION"])
        await self.bot.say(msg)

        while self.status != "correct answer" and abs(self.timer - int(time.perf_counter())) <= self.settings["DELAY"]:
            if abs(self.timeout - int(time.perf_counter())) >= self.settings["TIMEOUT"]:
                await self.bot.say("Guys...? Well, I guess I'll stop then.")
                await self.stop_trivia()
                return True
            await asyncio.sleep(1) #Waiting for an answer or for the time limit
        if self.status == "correct answer":
            self.status = "new question"
            await asyncio.sleep(3)
            if not self.status == "stop":
                await self.new_question()
        elif self.status == "stop":
            return True
        else:
            if self.settings["REVEAL_ANSWER"]:
                msg = choice(self.reveal_messages).format(self.current_q["ANSWERS"][0])
            else:
                msg = choice(self.fail_messages)
            if self.settings["BOT_PLAYS"]:
                msg += " **+1** for me!"
                self.scores[self.bot.user] += 1
            self.current_q["ANSWERS"] = []
            await self.bot.say(msg)
            await self.bot.type()
            await asyncio.sleep(3)
            if not self.status == "stop":
                await self.new_question()

    async def send_table(self):
        t = "+ Results: \n\n"
        for user, score in self.scores.most_common():
            t += "+ {}\t{}\n".format(user, score)
        await self.bot.say(box(t, lang="diff"))

    async def check_answer(self, message):
        if message.author.id != self.bot.user.id:
            self.timeout = time.perf_counter()
            if self.current_q is not None:
                for answer in self.current_q["ANSWERS"]:
                    if answer in message.content.lower():
                        self.current_q["ANSWERS"] = []
                        self.status = "correct answer"
                        self.scores[message.author] += 1
                        msg = "You got it {}! **+1** to you!".format(message.author.name)
                        await self.bot.send_message(message.channel, msg)
                        return True


def check_folders():
    folders = ("data", "data/trivia/")
    for folder in folders:
        if not os.path.exists(folder):
            print("Creating " + folder + " folder...")
            os.makedirs(folder)


def check_files():
    if not os.path.isfile("data/trivia/settings.json"):
        print("Creating empty settings.json...")
        dataIO.save_json("data/trivia/settings.json", {})


def setup(bot):
    check_folders()
    check_files()
    bot.add_cog(Trivia(bot))