void CheckItem(int iTape, object oPC, object oItem)
{
  itemproperty ipItem = GetFirstItemProperty(oItem);
  while(GetIsItemPropertyValid(ipItem))
  {
    if (iTape ==1)
    if (GetItemPropertyType(ipItem) == ITEM_PROPERTY_IMMUNITY_MISCELLANEOUS)
    {
      if(GetItemPropertySubType(ipItem) == IP_CONST_IMMUNITYMISC_LEVEL_ABIL_DRAIN)
        AssignCommand(oPC, ActionUnequipItem(oItem));
    }
    if (iTape ==2)
    if (GetItemPropertyType(ipItem) == IMMUNITY_TYPE_MOVEMENT_SPEED_DECREASE)
    ipItem = GetNextItemProperty(oItem);
  }
}

void HandleItems(int iTape, object oTarget)
{
    object oItem;
    oItem = GetItemInSlot(INVENTORY_SLOT_ARMS, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_BELT, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_BOOTS, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_CHEST, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_CLOAK, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_HEAD, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_LEFTRING, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_NECK, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget);
    CheckItem(iTape, oTarget, oItem);
    oItem = GetItemInSlot(INVENTORY_SLOT_RIGHTRING, oTarget);
    CheckItem(iTape, oTarget, oItem);
}

void AdvanceDisease(object oEnter)
{
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_HEAD_NATURE), oEnter);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_IMPLOSION), oEnter);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_GAS_EXPLOSION_NATURE), oEnter);

    ApplyEffectToObject(DURATION_TYPE_PERMANENT, SupernaturalEffect( EffectAbilityDecrease(ABILITY_WISDOM, 5)), oEnter);
    ApplyEffectToObject(DURATION_TYPE_PERMANENT, SupernaturalEffect( EffectAbilityDecrease(ABILITY_INTELLIGENCE, 5)), oEnter);

    int Str_Ch;
    int Dex_Ch;
    int Cha_Ch;
    int Con_Ch;
    switch (Random(3))
    {
        case 0: Str_Ch = 0; break;
        case 1: Str_Ch = 3; break;
        case 2: Str_Ch = 5; break;
    }
     switch (Random(3))
    {
        case 0: Dex_Ch = 0; break;
        case 1: Dex_Ch = 3; break;
        case 2: Dex_Ch = 5; break;
    }
     switch (Random(3))
    {
        case 0: Cha_Ch = 0; break;
        case 1: Cha_Ch = 3; break;
        case 2: Cha_Ch = 5; break;
    }
     switch (Random(3))
    {
        case 0: Con_Ch = 0; break;
        case 1: Con_Ch = 3; break;
        case 2: Con_Ch = 5; break;
    }
    ApplyEffectToObject(DURATION_TYPE_PERMANENT, SupernaturalEffect( EffectAbilityDecrease(ABILITY_STRENGTH, Str_Ch)), oEnter);
    ApplyEffectToObject(DURATION_TYPE_PERMANENT, SupernaturalEffect( EffectAbilityDecrease(ABILITY_DEXTERITY, Dex_Ch)), oEnter);
    ApplyEffectToObject(DURATION_TYPE_PERMANENT, SupernaturalEffect( EffectAbilityDecrease(ABILITY_CONSTITUTION, Con_Ch)), oEnter);
    ApplyEffectToObject(DURATION_TYPE_PERMANENT, SupernaturalEffect( EffectAbilityDecrease(ABILITY_CHARISMA, Cha_Ch)), oEnter);

    SetLocalInt (oEnter, "Str_Change", Str_Ch);
    SetLocalInt (oEnter, "Dex_Change", Dex_Ch);
    SetLocalInt (oEnter, "Con_Change", Con_Ch);
    SetLocalInt (oEnter, "Cha_Change", Cha_Ch);
    SetLocalInt (oEnter, "Wis_Change", 5);
    SetLocalInt (oEnter, "Int_Change", 5);
}