a lot of stuff, rome corspe pope, other

common/scripted_effects/NEOW_major_decisions_scripted_effects.txt

@@ -1151,4 +1151,138 @@ troy_decision_effect = {
 			set_primary_title_to = title:k_troy
 		}
 	}
-}
+}
+
+NEOW_restore_roman_empire_effect = {
+    save_scope_as = NEOW_roman_founder
+    add_prestige = massive_prestige_gain
+    add_piety = massive_piety_gain
+
+    # Form Vyzantion only when its whole Greek and Turkish heartland has been reunited.
+    # Reuse the existing restoration effect so the same twelve kingdoms, and the
+    # Serbian/Montenegrin optional clauses, become de jure Vyzantine land.
+    if = {
+        limit = {
+            completely_controls = title:e_greece
+            completely_controls = title:e_turkey
+            title:e_NEOW_byzantium = { is_title_created = no }
+        }
+        restore_byzantium_decision_effect = yes
+    }
+
+    create_title_and_vassal_change = {
+        type = created
+        save_scope_as = NEOW_roman_title_change
+        add_claim_on_loss = no
+    }
+    title:h_NEOW_rome = {
+        change_title_holder = {
+            holder = scope:NEOW_roman_founder
+            change = scope:NEOW_roman_title_change
+        }
+        copy_title_history = title:d_claim_rome
+    }
+    resolve_title_and_vassal_change = scope:NEOW_roman_title_change
+
+    # Administrative title Men-at-Arms must follow the new primary title.
+    if = {
+        limit = { government_has_flag = government_is_administrative }
+        every_held_title = {
+            limit = {
+                tier = tier_empire
+                any_title_maa_regiment = { count >= 1 }
+            }
+            transfer_title_maa_ownership = title:h_NEOW_rome
+        }
+    }
+
+    hidden_effect = {
+        set_primary_title_to = title:h_NEOW_rome
+	if = {
+		limit = {
+			exists = title:d_claim_rome
+		}
+		destroy_title = title:d_claim_rome
+	}
+        # Unconditional core of the Roman Hegemony.
+        title:e_nistrenia = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_nistrenia
+            set_definitive_form = no
+        }
+        title:e_italy = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_italy
+            set_definitive_form = no
+        }
+        title:e_yugoslavia = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_yugoslavia
+            set_definitive_form = no
+        }
+        title:e_greece = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_greece
+            set_definitive_form = no
+        }
+
+        if = {
+            limit = { has_title = title:e_NEOW_byzantium }
+            title:e_NEOW_byzantium = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_NEOW_byzantium
+            set_definitive_form = no
+        }
+        }
+
+        # Additional imperial crowns join de jure only when actually held.
+        if = {
+            limit = { has_title = title:e_zapadnorussia }
+            title:e_zapadnorussia = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_zapadnorussia
+            set_definitive_form = no
+        }
+        }
+        if = {
+            limit = { has_title = title:e_iberia }
+            title:e_iberia = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_iberia
+            set_definitive_form = no
+        }
+        }
+        if = {
+            limit = { has_title = title:e_france }
+            title:e_france = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_france
+            set_definitive_form = no
+        }
+        }
+        if = {
+            limit = { has_title = title:e_alps }
+            title:e_alps = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_alps
+            set_definitive_form = no
+        }
+        }
+        if = {
+            limit = { has_title = title:e_britannia }
+            title:e_britannia = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_britannia
+            set_definitive_form = no
+        }
+        }
+        if = {
+            limit = { has_title = title:e_caucasia }
+            title:e_caucasia = {
+            set_de_jure_liege_title = title:h_NEOW_rome
+            set_title_name = NEOW_roman_province_caucasia
+            set_definitive_form = no
+        }
+        }
+    }
+}