//::///////////////////////////////////////////////
//:: DMFI - Universal Wand executable
//:: dmfi_execute
//:://////////////////////////////////////////////
/*
    Processing for all DMFI wands & widgets universal conversation choices.

    Credits:
        Bioware - Dicebag
        Arawen - Skill Check Wand (implemented with the Dicebag)
        Jhenne (tallonzek@hotmail.com)   \ Authors of the original FX Wand,
        Doppleganger                     / DM Wand and Emote Wand
        Demetrious - XP wand
        Dezran (dezran@roguepenguin.com) - Rod of Affliction
        Lurker - Music Wand
        Oddbod - FX wand improvements
        Ty Worsham (volition) - Sound Creator Beta
        OldManWhistler - NPC corpse functions

        hahnsoo (hahns_shin@hotmail.com) - Final Improved FX wand, Universal wand scripts,
                                           Encounter wand, DM Voice scripts, Faction wand,
                                           Spirelands Resting system
        J.R.R.Tolkien - References to the One Ring.
*/
//:://////////////////////////////////////////////
//:: Created By: The DMFI Team
//:: Created On:
//:://////////////////////////////////////////////
//:: 2007.04.12 hahnsoo and Demetrious - version 1.08a
//:: 2007.12.12 Merle - fixes to DMFI rest system
//:: 2008.05.25 tsunami282 - updated for NWN 1.69 (DMFI OnPlayerChat event handling)
//:: 2008.05.26 tsunami282 - XP wand: grant percent XP based on each party member's level, not selected party member

#include "dmfi_db_inc"
#include "dmfi_dmw_inc"
#include "x2_inc_toollib"
#include "dmfi_plychat_inc"
#include "dmfi_plchlishk_i"
#include "dmfi_getln_inc"

int iNightMusic;
int iDayMusic;
int iBattleMusic;

////////////////////////////////////////////////////////////////////////
object DMFI_NextTarget(object oTarget, object oUser)
{
    object oNew;

    if (GetIsPC(oTarget))
    {
        if (GetIsObjectValid(GetNextFactionMember(oTarget)))
            oNew = GetNextFactionMember(oTarget);
        else
            oNew = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC, oTarget, 1);
    }
    else
        oNew = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_NOT_PC, oTarget, 1);


    if (!GetIsObjectValid(oNew))
    {
        SendMessageToPC(oUser, "No valid target to transfer to.");
        oNew = oTarget;
    }

    SetLocalObject(oUser, "dmfi_univ_target", oNew);
    SetCustomToken(20680, GetName(oNew));
    FloatingTextStringOnCreature("Target changed to: "+ GetName(oNew), oUser);
    return oNew;
}

////////////////////////////////////////////////////////////////////////
//DMFI Creates the "settings" creature
void CreateSetting(object oUser)
{
    object oSetting = CreateObject(OBJECT_TYPE_CREATURE, "dmfi_setting", GetLocation(oUser));
    DelayCommand(0.5f, AssignCommand(oSetting, ActionSpeakString(GetLocalString(oUser, "EffectSetting") + " is currently set at " + FloatToString(GetLocalFloat(oUser, GetLocalString(oUser, "EffectSetting"))))));
    SetLocalObject(oSetting, "MyMaster", oUser);
    SetListenPattern(oSetting, "**", LISTEN_PATTERN); //listen to all text
    SetLocalInt(oSetting, "hls_Listening", 1); //listen to all text
    SetListening(oSetting, TRUE);          //be sure NPC is listening
}

////////////////////////////////////////////////////////////////////////
//DMFI Processes the dice rolls
void RollDemBones(object oUser, int iBroadcast, int iMod = 0, string sAbility = "", int iNum = 1, int iSide = 20)
{

    string sString = "";
    int iRoll = 0;
    int iTotal = 0;
    //Build the string
    sString = sAbility+"Roll " + IntToString(iNum) + "d" + IntToString(iSide) + ": ";
    while (iNum > 1)
    {
        iRoll = Random(iSide) + 1;
        iTotal = iTotal + iRoll;
        sString = sString + IntToString(iRoll) + " + ";
        iNum--;
    }
    iRoll = Random(iSide) + 1;
    iTotal = iTotal + iRoll;
    sString = sString + IntToString(iRoll);
    if (iMod)
    {
        iTotal = iTotal + iMod;
        sString = sString + " + Modifier: " + IntToString(iMod);
    }
    sString = sString + " = Total: " + IntToString(iTotal);

    //Perform appropriate animation
    if (GetLocalInt(oUser, "dmfi_dice_no_animate")!=1)
    {
        switch (GetLocalInt(oUser, "dmfi_univ_int"))
        {
        case 71: AssignCommand(oUser, PlayAnimation(ANIMATION_LOOPING_TALK_PLEADING, 1.0, 5.0f)); break;
        case 72: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_PAUSE_SCRATCH_HEAD, 1.0)); break;
        case 73: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_TAUNT, 1.0)); break;
        case 74: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_HEAD_TURN_LEFT, 1.0)); break;
        case 78: AssignCommand(oUser, PlayAnimation(ANIMATION_LOOPING_GET_LOW, 1.0, 5.0f)); break;
        case 81: AssignCommand(oUser, PlayAnimation(ANIMATION_LOOPING_CONJURE1, 1.0, 5.0f)); break;
        case 82: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_DODGE_SIDE, 1.0)); break;
        case 83: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_TAUNT, 1.0)); break;
        case 84: AssignCommand(oUser, PlayAnimation(ANIMATION_LOOPING_LISTEN, 1.0, 5.0f)); break;
        case 85: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_PAUSE_SCRATCH_HEAD, 1.0)); break;
        case 89: AssignCommand(oUser, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_BARD_SONG), oUser, 6.0f)); break;
        case 91: AssignCommand(oUser, PlayAnimation(ANIMATION_LOOPING_TALK_PLEADING, 1.0, 5.0f)); break;
        case 95: AssignCommand(oUser, PlayAnimation(ANIMATION_LOOPING_CONJURE2, 1.0, 5.0f)); break;
        case 97: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_TAUNT, 1.0)); break;
        case 98: AssignCommand(oUser, PlayAnimation(ANIMATION_FIREFORGET_DODGE_DUCK, 1.0)); break;
        default: AssignCommand(oUser, PlayAnimation (ANIMATION_LOOPING_GET_MID, 1.0, 3.0)); break;
        }
    }

    sString = ColorText(sString, "cyan");
    //--------------------------------------------------------
    switch (iBroadcast)
    {
    case 3: break;                             //dm only
    case 1: AssignCommand(oUser, SpeakString(sString , TALKVOLUME_SHOUT)); break;
    case 2: AssignCommand(oUser, SpeakString(sString)); break;
    default: if (GetIsPC(oUser)) SendMessageToPC(oUser, sString);break;
    }
    //--------------------------------------------------------
    AssignCommand(oUser, SpeakString( sString, TALKVOLUME_SILENT_SHOUT));
    return;
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI PC Dicebag
void DoDiceBagFunction(int iDice, object oUser, int iDMOverride = 0)
{
    string sAbility = "";
    int iTrain =0;
    int iNum = 0;
    int iSide = 0;
    int iMod = 0;
    int iLeft;
    if (iDice < 100)
        iLeft = StringToInt(GetStringLeft(IntToString(iDice), 1));
    else
        iLeft = 10;
    int iRight = StringToInt(GetStringRight(IntToString(iDice), 1));
    switch (iDice)
    {
    case 61: iNum = 1; iSide = 20; sAbility="Strength Check, "; iMod = GetAbilityModifier(ABILITY_STRENGTH, oUser); break;
    case 62: iNum = 1; iSide = 20; sAbility="Dexterity Check, "; iMod = GetAbilityModifier(ABILITY_DEXTERITY, oUser); break;
    case 63: iNum = 1; iSide = 20; sAbility="Constitution Check, "; iMod = GetAbilityModifier(ABILITY_CONSTITUTION, oUser); break;
    case 64: iNum = 1; iSide = 20; sAbility="Intelligence Check, "; iMod = GetAbilityModifier(ABILITY_INTELLIGENCE, oUser); break;
    case 65: iNum = 1; iSide = 20; sAbility="Wisdom Check, "; iMod = GetAbilityModifier(ABILITY_WISDOM, oUser); break;
    case 66: iNum = 1; iSide = 20; sAbility="Charisma Check, "; iMod = GetAbilityModifier(ABILITY_CHARISMA, oUser); break;
    case 67: iNum = 1; iSide = 20; sAbility="Fortitude Save, "; iMod = GetFortitudeSavingThrow(oUser); break;
    case 68: iNum = 1; iSide = 20; sAbility="Reflex Save, "; iMod = GetReflexSavingThrow(oUser); break;
    case 69: iNum = 1; iSide = 20; sAbility="Will Save, "; iMod = GetWillSavingThrow(oUser); break;

    case 71: iNum = 1; iSide = 20; iTrain = 1; sAbility="Animal Empathy Check, "; iMod = GetSkillRank(SKILL_ANIMAL_EMPATHY, oUser); break;
    case 72: iNum = 1; iSide = 20; sAbility="Appraise Check, "; iMod = GetSkillRank(SKILL_APPRAISE, oUser); break;
    case 73: iNum = 1; iSide = 20; sAbility="Bluff Check, "; iMod = GetSkillRank(SKILL_BLUFF, oUser); break;
    case 74: iNum = 1; iSide = 20; sAbility="Concentration Check, "; iMod = GetSkillRank(SKILL_CONCENTRATION, oUser); break;
    case 75: iNum = 1; iSide = 20; sAbility="Craft Armor Check, "; iMod = GetSkillRank(SKILL_CRAFT_ARMOR, oUser); break;
    case 76: iNum = 1; iSide = 20; sAbility="Craft Trap Check, "; iMod = GetSkillRank(SKILL_CRAFT_TRAP, oUser); break;
    case 77: iNum = 1; iSide = 20; sAbility="Craft Weapon Check, "; iMod = GetSkillRank(SKILL_CRAFT_WEAPON, oUser); break;
    case 78: iNum = 1; iSide = 20; iTrain = 1; sAbility="Disable Trap Check, "; iMod = GetSkillRank(SKILL_DISABLE_TRAP, oUser); break;
    case 79: iNum = 1; iSide = 20; sAbility="Discipline Check, "; iMod = GetSkillRank(SKILL_DISCIPLINE, oUser); break;

    case 81: iNum = 1; iSide = 20; sAbility="Heal Check, "; iMod = GetSkillRank(SKILL_HEAL, oUser); break;
    case 82: iNum = 1; iSide = 20; sAbility="Hide Check, "; iMod = GetSkillRank(SKILL_HIDE, oUser); break;
    case 83: iNum = 1; iSide = 20; sAbility="Intimidate Check, "; iMod = GetSkillRank(SKILL_INTIMIDATE, oUser); break;
    case 84: iNum = 1; iSide = 20; sAbility="Listen Check, "; iMod = GetSkillRank(SKILL_LISTEN, oUser); break;
    case 85: iNum = 1; iSide = 20; sAbility="Lore Check, "; iMod = GetSkillRank(SKILL_LORE, oUser); break;
    case 86: iNum = 1; iSide = 20; sAbility="Move Silently Check, "; iMod = GetSkillRank(SKILL_MOVE_SILENTLY, oUser); break;
    case 87: iNum = 1; iSide = 20; iTrain = 1; sAbility="Open Lock Check, "; iMod = GetSkillRank(SKILL_OPEN_LOCK, oUser); break;
    case 88: iNum = 1; iSide = 20; sAbility="Parry Check, "; iMod = GetSkillRank(SKILL_PARRY, oUser); break;
    case 89: iNum = 1; iSide = 20; sAbility="Perform Check, "; iMod = GetSkillRank(SKILL_PERFORM, oUser); break;
    // 2008.07.30 morderon - added ride check
    case 90: iNum = 1; iSide = 20; sAbility="Ride, "; iMod = GetSkillRank(SKILL_RIDE, oUser); break;
    case 91: iNum = 1; iSide = 20; sAbility="Persuade Check, "; iMod = GetSkillRank(SKILL_PERSUADE, oUser); break;
    case 92: iNum = 1; iSide = 20; iTrain = 1; sAbility="Pick Pocket Check, "; iMod = GetSkillRank(SKILL_PICK_POCKET, oUser); break;
    case 93: iNum = 1; iSide = 20; sAbility="Search Check, "; iMod = GetSkillRank(SKILL_SEARCH, oUser); break;
    case 94: iNum = 1; iSide = 20; iTrain = 1; sAbility="Set Trap Check, "; iMod = GetSkillRank(SKILL_SET_TRAP, oUser); break;
    case 95: iNum = 1; iSide = 20; iTrain = 1; sAbility="Spellcraft Check, "; iMod = GetSkillRank(SKILL_SPELLCRAFT, oUser); break;
    case 96: iNum = 1; iSide = 20; sAbility="Spot Check, "; iMod = GetSkillRank(SKILL_SPOT, oUser); break;
    case 97: iNum = 1; iSide = 20; sAbility="Taunt Check, "; iMod = GetSkillRank(SKILL_TAUNT, oUser); break;
    case 98: iNum = 1; iSide = 20; iTrain = 1; sAbility="Tumble Check, "; iMod = GetSkillRank(SKILL_TUMBLE, oUser); break;
    case 99: iNum = 1; iSide = 20; iTrain = 1; sAbility="Use Magic Device Check, "; iMod = GetSkillRank(SKILL_USE_MAGIC_DEVICE, oUser); break;

    case 101: SetLocalInt(oUser, "dmfi_dicebag", 2); SetDMFIPersistentInt("dmfi", "dmfi_dicebag", 2, oUser); SetCustomToken(20681, "Local"); FloatingTextStringOnCreature("Broadcast Mode set to Local", oUser, FALSE); return; break;
    case 102: SetLocalInt(oUser, "dmfi_dicebag", 1); SetDMFIPersistentInt("dmfi", "dmfi_dicebag", 1, oUser); SetCustomToken(20681, "Global"); FloatingTextStringOnCreature("Broadcast Mode set to Global", oUser, FALSE); return; break;
    case 103: SetLocalInt(oUser, "dmfi_dicebag", 0); SetDMFIPersistentInt("dmfi", "dmfi_dicebag", 0, oUser); SetCustomToken(20681, "Private"); FloatingTextStringOnCreature("Broadcast Mode set to Private", oUser, FALSE); return; break;
    default: iNum = iRight;

        switch (iLeft)
        {
        case 1: iSide = 4; break;
        case 2: iSide = 6; break;
        case 3: iSide = 8; break;
        case 4: iSide = 10; break;
        case 5: iSide = 20; break;
        }
        break;
    }
    if ((iTrain)&&(iMod==0))
    {
        string sMsg = ColorText("No dice roll:  Skill requires training", "red");
        SendMessageToPC(oUser, sMsg);
        AssignCommand(oUser, SpeakString( sMsg, TALKVOLUME_SILENT_SHOUT));
        return;
    }


    int iTell = GetLocalInt(oUser, "dmfi_dicebag");

    if (iDMOverride)
        iTell = iDMOverride;

    RollDemBones(oUser, iTell, iMod, sAbility, iNum, iSide);
}

////////////////////////////////////////////////////////////////////////
//By OldManWhistler for the DMFI Control Wand
void DestroyAllItems()
{
    if (GetIsDead(OBJECT_SELF))
    {
        object oItem = GetFirstItemInInventory();
        while (GetIsObjectValid(oItem))
        {
            DestroyObject(oItem);
            oItem = GetNextItemInInventory();
        }
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_ARMS)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_ARROWS)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_BELT)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_BOLTS)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_BOOTS)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_BULLETS)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_CARMOUR)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_CHEST)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_CLOAK)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_CWEAPON_B)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_CWEAPON_L)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_CWEAPON_R)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_HEAD)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_LEFTHAND)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_LEFTRING)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_NECK)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_RIGHTHAND)))
            DestroyObject(oItem);
        if (GetIsObjectValid(oItem=GetItemInSlot(INVENTORY_SLOT_RIGHTRING)))
            DestroyObject(oItem);
    }
}

////////////////////////////////////////////////////////////////////////
// Function to destroy a target, by OldManWhistler, for the DMFI Control Wand
void DestroyCreature(object oTarget)
{
    AssignCommand(oTarget,SetIsDestroyable(TRUE,FALSE,FALSE));
    DestroyObject(oTarget);
}

////////////////////////////////////////////////////////////////////////
//DMFI NPC Control Wand
void DoControlFunction(int iFaction, object oUser)
{
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    object oArea = GetArea(oUser);
    object oChange;
    float fAlignShift;
    int nAlignShift;
    int nReport;
    int nMessage;

    object oAlignTarget = GetNearestObject(OBJECT_TYPE_CREATURE, oUser);

    fAlignShift = GetLocalFloat(oUser, "dmfi_reputation");

    if (fAlignShift == 0.0f)
        fAlignShift = 10.0f;


    nAlignShift = FloatToInt(fAlignShift);

    switch (iFaction)
    {
    case 10: //Toggle the state of all the encounters in the area
        if (GetLocalInt(oArea, "dmfi_encounter_inactive"))
        {
            oChange = GetFirstObjectInArea(oArea);
            while (GetIsObjectValid(oChange))
            {
                if (GetObjectType(oChange) == OBJECT_TYPE_ENCOUNTER)
                    SetEncounterActive(TRUE, oChange);
                oChange = GetNextObjectInArea(oArea);
            }
            FloatingTextStringOnCreature("Bioware encounters are active",oUser, FALSE);
            SetLocalInt(oArea, "dmfi_encounter_inactive", FALSE);
        }
        else
        {
            oChange = GetFirstObjectInArea(oArea);
            while (GetIsObjectValid(oChange))
            {
                if (GetObjectType(oChange) == OBJECT_TYPE_ENCOUNTER)
                    SetEncounterActive(FALSE, oChange);
                if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE)
                {
                    if (GetIsEncounterCreature(oChange))
                        DestroyObject(oChange); //Nuke any encounter creatures in the area
                }
                oChange = GetNextObjectInArea(oArea);
            }
            FloatingTextStringOnCreature("Bioware encounters deactivated",oUser, FALSE);
            SetLocalInt(oArea, "dmfi_encounter_inactive", TRUE);
        }
        break;
    case 11: ChangeToStandardFaction(oTarget, STANDARD_FACTION_HOSTILE);  break;
    case 12: ChangeToStandardFaction(oTarget, STANDARD_FACTION_COMMONER); break;
    case 13: ChangeToStandardFaction(oTarget, STANDARD_FACTION_DEFENDER); break;
    case 14: ChangeToStandardFaction(oTarget, STANDARD_FACTION_MERCHANT); break;
    case 15: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
                ChangeToStandardFaction(oChange, STANDARD_FACTION_HOSTILE);
            oChange = GetNextObjectInArea(oArea);
        }break;
    case 16: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
                ChangeToStandardFaction(oChange, STANDARD_FACTION_COMMONER);
            oChange = GetNextObjectInArea(oArea);
        }break;
    case 17: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
                ChangeToStandardFaction(oChange, STANDARD_FACTION_DEFENDER);
            oChange = GetNextObjectInArea(oArea);
        }break;
    case 18: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
                ChangeToStandardFaction(oChange, STANDARD_FACTION_MERCHANT);
            oChange = GetNextObjectInArea(oArea);
        }break;
    case 21: oChange = GetFirstPC();
        while (GetIsObjectValid(oChange))
        {
            SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, 0, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_COMMONER, 100, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, 100, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, 100, oChange);
            oChange = GetNextPC();
        }break;
    case 22: oChange = GetFirstPC();
        while (GetIsObjectValid(oChange))
        {
            SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, 20, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_COMMONER, 91, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, 100, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, 50, oChange);
            oChange = GetNextPC();
        }break;
    case 23: oChange = GetFirstPC();
        while (GetIsObjectValid(oChange))
        {
            SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, 0 , oChange);
            SetStandardFactionReputation(STANDARD_FACTION_COMMONER, 0, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, 0, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, 0, oChange);
            oChange = GetNextPC();
        }break;
    case 24: oChange = GetFirstPC();
        while (GetIsObjectValid(oChange))
        {
            SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, 100, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_COMMONER, 100, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, 100, oChange);
            SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, 100, oChange);
            oChange = GetNextPC();
        }break;
    case 25: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE)
            {
                SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, 0, oChange);
                SetStandardFactionReputation(STANDARD_FACTION_COMMONER, 0, oChange);
                SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, 0, oChange);
                SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, 0, oChange);
            }
            oChange = GetNextObjectInArea(oArea);
        }break;
    case 26: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE)
            {
                AssignCommand(oChange, ClearAllActions(TRUE));
                SetStandardFactionReputation(STANDARD_FACTION_HOSTILE, 50, oChange);
                SetStandardFactionReputation(STANDARD_FACTION_COMMONER, 50, oChange);
                SetStandardFactionReputation(STANDARD_FACTION_DEFENDER, 50, oChange);
                SetStandardFactionReputation(STANDARD_FACTION_MERCHANT, 50, oChange);
            }
            oChange = GetNextObjectInArea(oArea);
        }break;
    case 31: SetLocalObject(oUser, "dmfi_customfaction1", oTarget); nMessage = -1; break;
    case 32: SetLocalObject(oUser, "dmfi_customfaction2", oTarget); nMessage = -1;break;
    case 33: SetLocalObject(oUser, "dmfi_customfaction3", oTarget); nMessage = -1;break;
    case 34: SetLocalObject(oUser, "dmfi_customfaction4", oTarget); nMessage = -1;break;
    case 35: SetLocalObject(oUser, "dmfi_customfaction5", oTarget); nMessage = -1;break;
    case 36: SetLocalObject(oUser, "dmfi_customfaction6", oTarget); nMessage = -1;break;
    case 37: SetLocalObject(oUser, "dmfi_customfaction7", oTarget); nMessage = -1;break;
    case 38: SetLocalObject(oUser, "dmfi_customfaction8", oTarget); nMessage = -1;break;
    case 39: SetLocalObject(oUser, "dmfi_customfaction9", oTarget); nMessage = -1;break;
    case 41: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction1")); nMessage = -1;break;
    case 42: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction2")); nMessage = -1;break;
    case 43: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction3")); nMessage = -1;break;
    case 44: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction4")); nMessage = -1;break;
    case 45: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction5")); nMessage = -1;break;
    case 46: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction6")); nMessage = -1;break;
    case 47: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction7")); nMessage = -1;break;
    case 48: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction8")); nMessage = -1;break;
    case 49: ChangeFaction(oTarget, GetLocalObject(oUser, "dmfi_customfaction9")); nMessage = -1;break;
    case 51: RemoveHenchman(GetMaster(oTarget), oTarget);
        SetLocalObject(oUser, "dmfi_henchman", oTarget); nMessage = -1;break;
    case 52: RemoveHenchman(oTarget, GetAssociate(ASSOCIATE_TYPE_HENCHMAN, oTarget));
        AddHenchman(oTarget, GetLocalObject(oUser, "dmfi_henchman")); nMessage = -1;break;
    case 61: AssignCommand(oTarget, ClearAllActions()); AssignCommand(oTarget, ActionMoveAwayFromObject(oUser, TRUE)); nMessage = -1;break;
    case 62: AssignCommand(oTarget, ClearAllActions()); AssignCommand(oTarget, ActionForceMoveToObject(oUser, TRUE, 2.0f, 30.0f)); nMessage = -1;break;
    case 63: AssignCommand(oTarget, ClearAllActions()); AssignCommand(oTarget, ActionRandomWalk());nMessage = -1; break;
    case 64: AssignCommand(oTarget, ClearAllActions()); AssignCommand(oTarget, ActionRest());nMessage = -1; break;
    case 65: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
            {
                AssignCommand(oChange, ClearAllActions()); AssignCommand(oChange, ActionMoveAwayFromObject(oUser, TRUE));
            }
            oChange = GetNextObjectInArea(oArea);
        }nMessage = -1; break;
    case 66: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
            {
                AssignCommand(oChange, ClearAllActions()); AssignCommand(oChange, ActionForceMoveToObject(oUser, TRUE, 2.0f, 30.0f));
            }
            oChange = GetNextObjectInArea(oArea);
        }nMessage = -1; break;
    case 67: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
            {
                AssignCommand(oChange, ClearAllActions()); AssignCommand(oChange, ActionRandomWalk());
            }
            oChange = GetNextObjectInArea(oArea);
        }nMessage = -1; break;
    case 68: oChange = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oChange))
        {
            if (GetObjectType(oChange) == OBJECT_TYPE_CREATURE && !GetIsPC(oChange))
            {
                AssignCommand(oChange, ClearAllActions()); AssignCommand(oChange, ActionRest());
            }
            oChange = GetNextObjectInArea(oArea);
        } nMessage = -1;break;
    case 69: ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDisappear(), oTarget);
        DestroyObject(oTarget, 1.0); nMessage = -1;break;
    case 70: DestroyCreature(oTarget); nMessage = -1;break;
    case 71: AssignCommand(oTarget, SetIsDestroyable(FALSE, TRUE, TRUE)); nMessage = -1;break;
    case 72: AssignCommand(oTarget, SetIsDestroyable(FALSE, FALSE, TRUE)); nMessage = -1;break;
    case 73: AssignCommand(oTarget, SetIsDestroyable(FALSE, FALSE, FALSE));nMessage = -1; break;
    case 74: AssignCommand(oTarget, SetIsDestroyable(TRUE, FALSE, FALSE));nMessage = -1; break;
    case 75: AssignCommand(oTarget, SetIsDestroyable(FALSE, TRUE, TRUE));
        DelayCommand(0.1, AssignCommand(oTarget, ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectDeath(), oTarget))); nMessage = -1;break;
    case 76: AssignCommand(oTarget, SetIsDestroyable(FALSE, FALSE, TRUE));
        DelayCommand(0.1, AssignCommand(oTarget, ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectDeath(), oTarget))); nMessage = -1;break;
    case 77: AssignCommand(oTarget, SetIsDestroyable(FALSE, FALSE, FALSE));
        DelayCommand(0.1, AssignCommand(oTarget, ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectDeath(), oTarget))); nMessage = -1;break;
    case 78: AssignCommand(oTarget, SetIsDestroyable(TRUE, FALSE, FALSE));
        DelayCommand(0.1, AssignCommand(oTarget, ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectDeath(), oTarget)));nMessage = -1; break;
    case 79: AssignCommand(oTarget, DestroyAllItems());
        DelayCommand(1.0, DestroyCreature(oTarget));nMessage = -1;break;
    case 81:  //AdjustReputation(oAlignTarget, oTarget, nAlignShift);
        AdjustReputation(oTarget, oAlignTarget, nAlignShift);
        nReport = GetReputation(oAlignTarget, oTarget);
        FloatingTextStringOnCreature("Current Reputation: "+ GetName(oTarget) + " vs. " +GetName(oAlignTarget)+": " + IntToString(nReport), oUser);
        nReport = GetReputation(oTarget, oAlignTarget);
        FloatingTextStringOnCreature("Current Reputation: "+ GetName(oAlignTarget) + " vs. " +GetName(oTarget)+": " + IntToString(nReport), oUser);
        break;
    case 82:  //AdjustReputation(oAlignTarget, oTarget, -nAlignShift);
        AdjustReputation(oTarget, oAlignTarget, -nAlignShift);
        nReport = GetReputation(oAlignTarget, oTarget);
        FloatingTextStringOnCreature("Current Reputation: "+ GetName(oTarget) + " vs. " +GetName(oAlignTarget)+": " + IntToString(nReport), oUser);
        nReport = GetReputation(oTarget, oAlignTarget);
        FloatingTextStringOnCreature("Current Reputation: "+ GetName(oAlignTarget) + " vs. " +GetName(oTarget)+": " + IntToString(nReport), oUser);
        break;
    case 83:  SetLocalString(oUser, "EffectSetting", "dmfi_reputation");
        CreateSetting(oUser);nMessage = -1; break;
    case 84:  nReport = GetReputation(oAlignTarget, oTarget);
        FloatingTextStringOnCreature("Current Reputation: "+ GetName(oTarget) + " vs. " +GetName(oAlignTarget)+": " + IntToString(nReport), oUser);
        nReport = GetReputation(oTarget, oAlignTarget);
        FloatingTextStringOnCreature("Current Reputation: "+ GetName(oAlignTarget) + " vs. " +GetName(oTarget)+": " + IntToString(nReport), oUser);
        nMessage = -1;break;
    case 9:  {
            if (GetLocalInt(GetModule(), "dmfi_safe_factions")!=1)
            {
                SetLocalInt(GetModule(), "dmfi_safe_factions", 1);
                SetDMFIPersistentInt("dmfi", "dmfi_safe_factions", 1, oUser);
                FloatingTextStringOnCreature("Default non-hostile faction should ignore PC attacks",oUser, FALSE);
            }
            else
            {
                SetLocalInt(GetModule(), "dmfi_safe_factions", 0);
                SetDMFIPersistentInt("dmfi", "dmfi_safe_factions", 0, oUser);
                FloatingTextStringOnCreature("Bioware faction behavior restored",oUser, FALSE);
            }
        }

    default: nMessage = -1;break;

    }

    if (nMessage!=-1)
    {
        if (GetIsImmune(oTarget, IMMUNITY_TYPE_BLINDNESS))
            FloatingTextStringOnCreature("Targeted creature is blind immune - no attack will occur until new perception event is fired", oUser);
        else
        {
            effect eInvis =EffectBlindness();
            ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eInvis, oTarget, 6.1);
            FloatingTextStringOnCreature("Faction Adjusted - Perception event will fire in 6 seconds", oUser);
        }
    }

}

