; Golden Item Unequip
SetAmount=0
Amount="pieces"
Weapon=0
Armor=0
Helmet=0
Shield=0

If GetUserEquippedWeapon(#USERID)<>-1
Weapon=GetUserInvItem(#USERID,GetUserEquippedWeapon(#USERID))
Endif

If GetUserEquippedArmor(#USERID)<>-1
Armor=GetUserInvItem(#USERID,GetUserEquippedArmor(#USERID))
Endif

If GetUserEquippedHelmet(#USERID)<>-1
Helmet=GetUserInvItem(#USERID,GetUserEquippedHelmet(#USERID))
Endif

If GetUserEquippedAccessory(#USERID)<>-1
Shield=GetUserInvItem(#USERID,GetUserEquippedAccessory(#USERID))
Endif

If Weapon=18
SetAmount=SetAmount+1
Endif

If Armor=17
SetAmount=SetAmount+1
Endif

If Helmet=70
SetAmount=SetAmount+1
Endif

If Shield=71
SetAmount=SetAmount+1
Endif

If SetAmount=1
Amount="piece"
Endif

SendMessageToUser(#USERID,"You have "+SetAmount+" "+Amount+" of the Golden set equipped.", #MSG_EMOTE)

If SetAmount>2
;SetUserStrengthBonus(#USERID,GetUserStrengthBonus(#USERID)-5)
;SetUserEnduranceBonus(#USERID,GetUserEnduranceBonus(#USERID)-5)
;SetUserWisdomBonus(#USERID,GetUserWisdomBonus(#USERID)-5)
;SetUserAgilityBonus(#USERID,GetUserAgilityBonus(#USERID)-5)
SendMessageToUser(#USERID,"You no longer have the full Golden set equipped.", #MSG_SERVER)
Endif

Continue = 1
