namespace = HFP

# Written by Joachim
# HFP.44000 - HFP.44999

# Knights Hospitaller asks to receive an island
letter_event = {
	id = HFP.44001
	desc = EVTDESC_HFP_44001

	is_triggered_only = yes # check_holy_order_donation_effect

	immediate = {
		d_knights_hospitaller = {
			holder_scope = {
				save_event_target_as = hospitallers
			}
		}
	}

	option = {
		name = EVTOPTA_HFP_44001

		piety = 100
		scaled_wealth = 2

		reverse_opinion = {
			name = opinion_grateful
			who = event_target:hospitallers
			years = 10
		}

		reverse_opinion = {
			name = in_non_aggression_pact
			who = event_target:hospitallers
			years = 10
		}

		custom_tooltip = {
			text = EVTOPTA_HFP_44001_TT

			event_target:potential_title = {
				if = {
					limit = {
						holder_scope = {
							OR = {
								character = ROOT
								is_vassal_or_below_of = ROOT
							}
						}
					}

					if = {
						limit = { real_tier = DUKE }
						destroy_landed_title = THIS
					}
					else = {
						grant_title_no_opinion = event_target:hospitallers
					}
				}

				any_de_jure_vassal_title = {
					limit = {
						holder_scope = {
							OR = {
								character = ROOT
								is_vassal_or_below_of = ROOT
							}
						}
					}

					grant_title_no_opinion = event_target:hospitallers
				}
			}

			event_target:hospitallers = {
				any_demesne_title = {
					limit = {
						trigger_if = {
							limit = { lower_real_tier_than = DUKE }
							NOT = { holding_type = castle }
						}
						trigger_else = {
							NOT = { title = d_knights_hospitaller }
						}
					}

					if = {
						limit = { tier = BARON }

						if = {
							limit = { holding_type = city }

							create_random_steward = {
								random_traits = yes
								dynasty = random
							}
						}
						else = {
							create_random_priest = {
								random_traits = yes
								dynasty = random
							}
						}
					}
					else = {
						create_random_soldier = {
							random_traits = yes
							dynasty = random
						}
					}

					grant_title_no_opinion = new_character
				}
			}

			d_knights_hospitaller = {
				set_name = knights_hospitaller_island_rename
			}

			event_target:potential_title = {
				capital_scope = {
					event_target:hospitallers = {
						if = {
							limit = {
								has_landed_title = PREV
								event_target:potential_title = {
									tier = DUKE
								}
							}
							capital = PREV
						}
						else = {
							capital = event_target:potential_title
						}
					}
				}
			}

			narrative_event = { id = HFP.44004 }

			event_target:hospitallers = {
				character_event = { id = HFP.41090 days = 1 }
				character_event = { id = HFP.41090 days = 3 }
			}
		}
	}

	option = {
		name = EVTOPTB_HFP_44001

		piety = -25
		set_character_flag = refused_to_give_island_to_knights

		ai_chance = { factor = 0 }
	}
}

# Narrative event for the Knights Hospitallers
narrative_event = {
	id = HFP.44004
	title = EVTTITLE_HFP_44004
	desc = EVTDESC_HFP_44004
	picture = GFX_evt_magnificent_castle
	border = GFX_event_narrative_frame_religion

	is_triggered_only = yes
	major = yes

	major_trigger = {
		ai = no
	}

	option = {
		name = EVTOPTA_HFP_44004
	}
}

# Holy Order decides their liege is unfit to rule over them
character_event = {
	id = HFP.44002

	is_triggered_only = yes # on_yearly_pulse
	hide_window = yes

	ai = yes

	trigger = {
		holy_order = yes
		independent = no
	}

	immediate = {
		liege = {
			save_event_target_as = liege_character
		}

		if = {
			limit = {
				OR = {
					opinion = {
						who = liege
						value < -20
					}

					liege = {
						OR = {
							excommunicated_for = ROOT
							NOT = { religion = ROOT }
						}
					}
				}
			}

			opinion = {
				name = opinion_unfit_ruler
				who = event_target:liege_character
				years = 30
			}

			liege = {
				letter_event = { id = HFP.44003 }
			}

			any_demesne_title = {
				limit = {
					holy_order = no

					any_dejure_liege = {
						holder_scope = {
							OR = {
								character = event_target:liege_character

								AND = {
									is_vassal_or_below_of = event_target:liege_character
									NOT = { character = ROOT }
								}
							}
						}
					}
				}

				grant_title_no_opinion = event_target:liege_character
			}

			set_defacto_liege = THIS
		}
	}
}

# Letter informing the previous liege of a Holy Order that the Holy Order has left his / her service
letter_event = {
	id = HFP.44003
	desc = EVTDESC_HFP_44003
	border = GFX_event_letter_frame_religion

	is_triggered_only = yes

	option = {
		name = EVTOPTA_HFP_44003

		piety = -50
	}
}