////////////////////////////////////////////////////////////////////////
void IdenStuff(object oTarget)
{
    object oItem = GetFirstItemInInventory(oTarget);
    while (GetIsObjectValid(oItem))
    {
        if (GetIdentified(oItem)==FALSE)
            SetIdentified(oItem, TRUE);

        oItem = GetNextItemInInventory(oTarget);
    }
}

////////////////////////////////////////////////////////////////////////
void TakeStuff(int Level, object oTarget, object oUser)
{
    object oItem = GetFirstItemInInventory(oTarget);
    while (GetIsObjectValid(oItem))
    {
        DestroyObject(oItem);
        oItem = GetNextItemInInventory(oTarget);
    }

    if (Level == 1)
    {
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_ARMS,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_ARROWS,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_BELT,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_BOLTS,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_BOOTS,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_BULLETS,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_CARMOUR,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_CHEST,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_CLOAK,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_CWEAPON_B,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_CWEAPON_L,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_CWEAPON_R,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_HEAD,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_LEFTRING,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_NECK,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oTarget));
        DestroyObject(GetItemInSlot(INVENTORY_SLOT_RIGHTRING,oTarget));
    }
    FloatingTextStringOnCreature("DM Intervention:  Inventory Destroyed by DM", oTarget);
}

////////////////////////////////////////////////////////////////////////
void TakeUber(object oTarget)
{
    int nMultiplier;
    if (GetHitDice(oTarget)<11)
        nMultiplier = 1;
    else if (GetHitDice(oTarget)<16)
        nMultiplier = 2;
    else if (GetHitDice(oTarget)<20)
        nMultiplier = 3;
    else
        nMultiplier = 5;
    object oItem = GetFirstItemInInventory(oTarget);
    while (GetIsObjectValid(oItem))
    {
        if (GetGoldPieceValue(oItem)>1000*nMultiplier*GetHitDice(oTarget))
            DestroyObject(oItem);
        oItem = GetNextItemInInventory(oTarget);
    }
    FloatingTextStringOnCreature("DM Intervention:  Uber type items have been removed", oTarget);
}

////////////////////////////////////////////////////////////////////////
void RotateMe(object oTarget, int Amount, object oUser)
{
    location lLocation = GetLocation (oTarget);
    if (GetObjectType(oTarget) != OBJECT_TYPE_PLACEABLE)
    {
        oTarget = GetNearestObject(OBJECT_TYPE_PLACEABLE, oUser);
        FloatingTextStringOnCreature("Target was not a placable, used placeable closest to your avitar", oUser);
    }
    if (Amount == -2)
    {
        AssignCommand(oTarget, SetFacing(90.0));
        return;
    }
    if (Amount == -1)
    {
        AssignCommand(oTarget, SetFacing(0.0));
        return;
    }
    if (GetIsObjectValid(oTarget))
        AssignCommand(oTarget, SetFacing(GetFacing(oTarget)+Amount));
}

////////////////////////////////////////////////////////////////////////
void DMFI_Object (object oTarget, int Action, object oUser)
{
    location lLocation = GetLocation (oTarget);
    if (GetObjectType(oTarget) != OBJECT_TYPE_PLACEABLE)
    {
        oTarget = GetNearestObject(OBJECT_TYPE_PLACEABLE, oUser);
        FloatingTextStringOnCreature("Target was not a placable, used placeable closest to your avitar", oUser);
    }
    if (GetIsObjectValid(oTarget))
    {
        if (Action==1)
        {
            DestroyObject(oTarget);
            DelayCommand(2.0, FloatingTextStringOnCreature(GetName(oTarget) + "destroyed.  If 'static', you must leave and return to see effect.", oUser));
        }
        else if (Action ==2)
        {
            AssignCommand(oTarget, PlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE));
            DelayCommand(0.4,SetPlaceableIllumination(oTarget, FALSE));
            DelayCommand(0.5,RecomputeStaticLighting(GetArea(oTarget)));
        }
        else if (Action ==3)
        {
            AssignCommand(oTarget, PlayAnimation(ANIMATION_PLACEABLE_ACTIVATE));
            DelayCommand(0.4,SetPlaceableIllumination(oTarget, TRUE));
            DelayCommand(0.5,RecomputeStaticLighting(GetArea(oTarget)));
        }
    }
}

////////////////////////////////////////////////////////////////////////
void dmwand_SwapDayNight(int nDay)
{
    int nCurrentHour;
    int nCurrentMinute = GetTimeMinute();
    int nCurrentSecond = GetTimeSecond();
    int nCurrentMilli = GetTimeMillisecond();

    nCurrentHour = ((nDay == 1)?7:19);

    SetTime(nCurrentHour, nCurrentMinute, nCurrentSecond, nCurrentMilli);
}

////////////////////////////////////////////////////////////////////////
void dmwand_AdvanceTime(int nHours)
{
    int nCurrentHour = GetTimeHour();
    int nCurrentMinute = GetTimeMinute();
    int nCurrentSecond = GetTimeSecond();
    int nCurrentMilli = GetTimeMillisecond();

    nCurrentHour += nHours;
    SetTime(nCurrentHour, nCurrentMinute, nCurrentSecond, nCurrentMilli);
}

////////////////////////////////////////////////////////////////////////
void DMFI_Align(object oUser, object oTarget, int nAlign, int nParty)
{
    if (GetObjectType(oTarget)== OBJECT_TYPE_CREATURE)
    {
        int nAmount = GetLocalInt(oUser, "dmfi_alignshift");

        if (nParty)
        {
            object oParty = GetFirstFactionMember(oTarget, TRUE);
            while (GetIsObjectValid(oParty))
            {
                AdjustAlignment(oParty, nAlign, nAmount);
                oParty = GetNextFactionMember(oTarget, TRUE);
            }
            FloatingTextStringOnCreature("Party Alignment shifted by " + IntToString(nAmount), oUser);
        }
        else
        {
            AdjustAlignment(oTarget, nAlign, nAmount);
            FloatingTextStringOnCreature("Target Alignment shifted by " + IntToString(nAmount), oUser);
        }
    }
    else
        FloatingTextStringOnCreature("Must target a creature for this action", oUser);

}

////////////////////////////////////////////////////////////////////////
void DMFI_Roll(object oUser)
{
    object oStoreState = GetItemPossessedBy(oUser, "dmfi_dmw");
    int n = GetLocalInt(oUser, "dmfi_alignshift");
    if (n == 1)
        n = 2;
    else if (n ==2)
        n = 5;
    else if (n ==5)
        n = 10;
    else if (n == 10)
        n = 1;
    FloatingTextStringOnCreature("Adjustment changed to " + IntToString(n), oUser);
    SetLocalInt(oUser, "dmfi_alignshift", n);
    SetCustomToken(20781, IntToString(n));
    SetDMFIPersistentInt("dmfi", "dmfi_alignshift", n, oUser);
}


////////////////////////////////////////////////////////////////////////
int GetAreaXAxis(object oArea)
{

    location locTile;
    int iX = 0;
    int iY = 0;
    vector vTile = Vector(0.0, 0.0, 0.0);

    for (iX = 0; iX < 32; ++iX)
    {
        vTile.x = IntToFloat(iX);
        locTile = Location(oArea, vTile, 0.0);
        int iRes = GetTileMainLight1Color(locTile);
        if (iRes > 32 || iRes < 0)
            return(iX);
    }

    return 32;
}

////////////////////////////////////////////////////////////////////////
int GetAreaYAxis(object oArea)
{
    location locTile;
    int iX = 0;
    int iY = 0;
    vector  vTile = Vector(0.0, 0.0, 0.0);

    for (iY = 0; iY < 32; ++iY)
    {
        vTile.y = IntToFloat(iY);
        locTile = Location(oArea, vTile, 0.0);
        int iRes = GetTileMainLight1Color(locTile);
        if (iRes > 32 || iRes < 0)
            return(iY);
    }

    return 32;
}

////////////////////////////////////////////////////////////////////////
void TilesetMagic(object oUser, int nEffect, int nType)
{
    int iXAxis = GetAreaXAxis(GetArea(oUser));
    int iYAxis = GetAreaYAxis(GetArea(oUser));
    int nBase = GetLocalInt(GetModule(), "dmfi_tileset");

// nType definitions:
// 0 fill
// 1 flood
// 2 groundcover

// nBase definitions:
// 0 default
// 1 Sewer and City - raise the fill effect to -0.1


    float ZEffectAdjust = 0.0;
    float ZTypeAdjust = 0.1; //default is groundcover
    float ZTileAdjust = 0.0;
    float ZFinalAxis;

/*
if (nEffect == X2_TL_GROUNDTILE_ICE)
    ZEffectAdjust = -1.0;  // lower the effect based on trial and error
*/
    if (nEffect == X2_TL_GROUNDTILE_SEWER_WATER)
        ZEffectAdjust = 0.8;

//now sep based on nType
    if (nType == 0)  //fill
        ZTypeAdjust=-2.0;
    else if (nType ==1)
        ZTypeAdjust = 2.0;

    ZFinalAxis = ZEffectAdjust + ZTypeAdjust + ZTileAdjust;

//special case for filling of water and sewer regions
    if ((nBase==1) && (nType==0))
        ZFinalAxis = -0.1;

    TLResetAreaGroundTiles(GetArea(oUser), iXAxis, iYAxis);
    TLChangeAreaGroundTiles(GetArea(oUser), nEffect , iXAxis, iYAxis, ZFinalAxis);
}

////////////////////////////////////////////////////////////////////////
//New DM Wand by Demetrious
void DoNewDMThingy(int iChoice, object oUser)
{
    location lLocation = GetLocalLocation(oUser, "dmfi_univ_location");
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    int iXAxis = GetAreaXAxis(GetArea(oUser));
    int iYAxis = GetAreaYAxis(GetArea(oUser));
    object oCopy; object oParty;
    int n; string sName;

    switch (iChoice)
    {
    case 11: TakeStuff(1, oTarget, oUser); break;
    case 12: TakeStuff(0, oTarget, oUser); break;
    case 13: IdenStuff(oTarget); break;
    case 14: TakeUber(oTarget); break;
    case 15: DMFI_NextTarget(oTarget, oUser);break;
    case 20: DMFI_NextTarget(oTarget, oUser);break;
    case 21: DMFI_Align(oUser, oTarget, ALIGNMENT_GOOD, 0);break;
    case 22: DMFI_Align(oUser, oTarget, ALIGNMENT_EVIL, 0);break;
    case 23: DMFI_Align(oUser, oTarget, ALIGNMENT_LAWFUL, 0);break;
    case 24: DMFI_Align(oUser, oTarget, ALIGNMENT_CHAOTIC, 0);break;
    case 25: DMFI_Align(oUser, oTarget, ALIGNMENT_GOOD, 1);break;
    case 26: DMFI_Align(oUser, oTarget, ALIGNMENT_EVIL, 1);break;
    case 27: DMFI_Align(oUser, oTarget, ALIGNMENT_LAWFUL, 1);break;
    case 28: DMFI_Align(oUser, oTarget, ALIGNMENT_CHAOTIC, 1);break;
    case 29: DMFI_Roll(oUser); break;
    case 31:   SendMessageToPC(oUser, "Item name: "+GetName(oTarget));
        SendMessageToPC(oUser, "Item value: "+IntToString(GetGoldPieceValue(oTarget)));
        if (GetDroppableFlag(oTarget)) SendMessageToPC(oUser, "Droppable");
        else SendMessageToPC(oUser, "Not droppable");
        if (GetItemCursedFlag(oTarget)) SendMessageToPC(oUser, "Cursed");
        else SendMessageToPC(oUser, "Not cursed");
        if (GetPlotFlag(oTarget)) SendMessageToPC(oUser, "Plot related");
        else SendMessageToPC(oUser, "Not plot related");
        if (GetStolenFlag(oTarget)) SendMessageToPC(oUser, "Stolen");
        else SendMessageToPC(oUser, "Not stolen");
        SendMessageToPC(oUser, "Charges remaining: " + IntToString(GetItemCharges(oTarget)));
        break;

    case 32: if (GetObjectType(oTarget)==OBJECT_TYPE_ITEM)
        {
            SetPlotFlag(oTarget, FALSE); DestroyObject(oTarget);
            FloatingTextStringOnCreature(GetName(oTarget)+": Item destroyed", oUser);
        }
        else
        {
            FloatingTextStringOnCreature("Invalid target. Target item directly from inventory screen", oUser);
        }
        break;
    case 33: if (GetObjectType(oTarget)==OBJECT_TYPE_ITEM)
        {
            SetItemCharges(oTarget, 0);
            FloatingTextStringOnCreature( GetName(oTarget)+": Remaining charges removed", oUser);
        }
        else
        {
            FloatingTextStringOnCreature("Invalid target. Target item directly from inventory screen", oUser);
        }
        break;


    case 34: if (GetObjectType(oTarget)==OBJECT_TYPE_ITEM)
        {
            SetItemCharges(oTarget, 999);
            FloatingTextStringOnCreature( GetName(oTarget)+": Item fully recharged",oUser); break;
        }
        else
        {
            FloatingTextStringOnCreature("Invalid target. Target item directly from inventory screen", oUser);
        }
        break;

    case 35: if (GetObjectType(oTarget)==OBJECT_TYPE_ITEM)
        {
            if (GetDroppableFlag(oTarget))
            {
                SetDroppableFlag(oTarget, FALSE);
                FloatingTextStringOnCreature(GetName(oTarget)+": can NOT be dropped", oUser);
            }
            else
            {
                SetDroppableFlag(oTarget, TRUE);
                FloatingTextStringOnCreature( GetName(oTarget)+": can be dropped", oUser);
            }
        }
        else
        {
            FloatingTextStringOnCreature("Invalid target. Target item directly from inventory screen", oUser);
        }
        break;

    case 36:   if (GetObjectType(oTarget)==OBJECT_TYPE_ITEM)
        {
            if (GetItemCursedFlag(oTarget))
            {
                SetItemCursedFlag(oTarget, FALSE);
                FloatingTextStringOnCreature(GetName(oTarget)+": NOT cursed", oUser);
            }
            else
            {
                SetItemCursedFlag(oTarget, TRUE);
                FloatingTextStringOnCreature( GetName(oTarget)+": set to CURSED", oUser);
            }
        }
        else
        {
            FloatingTextStringOnCreature("Invalid target. Target item directly from inventory screen", oUser);
        }
        break;

    case 37:  if (GetObjectType(oTarget)==OBJECT_TYPE_ITEM)
        {
            if (GetPlotFlag(oTarget))
            {
                SetPlotFlag(oTarget, FALSE);
                FloatingTextStringOnCreature(GetName(oTarget)+": NOT plot related", oUser);
            }
            else
            {
                SetPlotFlag(oTarget, TRUE);
                FloatingTextStringOnCreature( GetName(oTarget)+": set to PLOT", oUser);
            }
        }
        else
        {
            FloatingTextStringOnCreature("Invalid target. Target item directly from inventory screen", oUser);
        }
        break;
    case 38:   if (GetObjectType(oTarget)==OBJECT_TYPE_ITEM)
        {
            if (GetStolenFlag(oTarget))
            {
                SetStolenFlag(oTarget, FALSE);
                FloatingTextStringOnCreature(GetName(oTarget)+": NOT stolen", oUser);
            }
            else
            {
                SetStolenFlag(oTarget, TRUE);
                FloatingTextStringOnCreature( GetName(oTarget)+": set to Stolen", oUser);
            }
        }
        else
        {
            FloatingTextStringOnCreature("Invalid target. Target item directly from inventory screen", oUser);
        }
        break;


    case 41: DMFI_Object(oTarget, 1, oUser); break;
    case 42: DMFI_Object(oTarget, 2, oUser);break;
    case 43: DMFI_Object(oTarget, 3, oUser); break;
    case 45: RotateMe(oTarget, -2, oUser);break;
    case 46: RotateMe(oTarget, -1, oUser);break;
    case 47: RotateMe(oTarget, 30, oUser);break;
    case 48: RotateMe(oTarget, 45, oUser);break;
    case 49: RotateMe(oTarget, 90, oUser);break;
    case 40: RotateMe(oTarget, 180, oUser);break;
    case 51: dmwand_AdvanceTime(1);break;
    case 52: dmwand_AdvanceTime(4);break;
    case 53: dmwand_AdvanceTime(8);break;
    case 54: dmwand_AdvanceTime(24);break;
    case 55: dmwand_SwapDayNight(0);break;
    case 50: dmwand_SwapDayNight(1);break;
    case 56: SetWeather(GetArea(oUser), WEATHER_CLEAR); break;
    case 57: SetWeather(GetArea(oUser), WEATHER_RAIN); break;
    case 58: SetWeather(GetArea(oUser), WEATHER_SNOW); break;
    case 59: SetWeather(GetArea(oUser), WEATHER_USE_AREA_SETTINGS); break;
    case 60: DMFI_report(oTarget, oUser); break;
    case 61: DMFI_toad(oTarget, oUser); break;
    case 62: DMFI_jail(oTarget, oUser); break;
    case 63: AssignCommand(oUser, AddToParty( oUser, GetFactionLeader(oTarget)));break;
    case 64: RemoveFromParty(oUser);break;
    case 65: ExploreAreaForPlayer(GetArea(oTarget), oTarget); FloatingTextStringOnCreature("Map Given: Target", oUser);break;
    case 66: {
            FloatingTextStringOnCreature("Map Given: Party", oUser);
            object oParty = GetFirstFactionMember(oTarget,TRUE);
            while (GetIsObjectValid(oParty))
            {
                ExploreAreaForPlayer(GetArea(oTarget), oTarget);
                oParty = GetNextFactionMember(oTarget,TRUE);
            }
            break;
        }
    case 67: ExportAllCharacters();break;
    case 68: dmwand_KickPC(oTarget, oUser);break;
    case 69: sName = GetModuleName();
        StartNewModule(sName);break;
    case 71: TilesetMagic(oUser, X2_TL_GROUNDTILE_WATER, 0);break;
    case 72: TilesetMagic(oUser, X2_TL_GROUNDTILE_ICE, 0);break;
    case 73: TilesetMagic(oUser, X2_TL_GROUNDTILE_LAVA, 0) ;break;
    case 74: TilesetMagic(oUser, X2_TL_GROUNDTILE_SEWER_WATER, 0);break;
    case 75: TilesetMagic(oUser, X2_TL_GROUNDTILE_WATER, 1);break;
    case 76: TilesetMagic(oUser, X2_TL_GROUNDTILE_ICE, 1);break;
    case 77: TilesetMagic(oUser, X2_TL_GROUNDTILE_LAVA, 1) ;break;
    case 78: TilesetMagic(oUser, X2_TL_GROUNDTILE_SEWER_WATER, 1);break;
    case 79: TLResetAreaGroundTiles(GetArea(oUser), iXAxis, iYAxis); break;
    case 81: TilesetMagic(oUser, X2_TL_GROUNDTILE_ICE, 2);break;
    case 82: TilesetMagic(oUser, X2_TL_GROUNDTILE_GRASS, 2);break;
    case 83: TilesetMagic(oUser, X2_TL_GROUNDTILE_CAVEFLOOR, 2) ;break;
    case 89: TLResetAreaGroundTiles(GetArea(oUser), iXAxis, iYAxis); break;
    case 91: StoreCampaignObject("dmfi", "dmfi_copyplayer1", oTarget);
        FloatingTextStringOnCreature("Target stored", oUser);break;
    case 92:   oParty = GetFirstFactionMember(oTarget, TRUE);
        n=1;
        while (GetIsObjectValid(oParty))
        {
            StoreCampaignObject("dmfi", "dmfi_copyplayer"+IntToString(n), oParty);
            SendMessageToPC(oUser, GetName(oParty) + " stored");
            n=n+1;
            oParty = GetNextFactionMember(oTarget, TRUE);
        }
        FloatingTextStringOnCreature("Party stored", oUser);
        break;

    case 93:n=1;
        oCopy = RetrieveCampaignObject("dmfi", "dmfi_copyplayer"+IntToString(n), lLocation);
        while (GetIsObjectValid(oCopy))
        {
            ChangeToStandardFaction(oCopy, STANDARD_FACTION_COMMONER);

            n=n+1;
            oCopy = RetrieveCampaignObject("dmfi", "dmfi_copyplayer"+IntToString(n), lLocation);
            AssignCommand(oCopy, SetIsDestroyable(FALSE, TRUE, TRUE));
        }
        break;
    case 101: SetLocalInt(GetModule(), "dmfi_tileset" , 0);   break;
    case 102: SetLocalInt(GetModule(), "dmfi_tileset" , 1);  break; //sewer/city

    default: break;
    }

}

