/* ************************************************************************** */
/*                                                                            */
/*                                                        :::      ::::::::   */
/*   ft_can_it_shoot.c                                  :+:      :+:    :+:   */
/*                                                    +:+ +:+         +:+     */
/*   By: joelecle <marvin@42.fr>                    +#+  +:+       +#+        */
/*                                                +#+#+#+#+#+   +#+           */
/*   Created: 2020/02/14 17:28:51 by joelecle          #+#    #+#             */
/*   Updated: 2020/02/14 17:28:51 by joelecle         ###   ########lyon.fr   */
/*                                                                            */
/* ************************************************************************** */

#include <cub3d.h>
#include <stdlib.h>
#include <math.h>

static double
	ft_get_a_big(int8_t id, double d, t_cub *cl)
{
	double	a_big;

	a_big = 0;
	if (cl->sprites[13][id].s_pos_y > cl->plist.pos_y)
	{
		while (a_big < cl->sprites[13][id].s_pos_y - cl->plist.pos_y)
			a_big += 0.001;
	}
	else if (cl->sprites[13][id].s_pos_y < cl->plist.pos_y)
	{
		while (a_big < cl->plist.pos_y - cl->sprites[13][id].s_pos_y)
			a_big += 0.001;
	}
	else
		a_big = d;
	return (a_big);
}

static double
	ft_get_b_big(int8_t id, t_cub *cl)
{
	double	b_big;

	b_big = 0;
	if (cl->sprites[13][id].s_pos_x > cl->plist.pos_x)
	{
		while (b_big < cl->sprites[13][id].s_pos_x - cl->plist.pos_x)
			b_big += 0.0001;
	}
	else if (cl->sprites[13][id].s_pos_x < cl->plist.pos_x)
	{
		while (b_big < cl->plist.pos_x - cl->sprites[13][id].s_pos_x)
			b_big += 0.0001;
	}
	return (b_big);
}

static void
	ft_init_ray_vars(int8_t id, double d, t_cub *cl)
{
	double		a_big;
	double		b_big;
	double		teta;

	a_big = ft_get_a_big(id, d, cl);
	b_big = ft_get_b_big(id, cl);
	if (a_big > b_big)
		teta = acos(a_big / d);
	else
		teta = asin(b_big / d);
	cl->rlist.y_ray_dir = 1 * cos(teta);
	cl->rlist.x_ray_dir = 1 * sin(teta);
	if (cl->plist.pos_y > cl->sprites[13][id].s_pos_y)
		cl->rlist.y_ray_dir = -cl->rlist.y_ray_dir;
	if (cl->plist.pos_x > cl->sprites[13][id].s_pos_x)
		cl->rlist.x_ray_dir = -cl->rlist.x_ray_dir;
	cl->rlist.y_ray_pos = cl->plist.pos_y;
	cl->rlist.x_ray_pos = cl->plist.pos_x;
	ft_detection_init_x(cl);
	ft_detection_init_y(cl);
}

static int8_t
	ft_shoot_cast_loop(int8_t id, double sqy, double sqx, t_cub *cl)
{
	uint8_t		hit;

	hit = 0;
	while (hit == 0)
	{
		if (cl->rlist.x_side_dist < cl->rlist.y_side_dist)
		{
			cl->rlist.x_side_dist += cl->rlist.x_delta_dist;
			sqy += cl->mlist.x_step * 0.01;
		}
		else
		{
			cl->rlist.y_side_dist += cl->rlist.y_delta_dist;
			sqx += cl->mlist.y_step * 0.01;
		}
		if ((sqy >= cl->sprites[13][id].s_pos_y - 0.15 &&
			sqy <= cl->sprites[13][id].s_pos_y + 0.15) &&
			(sqx >= cl->sprites[13][id].s_pos_x - 0.15 &&
			sqx <= cl->sprites[13][id].s_pos_x + 0.15))
			break ;
		if (cl->mlist.map[(uint64_t)(sqy + 0.5)][(uint64_t)(sqx + 0.5)] == '1')
			hit = 1;
	}
	return ((hit == 1) ? (0) : (1));
}

int8_t
	ft_can_it_shoot(int8_t id, double d, t_cub *cl)
{
	double		sqx;
	double		sqy;

	ft_init_ray_vars(id, d, cl);
	sqy = cl->rlist.y_ray_pos;
	sqx = cl->rlist.x_ray_pos;
	return (ft_shoot_cast_loop(id, sqy, sqx, cl));
}