Earth Origin slight Compatability

# change species to have Earth homeworld
# Scope: Country
make_earth_this_species_home = {
	#find Earth
	random_system = {
		limit = { has_star_flag = sol }
		random_system_planet = {
			limit = {
				OR = {
					AND = {
						has_planet_flag = planet_earth
						is_colonizable = yes
					}
					AND = {
						has_planet_flag = planet_earth
						is_homeworld = yes
					}
				}
			}
			save_event_target_as = origins_earth_home
			if = { limit = { has_owner = yes }
				prevprev = { set_country_flag = earth_is_owned }
				owner = {
					set_country_flag = origins_earth_owner
					set_country_flag = colony_home_empire
					owner_species = { save_event_target_as = origins_earth_owner }
				}
			}
		}
	}
	random_owned_pop = {
		limit = { is_same_species = owner_species }
		species = {
			set_species_homeworld = event_target:origins_earth_home
			if = { limit = { prevprev = { has_country_flag = earth_is_owned } }
				prevprev = { remove_country_flag = earth_is_owned  }
				set_species_identity = event_target:origins_earth_owner
			}
			save_event_target_as = earth_colony_species
		}
	}
	every_owned_pop = {
		limit = { is_same_species = owner_species }
		change_species = event_target:earth_colony_species
	}
	every_owned_leader = {
		limit = { is_same_species = owner_species }
		change_species = event_target:earth_colony_species
	}
	every_pool_leader = {
		limit = { is_same_species = owner_species }
		change_species = event_target:earth_colony_species
	}
	set_country_flag = country_homeworld_created
	change_dominant_species = { species = event_target:earth_colony_species }
}