/*
 * Copyright (c) 2001 DarkGod
 *
 * This software may be copied and distributed for educational, research, and
 * not for profit purposes provided that this copyright and statement are
 * included in all such copies.
 */

#include "lua_bind.hpp"

#include "cmd7.hpp"
#include "corrupt.hpp"
#include "game.hpp"
#include "init1.hpp"
#include "monster2.hpp"
#include "player_type.hpp"
#include "range.hpp"
#include "skills.hpp"
#include "skill_type.hpp"
#include "spell_type.hpp"
#include "spells2.hpp"
#include "spells5.hpp"
#include "tables.hpp"
#include "timer_type.hpp"
#include "util.hpp"
#include "variable.hpp"

#include <cassert>
#include <functional>

/*
 * Misc
 */

/* Change this fct if I want to switch to learnable spells */
s32b lua_get_level(spell_type *spell, s32b lvl, s32b max, s32b min, s32b bonus)
{
	s32b tmp;

	tmp = lvl - ((spell_type_skill_level(spell) - 1) * (SKILL_STEP / 10));

	if (tmp >= (SKILL_STEP / 10)) /* We require at least one spell level */
		tmp += bonus;

	tmp = (tmp * (max * (SKILL_STEP / 10)) / (SKILL_MAX / 10));

	if (tmp < 0) /* Shift all negative values, so they map to appropriate integer */
		tmp -= SKILL_STEP / 10 - 1;

	/* Now, we can safely divide */
	lvl = tmp / (SKILL_STEP / 10);

	if (lvl < min)
		lvl = min;

	return lvl;
}

/* static */ s32b get_level_device(spell_type *spell, s32b max, s32b min, s32b device_skill, std::function<s32b(spell_type *, s32b, s32b, s32b, s32b)> lua_get_level_ = lua_get_level)
{
	/* No max specified ? assume 50 */
	if (max <= 0) {
		max = 50;
	}
	/* No min specified ? */
	if (min <= 0) {
		min = 1;
	}

	int lvl = device_skill + (get_level_use_stick * SKILL_STEP);

	/* Sticks are limited */
	if (lvl - ((spell_type_skill_level(spell) + 1) * SKILL_STEP) >= get_level_max_stick * SKILL_STEP)
	{
		lvl = (get_level_max_stick + spell_type_skill_level(spell) - 1) * SKILL_STEP;
	}

	/* / 10 because otherwise we can overflow a s32b and we can use a u32b because the value can be negative
	-- The loss of information should be negligible since 1 skill = 1000 internally
	*/
	lvl = lvl / 10;
	lvl = lua_get_level_(spell, lvl, max, min, 0);

	return lvl;
}

static s32b get_level_device_1(spell_type *spell, s32b max, s32b min)
{
	auto const &s_info = game->s_info;

	// Must be in "device" mode.
	assert(get_level_use_stick > -1);
	// Delegate
	auto device_skill = s_info[SKILL_DEVICE].value;
	return get_level_device(spell, max, min, device_skill);
}

static s32b get_level_school_1(spell_type *spell, s32b max, s32b min)
{
	// Delegate
	s32b level;
	bool_ na;
	get_level_school(spell, max, min, &level, &na);
	// Note: It is tempting to add an assertion here for "na == FALSE" here,
	// but there are cases where we haven't actually checked if the spell is
	// really castable before calling this function (indirectly). Thus we
	// MUST NOT assert anything about "na" as the code currently stands.
	return level;
}

int get_mana(s32b s)
{
	// Does not make sense in "device" mode.
	assert(get_level_use_stick == -1);
	// Extract the spell's mana range.
	spell_type *spell = spell_at(s);
	range_type mana_range;
	spell_type_mana_range(spell, &mana_range);
	// Scale
	return get_level_school_1(spell, mana_range.max, mana_range.min);
}

