from typing import Dict, Optional, Tuple

from bemani.backend.ddr.base import DDRBase
from bemani.common import Profile, intish
from bemani.data import Score, UserID
from bemani.protocol import Node


class DDRGameShopHandler(DDRBase):
    def handle_game_shop_request(self, request: Node) -> Node:
        self.update_machine_name(request.attribute("name"))

        game = Node.void("game")
        game.set_attribute("stop", "0")
        return game


class DDRGameLogHandler(DDRBase):
    def handle_game_log_request(self, request: Node) -> Node:
        return Node.void("game")


class DDRGameMessageHandler(DDRBase):
    def handle_game_message_request(self, request: Node) -> Node:
        return Node.void("game")


class DDRGameRankingHandler(DDRBase):
    def handle_game_ranking_request(self, request: Node) -> Node:
        # Ranking request, unknown what its for
        return Node.void("game")


class DDRGameLockHandler(DDRBase):
    def handle_game_lock_request(self, request: Node) -> Node:
        game = Node.void("game")
        game.set_attribute("now_login", "0")
        return game


class DDRGameTaxInfoHandler(DDRBase):
    def handle_game_tax_info_request(self, request: Node) -> Node:
        game = Node.void("game")
        tax_info = Node.void("tax_info")
        game.add_child(tax_info)
        tax_info.set_attribute("tax_phase", "0")
        return game


class DDRGameRecorderHandler(DDRBase):
    def handle_game_recorder_request(self, request: Node) -> Node:
        return Node.void("game")


class DDRGameHiscoreHandler(DDRBase):
    def handle_game_hiscore_request(self, request: Node) -> Node:
        records = self.data.remote.music.get_all_records(self.game, self.music_version)

        sortedrecords: Dict[int, Dict[int, Tuple[UserID, Score]]] = {}
        missing_profiles = []
        for (userid, score) in records:
            if score.id not in sortedrecords:
                sortedrecords[score.id] = {}
            sortedrecords[score.id][score.chart] = (userid, score)
            missing_profiles.append(userid)
        users = {
            userid: profile
            for (userid, profile) in self.get_any_profiles(missing_profiles)
        }

        game = Node.void("game")
        for song in sortedrecords:
            music = Node.void("music")
            game.add_child(music)
            music.set_attribute("reclink_num", str(song))

            for chart in sortedrecords[song]:
                userid, score = sortedrecords[song][chart]
                try:
                    gamechart = self.db_to_game_chart(chart)
                except KeyError:
                    # Don't support this chart in this game
                    continue
                gamerank = self.db_to_game_rank(score.data.get_int("rank"))
                combo_type = self.db_to_game_halo(score.data.get_int("halo"))

                typenode = Node.void("type")
                music.add_child(typenode)
                typenode.set_attribute("diff", str(gamechart))

                typenode.add_child(Node.string("name", users[userid].get_str("name")))
                typenode.add_child(Node.u32("score", score.points))
                typenode.add_child(
                    Node.u16(
                        "area", users[userid].get_int("area", self.get_machine_region())
                    )
                )
                typenode.add_child(Node.u8("rank", gamerank))
                typenode.add_child(Node.u8("combo_type", combo_type))
                typenode.add_child(Node.u32("code", users[userid].extid))

        return game


