("join_siege_with_allies",[(neg|troop_is_wounded, "trp_player")], "Join the next assault.",
[
(assign, "$g_joined_battle_to_help", 1),
(party_set_next_battle_simulation_time, "$g_encountered_party", -1),
(try_begin),
(check_quest_active, "qst_join_siege_with_army"),
(quest_slot_eq, "qst_join_siege_with_army", slot_quest_target_center, "$g_encountered_party"),
(add_xp_as_reward, 250),
(call_script, "script_end_quest", "qst_join_siege_with_army"),
#Reactivating follow army quest
(faction_get_slot, ":faction_marshall", "$players_kingdom", slot_faction_marshall),
(str_store_troop_name_link, s9, ":faction_marshall"),
(setup_quest_text, "qst_follow_army"),
(str_store_string, s2, "@{s9} wants you to follow his army until further notice."),
(call_script, "script_start_quest", "qst_follow_army", ":faction_marshall"),
(assign, "$g_player_follow_army_warnings", 0),
(try_end),
(try_begin),
(party_slot_eq, "$g_encountered_party", slot_party_type, spt_town),
(party_get_slot, ":battle_scene", "$g_encountered_party", slot_town_walls),
(else_try),
(party_get_slot, ":battle_scene", "$g_encountered_party", slot_castle_exterior),
(try_end),
#angry_town_man_begin
(try_begin),
#
# Give extra condition, like your relation to town. Make towns with high relation with you never spawn angry town men
#
(party_force_add_members,"$g_encountered_party","trp_angry_town_man",10),
(assign, "$g_angry_town_man_party", "$g_encountered_party"),
(try_end),
#angry_town_man_end
(call_script, "script_calculate_battle_advantage"),
(val_mul, reg0, 2),
(val_div, reg0, 3), #scale down the advantage a bit in sieges.
(set_battle_advantage, reg0),
(set_party_battle_mode),
(try_begin),
(party_slot_eq, "$g_encountered_party", slot_center_siege_with_belfry, 1),
(set_jump_mission,"mt_castle_attack_walls_belfry"),
(else_try),
(set_jump_mission,"mt_castle_attack_walls_ladder"),
(try_end),
(jump_to_scene,":battle_scene"),
(assign, "$g_siege_final_menu", "mnu_besiegers_camp_with_allies"),
(assign, "$g_siege_battle_state", 1),
(assign, "$g_next_menu", "mnu_castle_besiege_inner_battle"),
(jump_to_menu, "mnu_battle_debrief"),
(change_screen_mission),
]),