demand_concubine_interaction_on_accept_effect

demand_concubine_interaction_on_accept_effect = {
	if = {
		limit = {
			scope:actor = {
				has_opinion_modifier = {
					target = scope:recipient
					modifier = offer_concubine_opinion
				}
			}
			scope:recipient = { is_ai = no }
		}
		custom_tooltip = ALREADY_OFFERED_CONCUBINE_WARNING
	}

	scope:secondary_actor = {
		save_scope_as = concubine_victim
		trigger_event = marriage_interaction.0040
		if = {
			# Victim is angry for being forced into concubinage.
			limit = {
				is_imprisoned = yes
			}
			add_character_flag = {
				flag = block_release_from_prison_event
				days = 3
			}
			release_from_prison = yes
			add_opinion = {
				target = scope:actor
				modifier = forced_me_concubine_marriage_opinion
			}
		}
		
		# Family members of victim are also angry that you've forced them into concubinage.
		every_close_family_member = {
			if = {
				limit = { 
					NOT = { this = scope:actor } # Don't hate yourself.
				}
				add_opinion = {
					target = scope:actor
					modifier = forced_family_concubine_marriage_opinion
				}
				hidden_effect = {
					send_interface_message = {
						type = msg_family_became_concubine
						title = msg_close_family_member_taken_as_concubine_title
						right_icon = scope:actor
						left_icon = scope:secondary_actor
						show_as_tooltip = { scope:actor = { make_concubine = scope:secondary_actor } }
					}
				}

				# Family members are even *more* angry if they don't believe in concubines/polyamory (different from polygamy). Also if they don't accept same-sex relationships
				if = {
					limit = { 
						OR = {
							NOT = { rite = { rite_has_doctrine = doctrine_concubines } }
							NOT = { rite = { rite_has_tenet = tenet_polyamory } }
							AND = {
								allowed_to_marry_same_sex_trigger = no
								scope:actor = { sex_same_as = scope:secondary_actor }
							}
						}
					}
					add_opinion = {
						target = scope:actor
						modifier = relative_in_blasphemous_union_opinion
					}
				}
			}
		}
				
		# Spouses, if any exist, are also furious.
		if = {
			limit = {
				is_married = yes
				#A check to make sure you haven't somehow married them during the consideration time
				NOT = { any_spouse = { this = scope:actor } }
			}
			every_spouse = {
				if = {
					limit = {
						NOT = {
							this = scope:actor
						}
					}
					add_opinion = {
						target = scope:actor
						modifier = forced_spouse_concubine_marriage_opinion
					}
				}
				divorce = scope:secondary_actor # no additional opinion hit, no scripted effect
				save_scope_value_as = { # For tooltips in the coming event
					name = was_spouse
					value = yes
				}
			}
		}
				
		# Stealing concubines pisses the former concubinist off.
		if = {
			limit = {
				is_concubine = yes
				#A check to make sure you haven't somehow gotten them as concubine during the consideration time
				NOT = { any_consort = { this = scope:actor } }
			}
			this.concubinist = {
				if = {
					limit = {
						NOT = {
							this = scope:actor
						}
					}
					add_opinion = {
						target = scope:actor
						modifier = stole_concubine_opinion
					}
				}
				remove_concubine = scope:secondary_actor # no additional opinion hit, no scripted effect

As written in game/common/scripted_effects/00_marriage_interaction_effects.txt.