////////////////////////////////////////////////////////////////////////
//This is for the DMFI Dicebag Wand
void DoDMDiceBagFunction(int iDice, object oUser)
{
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    if (!GetIsObjectValid(oTarget))
        oTarget = oUser;
    int iOverride = GetLocalInt(oUser, "dmfi_dicebag");
    object oArea = GetArea(oUser);
    object oRoll;
    int iLeft;
    if (iDice < 100)
        iLeft = StringToInt(GetStringLeft(IntToString(iDice), 1));
    else
        iLeft = 10;
    switch (iLeft)
    {
    case 1:
    case 2:
    case 3:
    case 4: //Single Creature Roll
        DoDiceBagFunction(iDice+50, oTarget, iOverride); break;
    case 5:
    case 6:
    case 7:
    case 8://All PCs/NPCs in the area
        oRoll = GetFirstObjectInArea(oArea);
        while (GetIsObjectValid(oRoll))
        {
            if ((GetIsPC(oTarget) && GetIsPC(oRoll)) || (!GetIsPC(oTarget) && !GetIsPC(oRoll) && GetObjectType(oRoll) == OBJECT_TYPE_CREATURE))
                DoDiceBagFunction(iDice+10, oRoll, iOverride);
            oRoll = GetNextObjectInArea(oArea);
        }
        break;
    case 10: {
            switch (iDice)
            {
            case 101: SetLocalInt(oUser, "dmfi_dicebag", 2); SetDMFIPersistentInt("dmfi", "dmfi_dicebag", 2, oUser); SetCustomToken(20681, "Local"); FloatingTextStringOnCreature("Broadcast Mode set to Local", oUser, FALSE); return; break;
            case 102: SetLocalInt(oUser, "dmfi_dicebag", 1); SetDMFIPersistentInt("dmfi", "dmfi_dicebag", 1, oUser); SetCustomToken(20681, "Global"); FloatingTextStringOnCreature("Broadcast Mode set to Global", oUser, FALSE); return; break;
            case 103: SetLocalInt(oUser, "dmfi_dicebag", 0); SetDMFIPersistentInt("dmfi", "dmfi_dicebag", 0, oUser); SetCustomToken(20681, "Private"); FloatingTextStringOnCreature("Broadcast Mode set to Private", oUser, FALSE); return; break;
            case 104: SetLocalInt(oUser, "dmfi_dicebag", 3); SetDMFIPersistentInt("dmfi", "dmfi_dicebag", 3, oUser); SetCustomToken(20681, "DM Only"); FloatingTextStringOnCreature("Broadcast Mode set to DM Only", oUser, FALSE); return; break;
            case 105: DMFI_NextTarget(oTarget, oUser);break;
            case 106: {
                    if (GetLocalInt(oUser, "dmfi_dice_no_animate")==1)
                    {
                        SetLocalInt(oUser, "dmfi_dice_no_animate", 0);
                        FloatingTextStringOnCreature("Rolls will show animation", oUser);
                    }
                    else
                    {
                        SetLocalInt(oUser, "dmfi_dice_no_animate", 1);
                        FloatingTextStringOnCreature("Rolls will NOT show animation", oUser);
                    }
                }
            }
        }
    default: break;

/*
Demetrious - Saving code for all pcs in case I find a way to put it back into the dicebag.

              //All PCs
              oRoll = GetFirstPC();
              while (GetIsObjectValid(oRoll))
              {
                DoDiceBagFunction(iDice, oRoll, iOverride);
                oRoll = GetNextPC();
              }break;
*/


    }
}

