#include "combat/attack-accuracy.h"
#include "main/sound-definitions-table.h"
#include "monster-race/race-flags-resistance.h"
#include "specific-object/death-scythe.h"
#include "sv-definition/sv-weapon-types.h"

/*!
 * @brief プレイヤーからモンスターへの打撃命中判定 /
 * Determine if the player "hits" a monster (normal combat).
 * @param chance 基本命中値
 * @param ac モンスターのAC
 * @param visible 目標を視界に捕らえているならばTRUEを指定
 * @return 命中と判定された場合TRUEを返す
 * @note Always miss 5%, always hit 5%, otherwise random.
 */
bool test_hit_norm(player_type *attacker_ptr, HIT_RELIABILITY chance, ARMOUR_CLASS ac, bool visible)
{
    if (!visible)
        chance = (chance + 1) / 2;
    return hit_chance(attacker_ptr, chance, ac) >= randint1(100);
}

/*!
 * @brief モンスターへの命中率の計算
 * @param player_ptr プレーヤーへの参照ポインタ
 * @param to_h 命中値
 * @param ac 敵AC
 * @return 命中確率
 */
PERCENTAGE hit_chance(player_type *attacker_ptr, HIT_RELIABILITY reli, ARMOUR_CLASS ac)
{
    PERCENTAGE chance = 5, chance_left = 90;
    if (reli <= 0)
        return 5;
    if (attacker_ptr->pseikaku == PERSONALITY_LAZY)
        chance_left = (chance_left * 19 + 9) / 20;
    chance += (100 - ((ac * 75) / reli)) * chance_left / 100;
    if (chance < 5)
        chance = 5;
    return chance;
}

/*!
 * @brief モンスター打撃の命中を判定する /
 * Determine if a monster attack against the player succeeds.
 * @param power 打撃属性毎の基本命中値
 * @param level モンスターのレベル
 * @param stun モンスターの朦朧値
 * @return TRUEならば命中判定
 * @details
 * Always miss 5% of the time, Always hit 5% of the time.
 * Otherwise, match monster power against player armor.
 */
int check_hit_from_monster_to_player(player_type *target_ptr, int power, DEPTH level, int stun)
{
    int k = randint0(100);
    if (stun && one_in_(2))
        return FALSE;
    if (k < 10)
        return (k < 5);
    int i = (power + (level * 3));

    int ac = target_ptr->ac + target_ptr->to_a;
    if (target_ptr->special_attack & ATTACK_SUIKEN)
        ac += (target_ptr->lev * 2);

    if ((i > 0) && (randint1(i) > ((ac * 3) / 4)))
        return TRUE;
    return FALSE;
}

/*!
 * @brief モンスターから敵モンスターへの命中判定
 * @param power 打撃属性による基本命中値
 * @param level 攻撃側モンスターのレベル
 * @param ac 目標モンスターのAC
 * @param stun 攻撃側モンスターが朦朧状態ならTRUEを返す
 * @return 命中ならばTRUEを返す
 */
int check_hit_from_monster_to_monster(int power, DEPTH level, ARMOUR_CLASS ac, int stun)
{
    int k = randint0(100);
    if (stun && one_in_(2))
        return FALSE;
    if (k < 10)
        return (k < 5);
    int i = (power + (level * 3));

    if ((i > 0) && (randint1(i) > ((ac * 3) / 4)))
        return TRUE;
    return FALSE;
}

/*!
 * @brief 攻撃が当たるかどうかを判定する
 * @param attacker_ptr プレーヤーへの参照ポインタ
 * @param pa_ptr 直接攻撃構造体への参照ポインタ
 * @param chance 基本命中値
 * @return なし
 */
static bool decide_attack_hit(player_type *attacker_ptr, player_attack_type *pa_ptr, int chance)
{
    bool success_hit = FALSE;
    object_type *o_ptr = &attacker_ptr->inventory_list[INVEN_RARM + pa_ptr->hand];
    monster_race *r_ptr = &r_info[pa_ptr->m_ptr->r_idx];
    if (((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_POISON_NEEDLE)) || (pa_ptr->mode == HISSATSU_KYUSHO)) {
        int n = 1;

        if (attacker_ptr->migite && attacker_ptr->hidarite)
            n *= 2;

        if (pa_ptr->mode == HISSATSU_3DAN)
            n *= 2;

        success_hit = one_in_(n);
    } else if ((attacker_ptr->pclass == CLASS_NINJA) && ((pa_ptr->backstab || pa_ptr->surprise_attack) && !(r_ptr->flagsr & RFR_RES_ALL)))
        success_hit = TRUE;
    else
        success_hit = test_hit_norm(attacker_ptr, chance, r_ptr->ac, pa_ptr->m_ptr->ml);

    if ((pa_ptr->mode == HISSATSU_MAJIN) && one_in_(2))
        success_hit = FALSE;

    return success_hit;
}

/*!
 * @brief 直接攻撃の命中を処理するメインルーチン
 * @param attacker_ptr プレーヤーへの参照ポインタ
 * @param pa_ptr 直接攻撃構造体への参照ポインタ
 * @param chance 基本命中値
 * @return 当たればTRUE、外れればFALSE
 */
bool process_attack_hit(player_type *attacker_ptr, player_attack_type *pa_ptr, int chance)
{
    object_type *o_ptr = &attacker_ptr->inventory_list[INVEN_RARM + pa_ptr->hand];
    if (decide_attack_hit(attacker_ptr, pa_ptr, chance))
        return TRUE;

    pa_ptr->backstab = FALSE; /* Clumsy! */
    pa_ptr->surprise_attack = FALSE; /* Clumsy! */

    if ((o_ptr->tval == TV_POLEARM) && (o_ptr->sval == SV_DEATH_SCYTHE) && one_in_(3)) {
        process_death_scythe_reflection(attacker_ptr, pa_ptr);
    } else {
        sound(SOUND_MISS);
        msg_format(_("ミス！ %sにかわされた。", "You miss %s."), pa_ptr->m_name);
    }

    return FALSE;
}
