establish_bactrian_supremacy_effect

establish_bactrian_supremacy_effect = {
	#Create the title and make it primary
	create_title_and_vassal_change = {
		type = created
		save_scope_as = title_change
		add_claim_on_loss = no
	}
	title:e_bactria = {
		change_title_holder = {
			holder = root
			change = scope:title_change
		}
	}
	resolve_title_and_vassal_change = scope:title_change
	set_primary_title_to = title:e_bactria

	title:c_balkh = {
		add_county_modifier = {
			modifier = bactria_royal_tolls_modifier
		}
	}

	hidden_effect = {
		every_held_title = {
			title_tier = empire
			limit = {
				NOT = { this = title:e_bactria }
			}
			every_in_de_jure_hierarchy = {
				continue = {
					tier >= tier_kingdom
				}
				limit = {
					tier = tier_kingdom
					OR = {
						holder = root
						holder = { target_is_liege_or_above = root }
					}
					NOT = { is_in_list = new_de_jure_kingdoms }
				}
				add_to_list = new_de_jure_kingdoms
			}
			add_to_list = empire_for_destruction
		}

		every_held_title = {
			title_tier = kingdom
			limit = {
				NOT = { is_in_list = new_de_jure_kingdoms }
			}
			add_to_list = new_de_jure_kingdoms
		}

		title:k_kabulistan = {
			if = {
				limit = {
					NOT = { is_in_list = new_de_jure_kingdoms }
				}
				add_to_list = new_de_jure_kingdoms
			}
		}
		title:k_khorasan = {
			if = {
				limit = {
					NOT = { is_in_list = new_de_jure_kingdoms }
				}
				add_to_list = new_de_jure_kingdoms
			}
		}
		title:k_transoxiana = {
			if = {
				limit = {
					NOT = { is_in_list = new_de_jure_kingdoms }
				}
				add_to_list = new_de_jure_kingdoms
			}
		}
		every_in_list = {
			list = new_de_jure_kingdoms
			limit = {
				trigger_if = {
					limit = {
						exists = this
						root = { is_ai = yes }
						exists = holder
					}
					NOR = {
						holder.top_liege = { is_ai = no }
						holder = { is_ai = no }
					}
				}
			}
			set_de_jure_liege_title = title:e_bactria
		}
		every_in_list = {
			list = empire_for_destruction
			limit = {
				NOT = { this = title:e_bactria } #Just a little safeguarding
			}
			root = {
				destroy_title = prev
			}
		}

		#Notifications for characters who hold land that is now claimed
		title:e_bactria = {
			every_in_de_jure_hierarchy = {
				continue = {
					tier >= tier_duchy
				}
				limit = {
					holder ?= {
						NOR = {
							this = root
							target_is_liege_or_above = root
						}
					}
				}
				holder = {
					if = {

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