////////////////////////////////////////////////////////////////////////
void DoOneRingFunction(int iRing, object oUser)
{
    switch (iRing)
    {
    case 1: SetLocalString(oUser, "dmfi_univ_conv", "afflict"); break;
    case 2: SetLocalString(oUser, "dmfi_univ_conv", "faction"); break;
    case 3: SetLocalString(oUser, "dmfi_univ_conv", "dicebag"); break;
    case 4: SetLocalString(oUser, "dmfi_univ_conv", "dmw"); break;
    case 5: SetLocalString(oUser, "dmfi_univ_conv", "emote"); break;
    case 6: SetLocalString(oUser, "dmfi_univ_conv", "encounter"); break;
    case 7: SetLocalString(oUser, "dmfi_univ_conv", "fx"); break;
    case 8: SetLocalString(oUser, "dmfi_univ_conv", "music"); break;
    case 91: SetLocalString(oUser, "dmfi_univ_conv", "sound"); break;
    case 92: SetLocalString(oUser, "dmfi_univ_conv", "voice"); break;
    case 93: SetLocalString(oUser, "dmfi_univ_conv", "xp"); break;
    case 94: SetLocalString(oUser, "dmfi_univ_conv", "buff");break;
    default: SetLocalString(oUser, "dmfi_univ_conv", "dmw"); break;
    }
    AssignCommand(oUser, ClearAllActions());
    AssignCommand(oUser, ActionStartConversation(OBJECT_SELF, "dmfi_universal", TRUE));
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI Sound FX Wand
void DoSoundFunction(int iSound, object oUser)
{

    location lLocation = GetLocalLocation(oUser, "dmfi_univ_location");
    float fDuration;
    float fDelay;
    object oTarget;

    if (GetIsDMPossessed(oUser))
    {
        fDuration = GetLocalFloat(GetMaster(oUser), "dmfi_effectduration");
        fDelay = GetLocalFloat(GetMaster(oUser), "dmfi_sound_delay");
    }
    else
    {
        fDuration = GetLocalFloat(oUser, "dmfi_effectduration");
        fDelay = GetLocalFloat(oUser, "dmfi_sound_delay");
    }

    switch (iSound)
    {
    case 11: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_batsflap1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 12: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_bugsscary1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 13: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_crptvoice1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 14: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_orcgrunt1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 15: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_cv_minepick2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 16: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_ratssqeak1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 17: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_na_rockfallg1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 18: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_na_rockfalgl2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 19: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_wt_gustcavrn1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 21: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_cv_belltower3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 22: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_cv_claybreak3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 23: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_cv_glasbreak2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 24: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_cv_gongring3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 25: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_marketgrp4"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 26: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_cv_millwheel1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 27: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_cv_sawing1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 28: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_cv_bellwind1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 29: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_cv_smithhamr2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 31: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_na_firelarge1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 32: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_na_lavapillr1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 33: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_na_lavafire1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 34: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_na_firelarge2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 35: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_na_surf2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 36: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_na_drips1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 37: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_na_waterlap1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 38: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_na_stream4"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 39: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_na_waterfall2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 41: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_crynight3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 42: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_na_bushmove1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 43: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_birdsflap2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 44: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_na_grassmove3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 45: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_hawk1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 46: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_na_leafmove3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 47: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_gulls2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 48: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_songbirds1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 49: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_an_toads1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 51: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_mg_beaker1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 52: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_mg_cauldron1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 53: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_mg_chntmagic1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 54: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_mg_crystalev1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 55: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_mg_crystalic1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 56: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("al_mg_portal1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 57: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_mg_telepin1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 58: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_mg_telepout1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 59: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_mg_frstmagic1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 61: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_tavclap1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 62: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_battlegrp7"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 63: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_laughincf2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 64: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_comtntgrp3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 65: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_chantingm2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 66: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_cryingf2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 67: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_laughingf3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 68: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_chantingf2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 69: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_wailingm6"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 71: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_evilchantm"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 72: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_crows2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 73: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_wailingcf1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 74: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_crptvoice2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 75: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_lafspook2"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 76: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_owlhoot1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 77: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_an_wolfhowl1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 78: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_screamf3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 79: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_pl_zombiem3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 81: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_wt_gustsoft1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 82: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_wt_thundercl3"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 83: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_wt_thunderds4"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;
    case 84: oTarget = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLocation); DelayCommand(fDelay, AssignCommand(oTarget, PlaySound("as_wt_gusforst1"))); DelayCommand(20.0f, DestroyObject(oTarget)); break;

        //Settings
    case 91:
        SetLocalString(oUser, "EffectSetting", "dmfi_effectduration");
        CreateSetting(oUser);
        break;
    case 92:
        SetLocalString(oUser, "EffectSetting", "dmfi_sound_delay");
        CreateSetting(oUser);
        break;
    case 93:
        SetLocalString(oUser, "EffectSetting", "dmfi_beamduration");
        CreateSetting(oUser);
        break;
    case 94: //Change Day Music
        iDayMusic = MusicBackgroundGetDayTrack(GetArea(oUser)) + 1;
        if (iDayMusic > 33) iDayMusic = 49;
        if (iDayMusic > 55) iDayMusic = 1;
        MusicBackgroundStop(GetArea(oUser));
        MusicBackgroundChangeDay(GetArea(oUser), iDayMusic);
        MusicBackgroundPlay(GetArea(oUser));
        break;
    case 95: //Change Night Music
        iNightMusic = MusicBackgroundGetDayTrack(GetArea(oUser)) + 1;
        if (iNightMusic > 33) iNightMusic = 49;
        if (iNightMusic > 55) iNightMusic = 1;
        MusicBackgroundStop(GetArea(oUser));
        MusicBackgroundChangeNight(GetArea(oUser), iNightMusic);
        MusicBackgroundPlay(GetArea(oUser));
        break;
    case 96: //Play Background Music
        MusicBackgroundPlay(GetArea(oUser));
        break;
    case 97: //Stop Background Music
        MusicBackgroundStop(GetArea(oUser));
        break;
    case 98: //Change and Play Battle Music
        iBattleMusic = MusicBackgroundGetBattleTrack(GetArea(oUser)) + 1;
        if (iBattleMusic < 34 || iBattleMusic > 48) iBattleMusic = 34;
        MusicBattleStop(GetArea(oUser));
        MusicBattleChange(GetArea(oUser), iBattleMusic);
        MusicBattlePlay(GetArea(oUser));
        break;
    case 99: //Stop Battle Music
        MusicBattleStop(GetArea(oUser));
        break;

    default: break;
    }
    return;
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI DM Voice
void DoVoiceFunction(int iSay, object oUser)
{
    object oMod = GetModule();
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    location lLocation = GetLocalLocation(oUser, "dmfi_univ_location");
    object oVoice;
    string sSay;

    // Invalid target code - Loiter mode
    if (!GetIsObjectValid(oTarget))
    {
        switch (iSay)
        {
        case 8:
            // // XXXX DM Spy Functionality - Currently BROKEN
            // SetDMFIPersistentInt("dmfi", "dmfi_DMSpy", abs(GetDMFIPersistentInt("dmfi", "dmfi_DMSpy", oUser) - 1), oUser);
            // if (GetDMFIPersistentInt("dmfi", "dmfi_DMSpy", oUser) == 1)
            //     FloatingTextStringOnCreature("DM Spy is on.", oUser, FALSE);
            // else
            //     FloatingTextStringOnCreature("DM Spy is off.", oUser, FALSE);
            // break;

            // v1.09 - eavesdrop at location
            {
                int hooknum = GetLocalInt(oUser, "dmfi_MyListenerHook");
                if (hooknum != 0) RemoveListenerHook(hooknum);
                int hookparty = GetLocalInt(oUser, "dmfi_MyListenerPartyMode");
                int hookbcast = GetLocalInt(oUser, "dmfi_MyListenerBcastMode");
                hooknum = AppendListenerHook(2, OBJECT_INVALID, lLocation,
                        DMFI_CHANNELMASK_TALK|DMFI_CHANNELMASK_WHISPER,
                        hookparty, hookbcast, oUser);
                if (hooknum != 0)
                {
                    // move ditto voice to this location (destroying any existing one)
                    if (GetIsObjectValid(GetLocalObject(oUser, "dmfi_MyVoice")))
                    {
                        DestroyObject(GetLocalObject(oUser, "dmfi_MyVoice"));
                        DeleteLocalObject(oUser, "dmfi_MyVoice");
                        FloatingTextStringOnCreature("You have destroyed your previous Voice", oUser, FALSE);
                    }
                    oVoice = CreateObject(OBJECT_TYPE_CREATURE, "dmfi_voice", lLocation);
                    //Sets the Voice as the object to throw to.
                    SetLocalObject(oUser, "dmfi_VoiceTarget", oVoice);
                    //Set Ownership of the Voice to the User
                    SetLocalObject(oUser, "dmfi_MyVoice", oVoice);
                    DelayCommand(1.0f, FloatingTextStringOnCreature("The Voice is operational", oUser, FALSE));
                }
                else
                {
                    SendMessageToPC(oUser, "ERROR: could not append listener hook!");
                }
                SetLocalInt(oUser, "dmfi_MyListenerHook", hooknum);
            }
            break;

        // case 9: //Destroy any existing Voice attached to the user
        //     if (GetIsObjectValid(GetLocalObject(oUser, "dmfi_MyVoice")))
        //     {
        //         DestroyObject(GetLocalObject(oUser, "dmfi_MyVoice"));
        //         DeleteLocalObject(oUser, "dmfi_MyVoice");
        //         FloatingTextStringOnCreature("You have destroyed your previous Voice", oUser, FALSE);
        //     }
        //     //Create the Voice
        //     oVoice = CreateObject(OBJECT_TYPE_CREATURE, "dmfi_voice", lLocation);
        //     //Sets the Voice as the object to throw to.
        //     SetLocalObject(oUser, "dmfi_VoiceTarget", oVoice);
        //     //Set Ownership of the Voice to the User
        //     SetLocalObject(oUser, "dmfi_MyVoice", oVoice);
        //     DelayCommand(1.0f, FloatingTextStringOnCreature("The Voice is operational", oUser, FALSE));
        //     break;

        case 9:
            // v1.09 - Toggle location range eavesdropping
            {
                int partylisten = GetLocalInt(oUser, "dmfi_MyListenerPartyMode");
                partylisten++;
                if (partylisten > 2) partylisten = 0;
                SetLocalInt(oUser, "dmfi_MyListenerPartyMode", partylisten);
                string sRange;
                if (partylisten == 0) sRange = "EARSHOT";
                else if (partylisten == 1) sRange = "AREA";
                else sRange = "MODULE";
                DelayCommand(1.0f, FloatingTextStringOnCreature("Location eavesdrop mode for new eavesdroppers set to " + sRange, oUser, FALSE));
            }
            break;

        // Create a Loiter Voice
        default:
            oVoice = CreateObject(OBJECT_TYPE_CREATURE, "dmfi_voice", lLocation);
            SetLocalInt(oVoice, "dmfi_Loiter", 1);
            SetLocalString(oVoice, "dmfi_LoiterSay", GetDMFIPersistentString("dmfi", "hls206" + IntToString(iSay)));
            break;
        }
    }

    // You targetted yourself = Record Mode
    else if (oTarget == oUser)
    {
        switch (iSay)
        {
        // Toggle the mute / unmute NPC function
        case 8: SetDMFIPersistentInt("dmfi", "dmfi_AllMute", abs(GetDMFIPersistentInt("dmfi", "dmfi_AllMute") - 1));
            if (GetDMFIPersistentInt("dmfi", "dmfi_AllMute") == 1)
                FloatingTextStringOnCreature("All NPC conversations are muted", oUser, FALSE);
            else
                FloatingTextStringOnCreature("All NPC conversations are unmuted", oUser, FALSE);
            break;

        //     // XXXX Create a Ditto Voice - Duplicate functionality
        // case 9: //Destroy any existing Voice attached to the user
        //     if (GetIsObjectValid(GetLocalObject(oUser, "dmfi_MyVoice")))
        //     {
        //         DestroyObject(GetLocalObject(oUser, "dmfi_MyVoice"));
        //         DeleteLocalObject(oUser, "dmfi_MyVoice");
        //         FloatingTextStringOnCreature("You have destroyed your previous Voice", oUser, FALSE);
        //     }
        //     //Create the Voice
        //     oVoice = CreateObject(OBJECT_TYPE_CREATURE, "dmfi_voice", lLocation);
        //
        //     SetLocalObject(oUser, "dmfi_VoiceTarget", oVoice);
        //     //Set Ownership of the Voice to the User
        //     SetLocalObject(oUser, "dmfi_MyVoice", oVoice);
        //     DelayCommand(1.0f, FloatingTextStringOnCreature("The Voice is operational", oUser, FALSE));
        //     break;

        case 9:
            {
                // v1.09 - toggle eavesdrop bcast - user/alldms
                int hookbcast = GetLocalInt(oUser, "dmfi_MyListenerBcastMode");
                hookbcast = !hookbcast;
                SetLocalInt(oUser, "dmfi_MyListenerBcastMode", hookbcast);
                DelayCommand(1.0f, FloatingTextStringOnCreature("DM-Broadcast mode for new eavesdroppers set to " + (hookbcast ? "ON" : "OFF"), oUser, FALSE));
            }

        case 10:
            // v1.09 - cancel eavesdrop mode
            {
                int hooknum = GetLocalInt(oUser, "dmfi_MyListenerHook");
                if (hooknum != 0)
                {
                    RemoveListenerHook(hooknum);
                    DeleteLocalInt(oUser, "dmfi_MyListenerHook");
                }

                // destroy any existing ditto voice
                if (GetIsObjectValid(GetLocalObject(oUser, "dmfi_MyVoice")))
                {
                    DestroyObject(GetLocalObject(oUser, "dmfi_MyVoice"));
                    DeleteLocalObject(oUser, "dmfi_MyVoice");
                    FloatingTextStringOnCreature("You have destroyed your previous Voice", oUser, FALSE);
                }
            }
            break;

        default:
            // record a new phrase
            FloatingTextStringOnCreature("Ready to record new phrase", oUser, FALSE);
            SetLocalInt(oUser, "hls_EditPhrase", 20600 + iSay);
            // set up to capture next spoken line of text
            DMFI_get_line(oUser, TALKVOLUME_TALK, "dmfi_univ_listen", OBJECT_SELF);
            break;
        }
    }

    // You targeted an NPC or Object - Say Something!
    else
    {
        switch (iSay)
        {
        // Toggle a SINGLE NPC mute / unmute function
        case 8: SetLocalInt(oTarget, "dmfi_Mute", abs(GetLocalInt(oTarget, "dmfi_Mute") - 1));
            break;

        case 9:
            // XXXXX Set a Single NPC to listen and make it your target - VOICE WIDGET FUNCTION
            // SetLocalObject(oUser, "dmfi_VoiceTarget", oTarget);
            // if (!GetIsPC(oTarget))
            // {
            //     FloatingTextStringOnCreature(GetName(oTarget) + " is listening", oUser, FALSE);
            //     SetListenPattern(oTarget, "**", LISTEN_PATTERN); //listen to all text
            //     SetLocalInt(oTarget, "hls_Listening", 1); //listen to all text
            //     SetListening(oTarget, TRUE);      //be sure NPC is listening
            // }
            // //You Targetted a PC - make a voice follow that sucker and listen.
            // else
            // {
            //     //delete any valid following voices to stop duplicates
            //     if (GetIsObjectValid(GetLocalObject(oTarget, "dmfi_VoiceFollow")))
            //     {
            //         DestroyObject(GetLocalObject(oUser, "dmfi_VoiceFollow"));
            //         FloatingTextStringOnCreature("The prior voice following this character was destroyed", oUser, FALSE);
            //     }
            //
            //     //Create the Voice
            //     oVoice = CreateObject(OBJECT_TYPE_CREATURE, "dmfi_voice", lLocation);
            //     //Sets the Voice as the object to throw to.
            //     DelayCommand(2.0, SetLocalObject(oTarget, "dmfi_VoiceFollow", oVoice)); //only set this for finding a duplicate later
            //     DelayCommand(2.0, SetLocalObject(oVoice, "dmfi_follow", oTarget));  //set up the player as something to follow
            //     DelayCommand(1.0f, FloatingTextStringOnCreature("The Voice will follow and listen to " +GetName(oTarget), oUser, FALSE));
            // }
            // break;

            // v1.09 - eavesdrop on pc
            {
                int hooknum = GetLocalInt(oUser, "dmfi_MyListenerHook");
                if (hooknum != 0) RemoveListenerHook(hooknum);
                int hookparty = GetLocalInt(oUser, "dmfi_MyListenerPartyMode");
                int hookbcast = GetLocalInt(oUser, "dmfi_MyListenerBcastMode");
                hooknum = AppendListenerHook(1, oTarget, lLocation,
                        DMFI_CHANNELMASK_TALK|DMFI_CHANNELMASK_WHISPER,
                        hookparty, hookbcast, oUser);
                if (hooknum != 0)
                {
                    SetLocalObject(oUser, "dmfi_VoiceTarget", oTarget);
                    if (GetIsPC(oTarget))
                    {
                        // targetted PC -
                        // delete any valid following voices to stop duplicates
                        object oVoice = GetLocalObject(oTarget, "dmfi_VoiceFollow");
                        if (GetIsObjectValid(oVoice))
                        {
                            DestroyObject(oVoice);
                            DeleteLocalObject(oTarget, "dmfi_VoiceFollow");
                            FloatingTextStringOnCreature("The prior voice following this character was destroyed", oUser, FALSE);
                        }

                        // 08.05.13 tsunami282 - we don't use following voices anymore
                        // // Create the Voice
                        // oVoice = CreateObject(OBJECT_TYPE_CREATURE, "dmfi_voice", lLocation);
                        // // Sets the Voice as the object to throw to.
                        // DelayCommand(2.0, SetLocalObject(oTarget, "dmfi_VoiceFollow", oVoice)); //only set this for finding a duplicate later
                        // DelayCommand(2.0, SetLocalObject(oVoice, "dmfi_follow", oTarget));  //set up the player as something to follow
                        // DelayCommand(1.0f, FloatingTextStringOnCreature("The Voice will follow " +GetName(oTarget), oUser, FALSE));
                    }
                    else
                    {
                        // targetted NPC - nothing else needed to do
                    }
                }
                else
                {
                    SendMessageToPC(oUser, "ERROR: could not append listener hook!");
                }
                SetLocalInt(oUser, "dmfi_MyListenerHook", hooknum);
            }
            break;

        case 10:
            // v1.09 - Toggle PC single/party eavesdropping
            {
                // v1.09 - toggle eavesdrop mode - single/party
                int partylisten = GetLocalInt(oUser, "dmfi_MyListenerPartyMode");
                partylisten++;
                if (partylisten > 1) partylisten = 0;
                SetLocalInt(oUser, "dmfi_MyListenerPartyMode", partylisten);
                DelayCommand(1.0f, FloatingTextStringOnCreature("PC eavesdrop mode for new eavesdroppers set to " + (partylisten ? "PARTY" : "PC ONLY"), oUser, FALSE));
            }
            break;
        default:
            sSay = GetDMFIPersistentString("dmfi", "hls206" + IntToString(iSay));
            AssignCommand(oTarget, SpeakString(sSay));
            break;
        }
    }
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI Affliction Wand
void ReportImmunity(object oT, object oUser)
{
    SendMessageToPC(oUser, "Immunities Reported: (blank if none)");
    if (GetIsImmune(oT, IMMUNITY_TYPE_ABILITY_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Ability Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_AC_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE AC Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_ATTACK_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Attack Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_BLINDNESS))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Blindness");
    if (GetIsImmune(oT, IMMUNITY_TYPE_CHARM))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Charm");
    if (GetIsImmune(oT, IMMUNITY_TYPE_CONFUSED))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Confusion");
    if (GetIsImmune(oT, IMMUNITY_TYPE_CRITICAL_HIT))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Critical Hit");
    if (GetIsImmune(oT, IMMUNITY_TYPE_CURSED))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Cursed");
    if (GetIsImmune(oT, IMMUNITY_TYPE_DAMAGE_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Damage Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_DAMAGE_IMMUNITY_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Damage Immunity Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_DAZED))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Dazed");
    if (GetIsImmune(oT, IMMUNITY_TYPE_DEAFNESS))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Deafness");
    if (GetIsImmune(oT, IMMUNITY_TYPE_DEATH))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Death");
    if (GetIsImmune(oT, IMMUNITY_TYPE_DISEASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Disease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_DOMINATE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Dominate");
    if (GetIsImmune(oT, IMMUNITY_TYPE_ENTANGLE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Entangle");
    if (GetIsImmune(oT, IMMUNITY_TYPE_FEAR))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Fear");
    if (GetIsImmune(oT, IMMUNITY_TYPE_KNOCKDOWN))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Knockdown");
    if (GetIsImmune(oT, IMMUNITY_TYPE_MIND_SPELLS))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Mind Spells");
    if (GetIsImmune(oT, IMMUNITY_TYPE_MOVEMENT_SPEED_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Movement Speed Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_NEGATIVE_LEVEL))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Negative Level");
    if (GetIsImmune(oT, IMMUNITY_TYPE_PARALYSIS))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Paralysis");
    if (GetIsImmune(oT, IMMUNITY_TYPE_POISON))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Poison");
    if (GetIsImmune(oT, IMMUNITY_TYPE_SAVING_THROW_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Saving Throw Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_SILENCE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Silence");
    if (GetIsImmune(oT, IMMUNITY_TYPE_SKILL_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Skill Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_SLEEP))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Sleep");
    if (GetIsImmune(oT, IMMUNITY_TYPE_SLOW))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Slow");
    if (GetIsImmune(oT, IMMUNITY_TYPE_SNEAK_ATTACK))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Sneak Attack");
    if (GetIsImmune(oT, IMMUNITY_TYPE_SPELL_RESISTANCE_DECREASE))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Spell Resistance Decrease");
    if (GetIsImmune(oT, IMMUNITY_TYPE_STUN))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Stun");
    if (GetIsImmune(oT, IMMUNITY_TYPE_TRAP))
        SendMessageToPC(oUser, GetName(oT) + " IMMUNE Trap");
}

////////////////////////////////////////////////////////////////////////
void CheckForEffect(effect eA, object oT, object oUser)
{
    int Result = FALSE;
    effect Check = GetFirstEffect(oT);

    while (GetIsEffectValid(Check))
    {
        if (Check == eA)
            Result = TRUE;

        Check = GetNextEffect(oT);
    }
    if (Result)
        FloatingTextStringOnCreature("Affliction Wand Saving Throw Failure: " + GetName(oT), oUser);
    else
        FloatingTextStringOnCreature("Affliction Wand Saving Throw Success: No Effect: " + GetName(oT), oUser);
}

////////////////////////////////////////////////////////////////////////
void DoAfflictFunction(int iAfflict, object oUser)
{
    effect eEffect;
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    float fDuration;
    int nDNum;
    effect eD;
    effect eA;
    effect eT;
    effect eVis;
    int nBug = 0;
    int nSaveAmount; float fSaveAmount;

    if (GetIsDMPossessed(oUser))
    {
        nDNum = GetLocalInt(GetMaster(oUser), "dmfi_damagemodifier");
        fDuration = GetLocalFloat(GetMaster(oUser), "dmfi_stunduration");
        fSaveAmount = GetLocalFloat(GetMaster(oUser), "dmfi_saveamount");
    }
    else
    {
        nDNum = GetLocalInt(oUser, "dmfi_damagemodifier");
        fDuration = GetLocalFloat(oUser, "dmfi_stunduration");
        fSaveAmount = GetLocalFloat(oUser, "dmfi_saveamount");
    }

    nSaveAmount = FloatToInt(fSaveAmount);

    if (!(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE) ||
        GetIsDM(oTarget))
    {
        FloatingTextStringOnCreature("You must target a valid creature!", oUser, FALSE);
        return;
    }
    switch (iAfflict)
    {
    case 11: eD= EffectDamage(d4(nDNum), DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis = EffectVisualEffect(VFX_COM_BLOOD_SPARK_SMALL); break;
    case 12: eD = EffectDamage(d6(nDNum), DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis = EffectVisualEffect(VFX_COM_BLOOD_LRG_RED); break;
    case 13: eD = EffectDamage(d8(nDNum), DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis = EffectVisualEffect(VFX_COM_BLOOD_LRG_RED); break;
    case 14: eD = EffectDamage(d10(nDNum), DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis = EffectVisualEffect(VFX_COM_BLOOD_SPARK_SMALL); break;
    case 15: eD = EffectDamage(d12(nDNum), DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis = EffectVisualEffect(VFX_COM_BLOOD_SPARK_SMALL); break;
    case 16: eD = EffectDamage(GetCurrentHitPoints(oTarget)/4, DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis = EffectVisualEffect(VFX_COM_BLOOD_LRG_RED); break;
    case 17: eD = EffectDamage(GetCurrentHitPoints(oTarget)/2, DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis = EffectVisualEffect(VFX_COM_BLOOD_LRG_RED); break;
    case 18: eD = EffectDamage(GetCurrentHitPoints(oTarget) * 3 / 4, DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis =EffectVisualEffect(VFX_COM_CHUNK_RED_SMALL); break;
    case 19: eD = EffectDamage(GetCurrentHitPoints(oTarget)-1, DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_PLUS_TWENTY);
        eVis =EffectVisualEffect(VFX_COM_CHUNK_RED_SMALL); break;
    case 21: eA =EffectDisease(DISEASE_FILTH_FEVER); break;
    case 22: eA =EffectDisease(DISEASE_MINDFIRE); break;
    case 23: eA =EffectDisease(DISEASE_DREAD_BLISTERS); break;
    case 24: eA =EffectDisease(DISEASE_SHAKES); break;
    case 25: eA =EffectDisease(DISEASE_VERMIN_MADNESS); break;
    case 26: eA =EffectDisease(DISEASE_DEVIL_CHILLS); break;
    case 27: eA =EffectDisease(DISEASE_SLIMY_DOOM); break;
    case 28: eA =EffectDisease(DISEASE_RED_ACHE); break;
    case 29: eA =EffectDisease(DISEASE_ZOMBIE_CREEP); break;
    case 31: eA =EffectDisease(DISEASE_BLINDING_SICKNESS); break;
    case 32: eA =EffectDisease(DISEASE_CACKLE_FEVER); break;
    case 33: eA =EffectDisease(DISEASE_BURROW_MAGGOTS); break;
    case 34: eA =EffectDisease(DISEASE_RED_SLAAD_EGGS); break;
    case 35: eA =EffectDisease(DISEASE_DEMON_FEVER); break;
    case 36: eA =EffectDisease(DISEASE_GHOUL_ROT); break;
    case 37: eA =EffectDisease(DISEASE_MUMMY_ROT); break;
    case 38: eA =EffectDisease(DISEASE_SOLDIER_SHAKES); break;
    case 39: eA =EffectDisease(DISEASE_SOLDIER_SHAKES); break;
    case 41: eA =EffectPoison(POISON_TINY_SPIDER_VENOM); break;
    case 42: eA =EffectPoison(POISON_ARANEA_VENOM); break;
    case 43: eA =EffectPoison(POISON_MEDIUM_SPIDER_VENOM); break;
    case 44: eA = EffectPoison(POISON_CARRION_CRAWLER_BRAIN_JUICE); break;
    case 45: eA = EffectPoison(POISON_OIL_OF_TAGGIT); break;
    case 46: eA = EffectPoison(POISON_ARSENIC); break;
    case 47: eA = EffectPoison(POISON_GREENBLOOD_OIL); break;
    case 48: eA = EffectPoison(POISON_NITHARIT); break;
    case 49: eA = EffectPoison(POISON_PHASE_SPIDER_VENOM); break;
    case 51: eA = EffectPoison(POISON_LICH_DUST); break;
    case 52: eA = EffectPoison(POISON_SHADOW_ESSENCE); break;
    case 53: eA = EffectPoison(POISON_LARGE_SPIDER_VENOM); break;
    case 54: eA = EffectPoison(POISON_PURPLE_WORM_POISON); break;
    case 55: eA = EffectPoison(POISON_IRON_GOLEM); break;
    case 56: eA = EffectPoison(POISON_PIT_FIEND_ICHOR); break;
    case 57: eA = EffectPoison(POISON_WYVERN_POISON); break;
    case 58: eA = EffectPoison(POISON_BLACK_LOTUS_EXTRACT); break;
    case 59: eA = EffectPoison(POISON_GARGANTUAN_SPIDER_VENOM); break;
    case 60: eT = EffectPetrify(); break;
    case 61: eT = EffectBlindness(); break;
    case 62: eT = EffectCurse(4,4,4,4,4,4); break;
    case 63: eT = EffectFrightened(); break;
    case 64: eT = EffectStunned(); break;
    case 65: eT = EffectSilence(); break;
    case 66: eT = EffectSleep(); break;
    case 67: eT = EffectSlow(); break;
    case 68: eT = EffectKnockdown(); nBug = 1; break;
    case 69: eD = EffectDamage( GetCurrentHitPoints(oTarget)-1, DAMAGE_TYPE_MAGICAL, DAMAGE_POWER_NORMAL);
        AssignCommand( oTarget, ClearAllActions());
        AssignCommand( oTarget, ActionPlayAnimation( ANIMATION_LOOPING_DEAD_FRONT, 1.0, 99999.0));
        DelayCommand(0.5, SetCommandable( FALSE, oTarget)); break;
    case 71: eA = EffectCutsceneDominated();break;
    case 72: eA = EffectCutsceneGhost(); break;
    case 73: eA = EffectCutsceneImmobilize(); break;
    case 74: eA = EffectCutsceneParalyze(); break;
    case 75: nBug = -1; break;  //special case for combo death effect
    case 81: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_POISON) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 82: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_DISEASE) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 83: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_BLINDNESS) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 84: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_CURSE) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 85: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_FRIGHTENED) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 86: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_STUNNED) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 87: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_SILENCE) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 88: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;
    case 89: SetCommandable(TRUE, oTarget);
        AssignCommand(oTarget, ClearAllActions()); break;
    case 80: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if (GetEffectType(eEffect) == EFFECT_TYPE_PETRIFY) RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;//Added July 5, 2003

// 99 is a duplicate instance - simple copy. - Demetrious
    case 91: SetLocalString(oUser, "EffectSetting", "dmfi_stunduration");
        CreateSetting(oUser);
    case 92: SetDMFIPersistentInt("dmfi", "DamageModifier", nDNum+1); SetCustomToken(20780, IntToString(nDNum+1));;  break;
    case 93:
        if (nDNum==1)
        {
            FloatingTextStringOnCreature("Illegal operation:  Minimum modifier is 1.", oUser);
            break;
        }
        else
        {
            SetDMFIPersistentInt("dmfi", "DamageModifier", nDNum-1); SetCustomToken(20780, IntToString(nDNum-1)); ;break;
            break;
        }
    case 94: ReportImmunity(oTarget, oUser); break;
    case 95: DMFI_NextTarget(oTarget, oUser); break;
    case 99: SetLocalString(oUser, "EffectSetting", "SaveEffectAmount");
        CreateSetting(oUser); break;
    case 101: eT = EffectSavingThrowDecrease(SAVING_THROW_FORT, nSaveAmount); break;
    case 102: eT = EffectSavingThrowDecrease(SAVING_THROW_REFLEX, nSaveAmount); break;
    case 103: eT = EffectSavingThrowDecrease(SAVING_THROW_WILL, nSaveAmount); break;
    case 104: eT = EffectSavingThrowIncrease(SAVING_THROW_FORT, nSaveAmount); break;
    case 105: eT = EffectSavingThrowIncrease(SAVING_THROW_REFLEX, nSaveAmount); break;
    case 106: eT = EffectSavingThrowIncrease(SAVING_THROW_WILL, nSaveAmount); break;
    case 107: eT = EffectSavingThrowDecrease(SAVING_THROW_ALL, nSaveAmount); break;
    case 108: eT = EffectSavingThrowIncrease(SAVING_THROW_ALL, nSaveAmount); break;
    case 109: SetLocalString(oUser, "EffectSetting", "SaveEffectAmount");
        CreateSetting(oUser);
    case 100: eEffect = GetFirstEffect(oTarget);
        while (GetIsEffectValid(eEffect))
        {
            if ((GetEffectType(eEffect) == EFFECT_TYPE_SAVING_THROW_INCREASE)
                ||(GetEffectType(eEffect) == EFFECT_TYPE_SAVING_THROW_DECREASE))
                RemoveEffect(oTarget, eEffect);
            eEffect = GetNextEffect(oTarget);
        } break;//Added July 5, 2003



    default: break;
    }
//code down here to apply the effects an then go back and see if the
//player successfully saved or did not for the diseases and poisons.

    if ((GetEffectType(eD)!= EFFECT_TYPE_INVALIDEFFECT) ||
        (GetEffectType(eVis) != EFFECT_TYPE_INVALIDEFFECT))
    {
        ApplyEffectToObject(DURATION_TYPE_PERMANENT, eD, oTarget);
        ApplyEffectToObject(DURATION_TYPE_PERMANENT, eVis, oTarget);
        return;
    }
    if (GetEffectType(eA)!= EFFECT_TYPE_INVALIDEFFECT)
    {
        ApplyEffectToObject(DURATION_TYPE_PERMANENT, eA, oTarget);
        DelayCommand(5.0, CheckForEffect(eA, oTarget, oUser));
        return;
    }
    if ((GetEffectType(eT)!= EFFECT_TYPE_INVALIDEFFECT) || (nBug ==1))
    {
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eT, oTarget, fDuration);

        if ((GetEffectType(eT)==EFFECT_TYPE_SAVING_THROW_INCREASE) ||
            (GetEffectType(eT)==EFFECT_TYPE_SAVING_THROW_DECREASE))
        {
            DelayCommand(1.0, FloatingTextStringOnCreature("Target Saves: Fortitude " + IntToString(GetFortitudeSavingThrow(oTarget))
                                                           + " Reflex " + IntToString(GetReflexSavingThrow(oTarget)) + " Will " + IntToString(GetWillSavingThrow(oTarget)), oUser));
        }
        return;
    }
    if (nBug == -1)
    {
        object oFollowMe = GetFirstFactionMember(oTarget, TRUE);

        if (!GetIsObjectValid(oFollowMe))
            oFollowMe = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC, oTarget, 1,CREATURE_TYPE_IS_ALIVE, TRUE);

        if (GetIsDM(oFollowMe) || GetIsDMPossessed(oFollowMe))
            oFollowMe = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC, oTarget, 2,CREATURE_TYPE_IS_ALIVE, TRUE);

        if (!GetIsObjectValid(oFollowMe))
            oFollowMe = oUser;

        AssignCommand(oFollowMe, ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectCutsceneDominated(), oTarget));
        ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectCutsceneGhost(), oTarget);
        ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY), oTarget);
    }

    return;
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI XP Wand
void DoXPFunction(int iXP, object oUser)
{
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    object oPartyMember;
    int iHD;
    int iParty = 0;
    int iPercent = 0;
    int iReward = 0;
    int iGold = 0;
    int iValue = 0;

    string sFloating = "DM Granted Bonus";

    switch (iXP)
    {
    case 8: DMFI_NextTarget(oTarget, oUser); return; break;
    case 11: sFloating =  "Roleplaying Bonus"; iPercent = 1; break;
    case 12: sFloating =  "Roleplaying Bonus"; iPercent = 2; break;
    case 13: sFloating =  "Roleplaying Bonus"; iPercent = 3; break;
    case 14: sFloating =  "Roleplaying Bonus"; iPercent = 4; break;
    case 15: sFloating =  "Roleplaying Bonus"; iPercent = 5; break;
    case 21: sFloating =  "Main Plot Bonus"; iPercent = 10; break;
    case 22: sFloating =  "Main Plot Bonus"; iPercent = 20; break;
    case 23: sFloating =  "Main Plot Bonus"; iPercent = 25; break;
    case 24: sFloating =  "Main Plot Bonus"; iPercent = 33; break;
    case 25: sFloating =  "Main Plot Bonus"; iPercent = 50; break;
    case 31: sFloating =  "Main Plot Bonus"; iPercent = 10; iParty = 1; break;
    case 32: sFloating =  "Main Plot Bonus"; iPercent = 20; iParty = 1; break;
    case 33: sFloating =  "Main Plot Bonus"; iPercent = 25; iParty = 1; break;
    case 34: sFloating =  "Main Plot Bonus"; iPercent = 33; iParty = 1; break;
    case 35: sFloating =  "Main Plot Bonus"; iPercent = 50; iParty = 1; break;
    case 41: sFloating =  "Best In Game Bonus"; iPercent = 2; break;
    case 42: sFloating =  "Best In Game Bonus"; iPercent = 5; break;
    case 43: sFloating =  "Best In Game Bonus"; iPercent = 10; break;
    case 44: sFloating =  "Best In Game Bonus"; iPercent = 20; break;
    case 45: sFloating =  "Best In Game Bonus"; iPercent = 25; break;
    case 51: iParty = 1; iReward = 100; break;
    case 52: iParty = 1; iReward = 250; break;
    case 53: iParty = 1; iReward = 500; break;
    case 54: iParty = 1; iReward = 1000; break;
    case 55: iParty = 1; iReward = 2000; break;
    case 61:   iHD = GetHitDice(oTarget);
        SendMessageToPC(oUser, GetName(oTarget) +" has received " + IntToString(GetLocalInt(oPartyMember, "dmfi_XPGiven")) + " DMFI WAND XP this session.");
        SendMessageToPC(oUser, GetName(oTarget) +" currently has " + IntToString(GetXP(oTarget)) + " total XP.");
        SendMessageToPC(oUser, GetName(oTarget) +" currently needs " + IntToString(((iHD * (iHD + 1)) / 2 * 1000) - GetXP(oTarget)) + " to level.");
        SendMessageToPC(oUser, GetName(oTarget) +" has "+ IntToString(GetGold(oTarget)) + " gp.");
        SendMessageToPC(oUser, GetName(oTarget) +" has items totaling " + IntToString(DMFI_GetNetWorth(oTarget)) + " in gp value.");
        return; break;
    case 62:   oPartyMember=GetFirstFactionMember(oTarget, TRUE);
        while (GetIsObjectValid(oPartyMember)==TRUE)
        {
            iGold = iGold + GetGold(oPartyMember);
            iValue = iValue + DMFI_GetNetWorth(oPartyMember);
            SendMessageToPC(oUser, GetName(oPartyMember) +" has " + IntToString(GetXP(oPartyMember)) + " XP total.");
            oPartyMember = GetNextFactionMember(oTarget, TRUE);
        }
        SendMessageToPC(oUser, "The party has a total of "+ IntToString(iGold) + " gp.");
        SendMessageToPC(oUser, "The party has items totaling " + IntToString(iValue) + " in gp value.");
        return; break;
    case 63:   oPartyMember=GetFirstFactionMember(oTarget, TRUE);
        while (GetIsObjectValid(oPartyMember)==TRUE)
        {
            SendMessageToPC(oUser, GetName(oPartyMember) +" has received " + IntToString(GetLocalInt(oPartyMember, "dmfi_XPGiven")) + " DMFI WAND XP this session.");
            oPartyMember = GetNextFactionMember(oTarget, TRUE);
        }
        return; break;
    case 64:   oPartyMember=GetFirstFactionMember(oTarget, TRUE);
        while (GetIsObjectValid(oPartyMember)==TRUE)
        {
            int iHD = GetHitDice(oPartyMember);
            SendMessageToPC(oUser, GetName(oPartyMember) + " is level " + IntToString(GetHitDice(oPartyMember)) + " and needs " + IntToString(((iHD * (iHD + 1)) / 2 * 1000) - GetXP(oPartyMember)) + " XP to level up.");
            oPartyMember = GetNextFactionMember(oTarget, TRUE);
        }
        return; break;
    case 71:  sFloating =  "DM XP PENALTY"; iReward = -50; break;
    case 72:  sFloating =  "DM XP PENALTY"; iReward = -100; break;
    case 73:  sFloating =  "DM XP PENALTY"; iReward = -250; break;
    case 74:  sFloating =  "DM XP PENALTY"; iReward = -500; break;
    case 75:  sFloating =  "DM XP PENALTY"; iReward = -1000; break;
    case 76:  sFloating =  "DM XP PENALTY"; iReward = -2000; break;
    case 77:  sFloating =  "DM XP PENALTY"; iReward = -((GetHitDice(oTarget) * (GetHitDice(oTarget)-1))/2 * 1000); break;
    case 78:  sFloating =  "DM XP PENALTY"; iReward = -((GetHitDice(oTarget) * (GetHitDice(oTarget)-1))/2 * 1000) - (((GetHitDice(oTarget)-1)*1000)/2); break;
    case 79:  sFloating =  "DM XP PENALTY"; iReward = -((GetXP(oTarget))-(GetXP(oTarget))+1); break;
    default: return;
    }

    if (iParty==1)
    {
        // 2008.05.26 tsunami282 - grant percent XP based on each party member's level, not selected party member
        int bUsePercent = FALSE;
        if (iReward==0) bUsePercent = TRUE;

        oPartyMember=GetFirstFactionMember(oTarget, TRUE);
        while (GetIsObjectValid(oPartyMember))
        {
            if (bUsePercent) iReward = (GetHitDice(oPartyMember)*iPercent*10);
            GiveXPToCreature(oPartyMember, iReward);
            SetLocalInt(oPartyMember, "dmfi_XPGiven", GetLocalInt(oPartyMember, "dmfi_XPGiven") + iReward);
            FloatingTextStringOnCreature(sFloating + ": " + IntToString(iReward), oPartyMember, FALSE);
            SendMessageToAllDMs(GetName(oPartyMember) +" received a "+GetLocalString(oUser, "BonusType")+ " experience reward of "+ IntToString(iReward)+ ".");
            oPartyMember = GetNextFactionMember(oTarget, TRUE);
        }
        // SendMessageToAllDMs("The entire party was granted "+ IntToString(iReward)+ " XP.");
    }

    else  //single player code
    {
        if (iReward==0)
            iReward = (GetHitDice(oTarget)*iPercent*10);

        int nPrior = GetXP(oTarget);

        SetXP(oTarget, nPrior+iReward);

        SetLocalInt(oTarget, "dmfi_XPGiven", GetLocalInt(oTarget, "dmfi_XPGiven") + iReward);
        FloatingTextStringOnCreature(sFloating + ": " + IntToString(iReward), oTarget, FALSE);
        SendMessageToAllDMs(GetName(oTarget) +" received a "+GetLocalString(oUser, "BonusType")+ " experience reward of "+ IntToString(iReward)+ ".");

    }
    return;
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI Music Wand
void DoMusicFunction(int iMusic, object oUser)
{
    int iSet;
    switch (iMusic)
    {
    case 11: MusicBackgroundPlay(GetArea(oUser)); return; break;
    case 12: MusicBackgroundStop(GetArea(oUser)); DelayCommand(1.0, MusicBackgroundStop(GetArea(oUser))); return; break;
    case 13: iSet = TRACK_BATTLE_WINTER; break;
    case 14: iSet = TRACK_BATTLE_DESERT; break;
    case 15: iSet = TRACK_DESERT_DAY; break;
    case 16: iSet = TRACK_DESERT_NIGHT; break;
    case 17: iSet = TRACK_WINTER_DAY;break;
    case 18: iSet = TRACK_HOTU_UNDERMOUNTAIN; break;
    case 19: iSet = TRACK_HOTU_WATERDEEP; break;
    case 21: iSet = TRACK_HOTU_BATTLE_BOSS1; break;
    case 22: iSet = TRACK_HOTU_BATTLE_BOSS2; break;
    case 23: iSet = TRACK_HOTU_BATTLE_HELL; break;
    case 24: iSet = TRACK_HOTU_THEME;break;
    case 25: iSet = TRACK_HOTU_REBELCAMP;break;
    case 26: iSet = TRACK_HOTU_QUEEN;break;
    case 27: iSet = TRACK_HOTU_DRACOLICH;break;
    case 28: iSet = TRACK_HOTU_FIREPLANE;break;
    case 29: iSet = TRACK_HOTU_HELLFROZEOVER;break;
    case 31: iSet = 34; break;
    case 32: iSet = 35; break;
    case 33: iSet = 36; break;
    case 34: iSet = 37; break;
    case 35: iSet = 38; break;
    case 36: iSet = 39; break;
    case 37: iSet = 40; break;
    case 38: iSet = 41; break;
    case 39: iSet = 42; break;
    case 41: iSet = 43; break;
    case 42: iSet = 44; break;
    case 43: iSet = 45; break;
    case 44: iSet = 46; break;
    case 45: iSet = 47; break;
    case 46: iSet = 48; break;
    case 51: iSet = 15; break;
    case 52: iSet = 16; break;
    case 53: iSet = 17; break;
    case 54: iSet = 18; break;
    case 55: iSet = 19; break;
    case 56: iSet = 20; break;
    case 57: iSet = 21; break;
    case 58: iSet = 29; break;
    case 61: iSet = 22; break;
    case 62: iSet = 23; break;
    case 63: iSet = 24; break;
    case 64: iSet = 56; break;
    case 65: iSet = 25; break;
    case 66: iSet = 26; break;
    case 67: iSet = 27; break;
    case 68: iSet = 49; break;
    case 69: iSet = 50; break;
    case 71: iSet = 28; break;
    case 72: iSet = 7; break;
    case 73: iSet = 8; break;
    case 74: iSet = 9; break;
    case 75: iSet = 10; break;
    case 76: iSet = 11; break;
    case 77: iSet = 12; break;
    case 78: iSet = 13; break;
    case 79: iSet = 14; break;
    case 81: iSet = 1; break;
    case 82: iSet = 2; break;
    case 83: iSet = 3; break;
    case 84: iSet = 4; break;
    case 85: iSet = 5; break;
    case 86: iSet = 6; break;
    case 91: iSet = 30; break;
    case 92: iSet = 31; break;
    case 93: iSet = 32; break;
    case 94: iSet = 33; break;
    case 95: iSet = 51; break;
    case 96: iSet = 52; break;
    case 97: iSet = 53; break;
    case 98: iSet = 54; break;
    case 99: iSet = 55; break;
    default: break;
    }

    MusicBackgroundStop(GetArea(oUser));
    MusicBackgroundChangeDay(GetArea(oUser), iSet);
    MusicBackgroundChangeNight(GetArea(oUser), iSet);
    MusicBackgroundPlay(GetArea(oUser));
    return;
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI Encounter Wand
void Spawn(string sCreature, location lCreature, int iTF = FALSE)
{
    CreateObject(OBJECT_TYPE_CREATURE, sCreature, lCreature, iTF);
}

////////////////////////////////////////////////////////////////////////
void CopyMon(object oMon, location lEncounter)
{
    object oCreature = CopyObject(oMon, lEncounter);
    effect eEffect = GetFirstEffect(oMon);
    while (GetIsEffectValid(eEffect))
    {
        ApplyEffectToObject(DURATION_TYPE_PERMANENT, eEffect, oCreature);
        eEffect = GetNextEffect(oMon);
    }
}

////////////////////////////////////////////////////////////////////////
void CreateCustomEncounter(string Template, location lEncounter)
{
    object oWP = GetWaypointByTag(Template);
    int n = 1;
    object oMon = GetNearestCreatureToLocation(CREATURE_TYPE_IS_ALIVE, TRUE, GetLocation(oWP), n);

    while (GetIsObjectValid(oMon)  && (GetDistanceBetween(oWP, oMon)<8.0) && (n<9))
    {
        DelayCommand(IntToFloat(n), CopyMon(oMon, lEncounter));
        n=n+1;
        oMon = GetNearestCreatureToLocation(CREATURE_TYPE_IS_ALIVE, TRUE, GetLocation(oWP), n);
    }
}

////////////////////////////////////////////////////////////////////////
void CreateEncounter(int iEncounter, location lEncounter, object oUser)
{
    SetLocalInt(oUser, "EncounterType", iEncounter);
    switch (iEncounter)
    {
    case 11: //Animal - Low Badger Encounter
        SetLocalString(oUser, "EncounterName", "Low Badger");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_BADGER", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_BADGER", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BADGER", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BADGER", lEncounter, FALSE));
        break;
    case 12: //Animal - Low Canine Encounter
        SetLocalString(oUser, "EncounterName", "Low Canine");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_WOLF", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_WOLF", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_WOLF", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_WOLF", lEncounter, FALSE));
        break;
    case 13: //Animal - Low Feline Encounter
        SetLocalString(oUser, "EncounterName", "Low Feline");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_COUGAR", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_COUGAR", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_COUGAR", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_COUGAR", lEncounter, FALSE));
        break;
    case 14: //Animal - Low Bear Encounter
        SetLocalString(oUser, "EncounterName", "Low Bear (Boss)");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_BEARBLCK", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_BEARBLCK", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BEARBLCK", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BEARBRWN", lEncounter, FALSE));
        break;
    case 15: //Animal - Boar Encounter
        SetLocalString(oUser, "EncounterName", "Boar (Boss)");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_BOAR", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_BOAR", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BOAR", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BOARDIRE", lEncounter, FALSE));
        break;
    case 16: //Animal - Medium Feline Encounter
        SetLocalString(oUser, "EncounterName", "Medium Feline");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_LION", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_LION", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_LION", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_LION", lEncounter, FALSE));
        break;
    case 17: //Animal - High Canine Encounter
        SetLocalString(oUser, "EncounterName", "High Canine");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_DIREWOLF", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_DIREWOLF", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_DIREWOLF", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_DIREWOLF", lEncounter, FALSE));
        break;
    case 18: //Animal - High Feline Encounter
        SetLocalString(oUser, "EncounterName", "High Feline");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_DIRETIGER", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_BEASTMALAR001", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BEASTMALAR001", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BEASTMALAR001", lEncounter, FALSE));
        break;
    case 19: //Animal - High Bear Encounter
        SetLocalString(oUser, "EncounterName", "High Bear");
        CreateObject(OBJECT_TYPE_CREATURE, "NW_BEARDIRE", lEncounter, FALSE);
        DelayCommand(1.0f, Spawn("NW_BEARDIRE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BEARDIRE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BEARDIREBOSS", lEncounter, FALSE));
        break;

    case 21: //Construct - Flesh Golem
        SetLocalString(oUser, "EncounterName", "Flesh Golem");
        DelayCommand(1.0f, Spawn("NW_GOLFLESH", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GOLFLESH", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GOLFLESH", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GOLFLESH", lEncounter, FALSE));
        break;
    case 22: //Construct - Minogan
        SetLocalString(oUser, "EncounterName", "Minogon");
        DelayCommand(1.0f, Spawn("NW_MINOGON", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_MINOGON", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_MINOGON", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_MINOGON", lEncounter, FALSE));
        break;
    case 23: //Construct - Clay Golem
        SetLocalString(oUser, "EncounterName", "Clay Golem");
        DelayCommand(1.0f, Spawn("NW_GolClay", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GolClay", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GolClay", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GolClay", lEncounter, FALSE));
        break;
    case 24: //Construct - Bone Golem
        SetLocalString(oUser, "EncounterName", "Bone Golem");
        DelayCommand(1.0f, Spawn("NW_GolBone", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GolBone", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GolBone", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GolBone", lEncounter, FALSE));
        break;
    case 25: //Construct - Helmed Horror
        SetLocalString(oUser, "EncounterName", "Helmed Horror");
        DelayCommand(1.0f, Spawn("NW_HELMHORR", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_HELMHORR", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_HELMHORR", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_HELMHORR", lEncounter, FALSE));
        break;
    case 26: //Construct - Stone Golem
        SetLocalString(oUser, "EncounterName", "Stone Golem");
        DelayCommand(1.0f, Spawn("NW_GOLSTONE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GOLSTONE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GOLSTONE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GOLSTONE", lEncounter, FALSE));
        break;
    case 27: //Construct - Battle Horror
        SetLocalString(oUser, "EncounterName", "Battle Horror");
        DelayCommand(1.0f, Spawn("NW_BATHORROR", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BATHORROR", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BATHORROR", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BATHORROR", lEncounter, FALSE));
        break;
    case 28: //Construct - Shield Guardian
        SetLocalString(oUser, "EncounterName", "Shield Guardian");
        DelayCommand(1.0f, Spawn("NW_SHGUARD", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SHGUARD", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SHGUARD", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SHGUARD", lEncounter, FALSE));
        break;
    case 29: //Construct - Iron Golem
        SetLocalString(oUser, "EncounterName", "Iron Golem");
        DelayCommand(1.0f, Spawn("NW_GOLIRON", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GOLIRON", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GOLIRON", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GOLIRON", lEncounter, FALSE));
        break;
    case 31: //Dragon - Adult White Dragon
        SetLocalString(oUser, "EncounterName", "Adult White Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGWHITE001", lEncounter, FALSE));
        break;
    case 32: //Dragon - Adult Black Dragon
        SetLocalString(oUser, "EncounterName", "Adult Black Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGBLACK001", lEncounter, FALSE));
        break;
    case 33: //Dragon - Adult Green Dragon
        SetLocalString(oUser, "EncounterName", "Adult Green Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGGREEN001", lEncounter, FALSE));
        break;
    case 34: //Dragon - Adult Blue Dragon
        SetLocalString(oUser, "EncounterName", "Adult Blue Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGBLUE001", lEncounter, FALSE));
        break;
    case 35: //Dragon - Adult Red Dragon
        SetLocalString(oUser, "EncounterName", "Adult Red Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGRED001", lEncounter, FALSE));
        break;
    case 36: //Dragon - Old White Dragon
        SetLocalString(oUser, "EncounterName", "Old White Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGWHITE002", lEncounter, FALSE));
        break;
    case 37: //Dragon - Old Blue Dragon
        SetLocalString(oUser, "EncounterName", "Old Blue Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGBLUE002", lEncounter, FALSE));
        break;
    case 38: //Dragon - Old Red Dragon
        SetLocalString(oUser, "EncounterName", "Old Red Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGRED002", lEncounter, FALSE));
        break;
    case 39: //Dragon - Ancient Red Dragon
        SetLocalString(oUser, "EncounterName", "Ancient Red Dragon");
        DelayCommand(1.0f, Spawn("NW_DRGRED003", lEncounter, FALSE));
        break;
    case 41: //Elemental - Air Elemental
        SetLocalString(oUser, "EncounterName", "Air Elemental");
        DelayCommand(1.0f, Spawn("NW_AIR", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_AIR", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_AIR", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_AIR", lEncounter, FALSE));
        break;
    case 42: //Elemental - Earth Elemental
        SetLocalString(oUser, "EncounterName", "Earth Elemental");
        DelayCommand(1.0f, Spawn("NW_EARTH", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_EARTH", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_EARTH", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_EARTH", lEncounter, FALSE));
        break;
    case 43: //Elemental - Fire Elemental
        SetLocalString(oUser, "EncounterName", "Fire Elemental");
        DelayCommand(1.0f, Spawn("NW_FIRE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_FIRE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_FIRE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_FIRE", lEncounter, FALSE));
        break;
    case 44: //Elemental - Water Elemental
        SetLocalString(oUser, "EncounterName", "Water Elemental");
        DelayCommand(1.0f, Spawn("NW_WATER", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_WATER", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_WATER", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_WATER", lEncounter, FALSE));
        break;
    case 45: //Elemental - Huge Air Elemental
        SetLocalString(oUser, "EncounterName", "Huge Air Elemental");
        DelayCommand(1.0f, Spawn("NW_AIRHUGE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_AIRHUGE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_AIRHUGE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_AIRHUGE", lEncounter, FALSE));
        break;
    case 46: //Elemental - Huge Earth Elemental
        SetLocalString(oUser, "EncounterName", "Huge Earth Elemental");
        DelayCommand(1.0f, Spawn("NW_EARTHHUGE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_EARTHHUGE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_EARTHHUGE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_EARTHHUGE", lEncounter, FALSE));
        break;
    case 47: //Elemental - Huge Fire Elemental
        SetLocalString(oUser, "EncounterName", "Huge Fire Elemental");
        DelayCommand(1.0f, Spawn("NW_FIREHUGE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_FIREHUGE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_FIREHUGE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_FIREHUGE", lEncounter, FALSE));
        break;
    case 48: //Elemental - Huge Water Elemental
        SetLocalString(oUser, "EncounterName", "Huge Water Elemental");
        DelayCommand(1.0f, Spawn("NW_WATERHUGE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_WATERHUGE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_WATERHUGE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_WATERHUGE", lEncounter, FALSE));
        break;
    case 49: //Elemental - Elemental Swarm
        SetLocalString(oUser, "EncounterName", "Elemental Swarm");
        DelayCommand(1.0f, Spawn("NW_AIRGREAT", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_EARTHGREAT", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_FIREGREAT", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_WATERGREAT", lEncounter, FALSE));
        break;
    case 51: //Giant - Low Ogre
        SetLocalString(oUser, "EncounterName", "Low Ogre");
        DelayCommand(1.0f, Spawn("NW_OGRE01", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_OGRE01", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_OGRE02", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_OGRE02", lEncounter, FALSE));
        break;
    case 52: //Giant - Low Troll
        SetLocalString(oUser, "EncounterName", "Low Troll");
        DelayCommand(1.0f, Spawn("NW_TROLL", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_TROLL", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_TROLL", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_TROLL", lEncounter, FALSE));
        break;
    case 53: //Giant - High Ogre
        SetLocalString(oUser, "EncounterName", "High Ogre");
        DelayCommand(1.0f, Spawn("NW_OGRECHIEF01", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_OGRECHIEF02", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_OGRECHIEF01", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_OGREMAGE02", lEncounter, FALSE));
        break;
    case 54: //Giant - High Troll
        SetLocalString(oUser, "EncounterName", "High Troll");
        DelayCommand(1.0f, Spawn("NW_TROLLCHIEF", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_TROLLCHIEF", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_TROLLWIZ", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_TROLLWIZ", lEncounter, FALSE));
        break;
    case 55: //Giant - Ettin
        SetLocalString(oUser, "EncounterName", "Ettin");
        DelayCommand(1.0f, Spawn("NW_ETTIN", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_ETTIN", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_ETTIN", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ETTIN", lEncounter, FALSE));
        break;
    case 56: //Giant - Hill Giant
        SetLocalString(oUser, "EncounterName", "Hill Giant");
        DelayCommand(1.0f, Spawn("NW_GNTHILL", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GNTHILL", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GNTMOUNT", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GNTMOUNT", lEncounter, FALSE));
        break;
    case 57: //Giant - Frost Giant
        SetLocalString(oUser, "EncounterName", "Frost Giant");
        DelayCommand(1.0f, Spawn("NW_GNTFROST", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GNTFROST", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GNTFROST", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GNTFROST", lEncounter, FALSE));
        break;
    case 58: //Giant - Fire Giant
        SetLocalString(oUser, "EncounterName", "Fire Giant");
        DelayCommand(1.0f, Spawn("NW_GNTFIRE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GNTFIRE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GNTFIRE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GNTFIRE", lEncounter, FALSE));
        break;
    case 59: //Giant - Ogre Mage (Boss)
        SetLocalString(oUser, "EncounterName", "Ogre Mage (Boss)");
        DelayCommand(1.0f, Spawn("nw_ogreboss", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("nw_ogreboss", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_OGREMAGEBOSS", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_OGREMAGEBOSS", lEncounter, FALSE));
        break;
    case 61: //Humanoid - Goblin
        SetLocalString(oUser, "EncounterName", "Goblin");
        DelayCommand(1.0f, Spawn("NW_GOBLINA", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GOBLINA", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GOBLINA", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GOBLINB", lEncounter, FALSE));
        break;
    case 62: //Humanoid - Kobold
        SetLocalString(oUser, "EncounterName", "Kobold");
        DelayCommand(1.0f, Spawn("NW_KOBOLD002", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_KOBOLD002", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_KOBOLD002", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_KOBOLD001", lEncounter, FALSE));
        break;
    case 63: //Humanoid - Low Orc
        SetLocalString(oUser, "EncounterName", "Low Orc");
        DelayCommand(1.0f, Spawn("NW_ORCB", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_ORCA", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_ORCA", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ORCA", lEncounter, FALSE));
        break;
    case 64: //Humanoid - High Orc (Wiz)
        SetLocalString(oUser, "EncounterName", "High Orc (Wiz)");
        DelayCommand(1.0f, Spawn("NW_OrcChiefA", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_ORCCHIEFB", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_ORCCHIEFB", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ORCWIZA", lEncounter, FALSE));
        break;
    case 65: //Humanoid - Bugbear
        SetLocalString(oUser, "EncounterName", "Bugbear");
        DelayCommand(1.0f, Spawn("NW_BUGBEARA", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BUGBEARA", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BUGBEARA", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BUGBEARB", lEncounter, FALSE));
        break;
    case 66: //Humanoid - Lizardfolk
        SetLocalString(oUser, "EncounterName", "Lizardfolk");
        DelayCommand(1.0f, Spawn("NW_OLDWARRA", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_OLDWARRA", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_OLDWARRA", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_OLDWARB", lEncounter, FALSE));
        break;
    case 67: //Humanoid - Minotaur (Wiz)
        SetLocalString(oUser, "EncounterName", "Minotaur (Wiz)");
        DelayCommand(1.0f, Spawn("NW_MINOTAUR", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_MINOTAUR", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_MINOTAUR", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_MINWIZ", lEncounter, FALSE));
        break;
    case 68: //Humanoid - Fey
        SetLocalString(oUser, "EncounterName", "Fey (Mixed)");
        DelayCommand(1.0f, Spawn("NW_GRIG", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GRIG", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_PIXIE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_PIXIE", lEncounter, FALSE));
        break;
    case 69: //Humanoid -  Yuan-Ti (Mixed)
        SetLocalString(oUser, "EncounterName", "Yuan-Ti (Mixed)");
        DelayCommand(1.0f, Spawn("NW_YUAN_TI001", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_YUAN_TI001", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_YUAN_TI002", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_YUAN_TI003", lEncounter, FALSE));
        break;
    case 71: //Insects - Fire Beetle
        SetLocalString(oUser, "EncounterName", "Fire Beetle");
        DelayCommand(1.0f, Spawn("NW_BTLFIRE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BTLFIRE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BTLFIRE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BTLFIRE", lEncounter, FALSE));
        break;
    case 72: //Insects - Spitting Fire Beetle
        SetLocalString(oUser, "EncounterName", "Spitting Fire Beetle");
        DelayCommand(1.0f, Spawn("NW_BTLFIRE02", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BTLFIRE02", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BTLFIRE02", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BTLFIRE02", lEncounter, FALSE));
        break;
    case 73: //Insects - Low Beetle (Mixed)
        SetLocalString(oUser, "EncounterName", "Low Beetle (Mixed)");
        DelayCommand(1.0f, Spawn("NW_BTLBOMB", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BTLBOMB", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BTLSTINK", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BTLFIRE02", lEncounter, FALSE));
        break;
    case 74: //Insects - Giant Spider
        SetLocalString(oUser, "EncounterName", "Giant Spider");
        DelayCommand(1.0f, Spawn("NW_SPIDGIANT", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SPIDGIANT", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SPIDGIANT", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SPIDGIANT", lEncounter, FALSE));
        break;
    case 75: //Insects - Sword Spider
        SetLocalString(oUser, "EncounterName", "Sword Spider");
        DelayCommand(1.0f, Spawn("NW_SPIDSWRD", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SPIDSWRD", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SPIDSWRD", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SPIDSWRD", lEncounter, FALSE));
        break;
    case 76: //Insects - Wraith Spider
        SetLocalString(oUser, "EncounterName", "Wraith Spider");
        DelayCommand(1.0f, Spawn("NW_SPIDWRA", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SPIDWRA", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SPIDWRA", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SPIDWRA", lEncounter, FALSE));
        break;
    case 77: //Insects - Stag Beetle
        SetLocalString(oUser, "EncounterName", "Stag Beetle");
        DelayCommand(1.0f, Spawn("NW_BTLSTAG", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BTLSTAG", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BTLSTAG", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BTLSTAG", lEncounter, FALSE));
        break;
    case 78: //Insects - Dire Spider
        SetLocalString(oUser, "EncounterName", "Dire Spider");
        DelayCommand(1.0f, Spawn("NW_SPIDDIRE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SPIDDIRE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SPIDDIRE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SPIDDIRE", lEncounter, FALSE));
        break;
    case 79: //Insects - Queen Spider
        SetLocalString(oUser, "EncounterName", "Queen Spider");
        DelayCommand(1.0f, Spawn("NW_SPIDERBOSS", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SPIDERBOSS", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SPIDERBOSS", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SPIDERBOSS", lEncounter, FALSE));
        break;
    case 81: //Undead - Low Zombie
        SetLocalString(oUser, "EncounterName", "Zombie");
        DelayCommand(1.0f, Spawn("NW_ZOMBIE01", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_ZOMBIE02", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_ZOMBIE01", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ZOMBIE02", lEncounter, FALSE));
        break;
    case 82: //Undead - Low Skeleton
        SetLocalString(oUser, "EncounterName", "Low Skeleton");
        DelayCommand(1.0f, Spawn("NW_SKELETON", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SKELETON", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SKELETON", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SKELETON", lEncounter, FALSE));
        break;
    case 83: //Undead - Ghoul
        SetLocalString(oUser, "EncounterName", "Ghoul");
        DelayCommand(1.0f, Spawn("NW_GHOUL", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GHOUL", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GHOUL", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GHOUL", lEncounter, FALSE));
        break;
    case 84: //Undead - Shadow
        SetLocalString(oUser, "EncounterName", "Shadow");
        DelayCommand(1.0f, Spawn("NW_SHADOW", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SHADOW", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SHADOW", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SHADOW", lEncounter, FALSE));
        break;
    case 85: //Undead - Mummy
        SetLocalString(oUser, "EncounterName", "Mummy");
        DelayCommand(1.0f, Spawn("NW_MUMMY", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_MUMMY", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_MUMMY", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_MUMMY", lEncounter, FALSE));
        break;
    case 86: //Undead - High Skeleton
        SetLocalString(oUser, "EncounterName", "High Skeleton (Mixed)");
        DelayCommand(1.0f, Spawn("NW_SKELWARR01", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_SKELWARR02", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_SKELMAGE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_SKELPRIEST", lEncounter, FALSE));
        break;
    case 87: //Undead - Curst (Mixed)
        SetLocalString(oUser, "EncounterName", "Curst (Mixed)");
        DelayCommand(1.0f, Spawn("NW_CURST001", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_CURST002", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_CURST003", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_CURST004", lEncounter, FALSE));
        break;
    case 88: //Undead - Doom Knight
        SetLocalString(oUser, "EncounterName", "Doom Knight");
        DelayCommand(1.0f, Spawn("NW_DOOMKGHT", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_DOOMKGHT", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_DOOMKGHT", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_DOOMKGHT", lEncounter, FALSE));
        break;
    case 89: //Undead - Vampire (Mixed)
        SetLocalString(oUser, "EncounterName", "Vampire (Mixed)");
        DelayCommand(1.0f, Spawn("NW_VAMPIRE001", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_VAMPIRE002", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_VAMPIRE003", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_VAMPIRE004", lEncounter, FALSE));
        break;
    case 91: //NPC - Low Gypsy
        SetLocalString(oUser, "EncounterName", "Low Gypsy");
        DelayCommand(1.0f, Spawn("NW_GYPMALE", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_GYPMALE", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_GYPFEMALE", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_GYPFEMALE", lEncounter, FALSE));
        break;
    case 92: //NPC - Low Bandit
        SetLocalString(oUser, "EncounterName", "Low Bandit");
        DelayCommand(1.0f, Spawn("NW_BANDIT001", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BANDIT001", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BANDIT001", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BANDIT002", lEncounter, FALSE));
        break;
    case 93: //NPC - Medium Bandit (Mixed)
        SetLocalString(oUser, "EncounterName", "Medium Bandit (Mixed)");
        DelayCommand(1.0f, Spawn("NW_BANDIT005", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_BANDIT002", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_BANDIT003", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_BANDIT004", lEncounter, FALSE));
        break;
    case 94: //NPC - Low Mercenary (Mixed)
        SetLocalString(oUser, "EncounterName", "Low Mercenary (Mixed)");
        DelayCommand(1.0f, Spawn("NW_HUMANMERC001", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_HALFMERC001", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_DWARFMERC001", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ELFMERC001", lEncounter, FALSE));
        break;
    case 95: //NPC - Elf Ranger
        SetLocalString(oUser, "EncounterName", "Elf Ranger");
        DelayCommand(1.0f, Spawn("NW_ELFRANGER005", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_ELFRANGER005", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_ELFRANGER005", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ELFRANGER005", lEncounter, FALSE));
        break;
    case 96: //NPC - Low Drow (Mixed)
        SetLocalString(oUser, "EncounterName", "Low Drow (Mixed)");
        DelayCommand(1.0f, Spawn("NW_DROWFIGHT005", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_DROWMAGE005", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_DROWROGUE005", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_DROWCLER005", lEncounter, FALSE));
        break;
    case 97: //NPC - Medium Mercenary (Mixed)
        SetLocalString(oUser, "EncounterName", "Medium Mercenary (Mixed)");
        DelayCommand(1.0f, Spawn("NW_HUMANMERC004", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_HALFMERC004", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_DWARFMERC004", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ELFMERC004", lEncounter, FALSE));
        break;
    case 98: //NPC - High Drow (Mixed)
        SetLocalString(oUser, "EncounterName", "High Drow (Mixed)");
        DelayCommand(1.0f, Spawn("NW_DROWFIGHT020", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_DROWMAGE020", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_DROWROGUE020", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_DROWCLER020", lEncounter, FALSE));
        break;
    case 99: //NPC - High Mercenary (Mixed)
        SetLocalString(oUser, "EncounterName", "High Mercenary (Mixed)");
        DelayCommand(1.0f, Spawn("NW_HUMANMERC006", lEncounter, FALSE));
        DelayCommand(2.0f, Spawn("NW_HALFMERC006", lEncounter, FALSE));
        DelayCommand(3.0f, Spawn("NW_DWARFMERC006", lEncounter, FALSE));
        DelayCommand(4.0f, Spawn("NW_ELFMERC006", lEncounter, FALSE));
        break;
    case 101: // Custom Encounters
        CreateCustomEncounter("DMFI_E1", lEncounter); break;
    case 102:  CreateCustomEncounter("DMFI_E2", lEncounter); break;
    case 103:  CreateCustomEncounter("DMFI_E3", lEncounter); break;
    case 104:  CreateCustomEncounter("DMFI_E4", lEncounter); break;
    case 105:  CreateCustomEncounter("DMFI_E5", lEncounter); break;
    case 106:  CreateCustomEncounter("DMFI_E6", lEncounter); break;
    case 107:  CreateCustomEncounter("DMFI_E7", lEncounter); break;
    case 108:  CreateCustomEncounter("DMFI_E8", lEncounter); break;
    case 109:  CreateCustomEncounter("DMFI_E9", lEncounter); break;
    default:
        break;
    }
    return;
}

////////////////////////////////////////////////////////////////////////
//An FX Wand function
void FXWand_Firestorm(object oDM)
{

    // FireStorm Effect
    location lDMLoc = GetLocation ( oDM);


    // tell the DM object to rain fire and destruction
    AssignCommand ( oDM, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect ( VFX_FNF_METEOR_SWARM), lDMLoc));
    AssignCommand ( oDM, DelayCommand (1.0, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect (VFX_FNF_SCREEN_SHAKE), lDMLoc)));

    // create some fires
    object oTargetArea = GetArea(oDM);
    int nXPos, nYPos, nCount;
    for (nCount = 0; nCount < 15; nCount++)
    {
        nXPos = Random(30) - 15;
        nYPos = Random(30) - 15;

        vector vNewVector = GetPosition(oDM);
        vNewVector.x += nXPos;
        vNewVector.y += nYPos;

        location lFireLoc = Location(oTargetArea, vNewVector, 0.0);
        object oFire = CreateObject ( OBJECT_TYPE_PLACEABLE, "plc_flamelarge", lFireLoc, FALSE);
        object oDust = CreateObject ( OBJECT_TYPE_PLACEABLE, "plc_dustplume", lFireLoc, FALSE);
        DelayCommand ( 10.0, DestroyObject ( oFire));
        DelayCommand ( 14.0, DestroyObject ( oDust));
    }

}

////////////////////////////////////////////////////////////////////////
//An FX Wand function
void FXWand_Earthquake(object oDM)
{
    // Earthquake Effect by Jhenne, 06/29/02
    // declare variables used for targetting and commands.
    location lDMLoc = GetLocation ( oDM);

    // tell the DM object to shake the screen
    AssignCommand( oDM, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_SCREEN_SHAKE), lDMLoc));
    AssignCommand ( oDM, DelayCommand( 2.8, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect ( VFX_FNF_SCREEN_BUMP), lDMLoc)));
    AssignCommand ( oDM, DelayCommand( 3.0, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect ( VFX_FNF_SCREEN_SHAKE), lDMLoc)));
    AssignCommand ( oDM, DelayCommand( 4.5, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect ( VFX_FNF_SCREEN_BUMP), lDMLoc)));
    AssignCommand ( oDM, DelayCommand( 5.8, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect ( VFX_FNF_SCREEN_BUMP), lDMLoc)));
    // tell the DM object to play an earthquake sound
    AssignCommand ( oDM, PlaySound ("as_cv_boomdist1"));
    AssignCommand ( oDM, DelayCommand ( 2.0, PlaySound ("as_wt_thunderds3")));
    AssignCommand ( oDM, DelayCommand ( 4.0, PlaySound ("as_cv_boomdist1")));
    // create a dust plume at the DM and clicking location
    object oTargetArea = GetArea(oDM);
    int nXPos, nYPos, nCount;
    for (nCount = 0; nCount < 15; nCount++)
    {
        nXPos = Random(30) - 15;
        nYPos = Random(30) - 15;

        vector vNewVector = GetPosition(oDM);
        vNewVector.x += nXPos;
        vNewVector.y += nYPos;

        location lDustLoc = Location(oTargetArea, vNewVector, 0.0);
        object oDust = CreateObject ( OBJECT_TYPE_PLACEABLE, "plc_dustplume", lDustLoc, FALSE);
        DelayCommand ( 4.0, DestroyObject ( oDust));
    }
}

////////////////////////////////////////////////////////////////////////
//An FX Wand function
void FXWand_Lightning(object oDM, location lDMLoc)
{
    // Lightning Strike by Jhenne. 06/29/02
    // tell the DM object to create a Lightning visual effect at targetted location
    AssignCommand( oDM, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_LIGHTNING_M), lDMLoc));
    // tell the DM object to play a thunderclap
    AssignCommand ( oDM, PlaySound ("as_wt_thundercl3"));
    // create a scorch mark where the lightning hit
    object oScorch = CreateObject ( OBJECT_TYPE_PLACEABLE, "plc_weathmark", lDMLoc, FALSE);
    object oTargetArea = GetArea(oDM);
    int nXPos, nYPos, nCount;
    for (nCount = 0; nCount < 5; nCount++)
    {
        nXPos = Random(10) - 5;
        nYPos = Random(10) - 5;

        vector vNewVector = GetPositionFromLocation(lDMLoc);
        vNewVector.x += nXPos;
        vNewVector.y += nYPos;

        location lNewLoc = Location(oTargetArea, vNewVector, 0.0);
        AssignCommand( oDM, ApplyEffectAtLocation ( DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_LIGHTNING_S), lNewLoc));
    }
    DelayCommand ( 20.0, DestroyObject ( oScorch));
}

////////////////////////////////////////////////////////////////////////
void FnFEffect(object oUser, int iVFX, location lEffect, float fDelay)
{
    if (fDelay>2.0) FloatingTextStringOnCreature("Delay effect created", oUser, FALSE);
    DelayCommand( fDelay, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(iVFX),lEffect));
}

////////////////////////////////////////////////////////////////////////
void CreateEffects(int iEffect, location lEffect, object oUser)
{
    float fDelay;
    float fDuration;
    float fBeamDuration;
    object oTarget;

    if (GetIsDMPossessed(oUser))
    {
        fDelay = GetLocalFloat(GetMaster(oUser), "dmfi_effectdelay");
        fDuration = GetLocalFloat(GetMaster(oUser), "dmfi_effectduration");
        fBeamDuration = GetLocalFloat(GetMaster(oUser), "dmfi_beamduration");
    }
    else
    {
        fDelay = GetLocalFloat(oUser, "dmfi_effectdelay");
        fDuration = GetLocalFloat(oUser, "dmfi_effectduration");
        fBeamDuration = GetLocalFloat(oUser, "dmfi_beamduration");
    }

    if (!GetIsObjectValid(GetLocalObject(oUser, "dmfi_univ_target")))
        oTarget = oUser;
    else
        oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    switch (iEffect)
    {
    //SoU/HotU Duration Effects(must have a target)
    case 101: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_BIGBYS_CLENCHED_FIST), oTarget, fDuration); break;
    case 102: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_BIGBYS_CRUSHING_HAND), oTarget, fDuration); break;
    case 103: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_BIGBYS_GRASPING_HAND), oTarget, fDuration); break;
    case 104: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_BIGBYS_INTERPOSING_HAND), oTarget, fDuration); break;
    case 105: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_ICESKIN), oTarget, fDuration); break;
    case 106: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_INFERNO), oTarget, fDuration); break;
    case 107: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_PIXIEDUST), oTarget, fDuration); break;
    case 108: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY), oTarget, fDuration); break;
    case 109: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_FREEZE_ANIMATION), oTarget, fDuration); break;
    case 100: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_GHOSTLY_PULSE), oTarget, fDuration); break;
        //Magical Duration Effects
    case 10: ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_CALTROPS),lEffect, fDuration); break;
    case 11: ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_TENTACLE),lEffect, fDuration); break;
    case 12: ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_WEB_MASS),lEffect, fDuration); break;
    case 13: FnFEffect(oUser, VFX_FNF_GAS_EXPLOSION_MIND,lEffect, fDelay); break;
    case 14: FnFEffect(oUser, VFX_FNF_LOS_HOLY_30,lEffect, fDelay); break;
    case 15: FnFEffect(oUser, VFX_FNF_LOS_EVIL_30,lEffect, fDelay); break;
    case 16: FnFEffect(oUser, VFX_FNF_SMOKE_PUFF,lEffect, fDelay); break;
    case 17: FnFEffect(oUser, VFX_FNF_GAS_EXPLOSION_NATURE,lEffect, fDelay); break;
    case 18: FnFEffect(oUser, VFX_FNF_DISPEL_DISJUNCTION,lEffect, fDelay); break;
    case 19: FnFEffect(oUser, VFX_FNF_GAS_EXPLOSION_EVIL,lEffect, fDelay); break;
        //Magical Status Effects (must have a target)
    case 21: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_PROT_BARKSKIN), oTarget, fDuration); break;
    case 22: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_PROT_GREATER_STONESKIN), oTarget, fDuration); break;
    case 23: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_ENTANGLE), oTarget, fDuration); break;
    case 24: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_ETHEREAL_VISAGE), oTarget, fDuration); break;
    case 25: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_GHOSTLY_VISAGE), oTarget, fDuration); break;
    case 26: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_INVISIBILITY), oTarget, fDuration); break;
    case 27: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_BARD_SONG), oTarget, fDuration); break;
    case 28: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_GLOBE_INVULNERABILITY), oTarget, fDuration); break;
    case 29: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_PARALYZED), oTarget, fDuration); break;
    case 20: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_PROT_SHADOW_ARMOR), oTarget, fDuration); break;
        //Magical Burst Effects
    case 31: FnFEffect(oUser, VFX_FNF_FIREBALL,lEffect, fDelay); break;
    case 32: FnFEffect(oUser, VFX_FNF_FIRESTORM,lEffect, fDelay); break;
    case 33: FnFEffect(oUser, VFX_FNF_HORRID_WILTING,lEffect, fDelay); break;
    case 34: FnFEffect(oUser, VFX_FNF_HOWL_WAR_CRY,lEffect, fDelay); break;
    case 35: FnFEffect(oUser, VFX_FNF_IMPLOSION,lEffect, fDelay); break;
    case 36: FnFEffect(oUser, VFX_FNF_PWKILL,lEffect, fDelay); break;
    case 37: FnFEffect(oUser, VFX_FNF_PWSTUN,lEffect, fDelay); break;
    case 38: FnFEffect(oUser, VFX_FNF_SOUND_BURST,lEffect, fDelay); break;
    case 39: FnFEffect(oUser, VFX_FNF_STRIKE_HOLY,lEffect, fDelay); break;
    case 30: FnFEffect(oUser, VFX_FNF_WORD,lEffect, fDelay); break;
        //Lighting Effects
    case 41: ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_BLACKOUT),lEffect, fDuration); break;
    case 42: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_ANTI_LIGHT_10),oTarget, fDuration); break;
    case 43: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_LIGHT_BLUE_20),oTarget, fDuration); break;
    case 44: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_LIGHT_GREY_20),oTarget, fDuration); break;
    case 45: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_LIGHT_ORANGE_20),oTarget, fDuration); break;
    case 46: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_LIGHT_PURPLE_20),oTarget, fDuration); break;
    case 47: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_LIGHT_RED_20),oTarget, fDuration); break;
    case 48: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_LIGHT_WHITE_20),oTarget, fDuration); break;
    case 49: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_LIGHT_YELLOW_20),oTarget, fDuration); break;
        //Beam Effects
    case 50: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_CHAIN, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 51: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_COLD, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 52: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_EVIL, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 53: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_FIRE, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 54: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_FIRE_LASH, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 55: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_HOLY, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 56: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_LIGHTNING, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 57: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_MIND, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 58: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_ODD, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;
    case 59: ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_COLD, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_EVIL, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_FIRE, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_FIRE_LASH, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_HOLY, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_LIGHTNING, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_MIND, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration);
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectBeam(VFX_BEAM_ODD, oUser, BODY_NODE_CHEST, FALSE), oTarget, fBeamDuration); break;

        //Environmental Effects
    case 60: FnFEffect(oUser, VFX_FNF_NATURES_BALANCE,lEffect, fDelay);break;
    case 61: FXWand_Lightning(oTarget, lEffect); break;
    case 62: FXWand_Firestorm(oTarget); break;
    case 63: FXWand_Earthquake(oTarget); break;
    case 64: FnFEffect(oUser, VFX_FNF_ICESTORM,lEffect, fDelay); break;
    case 65: FnFEffect(oUser, VFX_FNF_SUNBEAM,lEffect, fDelay); break;
    case 66: SetWeather(GetArea(oUser), WEATHER_CLEAR); break;
    case 67: SetWeather(GetArea(oUser), WEATHER_RAIN); break;
    case 68: SetWeather(GetArea(oUser), WEATHER_SNOW); break;
    case 69: SetWeather(GetArea(oUser), WEATHER_USE_AREA_SETTINGS); break;
        //Summon Effects
    case 71: FnFEffect(oUser, VFX_FNF_SUMMON_MONSTER_1,lEffect, fDelay); break;
    case 72: FnFEffect(oUser, VFX_FNF_SUMMON_MONSTER_2,lEffect, fDelay); break;
    case 73: FnFEffect(oUser, VFX_FNF_SUMMON_MONSTER_3,lEffect, fDelay); break;
    case 74: FnFEffect(oUser, VFX_FNF_SUMMON_CELESTIAL,lEffect, fDelay); break;
    case 75: FnFEffect(oUser, VFX_FNF_SUMMONDRAGON,lEffect, fDelay); break;
    case 76: FnFEffect(oUser, VFX_FNF_SUMMON_EPIC_UNDEAD,lEffect, fDelay); break;
    case 77: FnFEffect(oUser, VFX_FNF_SUMMON_GATE,lEffect, fDelay); break;
    case 78: FnFEffect(oUser, VFX_FNF_SUMMON_UNDEAD,lEffect, fDelay); break;
    case 79: FnFEffect(oUser, VFX_FNF_UNDEAD_DRAGON,lEffect, fDelay); break;
    case 70: FnFEffect(oUser, VFX_FNF_WAIL_O_BANSHEES,lEffect, fDelay); break;
        //SoU/HotU Effects
    case 80: ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(322), oTarget, fDuration); break;
    case 81: ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(132), oTarget, fDuration); break;
    case 82: ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(133), oTarget, fDuration); break;
    case 83: ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(136), oTarget, fDuration); break;
    case 84: ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(137), oTarget, fDuration); break;
    case 85: FnFEffect(oUser, VFX_FNF_DEMON_HAND,lEffect, fDelay); break;
    case 86: FnFEffect(oUser, VFX_FNF_ELECTRIC_EXPLOSION,lEffect, fDelay); break;
    case 87: FnFEffect(oUser, VFX_FNF_GREATER_RUIN,lEffect, fDelay); break;
    case 88: FnFEffect(oUser, VFX_FNF_MYSTICAL_EXPLOSION,lEffect, fDelay); break;
    case 89: FnFEffect(oUser, VFX_FNF_SWINGING_BLADE,lEffect, fDelay); break;
        //Settings
    case 91:
        SetLocalString(oUser, "EffectSetting", "dmfi_effectduration");
        CreateSetting(oUser);
        break;
    case 92:
        SetLocalString(oUser, "EffectSetting", "dmfi_effectdelay");
        CreateSetting(oUser);
        break;
    case 93:
        SetLocalString(oUser, "EffectSetting", "dmfi_beamduration");
        CreateSetting(oUser);
        break;
    case 94: //Change Day Music
        iDayMusic = MusicBackgroundGetDayTrack(GetArea(oUser)) + 1;
        if (iDayMusic > 33) iDayMusic = 49;
        if (iDayMusic > 55) iDayMusic = 1;
        MusicBackgroundStop(GetArea(oUser));
        MusicBackgroundChangeDay(GetArea(oUser), iDayMusic);
        MusicBackgroundPlay(GetArea(oUser));
        break;
    case 95: //Change Night Music
        iNightMusic = MusicBackgroundGetDayTrack(GetArea(oUser)) + 1;
        if (iNightMusic > 33) iNightMusic = 49;
        if (iNightMusic > 55) iNightMusic = 1;
        MusicBackgroundStop(GetArea(oUser));
        MusicBackgroundChangeNight(GetArea(oUser), iNightMusic);
        MusicBackgroundPlay(GetArea(oUser));
        break;
    case 96: //Play Background Music
        MusicBackgroundPlay(GetArea(oUser));
        break;
    case 97: //Stop Background Music
        MusicBackgroundStop(GetArea(oUser));
        break;
    case 98: //Change and Play Battle Music
        iBattleMusic = MusicBackgroundGetBattleTrack(GetArea(oUser)) + 1;
        if (iBattleMusic < 34 || iBattleMusic > 48) iBattleMusic = 34;
        MusicBattleStop(GetArea(oUser));
        MusicBattleChange(GetArea(oUser), iBattleMusic);
        MusicBattlePlay(GetArea(oUser));
        break;
    case 99: //Stop Battle Music
        MusicBattleStop(GetArea(oUser));
        break;

    default: break;
    }
    DeleteLocalObject(oUser, "EffectTarget");
    return;
}

////////////////////////////////////////////////////////////////////////
//This function is for the DMFI Emote Wand
void DoEmoteFunction(int iEmote, object oUser)
{
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    if (!GetIsObjectValid(oTarget))
        oTarget = oUser;
    float fDur = 9999.0f; //Duration

    switch (iEmote)
    {
    case 1: AssignCommand(oTarget, PlayAnimation( ANIMATION_FIREFORGET_DODGE_SIDE, 1.0)); break;
    case 2: AssignCommand(oTarget, PlayAnimation( ANIMATION_FIREFORGET_DRINK, 1.0)); break;
    case 3: AssignCommand(oTarget, PlayAnimation( ANIMATION_FIREFORGET_DODGE_DUCK, 1.0)); break;
    case 4: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_DEAD_BACK, 1.0, fDur)); break;
    case 5: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_DEAD_FRONT, 1.0, fDur)); break;
    case 6: AssignCommand(oTarget, PlayAnimation( ANIMATION_FIREFORGET_READ, 1.0)); DelayCommand(3.0f, AssignCommand(oTarget, PlayAnimation( ANIMATION_FIREFORGET_READ, 1.0)));break;
    case 7: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_SIT_CROSS, 1.0, fDur)); break;
    case 81: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_TALK_PLEADING, 1.0, fDur)); break;
    case 82: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_CONJURE1, 1.0, fDur)); break;
    case 83: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_CONJURE2, 1.0, fDur)); break;
    case 84: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_GET_LOW, 1.0, fDur)); break;
    case 85: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_GET_MID, 1.0, fDur)); break;
    case 86: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_MEDITATE, 1.0, fDur)); break;
    case 87: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_TALK_FORCEFUL, 1.0, fDur)); break;
    case 88: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_WORSHIP, 1.0, fDur)); break;
    case 10: if (!GetLocalInt(oTarget, "hls_emotemute")) FloatingTextStringOnCreature("*emote* commands are off", oTarget, FALSE);
        else FloatingTextStringOnCreature("*emote* commands are on", oTarget, FALSE);
        SetLocalInt(oTarget, "hls_emotemute", abs(GetLocalInt(oTarget, "hls_emotemute") - 1)); break;
    case 91: EmoteDance(oTarget); break;
    case 92: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_PAUSE_DRUNK, 1.0, fDur)); break;
    case 93: AssignCommand(oTarget, ActionForceFollowObject(GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_IS_PC, oTarget), 2.0f)); break;
    case 94: SitInNearestChair(oTarget); break;
    case 95: AssignCommand(oTarget, ActionPlayAnimation( ANIMATION_LOOPING_SIT_CROSS, 1.0, fDur)); DelayCommand(1.0f, AssignCommand(oTarget, PlayAnimation( ANIMATION_FIREFORGET_DRINK, 1.0))); DelayCommand(3.0f, AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_SIT_CROSS, 1.0, fDur)));break;
    case 96: AssignCommand(oTarget, ActionPlayAnimation( ANIMATION_LOOPING_SIT_CROSS, 1.0, fDur)); DelayCommand(1.0f, AssignCommand(oTarget, PlayAnimation( ANIMATION_FIREFORGET_READ, 1.0))); DelayCommand(3.0f, AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_SIT_CROSS, 1.0, fDur)));break;
    case 97: AssignCommand(oTarget, PlayAnimation( ANIMATION_LOOPING_SPASM, 1.0, fDur)); break;
    case 98: SmokePipe(oTarget); break;
    default: break;
    }
}