class DDRGameAreaHiscoreHandler(DDRBase):
    def handle_game_area_hiscore_request(self, request: Node) -> Node:
        shop_area = int(request.attribute("shop_area"))

        # First, get all users that are in the current shop's area
        area_users = {
            uid: prof
            for (uid, prof) in self.data.local.user.get_all_profiles(
                self.game, self.version
            )
            if prof.get_int("area", self.get_machine_region()) == shop_area
        }

        # Second, look up records belonging only to those users
        records = self.data.local.music.get_all_records(
            self.game, self.music_version, userlist=list(area_users.keys())
        )

        # Now, do the same lazy thing as 'hiscore' because I don't want
        # to think about how to change this knowing that we only pulled
        # up area records.
        area_records: Dict[int, Dict[int, Tuple[UserID, Score]]] = {}
        for (userid, score) in records:
            if score.id not in area_records:
                area_records[score.id] = {}
            area_records[score.id][score.chart] = (userid, score)

        game = Node.void("game")
        for song in area_records:
            music = Node.void("music")
            game.add_child(music)
            music.set_attribute("reclink_num", str(song))

            for chart in area_records[song]:
                userid, score = area_records[song][chart]
                if (
                    area_users[userid].get_int("area", self.get_machine_region())
                    != shop_area
                ):
                    # Don't return this, this user isn't in this area
                    continue
                try:
                    gamechart = self.db_to_game_chart(chart)
                except KeyError:
                    # Don't support this chart in this game
                    continue
                gamerank = self.db_to_game_rank(score.data.get_int("rank"))
                combo_type = self.db_to_game_halo(score.data.get_int("halo"))

                typenode = Node.void("type")
                music.add_child(typenode)
                typenode.set_attribute("diff", str(gamechart))

                typenode.add_child(
                    Node.string("name", area_users[userid].get_str("name"))
                )
                typenode.add_child(Node.u32("score", score.points))
                typenode.add_child(
                    Node.u16(
                        "area",
                        area_users[userid].get_int("area", self.get_machine_region()),
                    )
                )
                typenode.add_child(Node.u8("rank", gamerank))
                typenode.add_child(Node.u8("combo_type", combo_type))
                typenode.add_child(Node.u32("code", area_users[userid].extid))

        return game


class DDRGameScoreHandler(DDRBase):
    def handle_game_score_request(self, request: Node) -> Node:
        refid = request.attribute("refid")
        songid = int(request.attribute("mid"))
        chart = self.game_to_db_chart(int(request.attribute("type")))

        userid = self.data.remote.user.from_refid(self.game, self.version, refid)
        if userid is not None:
            attempts = self.data.local.music.get_all_attempts(
                self.game,
                self.music_version,
                userid,
                songid=songid,
                songchart=chart,
                limit=5,
            )
            recentscores = [attempt.points for (_, attempt) in attempts]
        else:
            recentscores = []

        # Always pad to five, so we ensure that we return all the scores
        while len(recentscores) < 5:
            recentscores.append(0)

        # Return the most recent five scores
        game = Node.void("game")
        for i in range(len(recentscores)):
            game.set_attribute(f"sc{i + 1}", str(recentscores[i]))
        return game


class DDRGameTraceHandler(DDRBase):
    def handle_game_trace_request(self, request: Node) -> Node:
        extid = int(request.attribute("code"))
        chart = int(request.attribute("type"))
        cid = intish(request.attribute("cid"))
        mid = intish(request.attribute("mid"))

        # Base packet is just game, if we find something we add to it
        game = Node.void("game")

        # Rival trace loading
        userid = self.data.remote.user.from_extid(self.game, self.version, extid)
        if userid is None:
            # Nothing to load
            return game

        if mid is not None:
            # Load trace from song score
            songscore = self.data.remote.music.get_score(
                self.game,
                self.music_version,
                userid,
                mid,
                self.game_to_db_chart(chart),
            )
            if songscore is not None and "trace" in songscore.data:
                game.add_child(Node.u32("size", len(songscore.data["trace"])))
                game.add_child(Node.u8_array("trace", songscore.data["trace"]))

        elif cid is not None:
            # Load trace from achievement
            coursescore = self.data.local.user.get_achievement(
                self.game,
                self.version,
                userid,
                (cid * 4) + chart,
                "course",
            )
            if coursescore is not None and "trace" in coursescore:
                game.add_child(Node.u32("size", len(coursescore["trace"])))
                game.add_child(Node.u8_array("trace", coursescore["trace"]))

        # Nothing found, return empty
        return game


class DDRGameLoadHandler(DDRBase):
    def handle_game_load_request(self, request: Node) -> Node:
        refid = request.attribute("refid")
        profile = self.get_profile_by_refid(refid)
        if profile is not None:
            return profile

        game = Node.void("game")
        game.set_attribute("none", "0")
        return game


