void main()
{
    if(GetTag(OBJECT_SELF) == "dae_focus_1")
    {
    object oDemon = GetNearestObjectByTag("dae_demon");
    int iDemonFocus = GetLocalInt(GetNearestObjectByTag("dae_demon"), "focus");
    SetLocalInt(oDemon, "focus", iDemonFocus +1);
    ExecuteScript("dae_demonstatus", oDemon);
    }
    if(GetTag(OBJECT_SELF) == "dae_focus_2")
    {
    object oDemon = GetNearestObjectByTag("dae_demon");
    int iDemonFocus = GetLocalInt(GetNearestObjectByTag("dae_demon"), "focus");
    SetLocalInt(oDemon, "focus", iDemonFocus +1);
    ExecuteScript("dae_demonstatus", oDemon);
    }
    if(GetTag(OBJECT_SELF) == "dae_focus_3")
    {
    object oDemon = GetNearestObjectByTag("dae_demon");
    int iDemonFocus = GetLocalInt(GetNearestObjectByTag("dae_demon"), "focus");
    SetLocalInt(oDemon, "focus", iDemonFocus +1);
    ExecuteScript("dae_demonstatus", oDemon);
    }
    if(GetTag(OBJECT_SELF) == "dae_focus_4")
    {
    object oDemon = GetNearestObjectByTag("dae_demon");
    int iDemonFocus = GetLocalInt(GetNearestObjectByTag("dae_demon"), "focus");
    SetLocalInt(oDemon, "focus", iDemonFocus +1);
    ExecuteScript("dae_demonstatus", oDemon);
    }
    if(GetTag(OBJECT_SELF) == "dae_focus_5")
    {
    object oDemon = GetNearestObjectByTag("dae_demon");
    int iDemonFocus = GetLocalInt(GetNearestObjectByTag("dae_demon"), "focus");
    SetLocalInt(oDemon, "focus", iDemonFocus +1);
    ExecuteScript("dae_demonstatus", oDemon);
    }
    if(GetTag(OBJECT_SELF) == "dae_demon_alter")
    {
    AssignCommand(GetNearestObjectByTag("dae_demon"), ActionSpeakString("FOOLS! You play into my hand!", TALKVOLUME_TALK));
    DelayCommand(2.0, AssignCommand(GetNearestObjectByTag("dae_demon"), ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, GetNearestObjectByTag("dae_focus_1"), METAMAGIC_MAXIMIZE, TRUE, 10 , PROJECTILE_PATH_TYPE_DEFAULT,TRUE)));
    DelayCommand(4.0, AssignCommand(GetNearestObjectByTag("dae_demon"), ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, GetNearestObjectByTag("dae_focus_2"), METAMAGIC_MAXIMIZE, TRUE, 10 , PROJECTILE_PATH_TYPE_DEFAULT,TRUE)));
    DelayCommand(6.0, AssignCommand(GetNearestObjectByTag("dae_demon"), ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, GetNearestObjectByTag("dae_focus_3"), METAMAGIC_MAXIMIZE, TRUE, 10 , PROJECTILE_PATH_TYPE_DEFAULT,TRUE)));
    DelayCommand(8.0, AssignCommand(GetNearestObjectByTag("dae_demon"), ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, GetNearestObjectByTag("dae_focus_4"), METAMAGIC_MAXIMIZE, TRUE, 10 , PROJECTILE_PATH_TYPE_DEFAULT,TRUE)));
   DelayCommand(10.0, AssignCommand(GetNearestObjectByTag("dae_demon"), ActionCastSpellAtObject(SPELL_MAGIC_MISSILE, GetNearestObjectByTag("dae_focus_5"), METAMAGIC_MAXIMIZE, TRUE, 10 , PROJECTILE_PATH_TYPE_DEFAULT,TRUE)));
    }
}