////////////////////////////////////////////////////////////////////////
void DoBuff (int iChoice, object oUser)
{
    int nChoice = 0;
    string sType;
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    int Party = GetLocalInt(oUser, "dmfi_buff_party");
    int CL;
    int nSpell1 = SPELL_ALL_SPELLS;
    int nSpell2 = SPELL_ALL_SPELLS;
    int nSpell3 = SPELL_ALL_SPELLS;


    switch (iChoice)
    {
    case 10: nChoice = -1; break;
    case 11: nChoice = SPELL_AURA_OF_VITALITY; break;
    case 12: nChoice = SPELL_BARKSKIN; break;
    case 13: nChoice = SPELL_BATTLETIDE; break;
    case 14: nChoice = SPELL_BLESS;  break;
    case 16: nChoice = SPELL_CLAIRAUDIENCE_AND_CLAIRVOYANCE; break;
    case 17: nChoice = SPELL_CLARITY;  break;
    case 18: nChoice = SPELL_DEATH_WARD;  break;
    case 19: nChoice = SPELL_DISPLACEMENT; break;
    case 20: nChoice = -1;  break;
    case 21: nChoice = SPELL_DIVINE_FAVOR;  break;
    case 22: nChoice = SPELL_DIVINE_POWER;  break;
    case 23: nChoice = SPELL_ENDURE_ELEMENTS; break;
    case 24: nChoice = SPELL_ENTROPIC_SHIELD; break;
    case 25: nChoice = SPELL_ELEMENTAL_SHIELD; break;
    case 26: nChoice = SPELL_ENERGY_BUFFER;  break;
    case 27: nChoice = SPELL_ETHEREAL_VISAGE;  break;
    case 28: nChoice = SPELL_GHOSTLY_VISAGE; break;
    case 29: nChoice = SPELL_GLOBE_OF_INVULNERABILITY; break;
    case 30: nChoice = -1;  break;
    case 31: nChoice = SPELL_SANCTUARY; break;
    case 32: nChoice = SPELL_GREATER_STONESKIN; break;
    case 33: nChoice = SPELL_GREATER_SPELL_MANTLE; break;
    case 34: nChoice = SPELL_HASTE;  break;
    case 35: nChoice = SPELL_INVISIBILITY;  break;
    case 36: nChoice = SPELL_IMPROVED_INVISIBILITY; break;
    case 37: nChoice = SPELL_LESSER_MIND_BLANK;break;
    case 38: nChoice = SPELL_LESSER_SPELL_MANTLE; break;
    case 39: nChoice = SPELL_MAGE_ARMOR; break;
    case 40: nChoice = -1;  break;
    case 41: nChoice = SPELL_MESTILS_ACID_SHEATH; break;
    case 42: nChoice = SPELL_MONSTROUS_REGENERATION; break;
    case 43: nChoice = SPELL_PRAYER;  break;
    case 44: nChoice = SPELL_PREMONITION; break;
    case 45: nChoice = SPELL_PROTECTION_FROM_ELEMENTS; break;
    case 46: nChoice = SPELL_PROTECTION_FROM_SPELLS; break;
    case 47: nChoice = SPELL_REGENERATE; break;
    case 48: nChoice = SPELL_RESIST_ELEMENTS;  break;
    case 49: nChoice = SPELL_SHADOW_SHIELD; break;
    case 50: nChoice = -1;  break;
    case 51: nChoice = SPELL_SHIELD; break;
    case 52: nChoice = SPELL_SPELL_MANTLE; break;
    case 53: nChoice = SPELL_SPELL_RESISTANCE; break;
    case 54: nChoice = SPELL_STONE_BONES; break;
    case 55: nChoice = SPELL_STONESKIN; break;
    case 56: nChoice = SPELL_TENSERS_TRANSFORMATION; break;
    case 57: nChoice = SPELL_TRUE_SEEING; break;
    case 58: nChoice = SPELL_DARKNESS;  break;
    case 59: nChoice = SPELL_WAR_CRY; break;
    case 60: nChoice = -1;    break;
    case 61: sType = "BARD_DEF"; break;
    case 62: sType = "BARD_OFF";   break;
    case 63: sType = "CLERIC_DEF"; break;
    case 64: sType = "CLERIC_OFF";  break;
    case 65: sType = "DRUID_DEF"; break;
    case 66: sType = "DRUID_OFF"; break;
    case 67: sType = "MAGE_DEF";  break;
    case 68: sType = "MAGE_OFF"; break;
    case 70: nChoice = -1;    break;
    case 71: sType = "ARMOR";    break;
    case 72: sType = "ELEMENTAL"; break;
    case 73: sType = "INVIS";  break;
    case 74: sType = "MELEE";  break;
    case 75: sType = "MIND";  break;
    case 76: sType = "SHIELD";  break;
    case 77: sType = "SP_PROT"; break;
    case 78: sType = "STEALTH"; break;

    case 81: DMFI_NextTarget(oTarget, oUser); nChoice = -1; break;
    case 82: SetLocalString(oUser, "dmfi_buff_level", "LOW"); nChoice = -1;
        FloatingTextStringOnCreature("Buff level LOW", oUser);
        SetCustomToken(20782, "Low");
        SetDMFIPersistentString("dmfi", "dmfi_buff_level", "LOW", oUser);
        break;
    case 83: SetLocalString(oUser, "dmfi_buff_level", "MID"); nChoice = -1;
        FloatingTextStringOnCreature("Buff level MID", oUser);
        SetCustomToken(20782, "Mid");
        SetDMFIPersistentString("dmfi", "dmfi_buff_level", "MID", oUser);
        break;
    case 84: SetLocalString(oUser, "dmfi_buff_level", "HIGH"); nChoice = -1;
        FloatingTextStringOnCreature("Buff level HIGH", oUser);
        SetCustomToken(20782, "High");
        SetDMFIPersistentString("dmfi", "dmfi_buff_level", "HIGH", oUser);
        break;
    case 85: SetLocalString(oUser, "dmfi_buff_level", "EPIC"); nChoice = -1;
        FloatingTextStringOnCreature("Buff level EPIC", oUser);
        SetCustomToken(20782, "Epic");
        SetDMFIPersistentString("dmfi", "dmfi_buff_level", "EPIC", oUser);
        break;
    case 86: {
            if (GetLocalInt(oUser, "dmfi_buff_party")==1)
            {
                SetLocalInt(oUser, "dmfi_buff_party", 0);
                FloatingTextStringOnCreature("Buff set to single target", oUser);
                SetCustomToken(20783, "Single Target");
                SetDMFIPersistentInt("dmfi","dmfi_buff_party", 0, oUser);
            }
            else
            {
                SetLocalInt(oUser, "dmfi_buff_party", 1);
                FloatingTextStringOnCreature("Buff set to party mode", oUser);
                SetCustomToken(20783, "Party");
                SetDMFIPersistentInt("dmfi","dmfi_buff_party", 1, oUser);
            }
        }
    case 80: nChoice = -1; break;
    default: nChoice = -1; break;
    }


    if (nChoice==-1)
        return;

//set caster level based on set level
    string sLevel = GetLocalString(oUser, "dmfi_buff_level");

    if (sLevel == "LOW") CL = 5;
    else if (sLevel == "MID") CL = 10;
    else if (sLevel == "HIGH") CL = 15;
    else if (sLevel == "EPIC") CL = 20;

    if (nChoice == 0)  //only get here if nChoice NOT set
    {
        string BUFF_TYPE = sType + "_" + sLevel;

        if (BUFF_TYPE == "BARD_DEF_LOW")
        {
            nSpell1 = SPELL_RESISTANCE;
            nSpell2 = SPELL_MAGE_ARMOR;
            nSpell3 = SPELL_GHOSTLY_VISAGE;
        }
        else if (BUFF_TYPE =="BARD_OFF_LOW")
        {
            nSpell1 = SPELL_BULLS_STRENGTH;
            nSpell2 = SPELL_MAGE_ARMOR;
            nSpell3 = SPELL_MAGIC_WEAPON;
        }
        else if (BUFF_TYPE == "BARD_DEF_MID")
        {
            nSpell1 = SPELL_IMPROVED_INVISIBILITY;
            nSpell2 = SPELL_GHOSTLY_VISAGE;
            nSpell3 = SPELL_CLARITY;
        }
        else if (BUFF_TYPE == "BARD_OFF_MID")
        {
            nSpell1 = SPELL_WAR_CRY;
            nSpell2 = SPELL_SUMMON_CREATURE_V;
            nSpell3 = SPELL_ETHEREAL_VISAGE;
        }
        else if (BUFF_TYPE == "BARD_DEF_HIGH")
        {
            nSpell1 = SPELL_ETHEREAL_VISAGE;
            nSpell2 = SPELL_IMPROVED_INVISIBILITY;
            nSpell3 = SPELL_HASTE;
        }
        else if (BUFF_TYPE == "BARD_OFF_HIGH")
        {
            nSpell1 = SPELL_ETHEREAL_VISAGE;
            nSpell2 = SPELL_SUMMON_CREATURE_V;
            nSpell3 = SPELL_WAR_CRY;
        }
        else if (BUFF_TYPE == "BARD_DEF_EPIC")
        {
            nSpell1 = SPELL_ETHEREAL_VISAGE;
            nSpell2 = SPELL_ENERGY_BUFFER;
            nSpell3 = SPELL_IMPROVED_INVISIBILITY;
        }
        else if (BUFF_TYPE == "BARD_OFF_EPIC")
        {
            nSpell1 = SPELL_ETHEREAL_VISAGE;
            nSpell2 = SPELL_SUMMON_CREATURE_VI;
            nSpell3 = SPELL_MASS_HASTE;
        }

        else if (BUFF_TYPE == "MAGE_DEF_LOW")
        {
            nSpell1 = SPELL_CLARITY;
            nSpell2 = SPELL_GHOSTLY_VISAGE;
            nSpell3 = SPELL_PROTECTION_FROM_ELEMENTS;
        }
        else if (BUFF_TYPE == "MAGE_OFF_LOW")
        {
            nSpell1 = SPELL_GHOSTLY_VISAGE;
            nSpell2 = SPELL_DEATH_ARMOR;
            nSpell3 = SPELL_HASTE;
        }
        else if (BUFF_TYPE == "MAGE_DEF_MID")
        {
            nSpell1 = SPELL_LESSER_SPELL_MANTLE;
            nSpell2 = SPELL_STONESKIN;
            nSpell3 = SPELL_ELEMENTAL_SHIELD;
        }
        else if (BUFF_TYPE == "MAGE_OFF_MID")
        {
            nSpell1 = SPELL_SPELL_MANTLE;
            nSpell2 = SPELL_IMPROVED_INVISIBILITY;
            nSpell3 = SPELL_SUMMON_CREATURE_V;
        }
        else if (BUFF_TYPE == "MAGE_DEF_HIGH")
        {
            nSpell1 = SPELL_SPELL_MANTLE;
            nSpell2 = SPELL_SANCTUARY;
            nSpell3 = SPELL_MINOR_GLOBE_OF_INVULNERABILITY;
        }
        else if (BUFF_TYPE == "MAGE_OFF_HIGH")
        {
            nSpell1 = SPELL_ETHEREAL_VISAGE;
            nSpell2 = SPELL_SUMMON_CREATURE_VIII;
            nSpell3 = SPELL_SPELL_MANTLE;
        }
        else if (BUFF_TYPE == "MAGE_DEF_EPIC")
        {
            nSpell1 = SPELL_PREMONITION;
            nSpell2 = SPELL_SPELL_MANTLE;
            nSpell3 = SPELL_GLOBE_OF_INVULNERABILITY;
        }
        else if (BUFF_TYPE == "MAGE_OFF_EPIC")
        {
            nSpell1 = SPELL_PREMONITION;
            nSpell2 = SPELL_MORDENKAINENS_SWORD;
            nSpell3 = SPELL_GLOBE_OF_INVULNERABILITY;
        }
        else if (BUFF_TYPE == "CLERIC_DEF_LOW")
        {
            nSpell1 = SPELL_PROTECTION_FROM_ELEMENTS;
            nSpell2 = SPELL_CLARITY;
            nSpell3 = SPELL_DARKVISION;
        }
        else if (BUFF_TYPE == "CLERIC_OFF_LOW")
        {
            nSpell1 = SPELL_PRAYER;
            nSpell2 = SPELL_MAGIC_VESTMENT;
            nSpell3 = SPELL_BULLS_STRENGTH;
        }
        else if (BUFF_TYPE == "CLERIC_MID_DEF")
        {
            nSpell1 = SPELL_SANCTUARY;
            nSpell2 = SPELL_SPELL_RESISTANCE;
            nSpell3 = SPELL_TRUE_SEEING;
        }
        else if (BUFF_TYPE == "CLERIC_OFF_MID")
        {
            nSpell1 = SPELL_SUMMON_CREATURE_VI;
            nSpell2 = SPELL_BATTLETIDE;
            nSpell3 = SPELL_MONSTROUS_REGENERATION;
        }
        else if (BUFF_TYPE == "CLERIC_DEF_HIGH")
        {
            nSpell1 = SPELL_SANCTUARY;
            nSpell2 = SPELL_REGENERATE;
            nSpell3 = SPELL_MONSTROUS_REGENERATION;
        }
        else if (BUFF_TYPE == "CLERIC_OFF_HIGH")
        {
            nSpell1 = SPELL_SUMMON_CREATURE_VIII;
            nSpell2 = SPELL_REGENERATE;
            nSpell3 = SPELL_BATTLETIDE;
        }
        else if (BUFF_TYPE == "CLERIC_DEF_EPIC")
        {
            nSpell1 = SPELL_UNDEATHS_ETERNAL_FOE;
            nSpell2 = SPELL_REGENERATE;
            nSpell3 = SPELL_SANCTUARY;
        }
        else if (BUFF_TYPE == "CLERIC_OFF_EPIC")
        {
            nSpell1 = SPELL_SUMMON_CREATURE_IX;
            nSpell2 = SPELL_REGENERATE;
            nSpell3 = SPELL_BATTLETIDE;
        }
        else if (BUFF_TYPE == "DRUID_DEF_LOW")
        {
            nSpell1 = SPELL_PROTECTION_FROM_ELEMENTS;
            nSpell2 = SPELL_BARKSKIN;
            nSpell3 = SPELL_ONE_WITH_THE_LAND;
        }
        else if (BUFF_TYPE == "DRUID_OFF_LOW")
        {
            nSpell1 = SPELL_GREATER_MAGIC_FANG;
            nSpell2 = SPELL_BULLS_STRENGTH;
            nSpell3 = SPELL_BLOOD_FRENZY;
        }
        else if (BUFF_TYPE == "DRUID_DEF_MID")
        {
            nSpell1 = SPELL_SPELL_RESISTANCE;
            nSpell2 = SPELL_MONSTROUS_REGENERATION;
            nSpell3 = SPELL_STONESKIN;
        }
        else if (BUFF_TYPE == "DRUID_OFF_MID")
        {
            nSpell1 = SPELL_STONESKIN;
            nSpell2 = SPELL_FREEDOM_OF_MOVEMENT;
            nSpell3 = SPELL_MASS_CAMOFLAGE;
        }
        else if (BUFF_TYPE == "DRUID_DEF_HIGH")
        {
            nSpell1 = SPELL_PREMONITION;
            nSpell2 = SPELL_TRUE_SEEING;
            nSpell3 = SPELL_GREATER_STONESKIN;
        }
        else if (BUFF_TYPE == "DRUID_OFF_HIGH")
        {
            nSpell1 = SPELL_SUMMON_CREATURE_VIII;
            nSpell2 = SPELL_AURA_OF_VITALITY;
            nSpell3 = SPELL_ENERGY_BUFFER;
        }
        else if (BUFF_TYPE == "DRUID_DEF_EPIC")
        {
            nSpell1 = SPELL_ELEMENTAL_SWARM;
            nSpell2 = SPELL_PREMONITION;
            nSpell3 = SPELL_TRUE_SEEING;
        }
        else if (BUFF_TYPE == "DRUID_OFF_EPIC")
        {
            nSpell1 = SPELL_PREMONITION;
            nSpell2 = SPELL_SHAPECHANGE;
            nSpell3 = SPELL_AURA_OF_VITALITY;
        }
        else if (BUFF_TYPE == "AMROR_LOW")
        {
            nSpell1 = SPELL_MAGE_ARMOR;
            nSpell2 = SPELL_INVISIBILITY_PURGE;
        }
        else if (BUFF_TYPE == "ARMOR_MID")
        {
            nSpell1 = SPELL_MAGE_ARMOR;
            nSpell2 = SPELL_DARKVISION;
            nSpell3 = SPELL_INVISIBILITY_PURGE;
        }
        else if (BUFF_TYPE == "ARMOR_HIGH")
        {
            nSpell1 = SPELL_MAGE_ARMOR;
            nSpell2 = SPELL_STONESKIN;
            nSpell3 = SPELL_GHOSTLY_VISAGE;
        }
        else if (BUFF_TYPE == "ARMOR_EPIC")
        {
            nSpell1 = SPELL_GHOSTLY_VISAGE;
            nSpell2 = SPELL_MAGE_ARMOR;
            nSpell3 = SPELL_PREMONITION;
        }
        else if (BUFF_TYPE == "ELEMENTAL_LOW")
        {
            nSpell1 = SPELL_RESISTANCE;
            nSpell2 = SPELL_ENDURE_ELEMENTS;
            nSpell3 = SPELL_ENDURANCE;
        }
        else if (BUFF_TYPE == "ELEMENTAL_MID")
        {
            nSpell1 = SPELL_RESISTANCE;
            nSpell2 = SPELL_RESIST_ELEMENTS;
            nSpell3 = SPELL_ENDURANCE;
        }
        else if (BUFF_TYPE == "ELEMENTAL_HIGH")
        {
            nSpell1 = SPELL_ENDURANCE;
            nSpell2 = SPELL_STONESKIN;
            nSpell3 = SPELL_PROTECTION_FROM_ELEMENTS;
        }
        else if (BUFF_TYPE == "ELEMENTAL_EPIC")
        {
            nSpell1 = SPELL_STONESKIN;
            nSpell2 = SPELL_ENERGY_BUFFER;
            nSpell3 = SPELL_ENDURANCE;
        }
        else if (BUFF_TYPE == "INVIS_LOW")
        {
            nSpell1 = SPELL_CATS_GRACE;
            nSpell2 = SPELL_INVISIBILITY;
        }
        else if (BUFF_TYPE == "INVIS_MID")
        {
            nSpell1 = SPELL_CATS_GRACE;
            nSpell2 = SPELL_MAGE_ARMOR;
            nSpell3 = SPELL_INVISIBILITY_SPHERE;
        }
        else if (BUFF_TYPE == "INVIS_HIGH")
        {
            nSpell1 = SPELL_MAGE_ARMOR;
            nSpell2 = SPELL_CATS_GRACE;
            nSpell3 = SPELL_IMPROVED_INVISIBILITY;
        }
        else if (BUFF_TYPE == "INVIS_EPIC")
        {
            nSpell1 = SPELL_MAGE_ARMOR;
            nSpell2 = SPELL_HASTE;
            nSpell3 = SPELL_SANCTUARY;
        }
        else if (BUFF_TYPE == "MELEE_LOW")
        {
            nSpell1 = SPELL_MAGIC_WEAPON;
            nSpell2 = SPELL_BULLS_STRENGTH;
            nSpell3 =  SPELL_STONE_BONES;
        }
        else if (BUFF_TYPE == "MELEE_MID")
        {
            nSpell1 = SPELL_BULLS_STRENGTH;
            nSpell2 = SPELL_STONESKIN;
            nSpell3 = SPELL_GREATER_MAGIC_WEAPON;
        }
        else if (BUFF_TYPE == "MELEE_HIGH")
        {
            nSpell1 = SPELL_ENDURANCE;
            nSpell2 = SPELL_GREATER_STONESKIN;
            nSpell3 = SPELL_KEEN_EDGE;
        }
        else if (BUFF_TYPE == "MELEE_EPIC")
        {
            nSpell1 = SPELL_TENSERS_TRANSFORMATION;
            nSpell2 = SPELL_PREMONITION;
            nSpell3 = SPELL_BULLS_STRENGTH;
        }
        else if (BUFF_TYPE == "MIND_LOW")
        {
            nSpell1 = SPELL_RESISTANCE;
            nSpell2 = SPELL_CLARITY;
        }
        else if (BUFF_TYPE == "MIND_MID")
        {
            nSpell1 = SPELL_RESISTANCE;
            nSpell2 = SPELL_OWLS_WISDOM;
            nSpell3 = SPELL_LESSER_MIND_BLANK;
        }
        else if (BUFF_TYPE == "MIND_HIGH")
        {
            nSpell1 = SPELL_OWLS_WISDOM;
            nSpell2 = SPELL_MAGE_ARMOR;
            nSpell3 = SPELL_LESSER_MIND_BLANK;
        }
        else if (BUFF_TYPE == "MIND_EPIC")
        {
            nSpell1 = SPELL_OWLS_WISDOM;
            nSpell2 = SPELL_LESSER_MIND_BLANK;
            nSpell3 = SPELL_HASTE;
        }
        else if (BUFF_TYPE == "SHIELD_LOW")
        {
            nSpell1 = SPELL_SHIELD;
            nSpell2 = SPELL_INVISIBILITY;
        }
        else if (BUFF_TYPE == "SHIELD_MID")
        {
            nSpell1 = SPELL_SHIELD;
            nSpell2 = SPELL_PRAYER;
            nSpell3 = SPELL_INVISIBILITY_SPHERE;
        }
        else if (BUFF_TYPE == "SHIELD_HIGH")
        {
            nSpell1 = SPELL_SHIELD;
            nSpell2 = SPELL_GHOSTLY_VISAGE;
            nSpell3 = SPELL_ELEMENTAL_SHIELD;
        }
        else if (BUFF_TYPE == "SHIELD_EPIC")
        {
            nSpell1 = SPELL_SHIELD;
            nSpell2 = SPELL_SHADOW_SHIELD;
            nSpell3 = SPELL_SPELL_MANTLE;
        }
        else if (BUFF_TYPE == "SP_PROT_LOW")
        {
            nSpell1 = SPELL_SHIELD;
            nSpell2 = SPELL_RESISTANCE;
            nSpell3 = SPELL_GHOSTLY_VISAGE;
        }
        else if (BUFF_TYPE == "SP_PROT_MID")
        {
            nSpell1 = SPELL_RESISTANCE;
            nSpell2 = SPELL_SHIELD;
            nSpell3 = SPELL_LESSER_SPELL_MANTLE;
        }
        else if (BUFF_TYPE == "SP_PROT_HIGH")
        {
            nSpell1 = SPELL_SHIELD;
            nSpell2 = SPELL_ETHEREAL_VISAGE;
            nSpell3 = SPELL_GLOBE_OF_INVULNERABILITY;
        }
        else if (BUFF_TYPE == "SP_PROT_EPIC")
        {
            nSpell1 = SPELL_PROTECTION_FROM_SPELLS;
            nSpell2 = SPELL_GREATER_SPELL_MANTLE;
            nSpell3 = SPELL_ETHEREAL_VISAGE;
        }
        else if (BUFF_TYPE == "STEALTH_LOW")
        {
            nSpell1 = SPELL_CATS_GRACE;
            nSpell2 = SPELL_CLAIRAUDIENCE_AND_CLAIRVOYANCE;
        }
        else if (BUFF_TYPE == "STEALTH_MID")
        {
            nSpell1 = SPELL_CATS_GRACE;
            nSpell2 = SPELL_CLAIRAUDIENCE_AND_CLAIRVOYANCE;
            nSpell3 = SPELL_DISPLACEMENT;
        }
        else if (BUFF_TYPE == "STEALTH_HIGH")
        {
            nSpell1 = SPELL_CLAIRAUDIENCE_AND_CLAIRVOYANCE;
            nSpell2 = SPELL_CATS_GRACE;
            nSpell3 = SPELL_IMPROVED_INVISIBILITY;
        }
        else if (BUFF_TYPE == "STEALTH_EPIC")
        {
            nSpell1 = SPELL_CATS_GRACE;
            nSpell2 = SPELL_ETHEREAL_VISAGE;
            nSpell3 = SPELL_IMPROVED_INVISIBILITY;
        }
    }
    else
    {
        nSpell1 = nChoice;   //set up the single buffs if they were initialized by the choice
    }

    string sParty = "target";
    if (Party==1)
    {
        sParty = "party";
        object oParty = GetFirstFactionMember(oTarget, FALSE);
        while (GetIsObjectValid(oParty))
        {
            AssignCommand(oTarget, ClearAllActions());
            if (nSpell1!=SPELL_ALL_SPELLS)
                AssignCommand(oTarget, ActionCastSpellAtObject(nSpell1, oTarget, METAMAGIC_ANY, TRUE, CL, PROJECTILE_PATH_TYPE_DEFAULT, TRUE));
            if (nSpell2!=SPELL_ALL_SPELLS)
                AssignCommand(oTarget, ActionCastSpellAtObject(nSpell2, oTarget, METAMAGIC_ANY, TRUE, CL, PROJECTILE_PATH_TYPE_DEFAULT, TRUE));
            if (nSpell3!=SPELL_ALL_SPELLS)
                AssignCommand(oTarget, ActionCastSpellAtObject(nSpell3, oTarget, METAMAGIC_ANY, TRUE, CL, PROJECTILE_PATH_TYPE_DEFAULT, TRUE));
            oParty = GetNextFactionMember (oTarget);
        }
    }
    else
    {
        AssignCommand(oTarget, ClearAllActions());
        if (nSpell1!=SPELL_ALL_SPELLS)
            AssignCommand(oTarget, ActionCastSpellAtObject(nSpell1, oTarget, METAMAGIC_ANY, TRUE, CL, PROJECTILE_PATH_TYPE_DEFAULT, TRUE));
        if (nSpell2!=SPELL_ALL_SPELLS)
            AssignCommand(oTarget, ActionCastSpellAtObject(nSpell2, oTarget, METAMAGIC_ANY, TRUE, CL, PROJECTILE_PATH_TYPE_DEFAULT, TRUE));
        if (nSpell3!=SPELL_ALL_SPELLS)
            AssignCommand(oTarget, ActionCastSpellAtObject(nSpell3, oTarget, METAMAGIC_ANY, TRUE, CL, PROJECTILE_PATH_TYPE_DEFAULT, TRUE));
    }
    SendMessageToPC(oUser, "Buffs Applied to " + sParty + ".  Caster Level: " + IntToString(CL));
}

