If GetUserFlag(#USERID,7)<>2
	;If Random(1,20)=1
		If GetMapType(GetUserMap(#USERID))=#MAPTYPE_FRIENDLY
			Goto ENDSCRIPT
		Endif 
		SendMessageToUser(#USERID,"You have contracted Blood Fever!", #MSG_CRITICAL)
		SendMessageToUser(#USERID,"You will die soon...", #MSG_CRITICAL)
		SetUserFlag(#USERID,7,1)
		Timer(133,Random(30000,120000),#USERID,0,0)
	;Endif
Endif
Label ENDSCRIPT
Continue = 1