Aschbourne_PRC8/_module/nss/deity_altar_used.nss
GetOffMyYarn 69879d6957 Areas and Fixes
Added CCOH and missing areas
Changed some areas to be craftable,
Fixed some on death issues,
Fixed the Gaurd
2024-08-30 11:38:44 -04:00

65 lines
2.8 KiB
Plaintext

#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;
}
}
}
}
}