class DDRGameLoadDailyHandler(DDRBase):
    def handle_game_load_daily_request(self, request: Node) -> Node:
        extid = intish(request.attribute("code"))
        refid = request.attribute("refid")
        game = Node.void("game")
        profiledict = None

        if extid is not None:
            # Rival daily loading
            userid = self.data.remote.user.from_extid(self.game, self.version, extid)
        else:
            # Self daily loading
            userid = self.data.remote.user.from_refid(self.game, self.version, refid)
        if userid is not None:
            profiledict = self.get_profile(userid)

        if profiledict is not None:
            play_stats = self.get_play_statistics(userid)

            # Day play counts
            daycount = Node.void("daycount")
            game.add_child(daycount)
            daycount.set_attribute("playcount", str(play_stats.today_plays))

            # Daily combo stuff, unclear how this works
            dailycombo = Node.void("dailycombo")
            game.add_child(dailycombo)
            dailycombo.set_attribute("daily_combo", str(0))
            dailycombo.set_attribute("daily_combo_lv", str(0))

        return game


class DDRGameOldHandler(DDRBase):
    def handle_game_old_request(self, request: Node) -> Node:
        refid = request.attribute("refid")
        game = Node.void("game")

        userid = self.data.remote.user.from_refid(self.game, self.version, refid)
        previous_version: Optional[DDRBase] = None
        oldprofile: Optional[Profile] = None

        if userid is not None:
            previous_version = self.previous_version()
        if previous_version is not None:
            oldprofile = previous_version.get_profile(userid)
        if oldprofile is not None:
            game.set_attribute("name", oldprofile.get_str("name"))
            game.set_attribute(
                "area", str(oldprofile.get_int("area", self.get_machine_region()))
            )
        return game


class DDRGameNewHandler(DDRBase):
    def handle_game_new_request(self, request: Node) -> Node:
        refid = request.attribute("refid")
        area = int(request.attribute("area"))
        name = request.attribute("name").strip()

        # Create a new profile for this user!
        self.new_profile_by_refid(refid, name, area)

        # No response needed
        game = Node.void("game")
        return game


class DDRGameSaveHandler(DDRBase):
    def handle_game_save_request(self, request: Node) -> Node:
        refid = request.attribute("refid")
        self.put_profile_by_refid(refid, request)

        # No response needed
        game = Node.void("game")
        return game


class DDRGameFriendHandler(DDRBase):
    def handle_game_friend_request(self, request: Node) -> Node:
        extid = intish(request.attribute("code"))
        userid = None
        friend = None

        if extid is not None:
            # Rival score loading
            userid = self.data.remote.user.from_extid(self.game, self.version, extid)
        if userid is not None:
            friend = self.get_profile(userid)
            play_stats = self.get_play_statistics(userid)

        if friend is None:
            # Return an empty node to tell the game we don't have a player here
            game = Node.void("game")
            return game

        game = Node.void("game")
        game.set_attribute("data", "1")
        game.add_child(Node.u32("code", friend.extid))
        game.add_child(Node.string("name", friend.get_str("name")))
        game.add_child(
            Node.u8("area", friend.get_int("area", self.get_machine_region()))
        )
        game.add_child(Node.u32("exp", play_stats.get_int("exp")))
        game.add_child(Node.u32("star", friend.get_int("star")))

        # Drill rankings
        if "title" in friend:
            title = Node.void("title")
            game.add_child(title)
            titledict = friend.get_dict("title")
            if "t" in titledict:
                title.set_attribute("t", str(titledict.get_int("t")))
            if "s" in titledict:
                title.set_attribute("s", str(titledict.get_int("s")))
            if "d" in titledict:
                title.set_attribute("d", str(titledict.get_int("d")))

        if "title_gr" in friend:
            title_gr = Node.void("title_gr")
            game.add_child(title_gr)
            title_grdict = friend.get_dict("title_gr")
            if "t" in title_grdict:
                title_gr.set_attribute("t", str(title_grdict.get_int("t")))
            if "s" in title_grdict:
                title_gr.set_attribute("s", str(title_grdict.get_int("s")))
            if "d" in title_grdict:
                title_gr.set_attribute("d", str(title_grdict.get_int("d")))

        # Groove gauge level-ups
        gr_s = Node.void("gr_s")
        game.add_child(gr_s)
        index = 1
        for entry in friend.get_int_array("gr_s", 5):
            gr_s.set_attribute(f"gr{index}", str(entry))
            index = index + 1

        gr_d = Node.void("gr_d")
        game.add_child(gr_d)
        index = 1
        for entry in friend.get_int_array("gr_d", 5):
            gr_d.set_attribute(f"gr{index}", str(entry))
            index = index + 1
        return game


