//Remove All Effects of the Crown (EXCEPT DON'T REMOVE HASTE)

void Clear(object oPC)
{
        effect eVisual = EffectVisualEffect(VFX_IMP_RESTORATION);

        effect eBad = GetFirstEffect(oPC);

        //Search for negative effects
        while(GetIsEffectValid(eBad))
        {
             if (GetEffectType(eBad) != EFFECT_TYPE_HASTE)
                {
                    //Remove effect if it is negative.
                    RemoveEffect(oPC, eBad);
                }
            eBad = GetNextEffect(oPC);
        }

}

void main()
{
    object oPC = GetPCItemLastUnequippedBy();

    Clear(oPC);
    FloatingTextStringOnCreature("You will need to unequip and equipt all your gear!", oPC);
}