//:: Script Name "powerimmortal"
////////////////////////////////////
//Created by Genisys / Guile 6/14/08
////////////////////////////////////
/*

This script is fired from another
script with the command function
ExecuteScript("powerimmortal", oPC);
Where oPC must be defined there.
Here OBJECT_SELF = oPC because
the script which fired this one
makes oPC the caller of this script.

Needless to say, I felt immortality needed to be a very special thing,
even more powerful than anything in the module, and it should be a
very major quest to obtain it, preferrably a very hard quest too.

Immortals with this script gain many powers that make them more or less
godlike in many ways, & every class gains a benefit from these powers.

*/
////////////////////////////////////

void main()
{
object oPC = OBJECT_SELF;
effect eEffect;

//IMPORTANT: If you wish to diable anything type // before ApplyEffect....
//All special effects are commented in green below in groups..

//NOTE All Immortals should be VERY powerful and hard to kill!
//After all they are Gods (more or less).

//Imortals are identified by a blue/white glowing
eEffect = EffectVisualEffect(VFX_DUR_BLUR);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They also have the permanent effect of Premonition
eEffect = EffectVisualEffect(VFX_DUR_PROT_PREMONITION);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They regenerate 2 x faster than a vampire..
eEffect = EffectRegenerate(8, 6.0);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They have permanent damage reduction +10 / 20 (no limit on damage!)
eEffect = EffectDamageReduction(20, DAMAGE_POWER_PLUS_TEN, 0);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They are permanently hasted (without gear)
eEffect = EffectHaste();
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They can see anything..
eEffect = EffectTrueSeeing();
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They are extremely hard to hit!
eEffect = EffectConcealment(50);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They are immune to Critical Hits and Sneak Attacks..
eEffect = EffectImmunity(IMMUNITY_TYPE_CRITICAL_HIT);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They are immune to ALL death magic..
eEffect = EffectImmunity(IMMUNITY_TYPE_DEATH);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They cannot lose levels by magic or powers..
eEffect = EffectImmunity(IMMUNITY_TYPE_NEGATIVE_LEVEL);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They cannot lose levels by magic or powers..
eEffect = EffectImmunity(IMMUNITY_TYPE_NEGATIVE_LEVEL);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They are not effected by Ability Decrease effects
eEffect = EffectImmunity(IMMUNITY_TYPE_MIND_SPELLS);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They are cannot be knocked down by any means..
eEffect = EffectImmunity(IMMUNITY_TYPE_KNOCKDOWN);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//Their Spell Resistance cannot be lowered
eEffect = EffectImmunity(IMMUNITY_TYPE_SPELL_RESISTANCE_DECREASE);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

//They permanently have the effects of Freedom..
eEffect = EffectImmunity(IMMUNITY_TYPE_MOVEMENT_SPEED_DECREASE);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

eEffect = EffectImmunity(IMMUNITY_TYPE_ENTANGLE);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

eEffect = EffectImmunity(IMMUNITY_TYPE_PARALYSIS);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

eEffect = EffectSpellImmunity(SPELL_HARM);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

eEffect = EffectSpellImmunity(SPELL_FLESH_TO_STONE);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

eEffect = EffectSpellImmunity(SPELL_WORD_OF_FAITH);
eEffect = SupernaturalEffect(eEffect);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oPC);

if(GetImmortal(oPC)==FALSE)
{
//Note: I turned this off because it makes them unkillable by any means..
//If you wish immortals to be truly immortal...
//delete the // at the beinning of the line below.

//SetImmortal(oPC, TRUE);

}

//Script end..
}