#include "nw_i0_plot"

void main()
{
    string sTag = GetTag(OBJECT_SELF);
    // ALTAR
    if (sTag == "deity_altar")
    {
        object oMod = GetModule();
        object oPlayer = GetLastUsedBy();
        object oAltar = OBJECT_SELF;
        string sDeity  = GetDeity(oPlayer) ;
        string sAltarOf = GetLocalString(oAltar,"Deity");
        int nDeityMatch = TestStringAgainstPattern(sAltarOf,sDeity);

        if (sDeity == "")
            sDeity = "omnipotent being";
        AssignCommand(oPlayer,ActionSpeakString("Oh " + sAltarOf + " bless your humble servant " +GetName( GetLastUsedBy()) + "!" ));
        AssignCommand(oPlayer,ActionPlayAnimation(ANIMATION_LOOPING_WORSHIP,1.0f,10.0f));
        AssignCommand(oPlayer,ActionSpeakString("That's enough for today"));

        if((sDeity!="")&& nDeityMatch)
            {
            int nrezpercent=GetLocalInt(oMod,"GODCHANCE")+(GetHitDice(oPlayer)/4);
            if(d100(1) < nrezpercent)
                {
                switch( d8() )
                    {
                    case 1:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_ENDURANCE, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;

                    case 2:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_ENDURE_ELEMENTS, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;

                    case 3:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_BLESS, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;

                    case 4:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_BULLS_STRENGTH, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;

                    case 5:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_CATS_GRACE, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;

                    case 6:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_ENDURE_ELEMENTS, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;

                    case 7:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_EAGLE_SPLEDOR, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;

                    case 8:
                        AssignCommand(oAltar, ActionCastSpellAtObject(SPELL_OWLS_WISDOM, oPlayer, METAMAGIC_ANY, TRUE, 0, PROJECTILE_PATH_TYPE_DEFAULT, FALSE));
                        break;
                    }
                }
            }
    }
}