# OUTPUT: none
("update_companion_candidates_in_taverns",
[
(try_begin),
(eq, "$cheat_mode", 1),
(display_message, "str_shuffling_companion_locations"),
(try_end),
(try_for_range, ":troop_no", companions_begin, companions_end),
##diplomacy start+ Move this *after* the checks!
# (troop_set_slot, ":troop_no", slot_troop_cur_center, -1),
##diplomacy end+
(troop_slot_eq, ":troop_no", slot_troop_days_on_mission, 0),
(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_inactive),
(neg|troop_slot_ge, ":troop_no", slot_troop_prisoner_of_party, 0),
##diplomacy start+
##
(troop_get_slot, ":town_no", ":troop_no", slot_troop_cur_center),
(try_begin),
(is_between, ":town_no", towns_begin, towns_end),
(party_get_slot, ":town_lord", ":town_no", slot_town_lord),
##zerilius changes begin
##bug fix for red text
(ge, ":town_lord", 0),
##zerilius changes end
(this_or_next|eq, ":town_lord", "trp_player"),
(this_or_next|troop_slot_eq, "trp_player", slot_troop_spouse, ":town_lord"),
(troop_slot_eq, ":town_lord", slot_troop_spouse, "trp_player"),
(else_try),
#Moved from above:
(troop_set_slot, ":troop_no", slot_troop_cur_center, -1),
(try_end),
(neg|troop_slot_ge, ":troop_no", slot_troop_cur_center, 1),
##diplomacy end+
(store_random_in_range, ":town_no", towns_begin, towns_end),
(try_begin),
##diplomacy start+ Remove the "you can't go home again" condition if the player owns the town
(assign, ":veto", 0),
(try_begin),
(store_faction_of_party, ":town_faction", ":town_no"),
(eq, ":town_faction", "fac_player_supporters_faction"),
(else_try),
(party_get_slot, ":town_lord", ":town_no", slot_town_lord),
(ge, ":town_lord", 0),
(this_or_next|eq, ":town_lord", "trp_player"),
(this_or_next|troop_slot_eq, "trp_player", slot_troop_spouse, ":town_lord"),
(troop_slot_eq, ":town_lord", slot_troop_spouse, "trp_player"),
(else_try),
#Native veto:
(this_or_next|troop_slot_eq, ":troop_no", slot_troop_home, ":town_no"),
(troop_slot_eq, ":troop_no", slot_troop_first_encountered, ":town_no"),
(assign, ":veto", 1),
(try_end),
(try_begin),
(eq, ":veto", 0),
[color=red] ##diplomacy end+
(troop_set_slot, "trp_npc1", slot_troop_cur_center, "p_town_18"),
(troop_set_slot, "trp_npc2", slot_troop_cur_center, "p_town_55"),
(troop_set_slot, "trp_npc3", slot_troop_cur_center, "p_town_25"),
(troop_set_slot, "trp_npc4", slot_troop_cur_center, "p_town_47"),
(troop_set_slot, "trp_npc5", slot_troop_cur_center, "p_town_32"),
(troop_set_slot, "trp_npc6", slot_troop_cur_center, "p_town_31"),
(troop_set_slot, "trp_npc7", slot_troop_cur_center, "p_town_3"),
(troop_set_slot, "trp_npc8", slot_troop_cur_center, "p_town_31"),
(troop_set_slot, "trp_npc9", slot_troop_cur_center, "p_town_36"),
(troop_set_slot, "trp_npc10", slot_troop_cur_center, "p_town_19"),
(troop_set_slot, "trp_npc11", slot_troop_cur_center, "p_town_16"),
(troop_set_slot, "trp_npc12", slot_troop_cur_center, "p_town_6"),
(troop_set_slot, "trp_npc13", slot_troop_cur_center, "p_town_32"),
(troop_set_slot, "trp_npc14", slot_troop_cur_center, "p_town_12"),
(troop_set_slot, "trp_npc15", slot_troop_cur_center, "p_town_17"),
(troop_set_slot, "trp_npc16", slot_troop_cur_center, "p_town_8"),
(troop_set_slot, "trp_npc17", slot_troop_cur_center, "p_town_12"),
(troop_set_slot, "trp_npc18", slot_troop_cur_center, "p_town_34"),
(troop_set_slot, "trp_npc19", slot_troop_cur_center, "p_town_47"),
(troop_set_slot, "trp_npc20", slot_troop_cur_center, "p_town_48"),
(troop_set_slot, "trp_npc21", slot_troop_cur_center, "p_town_9"),
(troop_set_slot, "trp_npc22", slot_troop_cur_center, "p_town_35"),
(troop_set_slot, "trp_npc23", slot_troop_cur_center, "p_town_41"),
(troop_set_slot, "trp_npc24", slot_troop_cur_center, "p_town_24"),
(troop_set_slot, "trp_npc25", slot_troop_cur_center, "p_town_41"),
(troop_set_slot, "trp_npc26", slot_troop_cur_center, "p_town_40"),
(troop_set_slot, "trp_npc27", slot_troop_cur_center, "p_town_1"),
(troop_set_slot, "trp_npc28", slot_troop_cur_center, "p_town_46"),
(troop_set_slot, "trp_npc29", slot_troop_cur_center, "p_town_17"),
(else_try),
(troop_set_slot, ":troop_no", slot_troop_cur_center, ":town_no"),
(try_end),[/color]
(try_begin),
(eq, "$cheat_mode", 1),
(str_store_troop_name, 4, ":troop_no"),
(str_store_party_name, 5, ":town_no"),
(display_message, "@{!}{s4} is in {s5}.", 0xFFFF66),
(try_end),
(try_end),
(try_end),
]),