# Copyright (C) 2020 by ÿnérant, eichhornchen, nicomarg, charlse
# SPDX-License-Identifier: GPL-3.0-or-later

from random import choice, choices, randint, random, shuffle
from typing import List, Tuple

from ..interfaces import Entity, Map, Tile

DEFAULT_PARAMS = {
    "width": 120,
    "height": 35,
    "tries": 300,
    "max_rooms": 20,
    "max_room_tries": 15,
    "cross_room": 1,
    "corridor_chance": .2,
    "min_v_corr": 2,
    "max_v_corr": 6,
    "min_h_corr": 4,
    "max_h_corr": 12,
    "large_circular_room": .10,
    "circular_holes": .5,
    "loop_tries": 40,
    "loop_max": 5,
    "loop_threshold": 15,
    "spawn_per_region": [1, 2],
    "room_chances" : {
        "circular" : 5,
        "chunks" : 1,
        },
}


def dist(level: List[List[Tile]], y1: int, x1: int, y2: int, x2: int) -> int:
    """
    Compute the minimum walking distance between points (y1, x1) and (y2, x2)
    on a Tile grid
    """
    # simple breadth first search
    copy = [[t for t in row] for row in level]
    dist = -1
    queue, next_queue = [[y1, x1]], [0]
    while next_queue:
        next_queue = []
        dist += 1
        while queue:
            y, x = queue.pop()
            copy[y][x] = Tile.EMPTY
            if y == y2 and x == x2:
                return dist
            for y, x in Map.neighbourhood(copy, y, x):
                if copy[y][x].can_walk():
                    next_queue.append([y, x])
        queue = next_queue
    return -1


