/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   load_tiles.c                                       :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: bgoulard <bgoulard@student.42.fr>          +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2024/12/01 17:47:15 by bgoulard          #+#    #+#             */
/*   Updated: 2024/12/20 16:35:03 by bgoulard         ###   ########.fr       */
/*                                                                            */
/* ************************************************************************** */

#include "cub3d.h"
#include "cub3d_struct.h"
#include "cub3d_parsing.h"

#include "ft_string.h"
#include "ft_addons.h"
#include "ft_vector.h"
#include "ft_math.h"

#include <stdbool.h>
#include <stdio.h>

int	str_to_tile(const char *str, t_tile *tile, size_t size)
{
	size_t	i;

	i = 0;
	while (str[i])
	{
		if (str[i] == '1' || str[i] == ' ')
			tile[i].tile_type = WALL;
		else if (!ft_strchr("0NSWE", str[i]))
			return (-1);
		else
			tile[i].tile_type = EMPTY;
		i++;
	}
	while (i < size)
		tile[i++].tile_type = NONE;
	return (0);
}

t_vector	*load_vector(t_map *map)
{
	const char	*id_str__all[] = {"NO ", "SO ", "WE ", "EA ", "F ", "C ", NULL};
	t_vector	*str_map;
	size_t		i;
	size_t		max;

	str_map = ft_vec_new();
	max = 0;
	if (str_map == NULL)
		return (NULL);
	i = 0;
	while (map->fraw[i] && is_identifier(map->fraw[i], id_str__all))
		i++;
	while (map->fraw[i + map->size.y])
	{
		max = ft_max(max, ft_strlen(map->fraw[i + map->size.y]));
		ft_vec_add(&str_map, map->fraw[i + map->size.y++]);
	}
	map->size.x = max;
	return (str_map);
}

#define EPMP ERROR_PARSE_MULTIPLE_PLAYER

static bool	multiple_player_same_line(const char *str)
{
	const bool	p_symbol[8] = {\
	!ft_strchr(str, 'S'), !ft_strchr(str, 'E'), !ft_strchr(str, 'W'), \
	!ft_strchr(str, 'N'), !(ft_strrchr(str, 'N') - ft_strchr(str, 'N')), \
	!(ft_strrchr(str, 'E') - ft_strchr(str, 'E')), \
	!(ft_strrchr(str, 'W') - ft_strchr(str, 'W')), \
	!(ft_strrchr(str, 'S') - ft_strchr(str, 'S')), };
	int			i;
	int			j;

	i = 0;
	while (i < 4)
	{
		j = i + 1;
		while (j < 4)
			if (!p_symbol[j++] && !p_symbol[i])
				return (true);
		i++;
	}
	i = 0;
	while (i < 4)
		if (p_symbol[i++ + 4] && !p_symbol[i])
			return (true);
	return (false);
}

int	set_player(t_info *info, int i, t_vector *str_map)
{
	t_dpoint	pos;
	char		*str;

	ft_bzero(&pos, sizeof(t_dpoint));
	if (info->player.pos.x != 0 || info->player.pos.y != 0 || i == 0 || \
	multiple_player_same_line(ft_vec_at(str_map, i)))
		return (ft_vec_destroy(&str_map), sv_errno(info, EPMP), EXIT_FAILURE);
	str = ft_strchrs(ft_vec_at(str_map, i), "SNWE");
	pos.y = i + .5;
	pos.x = str - (char *)ft_vec_at(str_map, i) + .5;
	info->player.dir = (t_dpoint){.x = 0, 0};
	info->player.pos = pos;
	info->player.pos_i = (t_ipoint){.x = (int)pos.x, .y = (int)pos.y};
	if (*str == 'N')
		info->player.dir.y = -1;
	else if (*str == 'S')
		info->player.dir.y = 1;
	else if (*str == 'W')
		info->player.dir.x = -1;
	else if (*str == 'E')
		info->player.dir.x = 1;
	info->player.plane = (t_dpoint){.x = info->player.dir.y, \
	.y = -info->player.dir.x};
	return (EXIT_SUCCESS);
}

#define EPMIM ERROR_PARSE_META_IN_MAP

void	*load_tiles(void *data)
{
	t_info		*info;
	t_vector	*str_map;
	size_t		i;

	info = (t_info *)data;
	str_map = load_vector(&info->map);
	if (!str_map)
		return (sv_errno(info, ERROR_MALLOC), NULL);
	info->map.map = ft_calloc(sizeof(t_tile), (info->map.size.y
				* info->map.size.x));
	if (!info->map.map)
		return (ft_vec_destroy(&str_map), sv_errno(info, ERROR_MALLOC), NULL);
	i = 0;
	while (ft_vec_at(str_map, i))
	{
		if (str_to_tile(ft_vec_at(str_map, i), info->map.map + (i \
		* info->map.size.x), info->map.size.x) == -1)
			return (ft_vec_destroy(&str_map), sv_errno(info, EPMIM), NULL);
		if (ft_strchrs(ft_vec_at(str_map, i), "SNWE") && \
		set_player(info, i, str_map) != EXIT_SUCCESS)
			return (NULL);
		i++;
	}
	return (ft_vec_destroy(&str_map), info);
}