are_characters_sensible_and_appropriate_lovers_trigger

are_characters_sensible_and_appropriate_lovers_trigger = {
	$INSTIGATING_LOVER$ = { save_temporary_scope_as = instigating_character }
	$TARGET_OF_LOVE$ = { save_temporary_scope_as = target_of_love }
	
	are_characters_sensible_lovers_trigger = {
		INSTIGATING_LOVER = scope:instigating_character
		TARGET_OF_LOVE = scope:target_of_love
	}
	
	scope:instigating_character = {
		OR = {
			has_trait = lustful
			any_relation = {
				type = lover
				count < 1
			}
		}
		trigger_if = {
			limit = {
				is_clergy = yes
			}
			rite = {
				rite_has_parameter = clergy_can_marry
			}
		}
		trigger_if = {
			limit = {
				is_courtier = yes
				is_close_or_extended_family_of = liege
				has_no_particular_noble_roots_trigger = no
			}
			OR = {
				scope:target_of_love = { has_no_particular_noble_roots_trigger = no }
				is_deviant_trigger = yes
				has_trait = lustful
				trait_compatibility = {
					target = scope:target_of_love
					value >= high_positive_trait_compatibility
				}
			}
		}
		trigger_if = {
			limit = {
				OR = {
					rite = { 
						rite_has_parameter = homosexuality_shunned
					}
					liege.rite ?= {
						rite_has_parameter = homosexuality_shunned
					}
					rite = { 
						rite_has_parameter = homosexuality_illegal
					}
					liege.rite ?= {
						rite_has_parameter = homosexuality_illegal
					}
				}
			}
			NOR = {
				AND = {
					is_female = yes
					scope:target_of_love = { is_female = yes }
				}
				AND = {
					is_male = yes
					scope:target_of_love = { is_male = yes }
				}
			}
		}
	}
	
	scope:target_of_love = {
		OR = {
			has_trait = lustful
			any_relation = {
				type = lover
				count < 1
			}
		}
		trigger_if = {
			limit = {
				is_clergy = yes
			}
			rite = {
				rite_has_parameter = clergy_can_marry
			}
		}
		trigger_if = {
			limit = {
				is_courtier = yes
				is_close_or_extended_family_of = liege
				has_no_particular_noble_roots_trigger = no
			}
			OR = {
				scope:instigating_character = { has_no_particular_noble_roots_trigger = no }
				is_deviant_trigger = yes
				has_trait = lustful
				trait_compatibility = {
					target = scope:instigating_character
					value >= high_positive_trait_compatibility
				}
			}
		}
		trigger_if = {
			limit = {
				OR = {
					rite = { 
						rite_has_parameter = homosexuality_shunned
					}
					liege.rite ?= {
						rite_has_parameter = homosexuality_shunned
					}
					rite = { 
						rite_has_parameter = homosexuality_illegal
					}
					liege.rite ?= {
						rite_has_parameter = homosexuality_illegal
					}
				}
			}

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