[anyone,"lord_talk_ask_marriage_1", [
(assign, "$marriage_candidate", -1),
(try_begin),
(assign, "$marriage_candidate", -1),
(try_for_range, ":lady", kingdom_ladies_begin, kingdom_ladies_end),
(troop_slot_eq, ":lady", slot_troop_spouse, -1),
(troop_slot_eq, ":lady", slot_troop_betrothed, -1),
(call_script, "script_get_kingdom_lady_social_determinants", ":lady"),
(eq, reg0, "$g_talk_troop"),
(call_script, "script_troop_get_family_relation_to_troop", ":lady", "$g_talk_troop"),
(assign, "$marriage_candidate", ":lady"),
(str_store_troop_name, s14, "$marriage_candidate"),
(str_store_string, s15, "str_it_is_our_custom_to_seal_any_such_alliances_with_marriage_and_in_fact_we_have_been_looking_for_a_suitable_groom_for_my_s11_s14"),
(else_try),
(troop_get_type, ":is_female", "trp_player"),
(eq, ":is_female", 0),
(assign, "$marriage_candidate", -1),
(try_for_range, ":lady", kingdom_ladies_begin, kingdom_ladies_end),
(troop_slot_eq, ":lady", slot_troop_spouse, -1),
(troop_slot_eq, ":lady", slot_troop_betrothed, -1),
(call_script, "script_get_kingdom_lady_social_determinants", ":lady"),
(eq, reg0, "$g_talk_troop"),
(call_script, "script_troop_get_family_relation_to_troop", ":lady", "$g_talk_troop"),
(assign, "$marriage_candidate", ":lady"),
(str_store_troop_name, s14, "$marriage_candidate"),
(str_store_string, s15, "str_it_is_our_custom_to_seal_any_such_alliances_with_marriage_and_in_fact_we_have_been_looking_for_a_suitable_groom_for_my_s11_s14"),
(try_end),
(try_end),
(eq, "$marriage_candidate", -1),
],
"It is our custom to seal any such alliances with marriage. Unfortunately, no one in my household is eligible to wed.",
"lord_pretalk",[
]],