"simple_encounter",mnf_enable_hot_keys|mnf_scale_picture,
"{s2} ^{s15}",
"none",
[
#TEMPERED CHANGES BEGIN
(str_clear,s15),
(str_store_string,s15,"@_"),
(try_begin),
(party_get_slot,":party_entrenched","p_main_party",slot_party_entrenched),
(ge,":party_entrenched",1),
(neq, "$duel_encounter",1),#TEMPERED ADDED FOR WILDERNESS DUEL
(str_store_string,s15,"str_entrench"),
(assign, "$cant_leave_encounter", 1),
(try_end),
#TEMPERED CHANGES END
(assign, "$g_enemy_party", "$g_encountered_party"),
(assign, "$g_ally_party", -1),
(call_script, "script_encounter_calculate_fit"),
(try_begin),
(eq, "$new_encounter", 1),
(assign, "$new_encounter", 0),
(assign, "$g_encounter_is_in_village", 0),
(assign, "$g_encounter_type", 0),
(try_begin),
(party_slot_eq, "$g_enemy_party", slot_party_ai_state, spai_raiding_around_center),
(party_get_slot, ":village_no", "$g_enemy_party", slot_party_ai_object),
(store_distance_to_party_from_party, ":dist", ":village_no", "$g_enemy_party"),
(try_begin),
(lt, ":dist", raid_distance),
(assign, "$g_encounter_is_in_village", ":village_no"),
(assign, "$g_encounter_type", enctype_fighting_against_village_raid),
(try_end),
(try_end),
(try_begin),
(gt, "$g_player_raiding_village", 0),
(assign, "$g_encounter_is_in_village", "$g_player_raiding_village"),
(assign, "$g_encounter_type", enctype_catched_during_village_raid),
(party_quick_attach_to_current_battle, "$g_encounter_is_in_village", 1), #attach as enemy
(str_store_string, s1, "@Villagers"),
(display_message, "str_s1_joined_battle_enemy"),
(else_try),
(eq, "$g_encounter_type", enctype_fighting_against_village_raid),
(party_quick_attach_to_current_battle, "$g_encounter_is_in_village", 0), #attach as friend
(str_store_string, s1, "@Villagers"),
(display_message, "str_s1_joined_battle_friend"),
# Let village party join battle at your side
(try_end),
(call_script, "script_let_nearby_parties_join_current_battle", 0, 0),
(call_script, "script_encounter_init_variables"),
(assign, "$encountered_party_hostile", 0),
(assign, "$encountered_party_friendly", 0),
(try_begin),
(gt, "$g_encountered_party_relation", 0),
(assign, "$encountered_party_friendly", 1),
(try_end),
(try_begin),
(lt, "$g_encountered_party_relation", 0),
(assign, "$encountered_party_hostile", 1),
(try_begin),
(encountered_party_is_attacker),
#(neq,"$g_encountered_party","$loot_wagon"),
(assign, "$cant_leave_encounter", 1),
(try_end),
(try_end),
(assign, "$talk_context", tc_party_encounter),
(call_script, "script_setup_party_meeting", "$g_encountered_party"),
(else_try), #second or more turn
# (try_begin),
# (call_script, "script_encounter_calculate_morale_change"),
# (try_end),
(try_begin),
# We can leave battle only after some troops have been killed.
(eq, "$cant_leave_encounter", 1),
(call_script, "script_party_count_members_with_full_health", "p_main_party_backup"),
(assign, ":org_total_party_counts", reg0),
(call_script, "script_party_count_members_with_full_health", "p_encountered_party_backup"),
(val_add, ":org_total_party_counts", reg0),
(call_script, "script_party_count_members_with_full_health", "p_main_party"),
(assign, ":cur_total_party_counts", reg0),
(call_script, "script_party_count_members_with_full_health", "p_collective_enemy"),
(val_add, ":cur_total_party_counts", reg0),
(store_sub, ":leave_encounter_limit", ":org_total_party_counts", 10),
(lt, ":cur_total_party_counts", ":leave_encounter_limit"),
(assign, "$cant_leave_encounter", 0),
(assign,"$force_presentation_shown",1), #Tempered do not show presentation if battle has started
(try_end),
(eq, "$g_leave_encounter",1),
(change_screen_return),
(try_end),
#setup s2
(try_begin),
(party_is_active,"$g_encountered_party"),
(str_store_party_name, s1,"$g_encountered_party"),
(try_begin),
(eq, "$duel_encounter",1),#TEMPERED ADDED FOR WILDERNESS DUEL
(str_store_string,s2,"@The time for talk is over. {s1} is waiting to begin the duel."),
(else_try),
(eq, "$g_encounter_type", 0),
(neq, "$duel_encounter",1),#TEMPERED ADDED FOR WILDERNESS DUEL
#(str_store_string, s2,"@You have encountered {s1}. You have {reg10} troops fit for battle against their {reg11}."),
(str_store_string, s2,"@You have encountered {s1}. You have {reg10} troops fit for battle."),
(else_try),
(eq, "$g_encounter_type", enctype_fighting_against_village_raid),
(str_store_party_name, s3, "$g_encounter_is_in_village"),
(str_store_string, s2,"@You have engaged {s1} while they were raiding {s3}. You have {reg10} troops fit for battle."),
(else_try),
(eq, "$g_encounter_type", enctype_catched_during_village_raid),
(str_store_party_name, s3, "$g_encounter_is_in_village"),
(str_store_string, s2,"@You were caught by {s1} while your forces were raiding {s3}. You have {reg10} troops fit for battle."),
(try_end),
(try_end),
(try_begin),
(call_script, "script_party_count_members_with_full_health", "p_collective_enemy"),
(assign, ":num_enemy_regulars_remaining", reg(0)),
(assign, ":enemy_finished",0),
(try_begin),
(eq, "$g_battle_result", 1),
(eq, ":num_enemy_regulars_remaining", 0), #battle won
(assign, ":enemy_finished",1),
(else_try),
(eq, "$g_engaged_enemy", 1),
(le, "$g_enemy_fit_for_battle",0),
(ge, "$g_friend_fit_for_battle",1),
(assign, ":enemy_finished",1),
(try_end),
(this_or_next|eq, ":enemy_finished",1),
(eq,"$g_enemy_surrenders",1),
(assign, "$g_next_menu", -1),
(jump_to_menu, "mnu_total_victory"),
(else_try),
# (eq, "$encountered_party_hostile", 1),
(call_script, "script_party_count_members_with_full_health","p_main_party"),
(assign, reg(3), reg(0)),
(assign, ":friends_finished",0),
(try_begin),
(eq, "$g_battle_result", -1),
(eq, reg(3), 0), #battle lost
(assign, ":friends_finished",1),
(else_try),
(eq, "$g_engaged_enemy", 1),
(ge, "$g_enemy_fit_for_battle",1),
(le, "$g_friend_fit_for_battle",0),
(assign, ":friends_finished",1),
(try_end),
(this_or_next|eq, ":friends_finished",1),
(eq,"$g_player_surrenders",1),
(assign, "$g_next_menu", "mnu_captivity_start_wilderness"),
---------> (troop_clear_inventory,"trp_loot_wagon_storage_1"), <---------------- ADD THIS LINE
(jump_to_menu, "mnu_total_defeat"),
(try_end),
