#include "prc_x2_itemprop"
#include "nw_i0_tool"

string AddEffectToItem(object oPC, object oItem, string sTag,itemproperty ip, int iGold);

void main()
{
int iFlag;
int iGoldCost;
int iItemPosition;
int iRandom;
int iX;
int iY;
string sTag;
string sMessage;
object oPC;
object oItem;
itemproperty ip;

iFlag = 0;
sMessage = "";

oPC = GetPCSpeaker();

sTag = "NW_IT_MSMLMISC19";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iItemPosition = INVENTORY_SLOT_RIGHTRING;
    oItem = GetItemInSlot(iItemPosition,oPC);
    iGoldCost = 100;
    ip = ItemPropertyLight(IP_CONST_LIGHTBRIGHTNESS_NORMAL,IP_CONST_LIGHTCOLOR_GREEN);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);

    }

sTag = "en4_mheart";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;
    oItem = GetItemInSlot(iItemPosition,oPC);
    iX = IPGetWeaponEnhancementBonus(oItem);
    iGoldCost = 3000 * iX;
    if (iX<6)
        {
        ip = ItemPropertyEnhancementBonus(iX+1);
        sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
        }
    }

sTag = "en4_mheart";
if (HasItem(oPC,sTag) && GetLevelByClass(CLASS_TYPE_MONK,oPC)>0)
    {
    iFlag = 1;
    iGoldCost = 5000;
    iItemPosition = INVENTORY_SLOT_ARMS;
    oItem = GetItemInSlot(iItemPosition,oPC);
    ip = ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_SONIC,IP_CONST_DAMAGEBONUS_1d8);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en4_ostinger";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;
    oItem = GetItemInSlot(iItemPosition,oPC);
    iX = IPGetWeaponEnhancementBonus(oItem);
    iGoldCost = 2000 * iX;
    if (iX<4)
        {
        ip = ItemPropertyEnhancementBonus(iX+1);
        sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
        }
    }

sTag = "en4_ostinger";
if (HasItem(oPC,sTag) && GetLevelByClass(CLASS_TYPE_MONK,oPC)>0)
    {
    iFlag = 1;
    iGoldCost = 3000;
    iItemPosition = INVENTORY_SLOT_ARMS;
    oItem = GetItemInSlot(iItemPosition,oPC);
    ip = ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_SONIC,IP_CONST_DAMAGEBONUS_1d4);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en4_bargskin";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;
    oItem = GetItemInSlot(iItemPosition,oPC);
    iX = IPGetWeaponEnhancementBonus(oItem);
    iGoldCost = 1000 * iX;
    if (iX<2)
        {
        ip = ItemPropertyEnhancementBonus(iX+1);
        sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
        }
    }

sTag = "en4_bargskin";
if (HasItem(oPC,sTag) && GetLevelByClass(CLASS_TYPE_MONK,oPC)>0)
    {
    iFlag = 1;
    iGoldCost = 1000;
    iItemPosition = INVENTORY_SLOT_ARMS;
    oItem = GetItemInSlot(iItemPosition,oPC);
    ip = ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_SONIC,IP_CONST_DAMAGEBONUS_2);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }


sTag = "en4_licheye";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 50000;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;
    oItem = GetItemInSlot(iItemPosition,oPC);
    ip = ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_VAMPIRIC_TOUCH,20);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en4_licheye";
if (HasItem(oPC,sTag) && GetLevelByClass(CLASS_TYPE_MONK,oPC)>0)
    {
    iFlag = 1;
    iGoldCost = 50000;
    iItemPosition = INVENTORY_SLOT_ARMS;
    oItem = GetItemInSlot(iItemPosition,oPC);
    ip = ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_VAMPIRIC_TOUCH,20);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en4_lichdust";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;
    oItem = GetItemInSlot(iItemPosition,oPC);
    iX = IPGetWeaponEnhancementBonus(oItem);
    iGoldCost = 4000 * iX;
    if (iX<10)
        {
        ip = ItemPropertyEnhancementBonus(iX+1);
        sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
        }
    }