////////////////////////////////////////////////////////////////////////
void ToggleRestVariable(int iCurrent, int iChange, int iDefault, string sTextMessage = "", object oUser = OBJECT_INVALID, string sArea = "")
{
    string sOnOff = "ON";
    if (iCurrent & iChange) //If the variable already exists
    {
        if (iDefault)
        {
            sOnOff = "ON";
        }
        else
        {
            sOnOff = "OFF";
        } //Remove the variable
        SetDMFIPersistentInt("dmfi", "dmfi_r_" + sArea, iCurrent & ~iChange);
        if (sTextMessage != "")
            FloatingTextStringOnCreature(sTextMessage + sOnOff, oUser, FALSE);
    }
    else //if the variable doesn't already exist
    {
        if (iDefault)
        {
            sOnOff = "OFF";
        }
        else
        {
            sOnOff = "ON";
        } //Add the variable
        SetDMFIPersistentInt("dmfi", "dmfi_r_" + sArea, iCurrent | iChange);
        if (sTextMessage != "")
            FloatingTextStringOnCreature(sTextMessage + sOnOff, oUser, FALSE);
    }
}

////////////////////////////////////////////////////////////////////////
void DoRestFunction(int iRest, object oUser)
{
    int iCurrentMod = GetDMFIPersistentInt("dmfi", "dmfi_r_");
    object oTarget = GetLocalObject(oUser, "dmfi_univ_target");
    object oArea = GetArea(oUser);
    object oLoop;
    string sAreaTag = GetTag(oArea);
    int iCurrentArea = GetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag);

    switch (iRest)
    {
    //Rest All PCs in the area for DMs, Rest for PCs
    case 7:
        if (GetIsDM(oUser))
        {
            oLoop = GetFirstPC();
            while (GetIsObjectValid(oLoop))
            {
                if (oArea == GetArea(oLoop))
                    ForceRest(oLoop);
                oLoop = GetNextPC();
            }
        }
        else
        {
            SetLocalInt(oUser, "dmfi_r_bypass", TRUE); AssignCommand(oUser, ActionRest());
            SetLocalInt(oUser, "dmfi_r_init", TRUE);
            int iTime = GetTimeSecond() + GetTimeMinute() * 60 + GetTimeHour() * 3600 + GetCalendarDay() * 24 * 3600 + GetCalendarMonth() *3600 * 24 * 28 + GetCalendarYear() * 24 * 28 * 12 * 3600;
            SetLocalInt(oUser, "dmfi_r_startseconds", iTime);
            AssignCommand(oUser, ActionRest());
        } break;
    case 8:
        SetLocalString(oUser, "dmfi_univ_conv", "pc_emote");
        AssignCommand(oUser, ClearAllActions());
        AssignCommand(oUser, ActionStartConversation(OBJECT_SELF, "dmfi_universal", TRUE)); break;
    case 9:
        SetLocalString(oUser, "dmfi_univ_conv", "pc_dicebag");
        AssignCommand(oUser, ClearAllActions());
        AssignCommand(oUser, ActionStartConversation(OBJECT_SELF, "dmfi_universal", TRUE)); break;
    case 11: //Set Unlimited Rest (module): default is ON
        iCurrentMod = iCurrentMod & ~0x00000002; //Remove No Rest, if it exists
        //Toggle the current Unlimited Rest Variable
        ToggleRestVariable(iCurrentMod, 0x00000001, TRUE, "GLOBAL: Unlimited Rest is ", oUser); break;
    case 12: //Set No Rest (module): default is OFF
        iCurrentMod = iCurrentMod | 0x00000001; //Remove Unlimited Rest, if it exists
        //Toggle the current No Rest Variable
        ToggleRestVariable(iCurrentMod, 0x00000002, FALSE, "GLOBAL: No Rest is ", oUser); break;
    case 13: //Limit Rest by Time: default is OFF
        ToggleRestVariable(iCurrentMod, 0x00000004, FALSE, "GLOBAL: Limited Rest - Time is ", oUser); break;
    case 14: //Limit Rest by Placeables: default is OFF
        ToggleRestVariable(iCurrentMod, 0x00000008, FALSE, "GLOBAL: Limited Rest - Placeables is ", oUser); break;
    case 15: //Limit Rest by Armor: default is OFF
        ToggleRestVariable(iCurrentMod, 0x00000010, FALSE, "GLOBAL: Limited Rest - Armor is ", oUser); break;
    case 16: //Limit Hit Points healed from resting: default is OFF
        ToggleRestVariable(iCurrentMod, 0x00000020, FALSE, "GLOBAL: Limit Hit Points is ", oUser); break;
    case 17: //Allow spell memorization: default is ON
        ToggleRestVariable(iCurrentMod, 0x00000040, TRUE, "GLOBAL: Spell Memorization is ", oUser); break;
    case 21: //Set Unlimited Rest (Local)
        if (iCurrentArea & 0x00000080)
            iCurrentMod = iCurrentArea;
        iCurrentMod = iCurrentMod & ~0x00000002; //Remove No Rest, if it exists
        iCurrentMod = iCurrentMod | 0x00000080; //Add Area Override bitflag
        ToggleRestVariable(iCurrentMod, 0x00000001, TRUE, "LOCAL: Unlimited Rest is ", oUser, sAreaTag);
        break;
    case 22: //Set No Rest (module)
        if (iCurrentArea & 0x00000080)
            iCurrentMod = iCurrentArea;
        iCurrentMod = iCurrentMod | 0x00000001; //Remove Unlimited Rest, if it exists
        iCurrentMod = iCurrentMod | 0x00000080; //Add Area Override bitflag
        ToggleRestVariable(iCurrentMod, 0x00000002, FALSE, "LOCAL: No Rest is ", oUser, sAreaTag);
        break;
    case 23: //Limit Rest by Time: default is OFF
        if (iCurrentArea & 0x00000080)
            iCurrentMod = iCurrentArea;
        iCurrentMod = iCurrentMod | 0x00000080; //Add Area Override bitflag
        ToggleRestVariable(iCurrentMod, 0x00000004, FALSE, "LOCAL: Limited Rest - Time is ", oUser, sAreaTag);
        break;
    case 24: //Limit Rest by Placeables: default is OFF
        if (iCurrentArea & 0x00000080)
            iCurrentMod = iCurrentArea;
        iCurrentMod = iCurrentMod | 0x00000080; //Add Area Override bitflag
        ToggleRestVariable(iCurrentMod, 0x00000008, FALSE, "LOCAL: Limited Rest - Placeables is ", oUser, sAreaTag);
        break;
    case 25: //Limit Rest by Armor: default is OFF
        if (iCurrentArea & 0x00000080)
            iCurrentMod = iCurrentArea;
        iCurrentMod = iCurrentMod | 0x00000080; //Add Area Override bitflag
        ToggleRestVariable(iCurrentMod, 0x00000010, FALSE, "LOCAL: Limited Rest - Armor is ", oUser, sAreaTag);
        break;
    case 26: //Limit Hit Points healed from resting: default is OFF
        if (iCurrentArea & 0x00000080)
            iCurrentMod = iCurrentArea;
        iCurrentMod = iCurrentMod | 0x00000080; //Add Area Override bitflag
        ToggleRestVariable(iCurrentMod, 0x00000020, FALSE, "LOCAL: Limit Hit Points is ", oUser, sAreaTag);
        break;
    case 27: //Allow spell memorization: default is ON
        if (iCurrentArea & 0x00000080)
            iCurrentMod = iCurrentArea;
        iCurrentMod = iCurrentMod | 0x00000080; //Add Area Override bitflag
        ToggleRestVariable(iCurrentMod, 0x00000040, FALSE, "LOCAL: Spell Restriction is ", oUser, sAreaTag);
        break;
    case 28: //Reset area to module defaults
        FloatingTextStringOnCreature("Area set to module defaults", oUser, FALSE);
        SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, 0x00000000);
        break;
    case 31: //Set Time Limit to 1 game hour per day
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Time Limit set to 1 game hour per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00000100);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Time Limit set to 1 game hour per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00000100);
        } break;
    case 32: //Set Time Limit to 2 game hours per day
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Time Limit set to 2 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00000200);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Time Limit set to 2 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00000200);
        } break;
    case 33: //Set Time Limit to 4 game hours per day
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Time Limit set to 4 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00000300);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Time Limit set to 4 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00000300);
        } break;
    case 34: //Set Time Limit to 6 game hours per day
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Time Limit set to 6 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00000400);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Time Limit set to 6 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00000400);
        } break;
    case 35: //Set Time Limit to 8 game hours per day
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Time Limit set to 8 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00000500);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Time Limit set to 8 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00000500);
        }    break;
    case 36: //Set Time Limit to 12 game hours per day
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Time Limit set to 12 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00000600);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Time Limit set to 12 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00000600);
        }   break;
    case 37: //Set Time Limit to 24 game hours per day
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Time Limit set to 24 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00000700);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00000f00; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Time Limit set to 24 game hours per rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00000700);
        }
    case 41: //Toggle placeable flag: DMFI Placeables (tag = dmfi_rest), by default ON
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00001000, TRUE, "LOCAL: DMFI Placeables are ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00001000, TRUE, "GLOBAL: DMFI Placeables are ", oUser);
        break;
    case 42: //Toggle placeable flag: Campfires
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00002000, FALSE, "LOCAL: Campfire Placeables are ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00002000, FALSE, "GLOBAL: Campfire Placeables are ", oUser);
        break;
    case 43: //Toggle placeable flag: Bed Rolls
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00004000, FALSE, "LOCAL: Bed Roll Placeables are ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00004000, FALSE, "GLOBAL: Bed Roll Placeables are ", oUser);
        break;
    case 44: //Toggle placeable flag: Beds
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00008000, FALSE, "LOCAL: Bed Placeables are ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00008000, FALSE, "GLOBAL: Bed Placeables are ", oUser);
        break;
    case 45: //Toggle placeable flag: Tents
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00010000, FALSE, "LOCAL: Tent Placeables are ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00010000, FALSE, "GLOBAL: Tent Placeables are ", oUser);
        break;
    case 46: //Toggle placeable flag: Ignore Druids
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00020000, FALSE, "LOCAL: Ignore Druids for Placeable Checks is ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00020000, FALSE, "GLOBAL: Ignore Druids for Placeable Checks is ", oUser);
        break;
    case 47: //Toggle placeable flag: Ignore Rangers
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00040000, FALSE, "LOCAL: Ignore Rangers for Placeable Checks is ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00040000, FALSE, "GLOBAL: Ignore Rangers for Placeable Checks is ", oUser);
        break;
    case 48: //Toggle placeable flag: Ignore Barbarians
        if (iCurrentArea & 0x00000080)
            ToggleRestVariable(iCurrentArea, 0x00080000, FALSE, "LOCAL: Ignore Barbarians for Placeable Checks is ", oUser, sAreaTag);
        else
            ToggleRestVariable(iCurrentMod, 0x00080000, FALSE, "GLOBAL: Ignore Barbarians for Placeable Checks is ", oUser);
        break;
    case 51: //Set Armor Weight Restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Armor Restriction set to 2 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00100000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Armor Restriction set to 2 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00100000);
        }    break;
    case 52: //Set Armor Weight Restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Armor Restriction set to 6 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00200000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Armor Restriction set to 6 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00200000);
        }    break;
    case 53: //Set Armor Weight Restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Armor Restriction set to 11 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00300000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Armor Restriction set to 11 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00300000);
        } break;
    case 54: //Set Armor Weight Restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Armor Restriction set to 16 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00400000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Armor Restriction set to 16 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00400000);
        } break;
    case 55: //Set Armor Weight Restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Armor Restriction set to 31 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00500000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Armor Restriction set to 31 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00500000);
        }    break;
    case 56: //Set Armor Weight Restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Armor Restriction set to 41 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00600000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Armor Restriction set to 41 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00600000);
        } break;
    case 57: //Set Armor Weight Restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: Armor Restriction set to 46 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x00700000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x00f00000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: Armor Restriction set to 46 pounds", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x00700000);
        } break;
    case 61: //Set Hit Point restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: No hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x01000000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: No hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x01000000);
        }    break;
    case 62: //Set Hit Point restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: 1 hitpoint/level regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x02000000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: 1 hitpoint/level regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x02000000);
        }    break;
    case 63: //Set Hit Point restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: (CON) hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x03000000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: (CON) hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x03000000);
        }    break;
    case 64: //Set Hit Point restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: 10 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x04000000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: 10 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x04000000);
        } break;
    case 65: //Set Hit Point restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: 25 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x05000000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: 25 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x05000000);
        } break;
    case 66: //Set Hit Point restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: 50 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea | 0x06000000);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: 50 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod | 0x06000000);
        } break;
    case 67: //Set Hit Point restrictions
        if (iCurrentArea & 0x00000080)
        {
            iCurrentArea = iCurrentArea & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("LOCAL: 100 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_" + sAreaTag, iCurrentArea);
        }
        else
        {
            iCurrentMod = iCurrentMod & ~0x0f000000; //Erase current setting
            FloatingTextStringOnCreature("GLOBAL: 100 percent of hitpoints regained on rest", oUser, FALSE);
            SetDMFIPersistentInt("dmfi", "dmfi_r_", iCurrentMod);
        } break;
    case 101: //Use Rest Conversation Toggle
        if (GetIsDM(oUser))
            ToggleRestVariable(iCurrentMod, 0x10000000, TRUE, "GLOBAL: Rest Conversation is ", oUser);
        else
        {
            SetLocalInt(oUser, "dmfi_r_alternate", ANIMATION_LOOPING_MEDITATE); SetLocalInt(oUser, "dmfi_r_bypass", TRUE); AssignCommand(oUser, ActionRest());
        } break;
    case 102: //Use Rest VFX
        if (GetIsDM(oUser))
            ToggleRestVariable(iCurrentMod, 0x20000000, TRUE, "GLOBAL: Rest VFX are ", oUser);
        else
        {
            SetLocalInt(oUser, "dmfi_r_alternate", ANIMATION_LOOPING_DEAD_FRONT); SetLocalInt(oUser, "dmfi_r_bypass", TRUE); AssignCommand(oUser, ActionRest());
        } break;
    case 103: //Floating Text Feedback
        if (GetIsDM(oUser))
            ToggleRestVariable(iCurrentMod, 0x40000000, TRUE, "GLOBAL: Floating Text Feedback is ", oUser);
        else
        {
            SetLocalInt(oUser, "dmfi_r_alternate", ANIMATION_LOOPING_DEAD_BACK); SetLocalInt(oUser, "dmfi_r_bypass", TRUE); AssignCommand(oUser, ActionRest());
        } break;
    case 104: //Immobilized Resting
        if (GetIsDM(oUser))
            ToggleRestVariable(iCurrentMod, 0x80000000, TRUE, "GLOBAL: Immobile resting is ", oUser);
        else
        {
            SetLocalInt(oUser, "dmfi_r_alternate", ANIMATION_LOOPING_WORSHIP); SetLocalInt(oUser, "dmfi_r_bypass", TRUE); AssignCommand(oUser, ActionRest());
        } break;
    case 108: //All PCs in Area are Rested
        break;
    case 109: //All PCs are Rested
        oLoop = GetFirstPC();
        while (GetIsObjectValid(oLoop))
        {
            ForceRest(oLoop);
            oLoop = GetNextPC();
        }
        break;
    }
}

