
;This thing doesn't reset players' stats after lowering them!
GoTo END

Rand = Random(1,8)
Str = GetUserStrengthBonus(#USERID)
End = GetUserEnduranceBonus(#USERID)
Wis = GetUserWisdomBonus(#USERID)
Agi = GetUserAgilityBonus(#USERID)
ID = #USERID

If Rand = 1
	sendmessagetouser(#USERID, "A dread curse has befallen you!", #MSG_CRITICAL)
	SetUserStrengthBonus(#USERID, GetUserStrengthBonus(#USERID) -10)
	SetUserEnduranceBonus(#USERID, GetUserEnduranceBonus(#USERID) -10)
	SetUserWisdomBonus(#USERID, GetUserWisdomBonus(#USERID) -5)
	SetUserAgilityBonus(#USERID, GetUserAgilityBonus(#USERID) -15)
	Timer5(630, 20000, Str, End, Wis, Agil, ID)
EndIf

Label END

Continue = 1