(else_try),
(eq, ":do_only_collecting_rents", 0),
(this_or_next|gt, ":hours_since_last_rest", 504), #Three weeks
(lt, ":aggressiveness", 25),
(gt, ":hours_since_last_rest", 16, #one week if aggressiveness < 25
(eq, "peration_in_progress", 0),
(try_begin),
(neg|faction_slot_eq, ":faction_no", slot_faction_ai_state, sfai_feast),
(call_script, "script_lord_get_home_center", ":troop_no"),
(assign, ":home_center", reg0),
(gt, ":home_center", -1),
(assign, ":action", spai_holding_center),
(assign, "bject", ":home_center"),
(try_begin),
(eq, ":troop_no", "$g_talk_troop"),
(str_store_string, s14, "str_my_men_are_weary_so_we_are_returning_home"),
(str_store_string, s16, "str_my_men_are_becoming_weary"),
(try_end),
(else_try),
(faction_slot_eq, ":faction_no", slot_faction_ai_state, sfai_feast),
(try_begin),
(eq, ":troop_no", "$g_talk_troop"),
(str_store_string, s14, "str_my_men_are_weary_so_we_are_returning_home"),
(str_store_string, s16, "str_my_men_are_becoming_weary"),
(try_end),
(try_end),
-BUGFIX-
(else_try),
(eq, ":do_only_collecting_rents", 0),
(this_or_next|gt, ":hours_since_last_rest", 504), #Three weeks
(lt, ":aggressiveness", 25),
(gt, ":hours_since_last_rest", 16
, #one week if aggressiveness < 25
(eq, "
peration_in_progress", 0),
(faction_slot_eq, ":faction_no", slot_faction_ai_object, ":faction_object"),
(store_faction_of_troop, ":faction_no", ":troop_no"),
(try_begin),
(le, ":faction_object", 0),
(neg|faction_slot_eq, ":faction_no", slot_faction_ai_state, sfai_feast),
(call_script, "script_lord_get_home_center", ":troop_no"),
(assign, ":home_center", reg0),
(gt, ":home_center", -1),
(assign, ":action", spai_holding_center),
(assign, "
bject", ":home_center"),
(else_try),
(gt, ":faction_object", 0),
(store_faction_of_party, ":faction_no2", ":faction_object"),
(store_relation, ":relation", ":faction_no", ":faction_no2"),
(this_or_next|neg|faction_slot_eq, ":faction_no", slot_faction_ai_state, sfai_feast),
(lt, ":relation", 0),
(call_script, "script_lord_get_home_center", ":troop_no"),
(assign, ":home_center", reg0),
(gt, ":home_center", -1),
(assign, ":action", spai_holding_center),
(assign, "
bject", ":home_center"),
(else_try),
(add_xp_to_troop, 0, ":troop_no"), #placeholder
(try_end),
(try_begin),
(eq, ":troop_no", "$g_talk_troop"),
(str_store_string, s14, "str_my_men_are_weary_so_we_are_returning_home"),
(str_store_string, s16, "str_my_men_are_becoming_weary"),
(try_end),