class DDRGameLoadCourseHandler(DDRBase):
    def handle_game_load_c_request(self, request: Node) -> Node:
        extid = intish(request.attribute("code"))
        refid = request.attribute("refid")

        if extid is not None:
            # Rival score loading
            userid = self.data.remote.user.from_extid(self.game, self.version, extid)
        else:
            # Self score loading
            userid = self.data.remote.user.from_refid(self.game, self.version, refid)

        coursedata = [0] * 3200
        if userid is not None:
            for course in self.data.local.user.get_achievements(
                self.game, self.version, userid
            ):
                if course.type != "course":
                    continue

                # Grab course ID and chart (kinda pointless because we add it right back up
                # below, but it is more documented/readable this way.
                courseid = int(course.id / 4)
                coursechart = course.id % 4

                # Populate course data
                index = ((courseid * 4) + coursechart) * 8
                if index >= 0 and index <= (len(coursedata) - 8):
                    coursedata[index + 0] = int(course.data.get_int("score") / 10000)
                    coursedata[index + 1] = course.data.get_int("score") % 10000
                    coursedata[index + 2] = course.data.get_int("combo")
                    coursedata[index + 3] = self.db_to_game_rank(
                        course.data.get_int("rank")
                    )
                    coursedata[index + 5] = course.data.get_int("stage")
                    coursedata[index + 6] = course.data.get_int("combo_type")

        game = Node.void("game")
        game.add_child(Node.u16_array("course", coursedata))
        return game


class DDRGameSaveCourseHandler(DDRBase):
    def handle_game_save_c_request(self, request: Node) -> Node:
        refid = request.attribute("refid")
        courseid = int(request.attribute("cid"))
        chart = int(request.attribute("ctype"))

        userid = self.data.remote.user.from_refid(self.game, self.version, refid)
        if userid is not None:
            # Calculate statistics
            data = request.child("data")
            points = int(data.attribute("score"))
            combo = int(data.attribute("combo"))
            combo_type = int(data.attribute("combo_type"))
            stage = int(data.attribute("stage"))
            rank = self.game_to_db_rank(int(data.attribute("rank")))
            trace = request.child_value("trace")

            # Grab the old course score
            oldcourse = self.data.local.user.get_achievement(
                self.game,
                self.version,
                userid,
                (courseid * 4) + chart,
                "course",
            )

            if oldcourse is not None:
                highscore = points > oldcourse.get_int("score")

                points = max(points, oldcourse.get_int("score"))
                combo = max(combo, oldcourse.get_int("combo"))
                stage = max(stage, oldcourse.get_int("stage"))
                rank = max(rank, oldcourse.get_int("rank"))
                combo_type = max(combo_type, oldcourse.get_int("combo_type"))

                if not highscore:
                    # Don't overwrite the ghost for a non-highscore
                    trace = oldcourse.get_int_array("trace", len(trace))

            self.data.local.user.put_achievement(
                self.game,
                self.version,
                userid,
                (courseid * 4) + chart,
                "course",
                {
                    "score": points,
                    "combo": combo,
                    "stage": stage,
                    "rank": rank,
                    "combo_type": combo_type,
                    "trace": trace,
                },
            )

        # No response needed
        game = Node.void("game")
        return game