## The Teutons really want to fight off the infidels
# The Teutons ask for land
letter_event = {
	id = HFP.44006
	desc = EVTDESC_HFP_44006
	border = GFX_event_letter_frame_religion

	is_triggered_only = yes

	immediate = {
		set_global_flag = teutons_asked_for_land

		d_teutonic_order = {
			holder_scope = {
				save_event_target_as = the_hochmeister
			}
		}
	}

	option = {
		name = EVTOPTA_HFP_44006

		piety = 100
		scaled_wealth = 2

		reverse_opinion = {
			name = opinion_grateful
			who = event_target:the_hochmeister
			years = 10
		}

		opinion = {
			name = in_non_aggression_pact
			who = event_target:the_hochmeister
			years = 10
		}

		custom_tooltip = {
			text = EVTOPTA_HFP_44006_TT

			event_target:holy_order_potential_title = {
				# Destroy the Duchy title, if there is any
				if = {
					limit = {
						holder_scope = {
							OR = {
								character = ROOT
								is_vassal_or_below_of = ROOT
							}
						}
					}

					destroy_landed_title = THIS
				}

				# Give the Teutonics all the land you hold in the area
				any_de_jure_vassal_title = {
					limit = {
						holder_scope = {
							OR = {
								character = ROOT
								is_vassal_or_below_of = ROOT
							}
						}
					}

					grant_title_no_opinion = event_target:the_hochmeister
				}
			}

			event_target:the_hochmeister = {
				teutonic_order_upgrade_capital_effect = yes # Upgrade tribal areas into proper feudal areas
				holy_order_distribute_titles_effect = yes # Give out any unfit land (see cities, temples) to new vassals

				# Refilled holdings and remove province penalties
				character_event = { id = HFP.41090 days = 1 }
				character_event = { id = HFP.41090 days = 3 }

				set_government_type = order_government # Making sure they Teutonics stay proper Holy Orderish

				# Sending out narrative event to all Catholic rulers
				if = {
					limit = { num_of_count_titles >= 1 }
					narrative_event = { id = HFP.44007 }
				}
			}
		}
	}

	option = {
		name = EVTOPTB_HFP_44006

		set_character_flag = refused_to_give_land_to_teutonics

		ai_chance = { factor = 0 }
	}

	after = {
		clr_global_flag = teutons_asked_for_land
	}
}

# The Teutonics has gained new land in the North
narrative_event = {
	id = HFP.44007
	title = EVTTITLE_HFP_44007
	desc = EVTDESC_HFP_44007
	picture = GFX_evt_magnificent_castle
	border = GFX_event_narrative_frame_religion
	portrait = event_target:the_hochmeister

	is_triggered_only = yes
	major = yes

	major_trigger = {
		ai = no
	}

	immediate = {
		event_target:holy_order_potential_title = {
			kingdom = {
				save_event_target_as = kingdom_title
			}
		}
	}

	option = {
		name = EVTOPTA_HFP_44007
	}
}

# The Livonian Order dies out
character_event = {
	id = HFP.44008

	is_triggered_only = yes # on_unlanded
	hide_window = yes

	trigger = {
		has_landed_title = d_livonian_order
	}

	immediate = {
		activate_title = {
			title = d_livonian_order
			status = no
		}
	}
}

# The Teutonic State reverts back to the Teutonic Order
character_event = {
	id = HFP.44009

	is_triggered_only = yes # on_unlanded
	hide_window = yes

	trigger = {
		has_landed_title = k_teutonic_state
	}

	immediate = {
		d_teutonic_order = {
			grant_title_no_opinion = ROOT
			copy_title_history = k_teutonic_state
			copy_title_laws = k_teutonic_state
		}

		unsafe_destroy_landed_title = k_teutonic_state

		activate_title = {
			title = k_teutonic_state
			status = no
		}

		narrative_event = { id = HFP.44010 }
	}
}

# Teutonic State turned into Teutonic Order announcement
narrative_event = {
	id = HFP.44010
	title = EVTTITLE_HFP_44010
	desc = EVTDESC_HFP_44010
	picture = GFX_evt_western_knights_byzantine
	border = GFX_event_narrative_frame_religion

	is_triggered_only = yes
	major = yes

	major_trigger = {
		ai = no
	}

	option = {
		name = {
			text = EVTOPTA_HFP_44010
			trigger = { religion = FROM }
		}
		name = {
			text = EVTOPTB_HFP_44010
			trigger = {
				religion_group = FROM
				NOT = { religion = FROM }
			}
		}
		name = {
			text = EVTOPTC_HFP_44010
			trigger = { religion_group = FROM }
		}
	}
}