("music_set_situation_with_culture",
[
(store_script_param, ":situation", 1),
(assign, ":culture", 0), #no culture
(try_begin),
(call_script, "script_get_closest_center", "p_main_party"),
############## NEW v3.9 - ,
(assign, ":party_no", reg0),
(store_faction_of_party, ":faction_no", ":party_no"),
(faction_get_slot, ":fac_culture", ":faction_no", slot_faction_culture),
(try_begin),
(this_or_next|eq, ":fac_culture", "fac_culture_finnish"),
(eq, ":fac_culture", "fac_culture_baltic"),
(assign, ":culture", mtf_tom_baltic),
(else_try),
(this_or_next|eq, ":fac_culture", "fac_culture_mazovian"),
(this_or_next|eq, ":fac_culture", "fac_culture_serbian"),
(this_or_next|eq, ":fac_culture", "fac_culture_welsh"),
(this_or_next|eq, ":fac_culture", "fac_culture_teutonic"),
(this_or_next|eq, ":fac_culture", "fac_culture_balkan"),
(this_or_next|eq, ":fac_culture", "fac_culture_nordic"),
(this_or_next|eq, ":fac_culture", "fac_culture_italian"),
(this_or_next|eq, ":fac_culture", "fac_culture_gaelic"),
(this_or_next|eq, ":fac_culture", "fac_culture_anatolian_christian"),
(this_or_next|eq, ":fac_culture", "fac_culture_western"),
(this_or_next|eq, ":fac_culture", "fac_culture_templar"),
(this_or_next|eq, ":fac_culture", "fac_culture_hospitaller"),
(this_or_next|eq, ":fac_culture", "fac_culture_antioch"),
(this_or_next|eq, ":fac_culture", "fac_culture_tripoli"),
(this_or_next|eq, ":fac_culture", "fac_culture_ibelin"),
(this_or_next|eq, ":fac_culture", "fac_culture_jerusalem"),
(this_or_next|eq, ":fac_culture", "fac_culture_crusader"),
(eq, ":fac_culture", "fac_culture_player"),
(assign, ":culture", mtf_tom_euro),
(else_try),
(eq, ":fac_culture", "fac_culture_rus"),
(assign, ":culture", mtf_tom_rus),
(else_try),
(this_or_next|eq, ":fac_culture", "fac_culture_marinid"),
(this_or_next|eq, ":fac_culture", "fac_culture_mamluke"),
(this_or_next|eq, ":fac_culture", "fac_culture_andalus"),
(eq, ":fac_culture", "fac_culture_anatolian"),
(assign, ":culture", mtf_tom_saracen),
(else_try),
(this_or_next|eq, ":fac_culture", "fac_culture_mongol"),
(eq, ":fac_culture", "fac_culture_cuman"),
(assign, ":culture", mtf_tom_mong),
(try_end),
########## chance for mtf_culture_all
(try_begin),
(store_random_in_range, ":random_number", 0, 101),
(gt, ":random_number", 90),
(assign, ":culture", mtf_culture_all),
(try_end),
############################
(try_end),
(music_set_situation, ":situation"),
(music_set_culture, ":culture"),
]),