A Land Far Away

// Apply a burst visual effect at the target location.
location lTarget = GetSpellTargetLocation();
effect eImpact = EffectVisualEffect(VFX_FNF_GLITTERDUST);
ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, lTarget);

int nCasterLvl = GetCasterLevel(OBJECT_SELF);

// Determine the spell's duration.
float fDuration = GetMetaMagicDuration(RoundsToSeconds(nCasterLvl));

effect eBlindness = EffectLinkEffects(EffectBlindness(),
EffectVisualEffect(VFX_DUR_BLIND));
effect eHidePenalty = EffectLinkEffects(EffectSkillDecrease(SKILL_HIDE, 40),
EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE));

object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lTarget);
while(GetIsObjectValid(oTarget))
{
if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF))
{
SignalSpellEvent(oTarget);

// Apply impact vfx.
DelayCommand(0.5, ApplyEffectToObject(DURATION_TYPE_INSTANT,
EffectVisualEffect(VFX_IMP_SPARKS), oTarget));

// Creatures take the hide penalty whether they save or not.
SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHidePenalty, oTarget, fDuration,TRUE,-1,nCasterLvl);

// Creatures that are invisible become visible whether they save or not. We do
// this by looping through all the creature's effects looking for invisibility
// effects and removing them.
effect eTarget = GetFirstEffect(oTarget);
while (GetIsEffectValid(eTarget))
{
int nType = GetEffectType(eTarget);
if (EFFECT_TYPE_INVISIBILITY == nType || EFFECT_TYPE_IMPROVEDINVISIBILITY == nType)
RemoveEffect (oTarget, eTarget);

eTarget = GetNextEffect(oTarget);
}

// Let the creature make a will save, if it fails it's blinded.
if (!MySavingThrow(SAVING_THROW_WILL, oTarget, GetSaveDC(oTarget,OBJECT_SELF)))
SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBlindness, oTarget, fDuration,TRUE,-1,nCasterLvl);
}

oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_LARGE, lTarget);
}