should_be_naked_trigger

should_be_naked_trigger = {
	# Character must be an adult.
	exists = this
	is_adult = yes
	# Character must have a valid reasion to be naked.
	OR = {
		has_character_modifier = diplomacy_majesty_4090_no_raiment_modifier # Lunatic event where character goes naked instead of buying new clothes.
		has_character_modifier = natural_primitivism_court_naturism_modifier
		has_character_flag = is_naked # Special flag used in certain events.
		rite = { rite_has_parameter = naked_adherents_active }
		culture = { has_cultural_parameter = naked_culture_active }
		trigger_if = {
			limit = {
				rite = { rite_has_parameter = naked_priests_active }
			}
			OR = {
				government_has_flag = government_is_theocracy
				has_council_position = councillor_court_chaplain
				has_trait = devoted
				has_trait = zealous
				ai_zeal >= 50
			}
		}
	}
}

As written in game/common/scripted_triggers/00_clothing_triggers.txt.