sTag = "en4_lichdust";
if (HasItem(oPC,sTag) && GetLevelByClass(CLASS_TYPE_MONK,oPC)>0)
    {
    iFlag = 1;
    iGoldCost = 15000;
    iItemPosition = INVENTORY_SLOT_ARMS;
    oItem = GetItemInSlot(iItemPosition,oPC);
    ip = ItemPropertyDamageBonus(IP_CONST_DAMAGETYPE_COLD,IP_CONST_DAMAGEBONUS_1d10);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_demonhide";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 5000;
    iItemPosition = INVENTORY_SLOT_CHEST;
    ip = ItemPropertyDamageReduction(IP_CONST_DAMAGEREDUCTION_2,IP_CONST_DAMAGESOAK_10_HP);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "NW_IT_MSMLMISC14";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 1000;
    iItemPosition = INVENTORY_SLOT_HEAD;
    ip = ItemPropertyDamageReduction(IP_CONST_DAMAGEREDUCTION_2,IP_CONST_DAMAGESOAK_5_HP);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "NW_IT_MSMLMISC09";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 2500;
    iItemPosition = INVENTORY_SLOT_RIGHTRING;
    ip = ItemPropertyBonusSpellResistance(IP_CONST_SPELLRESISTANCEBONUS_16);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "NW_IT_MSMLMISC10";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 1000;
    iItemPosition = INVENTORY_SLOT_BELT;
    ip = ItemPropertyACBonus(2);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_salskin";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 2000;
    iItemPosition = INVENTORY_SLOT_LEFTHAND;
    ip = ItemPropertyDamageResistance(IP_CONST_DAMAGETYPE_FIRE,IP_CONST_DAMAGERESIST_10);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_rscale";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 1000;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;
    ip = ItemPropertyKeen();
    oItem = GetItemInSlot(iItemPosition,oPC);
    if (!GetIsObjectValid(oItem) && GetLevelByClass(CLASS_TYPE_MONK, oPC) >= 1)
        oItem = GetItemInSlot(INVENTORY_SLOT_ARMS,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_bbvsack";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 3000;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;
    ip = ItemPropertyOnHitProps(IP_CONST_ONHIT_BLINDNESS,IP_CONST_ONHIT_SAVEDC_18,IP_CONST_ONHIT_DURATION_25_PERCENT_3_ROUNDS);
    oItem = GetItemInSlot(iItemPosition,oPC);
    if (!GetIsObjectValid(oItem) && GetLevelByClass(CLASS_TYPE_MONK, oPC) >= 1)
        oItem = GetItemInSlot(INVENTORY_SLOT_ARMS,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_igtongue";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 500;
    iItemPosition = INVENTORY_SLOT_BOOTS;
    ip = ItemPropertyDamageImmunity(IP_CONST_DAMAGETYPE_COLD,IP_CONST_DAMAGEIMMUNITY_50_PERCENT);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_wessence";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 5000;
    iItemPosition = INVENTORY_SLOT_RIGHTRING;
    ip=ItemPropertyImmunityMisc(IP_CONST_IMMUNITYMISC_DEATH_MAGIC);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_ceye";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 1000;
    iItemPosition = INVENTORY_SLOT_RIGHTRING;
    ip=ItemPropertyAbilityBonus(IP_CONST_ABILITY_STR,Random(4)+1);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_ftooth";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 500;
    iItemPosition = INVENTORY_SLOT_NECK;
    ip = ItemPropertyDamageReduction(IP_CONST_DAMAGEREDUCTION_1,IP_CONST_DAMAGESOAK_5_HP);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "NW_IT_MSMLMISC06";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 2500;
    iItemPosition = INVENTORY_SLOT_NECK;
    ip = ItemPropertyBonusSavingThrowVsX(IP_CONST_SAVEVS_DEATH,Random(4)+1);
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "NW_IT_MSMLMISC17";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 10000;
    iItemPosition = INVENTORY_SLOT_RIGHTHAND;

    iRandom = Random(4)+1;
    switch (iRandom)
        {
        case 1: iX = IP_CONST_DAMAGETYPE_ACID; break;
        case 2: iX = IP_CONST_DAMAGETYPE_COLD; break;
        case 3: iX = IP_CONST_DAMAGETYPE_ELECTRICAL; break;
        case 4: iX = IP_CONST_DAMAGETYPE_FIRE; break;
        }

    iRandom = Random(3)+1;
    switch (iRandom)
        {
        case 1: iY = IP_CONST_DAMAGEBONUS_1d4; break;
        case 2: iY = IP_CONST_DAMAGEBONUS_1d6; break;
        case 3: iY = IP_CONST_DAMAGEBONUS_1d8; break;
        }
    ip = ItemPropertyDamageBonus(iX,iY);
    oItem = GetItemInSlot(iItemPosition,oPC);
    if (!GetIsObjectValid(oItem) && GetLevelByClass(CLASS_TYPE_MONK, oPC) >= 1)
        oItem = GetItemInSlot(INVENTORY_SLOT_ARMS,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

sTag = "en3_beye";
if (HasItem(oPC,sTag))
    {
    iFlag = 1;
    iGoldCost = 15000;
    iItemPosition = INVENTORY_SLOT_RIGHTRING;
    iRandom = Random(10)+1;
    switch (iRandom)
        {
        case 1: ip = ItemPropertyBonusSpellResistance(IP_CONST_SPELLRESISTANCEBONUS_20); break;
        case 2: ip = ItemPropertyFreeAction(); break;
        case 3: ip = ItemPropertyHaste(); break;
        case 4: ip = ItemPropertyRegeneration(Random(4)+2); break;
        case 5: ip = ItemPropertyImmunityMisc(IP_CONST_IMMUNITYMISC_FEAR); break;
        case 6: ip = ItemPropertyImmunityMisc(IP_CONST_IMMUNITYMISC_MINDSPELLS); break;
        case 7: ip = ItemPropertyImmunityToSpellLevel(Random(4)+1); break;
        case 8: ip = ItemPropertyCastSpell(IP_CONST_CASTSPELL_FLESH_TO_STONE_5,IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY); break;
        case 9: ip = ItemPropertyCastSpell(IP_CONST_CASTSPELL_STONESKIN_7,IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY); break;
        case 10: ip = ItemPropertyCastSpell(IP_CONST_CASTSPELL_PRISMATIC_SPRAY_13,IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY); break;
        }
    oItem = GetItemInSlot(iItemPosition,oPC);
    sMessage = sMessage + AddEffectToItem(oPC,oItem,sTag,ip,iGoldCost);
    }

if (iFlag == 0)
    sMessage = "You have no items found that I could use.";

SpeakString(sMessage);
}

string AddEffectToItem(object oPC, object oItem, string sTag,itemproperty ip, int iGoldCost)
{
int iGold;
string sMessage;
object oItemToTake;

iGold = GetGold(oPC);

if (GetIsObjectValid(oItem))
    {
    if (iGoldCost <= iGold)
        {
        TakeGoldFromCreature(iGoldCost,oPC);
        oItemToTake = GetItemPossessedBy(oPC, sTag);
        if(GetIsObjectValid(oItemToTake) != 0)
            DestroyObject(oItemToTake);

        IPSafeAddItemProperty(oItem,ip);
        sMessage = "Effect added to " + GetName(oItem) + ".  ";
        } else {
        sMessage = "It will take " + IntToString(iGoldCost) + " gold to use the " + GetName(GetItemPossessedBy(oPC, sTag)) + ".  ";
        }
    } else {
        sMessage = "You lack the right item for the " + GetName(GetItemPossessedBy(oPC, sTag)) + ".  ";
    }

return sMessage;
}