void main()
{
// Variable premiere apparition:

object oAutelEau = GetObjectByTag ("auteleau");
int nVarPrimoEau=GetLocalInt(oAutelEau,"VarPrimo");

object oAutelAir = GetObjectByTag ("autelair");
int nVarPrimoAir = GetLocalInt(oAutelAir,"VarPrimo");

object oAutelFeu = GetObjectByTag ("autelfeu");
int nVarPrimoFeu=GetLocalInt(oAutelFeu,"VarPrimo");

object oAutelLune = GetObjectByTag ("autellune");
int nVarPrimoLune=GetLocalInt(oAutelLune,"VarPrimo");

object oAutelTerre = GetObjectByTag ("autelterre");
int nVarPrimoTerre=GetLocalInt(oAutelTerre,"VarPrimo");

// Creatures:

object oElem1=GetObjectByTag("elementalEau");

object oElem2=GetObjectByTag("elementalAir");

object oElem3=GetObjectByTag("elementalFeu");

object oElem4=GetObjectByTag("elementalTerre");

object oElem5=GetObjectByTag("elementalLune");

//Localisation:

object oTube=GetObjectByTag("vp_ArriveAdonai");
location lLoc=GetLocation(GetWaypointByTag("ApparitionAdo"));

//Liste des effets:

effect eEffect1 = EffectVisualEffect(VFX_FNF_IMPLOSION);
effect eEffect2 = EffectVisualEffect(VFX_FNF_SUNBEAM);
effect eEffect3 = EffectVisualEffect(VFX_FNF_SUMMON_CELESTIAL);
effect eEffect4 = EffectVisualEffect(VFX_FNF_TIME_STOP);
effect eEffect5 = EffectVisualEffect(VFX_FNF_HOWL_WAR_CRY);

//Ordre de lancement des sorts:

        if (nVarPrimoEau==1)
            {
DelayCommand(1.0, AssignCommand(oElem1, ActionCastSpellAtObject(SPELL_CONE_OF_COLD, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(3.0, AssignCommand(oElem2, ActionCastSpellAtObject(SPELL_ICE_STORM, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(5.0, AssignCommand(oElem3, ActionCastSpellAtObject(SPELL_FIREBALL, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(7.0, AssignCommand(oElem4, ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(9.0, AssignCommand(oElem5, ActionCastSpellAtObject(SPELL_NEGATIVE_ENERGY_RAY, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));
            }

        if (nVarPrimoAir==1)
            {
DelayCommand(1.0, AssignCommand(oElem2, ActionCastSpellAtObject(SPELL_ICE_STORM, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(3.0, AssignCommand(oElem3, ActionCastSpellAtObject(SPELL_FIREBALL, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(5.0, AssignCommand(oElem4, ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(7.0, AssignCommand(oElem5, ActionCastSpellAtObject(SPELL_NEGATIVE_ENERGY_RAY, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(9.0, AssignCommand(oElem1, ActionCastSpellAtObject(SPELL_CONE_OF_COLD, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));
            }

        if (nVarPrimoFeu==1)
            {
DelayCommand(1.0, AssignCommand(oElem3, ActionCastSpellAtObject(SPELL_FIREBALL, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(3.0, AssignCommand(oElem4, ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(5.0, AssignCommand(oElem5, ActionCastSpellAtObject(SPELL_NEGATIVE_ENERGY_RAY, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(7.0, AssignCommand(oElem1, ActionCastSpellAtObject(SPELL_CONE_OF_COLD, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(9.0, AssignCommand(oElem2, ActionCastSpellAtObject(SPELL_ICE_STORM, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));
            }

        if (nVarPrimoTerre==1)
            {
DelayCommand(1.0, AssignCommand(oElem4, ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(3.0, AssignCommand(oElem5, ActionCastSpellAtObject(SPELL_NEGATIVE_ENERGY_RAY, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(5.0, AssignCommand(oElem1, ActionCastSpellAtObject(SPELL_CONE_OF_COLD, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(7.0, AssignCommand(oElem2, ActionCastSpellAtObject(SPELL_ICE_STORM, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(9.0, AssignCommand(oElem3, ActionCastSpellAtObject(SPELL_FIREBALL, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));
            }

        if (nVarPrimoLune==1)
            {
DelayCommand(1.0, AssignCommand(oElem5, ActionCastSpellAtObject(SPELL_NEGATIVE_ENERGY_RAY, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(3.0, AssignCommand(oElem1, ActionCastSpellAtObject(SPELL_CONE_OF_COLD, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(5.0, AssignCommand(oElem2, ActionCastSpellAtObject(SPELL_ICE_STORM, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(7.0, AssignCommand(oElem3, ActionCastSpellAtObject(SPELL_FIREBALL, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));

DelayCommand(9.0, AssignCommand(oElem4, ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, oTube, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, TRUE)));
            }
}