//::///////////////////////////////////////////////
//:: Name      Eternity of Torture
//:: FileName  sp_etern_tortr.nss
//:://////////////////////////////////////////////
/**@file Eternity of Torture
Necromancy [Evil]
Level: Pain 9
Components: V, S, DF
Casting Time: 1 action
Range: Close (25 ft. + 5 ft./2 levels)
Target: One creature
Duration: Permanent
Saving Throw: Fortitude partial
Spell Resistance: Yes

The subject's body is twisted and warped, wracked
forever with excruciating pain. The subject is
rendered helpless, but-as long as the spell continues
-it is sustained and has no need for food, drink, or
air. The subject does not age-all the better to ensure
a true eternity of unimaginable torture. The subject
takes 1 point of drain to each ability score each day
until all scores are reduced to 0 (except Constitution,
which stays at 1). The subject cannot heal or regenerate.
Lastly, the subject is completely unaware of its
surroundings, insensate to anything but the excruciating
pain.

A single Fortitude saving throw is all that stands
between a target and this horrible spell. However,
even if the saving throw is successful, the target
still feels terrible (but temporary) pain. The target
takes 5d6 points of damage immediately and takes a -4
circumstance penalty on attack rolls, saving throws,
skill checks, and ability checks for 1 round per level
of the caster.

Author:    Tenjac
Created:   3/25/06
*/
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////

void AbilityScrewed (object oTarget);

#include "prc_inc_spells"
#include "prc_add_spell_dc"

void main()
{
    object oPC = OBJECT_SELF;
    object oTarget = PRCGetSpellTargetObject();
    int nCasterLvl = PRCGetCasterLevel(oPC);
    int nAttributes = 0;
    int nDC = PRCGetSaveDC(oTarget, oPC);
    float fDur = 15000.0f;
    effect eImp = EffectVisualEffect(VFX_FNF_PWKILL);

    //spellhook
    if(!X2PreSpellCastCode()) return;

    PRCSetSchool(SPELL_SCHOOL_NECROMANCY);

    //Spell resist
    if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()))
    {
        //VFX
        SPApplyEffectToObject(DURATION_TYPE_INSTANT, eImp, oTarget);

        //Fort save
        if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL))
        {
            AssignCommand(oTarget, PlayAnimation(ANIMATION_LOOPING_SPASM, 1.0, fDur));
            AssignCommand(oTarget, SetCommandable(FALSE, oTarget));
            AbilityScrewed(oTarget);
        }

        else
        {
        if(!GetHasMettle(oTarget, SAVING_THROW_FORT))
        {
            //5d6 damage, -4 to attack, save, skills, attribute checks
            int nDam = d6(5);
            nDam += SpellDamagePerDice(oPC, 5);
            effect eLink = EffectAttackDecrease(4, ATTACK_BONUS_MISC);
            eLink = EffectLinkEffects(eLink, EffectSavingThrowDecrease(SAVING_THROW_ALL, 4, SAVING_THROW_TYPE_ALL));
            eLink = EffectLinkEffects(eLink, EffectSkillDecrease(SKILL_ALL_SKILLS, 4));

            SPApplyEffectToObject(DURATION_TYPE_INSTANT, PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL), oTarget);
            SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, (6.0f * nCasterLvl));
        }
        }
    }

    //SPEvilShift(oPC);
    PRCSetSchool();
}

void AbilityScrewed (object oTarget)
{
    int nAttributes = 0;

    if(GetAbilityScore(oTarget, ABILITY_STRENGTH) > 3)
    {
        ApplyAbilityDamage(oTarget, ABILITY_STRENGTH, 1, DURATION_TYPE_PERMANENT, TRUE, -1.0f);
    }
    else nAttributes++;

    if(GetAbilityScore(oTarget, ABILITY_DEXTERITY) > 3)
    {
        ApplyAbilityDamage(oTarget, ABILITY_DEXTERITY, 1, DURATION_TYPE_PERMANENT, TRUE, -1.0f);
    }
    else nAttributes++;

    if(GetAbilityScore(oTarget, ABILITY_CONSTITUTION) > 3)
    {
        ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, 1, DURATION_TYPE_PERMANENT, TRUE, -1.0f);
    }
    else nAttributes++;

    if(GetAbilityScore(oTarget, ABILITY_INTELLIGENCE) > 3)
    {
        ApplyAbilityDamage(oTarget, ABILITY_INTELLIGENCE, 1, DURATION_TYPE_PERMANENT, TRUE, -1.0f);
    }
    else nAttributes++;

    if(GetAbilityScore(oTarget, ABILITY_WISDOM) > 3)
    {
        ApplyAbilityDamage(oTarget, ABILITY_WISDOM, 1, DURATION_TYPE_PERMANENT, TRUE, -1.0f);
    }
    else nAttributes++;

    if(GetAbilityScore(oTarget, ABILITY_CHARISMA) > 3)
    {
        ApplyAbilityDamage(oTarget, ABILITY_CHARISMA, 1, DURATION_TYPE_PERMANENT, TRUE, -1.0f);
    }
    else nAttributes++;

    if (nAttributes < 6)
    {
        DelayCommand(HoursToSeconds(24), AbilityScrewed(oTarget));
    }
}