; Golden Item Equip
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=235
SetAmount=SetAmount+1
Endif

If Armor=232
SetAmount=SetAmount+1
Endif

If Helmet=233
SetAmount=SetAmount+1
Endif

If Shield=234
SetAmount=SetAmount+1
Endif

If SetAmount=1
Amount="piece"
Endif

If SetAmount=4
SetAmount="all"
SetUserSkill(#USERID,30,1)
;SetUserStrengthBonus(#USERID,GetUserStrengthBonus(#USERID)+5)
;SetUserEnduranceBonus(#USERID,GetUserEnduranceBonus(#USERID)+5)
;SetUserWisdomBonus(#USERID,GetUserWisdomBonus(#USERID)+5)
;SetUserAgilityBonus(#USERID,GetUserAgilityBonus(#USERID)+20)
Endif

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

If GetUserSprite(#USERID)<>5
SendMessageToUser(#USERID,"You take "+Floor(GetUserMaxHP(#USERID)/2)+" damage from the radiation!", #MSG_CRITICAL)
If GetUserHP(#USERID)<Floor(GetUserMaxHP(#USERID)/2)+1
	SendMessageToUser(#USERID,"You have mutated!", #MSG_CRITICAL)
	SetUserSprite(#USERID,5)
	DamageUser(#USERID,Floor(GetUserMaxHP(#USERID)/2))
Else
	DamageUser(#USERID,Floor(GetUserMaxHP(#USERID)/2))
Endif
Endif

If SetAmount="all"
;SendMessageToUser(#USERID,"You gain 5 strength. You gain 25 agility.", #MSG_SERVER)
SendMessageToUser(#USERID,"You may now spew chemicals.", #MSG_SERVER)
;SendMessageToUser(#USERID,"You gain 5 endurance.", #MSG_SERVER)
;SendMessageToUser(#USERID,"You gain 5 wisdom.", #MSG_SERVER)
;SendMessageToUser(#USERID,"You gain 5 agility.", #MSG_SERVER)
Endif

Continue = 1