class Generator:
    def __init__(self, params: dict = None):
        self.params = params or DEFAULT_PARAMS
        self.spawn_areas = []
        self.queued_area = None

    @staticmethod
    def room_fits(level: List[List[Tile]], y: int, x: int,
                  room: List[List[Tile]], door_y: int, door_x: int,
                  dy: int, dx: int) -> bool:
        """
        Using point (door_y, door_x) in the room as a reference and placing it
        over point (y, x) in the level, returns whether or not the room fits
        here
        """
        lh, lw = len(level), len(level[0])
        rh, rw = len(room), len(room[0])
        if not(0 < y + dy < lh and 0 < x + dx < lw):
            return False
        # door must be placed on an empty tile, and point into a floor tile
        if level[y][x] != Tile.EMPTY or level[y + dy][x + dx] != Tile.FLOOR:
            return False
        # now we verify floor tiles in both grids do not overlap
        for ry in range(rh):
            for rx in range(rw):
                if room[ry][rx] == Tile.FLOOR:
                    ly, lx = y + ry - door_y, x + rx - door_x
                    # tile must be in bounds and empty
                    if not(0 <= ly < lh and 0 <= lx < lw) or \
                            level[ly][lx] == Tile.FLOOR:
                        return False
                    # so do all neighbouring tiles bc we may
                    # need to place walls there eventually
                    for ny, nx in Map.neighbourhood(level, ly, lx,
                                                    large=True, oob=True):
                        if not(0 <= ny < lh and 0 <= nx < lw) or \
                                level[ny][nx] != Tile.EMPTY:
                            return False
        return True

    @staticmethod
    def place_room(level: List[List[Tile]], y: int, x: int,
                   room: List[List[Tile]], door_y: int, door_x: int) -> None:
        """
        Mutates level in place to add the room. Placement is determined by
        making (door_y, door_x) in the room correspond with (y, x) in the level
        """
        rh, rw = len(room), len(room[0])
        level[y][x] = Tile.DOOR
        for ry in range(rh):
            for rx in range(rw):
                if room[ry][rx] == Tile.FLOOR:
                    level[y - door_y + ry][x - door_x + rx] = Tile.FLOOR

    @staticmethod
    def add_loop(level: List[List[Tile]], y: int, x: int) -> bool:
        """
        Try to add a corridor between two far apart floor tiles, passing
        through point (y, x).
        """
        h, w = len(level), len(level[0])

        if level[y][x] != Tile.EMPTY:
            return False

        # loop over both directions, trying to place both veritcal
        # and horizontal corridors
        for dx, dy in [[0, 1], [1, 0]]:
            # then we find two floor tiles, one on each side of (y, x)
            # exiting if we don't find two (reach the edge of the map before)
            y1, x1, y2, x2 = y, x, y, x
            while x1 >= 0 and y1 >= 0 and level[y1][x1] == Tile.EMPTY:
                y1, x1 = y1 - dy, x1 - dx
            while x2 < w and y2 < h and level[y2][x2] == Tile.EMPTY:
                y2, x2 = y2 + dy, x2 + dx
            if not(0 <= x1 <= x2 < w and 0 <= y1 <= y2 < h):
                continue

            def verify_sides() -> bool:
                # switching up dy and dx here pivots the axis, so
                # (y+dx, x+dy) and (y-dx, x-dy) are the tiles adjacent to
                # (y, x), but not on the original axis
                for delta_x, delta_y in [[dy, dx], [-dy, -dx]]:
                    for i in range(1, y2 - y1 + x2 - x1):
                        if not (0 <= y1 + delta_y + i * dy < h
                                and 0 <= x1 + delta_x + i * dx < w) or \
                                level[y1 + delta_y + i * dy][x1 + delta_x
                                                             + i * dx]\
                                .can_walk():
                            return False
                return True
            # if adding the path would make the two tiles significantly closer
            # and its sides don't touch already placed terrain, build it
            if dist(level, y1, x1, y2, x2) < 20 and verify_sides():
                y, x = y1 + dy, x1 + dx
                while level[y][x] == Tile.EMPTY:
                    level[y][x] = Tile.FLOOR
                    y, x = y + dy, x + dx
                return True
        return False

    @staticmethod
    def place_walls(level: List[List[Tile]]) -> None:
        """
        Place wall tiles on every empty tile that is adjacent (in the largest
        sense), to a floor tile
        """
        h, w = len(level), len(level[0])
        for y in range(h):
            for x in range(w):
                if not level[y][x].is_wall():
                    for ny, nx in Map.neighbourhood(level, y, x, large=True):
                        if level[ny][nx] == Tile.EMPTY:
                            level[ny][nx] = Tile.WALL

    def corr_meta_info(self) -> Tuple[int, int, int, int]:
        """
        Return info about the extra grid space that should be allocated for the
        room, and where the room should be built along this extra grid space.
        Because grids are usually thight around the room, this gives us extra
        place to add a corridor later. Corridor length and orientation is
        implicitly derived from this info.

        h_sup and w_sup represent the extra needed space along each axis,
        and h_off and w_off are the offset at which to build the room
        """
        if random() < self.params["corridor_chance"]:
            h_sup = randint(self.params["min_v_corr"],
                            self.params["max_v_corr"]) if random() < .5 else 0
            # we only allow extra space allocation along one axis,
            # because there won't more than one exit corridor
            w_sup = 0 if h_sup else randint(self.params["min_h_corr"],
                                            self.params["max_h_corr"])
            # implicitly choose which direction along the axis
            # the corridor will be pointing to
            h_off = h_sup if random() < .5 else 0
            w_off = w_sup if random() < .5 else 0
            return h_sup, w_sup, h_off, w_off
        return 0, 0, 0, 0

    @staticmethod
    def build_door(room: List[List[Tile]], y: int, x: int,
                   dy: int, dx: int, length: int) -> bool:
        """
        Tries to build the exit from the room at given coordinates
        Depending on parameter length, it will either attempt to build a
        simple door, or a long corridor.  Return value is a boolean
        signifying whether or not the exit was successfully built
        """
        rh, rw = len(room), len(room[0])
        # verify we are pointing away from a floor tile
        if not(0 <= y - dy < rh and 0 <= x - dx < rw) \
                or room[y - dy][x - dx] != Tile.FLOOR:
            return False
        # verify there's no other floor tile around us
        for ny, nx in [[y + dy, x + dx], [y - dx, x - dy],
                       [y + dx, x + dy]]:
            if 0 <= ny < rh and 0 <= nx < rw \
                    and room[ny][nx] != Tile.EMPTY:
                return False
        # see if the path ahead is clear. needed in the case of non convex room
        for i in range(length + 1):
            if room[y + i * dy][x + i * dx] != Tile.EMPTY:
                return False
        for i in range(length):
            room[y + i * dy][x + i * dx] = Tile.FLOOR
        return True

    @staticmethod
    def attach_door(room: List[List[Tile]], h_sup: int, w_sup: int,
                    h_off: int, w_off: int) -> Tuple[int, int, int, int]:
        """
        Attach an exit to the room. If extra space was allocated to
        the grid, make sure a corridor is properly built
        """
        length = h_sup + w_sup
        dy, dx = 0, 0
        if length > 0:
            if h_sup:
                dy = -1 if h_off else 1
            else:
                dx = -1 if w_off else 1
        else:
            # determine door direction for rooms without corridors
            if random() < .5:
                dy = -1 if random() < .5 else 1
            else:
                dx = -1 if random() < .5 else 1

        # loop over all possible positions in a random order
        rh, rw = len(room), len(room[0])
        yxs = [i for i in range(rh * rw)]
        shuffle(yxs)
        for pos in yxs:
            y, x = pos // rw, pos % rw
            if room[y][x] == Tile.EMPTY and \
                    Generator.build_door(room, y, x, dy, dx, length):
                break
        else:  # pragma: no cover
            return None, None, None, None

        return y + length * dy, x + length * dx, dy, dx

    def create_chunk_room(self, spawnable: bool = True) \
            -> Tuple[List[List[Tile]], int, int, int, int]:
        """
        Create and return as a tile grid a room that is composed of multiple
        overlapping circles of the same radius
        Also return door info so we know how to place the room in the level
        """
        height, width = 15, 15
        nb_chunks, r = 6, 3

        h_sup, w_sup, h_off, w_off = self.corr_meta_info()
        room = [[Tile.EMPTY] * (width + w_sup) \
                for _dummy in range(height + h_sup)]

        def draw_chunk(room, y, x):
            for i in range(y - r, y + r + 1):
                d = (y - i)**2
                for j in range(x - r, x + r + 1):
                    if d + (x - j)**2 < r**2:
                        room[i][j] = Tile.FLOOR

        draw_chunk(room, height//2 + 1, width//2 + 1)

        min_w, max_w = w_off + r + 1, width + w_off - r -1
        min_h, max_h = h_off + r + 1, height + h_off - r - 1
        for i in range(nb_chunks):
            y, x = randint(min_h, max_h), randint(min_w, max_w)
            while room[y][x] != Tile.FLOOR:
                y, x = randint(min_h, max_h), randint(min_w, max_w)
            draw_chunk(room, y, x)

        # log all placed tiles as spawn positions
        if spawnable:
            self.register_spawn_area(room)

        # attach exit
        door_y, door_x, dy, dx = self.attach_door(room, h_sup, w_sup,
                                                  h_off, w_off)

        return room, door_y, door_x, dy, dx

    def create_circular_room(self, spawnable: bool = True) \
            -> Tuple[List[List[Tile]], int, int, int, int]:
        """
        Create and return as a tile grid a room that is circular in shape, and
        may have a center, also circular hole
        Also return door info so we know how to place the room in the level
        """
        if random() < self.params["large_circular_room"]:
            r = randint(5, 10)
        else:
            r = randint(2, 4)

        room = []

        h_sup, w_sup, h_off, w_off = self.corr_meta_info()

        height = 2 * r + 2
        width = 2 * r + 2
        make_hole = r > 6 and random() < self.params["circular_holes"]
        r2 = 0
        if make_hole:
            r2 = randint(3, r - 3)
        for i in range(height + h_sup):
            room.append([])
            d = (i - h_off - height // 2) ** 2
            for j in range(width + w_sup):
                if d + (j - w_off - width // 2) ** 2 < r ** 2 and \
                    (not make_hole
                     or d + (j - w_off - width // 2) ** 2 >= r2 ** 2):
                    room[-1].append(Tile.FLOOR)
                else:
                    room[-1].append(Tile.EMPTY)

        # log all placed tiles as spawn positions
        if spawnable:
            self.register_spawn_area(room)

        # attach exit
        door_y, door_x, dy, dx = self.attach_door(room, h_sup, w_sup,
                                                  h_off, w_off)

        return room, door_y, door_x, dy, dx

    def create_random_room(self, spawnable: bool = True) \
            -> Tuple[List[list], int, int, int, int]:
        """
        Randomly select a room shape and return one such room along with its
        door info. Set spawnable to False is the room should be marked as a
        potential spawning region on the map
        """
        coef_dict = self.params["room_chances"]
        sum_coefs = sum(coef_dict[key] for key in coef_dict)
        target = randint(1, sum_coefs)
        for key in coef_dict:
            if target > coef_dict[key]:
                target -= coef_dict[key]
            else:
                break

        if key == "circular":
            return self.create_circular_room(spawnable = spawnable)
        elif key == "chunks":
            return self.create_chunk_room(spawnable = spawnable)

    def register_spawn_area(self, area: List[List[Tile]]) -> None:
        """
        Register all floor positions relative to the input grid
        for later use
        """
        spawn_positions = []
        for y, line in enumerate(area):
            for x, tile in enumerate(line):
                if tile == Tile.FLOOR:
                    spawn_positions.append([y, x])
        self.queued_area = spawn_positions

    def update_spawnable(self, y: int, x: int) -> None:
        """
        Convert previous spawn positions relative to the room grid to actual
        actual spawn positions on the level grid, using the position of the
        top left corner of the room on the level, then log them as a
        spawnable region
        """
        if self.queued_area is not None:
            translated_area = [[y + ry, x + rx] for ry, rx in self.queued_area]
            self.spawn_areas.append(translated_area)
        self.queued_area = None

    def populate(self, rv: Map) -> None:
        """
        Populate every spawnable area with some randomly chosen, randomly
        placed entity
        """
        min_c, max_c = self.params["spawn_per_region"]
        for region in self.spawn_areas:
            entity_count = randint(min_c, max_c)
            for _dummy in range(entity_count):
                entity = choices(Entity.get_all_entity_classes(),
                                 weights=Entity.get_weights(), k=1)[0]()
                y, x = choice(region)
                entity.move(y, x)
                rv.add_entity(entity)

    def run(self) -> Map:
        """
        Using procedural generation, build and return a full map, populated
        with entities
        """
        height, width = self.params["height"], self.params["width"]
        level = [width * [Tile.EMPTY] for _ignored in range(height)]

        # the starting room must have no corridor
        mem, self.params["corridor_chance"] = self.params["corridor_chance"], 0
        starting_room, _, _, _, _ = self.create_random_room(spawnable=False)
        dim_v, dim_h = len(starting_room), len(starting_room[0])
        # because Generator.room_fits checks that the exit door is correctly
        # placed, but the starting room has no exit door, we find a positoin
        # manually
        pos_y, pos_x = randint(0, height - dim_v - 1),\
            randint(0, width - dim_h - 1)
        self.place_room(level, pos_y, pos_x, starting_room, 0, 0)
        # remove the door that was placed
        if starting_room[0][0] != Tile.FLOOR:
            level[pos_y][pos_x] = Tile.EMPTY
        self.params["corridor_chance"] = mem

        # find a starting position for the player
        sy, sx = randint(0, height - 1), randint(0, width - 1)
        while level[sy][sx] != Tile.FLOOR:
            sy, sx = randint(0, height - 1), randint(0, width - 1)
        level[sy][sx] = Tile.LADDER

        # now we loop until we're bored, or we've added enough rooms
        tries, rooms_built = 0, 0
        while tries < self.params["tries"] \
                and rooms_built < self.params["max_rooms"]:

            # build a room, try to fit it everywhere in a random order, and
            # place it at the first possible position
            room, door_y, door_x, dy, dx = self.create_random_room()
            positions = [i for i in range(height * width)]
            shuffle(positions)
            for pos in positions:
                y, x = pos // width, pos % width
                if self.room_fits(level, y, x, room, door_y, door_x, dy, dx):
                    self.update_spawnable(y - door_y, x - door_x)
                    self.place_room(level, y, x, room, door_y, door_x)
                    rooms_built += 1
                    break
            tries += 1

        # post-processing
        self.place_walls(level)

        # because when a room is placed, it leads to exactly one previously
        # placed room, the level has a tree like structure with the starting
        # room as the root
        # to avoid boring player backtracking, we add some cycles to the room
        # graph in post processing by placing additional corridors
        tries, loops = 0, 0
        while tries < self.params["loop_tries"] and \
                loops < self.params["loop_max"]:
            tries += 1
            y, x = randint(0, height - 1), randint(0, width - 1)
            loops += self.add_loop(level, y, x)

        # place an exit ladder
        y, x = randint(0, height - 1), randint(0, width - 1)
        while level[y][x] != Tile.FLOOR or \
                any([level[j][i].is_wall() for j, i
                     in Map.neighbourhood(level, y, x, large=True)]):
            y, x = randint(0, height - 1), randint(0, width - 1)
        level[y][x] = Tile.LADDER

        # spawn entities
        rv = Map(width, height, level, sy, sx)
        self.populate(rv)

        return rv