
If GetUserSprite(#USERID)<>5

If GetUserHP(#USERID)<Floor(GetUserMaxHP(#USERID)/10+1)
	SendMessageToUser(#USERID,"You have mutated...", #MSG_CRITICAL)
	SetUserSprite(#USERID,5)
Endif

DamageUser(#USERID,GetUserMaxHP(#USERID)/10)

Endif

Continue = 1