#include "mspell/element-resistance-checker.h"
#include "game-option/birth-options.h"
#include "monster-race/race-flags-ability1.h"
#include "monster-race/race-flags4.h"
#include "monster/smart-learn-types.h"
#include "mspell/smart-mspell-util.h"
#include "status/element-resistance.h"
#include "player/player-status-flags.h"

void add_cheat_remove_flags_element(player_type *target_ptr, msr_type *msr_ptr)
{
    if (target_ptr->resist_acid)
        msr_ptr->smart |= SM_RES_ACID;

    if (is_oppose_acid(target_ptr))
        msr_ptr->smart |= SM_OPP_ACID;

    if (has_immune_acid(target_ptr))
        msr_ptr->smart |= SM_IMM_ACID;

    if (target_ptr->resist_elec)
        msr_ptr->smart |= SM_RES_ELEC;

    if (is_oppose_elec(target_ptr))
        msr_ptr->smart |= SM_OPP_ELEC;

    if (has_immune_elec(target_ptr))
        msr_ptr->smart |= SM_IMM_ELEC;

    if (target_ptr->resist_fire)
        msr_ptr->smart |= SM_RES_FIRE;

    if (is_oppose_fire(target_ptr))
        msr_ptr->smart |= SM_OPP_FIRE;

    if (has_immune_fire(target_ptr))
        msr_ptr->smart |= SM_IMM_FIRE;

    if (target_ptr->resist_cold)
        msr_ptr->smart |= SM_RES_COLD;

    if (is_oppose_cold(target_ptr))
        msr_ptr->smart |= SM_OPP_COLD;

    if (has_immune_cold(target_ptr))
        msr_ptr->smart |= SM_IMM_COLD;

    if (target_ptr->resist_pois)
        msr_ptr->smart |= SM_RES_POIS;

    if (is_oppose_pois(target_ptr))
        msr_ptr->smart |= SM_OPP_POIS;
}

static void check_acid_resistance(msr_type *msr_ptr)
{
    if (msr_ptr->smart & SM_IMM_ACID) {
        msr_ptr->f4 &= ~(RF4_BR_ACID);
        msr_ptr->f5 &= ~(RF5_BA_ACID);
        msr_ptr->f5 &= ~(RF5_BO_ACID);
        return;
    }

    if ((msr_ptr->smart & SM_OPP_ACID) && (msr_ptr->smart & SM_RES_ACID)) {
        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f4 &= ~(RF4_BR_ACID);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BA_ACID);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BO_ACID);

        return;
    }

    if ((msr_ptr->smart & SM_OPP_ACID) || (msr_ptr->smart & SM_RES_ACID)) {
        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f4 &= ~(RF4_BR_ACID);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BA_ACID);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BO_ACID);
    }
}

static void check_elec_resistance(msr_type *msr_ptr)
{
    if (msr_ptr->smart & SM_IMM_ELEC) {
        msr_ptr->f4 &= ~(RF4_BR_ELEC);
        msr_ptr->f5 &= ~(RF5_BA_ELEC);
        msr_ptr->f5 &= ~(RF5_BO_ELEC);
        return;
    }

    if ((msr_ptr->smart & SM_OPP_ELEC) && (msr_ptr->smart & SM_RES_ELEC)) {
        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f4 &= ~(RF4_BR_ELEC);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BA_ELEC);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BO_ELEC);

        return;
    }

    if ((msr_ptr->smart & SM_OPP_ELEC) || (msr_ptr->smart & SM_RES_ELEC)) {
        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f4 &= ~(RF4_BR_ELEC);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BA_ELEC);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BO_ELEC);
    }
}

static void check_fire_resistance(msr_type *msr_ptr)
{
    if (msr_ptr->smart & SM_IMM_FIRE) {
        msr_ptr->f4 &= ~(RF4_BR_FIRE);
        msr_ptr->f5 &= ~(RF5_BA_FIRE);
        msr_ptr->f5 &= ~(RF5_BO_FIRE);
        return;
    }

    if ((msr_ptr->smart & SM_OPP_FIRE) && (msr_ptr->smart & SM_RES_FIRE)) {
        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f4 &= ~(RF4_BR_FIRE);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BA_FIRE);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BO_FIRE);

        return;
    }

    if ((msr_ptr->smart & SM_OPP_FIRE) || (msr_ptr->smart & SM_RES_FIRE)) {
        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f4 &= ~(RF4_BR_FIRE);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BA_FIRE);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BO_FIRE);
    }
}

static void check_cold_resistance(msr_type *msr_ptr)
{
    if (msr_ptr->smart & (SM_IMM_COLD)) {
        msr_ptr->f4 &= ~(RF4_BR_COLD);
        msr_ptr->f5 &= ~(RF5_BA_COLD);
        msr_ptr->f5 &= ~(RF5_BO_COLD);
        msr_ptr->f5 &= ~(RF5_BO_ICEE);
        return;
    }

    if ((msr_ptr->smart & SM_OPP_COLD) && (msr_ptr->smart & SM_RES_COLD)) {
        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f4 &= ~(RF4_BR_COLD);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BA_COLD);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BO_COLD);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BO_ICEE);

        return;
    }

    if ((msr_ptr->smart & SM_OPP_COLD) || (msr_ptr->smart & SM_RES_COLD)) {
        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f4 &= ~(RF4_BR_COLD);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BA_COLD);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BO_COLD);

        if (int_outof(msr_ptr->r_ptr, 20))
            msr_ptr->f5 &= ~(RF5_BO_ICEE);
    }
}

static void check_pois_resistance(msr_type *msr_ptr)
{
    if ((msr_ptr->smart & SM_OPP_POIS) && (msr_ptr->smart & SM_RES_POIS)) {
        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f4 &= ~(RF4_BR_POIS);

        if (int_outof(msr_ptr->r_ptr, 80))
            msr_ptr->f5 &= ~(RF5_BA_POIS);

        if (int_outof(msr_ptr->r_ptr, 60))
            msr_ptr->f4 &= ~(RF4_BA_NUKE);

        if (int_outof(msr_ptr->r_ptr, 60))
            msr_ptr->f4 &= ~(RF4_BR_NUKE);

        return;
    }

    if ((msr_ptr->smart & SM_OPP_POIS) || (msr_ptr->smart & SM_RES_POIS)) {
        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f4 &= ~(RF4_BR_POIS);

        if (int_outof(msr_ptr->r_ptr, 30))
            msr_ptr->f5 &= ~(RF5_BA_POIS);
    }
}

void check_element_resistance(msr_type *msr_ptr)
{
    check_acid_resistance(msr_ptr);
    check_elec_resistance(msr_ptr);
    check_fire_resistance(msr_ptr);
    check_cold_resistance(msr_ptr);
    check_pois_resistance(msr_ptr);
}