////////////////////////////////////////////////////////////////////////
void main()
{
    string sDMFI = GetLocalString(OBJECT_SELF, "dmfi_univ_conv");
    int iDMFI = GetLocalInt(OBJECT_SELF, "dmfi_univ_int");
    location lDMFI = GetLocalLocation(OBJECT_SELF, "dmfi_univ_location");
    if (sDMFI == "emote" || sDMFI == "pc_emote")
        DoEmoteFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "fx")
        CreateEffects(iDMFI, lDMFI, OBJECT_SELF);
    else if (sDMFI == "encounter")
        CreateEncounter(iDMFI, lDMFI, OBJECT_SELF);
    else if (sDMFI == "music")
        DoMusicFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "xp")
        DoXPFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "server")
        dmwand_DoDialogChoice(iDMFI);
    else if (sDMFI == "afflict")
        DoAfflictFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "voice")
        DoVoiceFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "sound")
        DoSoundFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "onering")
        DoOneRingFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "dicebag")
        DoDMDiceBagFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "pc_dicebag")
        DoDiceBagFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "faction")
        DoControlFunction(iDMFI, OBJECT_SELF);
    else if (sDMFI == "dmw")
        DoNewDMThingy(iDMFI, OBJECT_SELF);
    else if (sDMFI == "buff")
        DoBuff(iDMFI, OBJECT_SELF);
    else if (sDMFI == "rest")
        DoRestFunction(iDMFI, OBJECT_SELF);

    DeleteLocalInt(OBJECT_SELF,"Tens");
}