/** Returns spell chance of failure for a school spell. */
static s32b spell_chance_school(s32b s)
{
	spell_type *s_ptr = spell_at(s);
	int level = get_level_school_1(s_ptr, 50, 1);
	s32b chance = spell_type_failure_rate(s_ptr);
	int mana = get_mana(s);
	int cur_mana = get_power(s);
	int stat = spell_type_casting_stat(s_ptr);
	int stat_ind = p_ptr->stat_ind[stat];
	int minfail;

	/* Reduce failure rate by "effective" level adjustment */
	chance -= 3 * (level - 1);

	/* Reduce failure rate by INT/WIS adjustment */
	chance -= 3 * (adj_mag_stat[stat_ind] - 1);

	/* Not enough mana to cast */
	if (chance < 0) chance = 0;
	if (mana > cur_mana)
	{
		chance += 15 * (mana - cur_mana);
	}

	/* Extract the minimum failure rate */
	minfail = adj_mag_fail[stat_ind];

	/* Must have Perfect Casting to get below 5% */
	if (!(p_ptr->has_ability(AB_PERFECT_CASTING)))
	{
		if (minfail < 5) minfail = 5;
	}

	/* Hack -- Priest prayer penalty for "edged" weapons  -DGK */
	if ((forbid_non_blessed()) && (p_ptr->icky_wield)) chance += 25;

	/* Return the chance */
	return clamp_failure_chance(chance, minfail);
}

s32b spell_chance_device(spell_type *spell_ptr)
{
	// Device parameters initialized?
	assert(get_level_use_stick > -1);

	// Calculate the chance.
	int level = get_level_device_1(spell_ptr, 50, 1);
	s32b chance = spell_type_failure_rate(spell_ptr);

	/* Reduce failure rate by "effective" level adjustment */
	chance -= (level - 1);

	/* Extract the minimum failure rate */
	int minfail = 15 - get_skill_scale(SKILL_DEVICE, 25);

	/* Return the chance */
	return clamp_failure_chance(chance, minfail);
}

s32b spell_chance_book(s32b s)
{
	// Must NOT be a device!
	assert(get_level_use_stick < 0);
	// Delegate
	return spell_chance_school(s);
}

static s32b get_level_full(s32b s, s32b max, s32b min)
{
	auto spell = spell_at(s);
	/** Ahah shall we use Magic device instead ? */
	if (get_level_use_stick > -1) {
		return get_level_device_1(spell, max, min);
	} else {
		return get_level_school_1(spell, max, min);
	}
}

s32b get_level(s32b s, s32b max)
{
	return get_level_full(s, max, 0);
}

s32b get_level_s(int sp, int max)
{
	return get_level_full(sp, max, 1);
}

/* Level gen */
void get_map_size(const char *name, int *ysize, int *xsize)
{
	*xsize = 0;
	*ysize = 0;
	init_flags = INIT_GET_SIZE;
	process_dungeon_file(name, ysize, xsize, cur_hgt, cur_wid, TRUE, TRUE);
}

void load_map(const char *name, int *y, int *x)
{
	/* Set the correct monster hook */
	set_mon_num_hook();

	/* Prepare allocation table */
	get_mon_num_prep();

	init_flags = INIT_CREATE_DUNGEON;
	process_dungeon_file(name, y, x, cur_hgt, cur_wid, TRUE, TRUE);
}

void increase_mana(int delta)
{
	p_ptr->csp += delta;
	p_ptr->redraw |= PR_FRAME;

	if (p_ptr->csp < 0)
	{
		p_ptr->csp = 0;
	}
	if (p_ptr->csp > p_ptr->msp)
	{
		p_ptr->csp = p_ptr->msp;
	}
}

timer_type *TIMER_AGGRAVATE_EVIL = 0;

void timer_aggravate_evil_enable()
{
	TIMER_AGGRAVATE_EVIL->enable();
}

void timer_aggravate_evil_callback()
{
	if ((p_ptr->prace == RACE_MAIA) &&
	    (!player_has_corruption(CORRUPT_BALROG_AURA)) &&
	    (!player_has_corruption(CORRUPT_BALROG_WINGS)) &&
	    (!player_has_corruption(CORRUPT_BALROG_STRENGTH)) &&
	    (!player_has_corruption(CORRUPT_BALROG_FORM)))
	{
		dispel_evil(0);
	}
}