# (0)This trigger is deprecated. Use "script_game_event_party_encounter" in module_scripts.py instead

(ti_on_party_encounter,[]),

# (1)This trigger is deprecated. Use "script_game_event_simulate_battle" in module_scripts.py instead

(ti_simulate_battle,[]),

# (2)

(1,[ (gt,"$auto_besiege_town",0),

(gt,"$g_player_besiege_town", 0),

(ge, "$g_siege_method", 1),

(eq, "$g_siege_force_wait", 0),

(store_current_hours, ":cur_hours"),

(ge, ":cur_hours", "$g_siege_method_finish_hours"),

(neg|is_currently_night),

(rest_for_hours, 0, 0, 0), #stop resting

]),

# (3)

(0,[(eq,"$g_player_is_captive",1),

(gt, "$capturer_party", 0),

(party_is_active, "$capturer_party"),

(party_relocate_near_party, "p_main_party", "$capturer_party", 0),

]),

# (4) Auto-menu

(0,[(try_begin),

(ge, "$g_last_rest_center", 0),

(party_get_battle_opponent, ":besieger_party", "$g_last_rest_center"),

(gt, ":besieger_party", 0),

(store_faction_of_party, ":encountered_faction", "$g_last_rest_center"),

(store_relation, ":faction_relation", ":encountered_faction", "fac_player_supporters_faction"),

(store_faction_of_party, ":besieger_party_faction", ":besieger_party"),

(store_relation, ":besieger_party_relation", ":besieger_party_faction", "fac_player_supporters_faction"),

(ge, ":faction_relation", 0),

(lt, ":besieger_party_relation", 0),

(start_encounter, "$g_last_rest_center"),

(rest_for_hours, 0, 0, 0), #stop resting

(else_try),

(store_current_hours, ":cur_hours"),

(assign, ":check", 0),

(try_begin),

(neq, "$g_check_autos_at_hour", 0),

(ge, ":cur_hours", "$g_check_autos_at_hour"),

(assign, ":check", 1),

(assign, "$g_check_autos_at_hour", 0),

(try_end),

(this_or_next|eq, ":check", 1),

(map_free),

(try_begin),

(ge,"$auto_menu",1),

(jump_to_menu,"$auto_menu"),

(assign,"$auto_menu",-1),

(else_try),

(ge,"$auto_enter_town",1),

(start_encounter, "$auto_enter_town"),

(else_try),

(ge,"$auto_besiege_town",1),

(start_encounter, "$auto_besiege_town"),

(else_try),

(ge,"$g_camp_mode", 1),

(assign, "$g_camp_mode", 0),

(try_begin),

(eq, "$g_fast_mode", 1),

(assign, "$g_fast_mode", 0),

(store_character_level, ":player_level", "trp_player"),

(val_mul, ":player_level", 1000),

(add_xp_to_troop, ":player_level","trp_player"), #emulate some xp gain in test mode (for siege strength relaxation)

(try_end),

(assign, "$g_player_icon_state", pis_normal),

(display_message, "@Breaking camp..."),

(try_end),

(try_end),

]),

# (5) Notification menus

(0,[ (troop_slot_ge, "trp_notification_menu_types", 0, 1),

(troop_get_slot, ":menu_type", "trp_notification_menu_types", 0),

(troop_get_slot, "$g_notification_menu_var1", "trp_notification_menu_var1", 0),

(troop_get_slot, "$g_notification_menu_var2", "trp_notification_menu_var2", 0),

(jump_to_menu, ":menu_type"),

(assign, ":end_cond", 2),

(try_for_range, ":cur_slot", 1, ":end_cond"),

(try_begin),

(troop_slot_ge, "trp_notification_menu_types", ":cur_slot", 1),

(val_add, ":end_cond", 1),

(try_end),

(store_sub, ":cur_slot_minus_one", ":cur_slot", 1),

(troop_get_slot, ":local_temp", "trp_notification_menu_types", ":cur_slot"),

(troop_set_slot, "trp_notification_menu_types", ":cur_slot_minus_one", ":local_temp"),

(troop_get_slot, ":local_temp", "trp_notification_menu_var1", ":cur_slot"),

(troop_set_slot, "trp_notification_menu_var1", ":cur_slot_minus_one", ":local_temp"),

(troop_get_slot, ":local_temp", "trp_notification_menu_var2", ":cur_slot"),

(troop_set_slot, "trp_notification_menu_var2", ":cur_slot_minus_one", ":local_temp"),

(try_end),

]),

# (6) Music and piggybacks

(1,[(map_free),(call_script, "script_music_set_situation_with_culture", mtf_sit_travel),

# Piggyback for Horse Archer AI option

(try_begin),

(neq, "$options_horse_archer_ai", "$field_ai_horse_archer"),

(assign, "$field_ai_horse_archer", "$options_horse_archer_ai"), # Used to keep track of player choice.

(try_end),

##Kham - Piggyback on trigger for Player Controlled allies

(try_begin),

(neq, "$player_control_allies",0),

(assign, "$player_control_allies",0),

(try_begin),

(eq, "$cheat_mode",1),

(display_message, "@{!}DEBUG: Player Control Allies RESET"),

(try_end),

(try_end),

#InVain: reset battle size if changed for siege

] + (is_a_wb_trigger==1 and [

(call_script, "script_reset_battle_size"),

] or []) + [

]),

# (7) Pay day, every four days here

(24.1 * 4,[ (call_script, "script_make_player_pay_upkeep")]),

# (8) # Rank income, clear rumors in centers and reset a few town slots, friendship rewards progress

(24,[(call_script, "script_rank_income_to_player"),

(try_for_range, ":center_no", centers_begin, centers_end),

(try_for_range, ":walker", town_walker_entries_start, town_walker_entries_start+num_town_walkers),

(store_add, ":slot", slot_center_rumor_check_begin,":walker"),

(party_set_slot, ":center_no", ":slot", 0),

(try_end),

(party_set_slot, ":center_no", slot_center_walker_soldiers_found, 0),

(try_begin),

(party_slot_eq, ":center_no", slot_town_captain_available, 0),

(store_random_in_range, ":chance", 0, 10),

(lt, ":chance", 3),

(party_get_slot, ":captain", ":center_no", slot_town_captain),

(store_faction_of_party, ":party_fac", ":center_no"),

#some centers or factions have a range of possible captains

(try_begin),

(eq, ":party_fac", "fac_imladris"),

(store_random_in_range, ":captain", "trp_riv_captain", "trp_rohan_captain"),

(else_try),

(this_or_next|eq, ":center_no", p_town_west_osgiliath),

(eq, ":center_no", p_town_cair_andros),

(eq, ":party_fac", "fac_gondor"),

(store_random_in_range, ":captain", "trp_gondor_captain", "trp_amroth_captain"),

(gt, ":captain", "trp_gondor_captain"),

(assign, ":captain", "trp_ithilien_captain"),

(try_end),

(party_set_slot, ":center_no", slot_town_captain_available, ":captain"),

(try_end),

(try_end),

(try_for_range, ":troop_no", heroes_begin, heroes_end), # TLD clear rumors in lords

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(troop_set_slot, ":troop_no", slot_troop_rumor_check, 0),

#Friendship Rewards Begin

(try_begin),

#Give some friendship reward progress for lords who already like the player

(call_script, "script_troop_get_player_relation", ":troop_no"),

(assign, ":player_relation", reg0),

#Must have at least 20 relation to get friendship reward

(ge, ":player_relation", 20),

(val_div, ":player_relation", 20),

(call_script, "script_lord_friendship_reward_progress", ":troop_no", ":player_relation"),

(try_end),

#Friendship Rewards End

(try_end),

(try_for_range, ":troop_no", weapon_merchants_begin, mayors_end), # TLD clear rumors in merchants/elders

(troop_set_slot, ":troop_no", slot_troop_rumor_check, 0),

(try_end),

]),

# (9)

(4.15,[ #unpaid troops leaving, desertion, prisoners escape

(try_begin),

(store_random_in_range, ":dieroll", 1,101), (lt,":dieroll",10),

(call_script, "script_make_unpaid_troop_go"),

#desertion

(store_skill_level, ":player_leadership", "skl_leadership", "trp_player"),

(party_get_morale, ":morale", "p_main_party"),

(val_mul, ":player_leadership", 2),

(store_sub, ":desertion_check", 40, ":player_leadership"),

(try_begin),

(lt, ":morale", ":desertion_check"),

(val_mul, ":morale", 2),

(store_random_in_range, ":rand", 0, 100),

(gt, ":rand", ":morale"),

(dialog_box, "@Party morale is low. Troops desert from your party.", "@Desertion"),

(store_sub, ":morale_delta", ":desertion_check", ":morale"),

(val_clamp, ":morale_delta", 5, 20),

(party_get_num_companions, ":to_remove", p_main_party), #remove X% of troops per tick

(val_mul, ":to_remove", ":morale_delta"),

(val_div, ":to_remove", 100),

(try_for_range, ":unused", 0, ":to_remove"),

(call_script, "script_cf_party_remove_random_regular_troop", "p_main_party"),

(str_store_troop_name, s1, reg0),

(display_message, "@{s1} has deserted from your party."),

(try_end),

(try_end),

#prisoners escape

(party_get_skill_level, ":prs_management", "p_main_party", "skl_prisoner_management"),

(party_get_num_prisoners, ":num_prisoners", "p_main_party"),

(call_script, "script_game_get_party_prisoner_limit"),

(assign, ":max_prisoners", reg0),

(store_mul, ":chance", ":num_prisoners", 50),

(val_div, ":chance", ":max_prisoners"),

(try_begin),

(party_get_num_companions, ":num_companions", "p_main_party"),

(gt, ":num_prisoners", ":num_companions"),

(val_mul, ":chance", ":num_prisoners"),

(val_div, ":chance", ":num_companions"),

(display_message, "@You don't have enough troops to guard all your prisoners. Their chance of escaping is increased."),

#(dialog_box, "@You don't have enough troops to guard all your prisoners. Their chance of escaping is increased.", "@Too many prisoners"),

(try_end),

(gt, ":num_prisoners", ":prs_management"),

(store_random_in_range, ":rolls", ":prs_management", ":num_prisoners"),

(try_for_range, ":unused", 0, ":rolls"),

(store_random_in_range, ":rand", 0, 1000),

(lt, ":rand", ":chance"),

(call_script, "script_cf_party_remove_random_prisoner", "p_main_party"),

(str_store_troop_name, s1, reg0),

(display_message, "@{s1} has escaped from your party."),

(try_end),

(try_end),

]),

# (10) Reducing luck by 1 in every 180 hours #No luck in TLD, still keeping this trigger to avoid "global variable never used" warning

(180,[(val_sub, "$g_player_luck", 1),(val_max, "$g_player_luck", 0),]),

# (11)Party Morale: Move morale towards target value.

(24,[(call_script, "script_get_player_party_morale_values"),

(assign, ":target_morale", reg0),

(party_get_morale, ":cur_morale", "p_main_party"),

(store_sub, ":dif", ":target_morale", ":cur_morale"),

(store_div, ":dif_to_add", ":dif", 5),

(store_mul, ":dif_to_add_correction", ":dif_to_add", 5),

(try_begin),#finding ceiling of the value

(neq, ":dif_to_add_correction", ":dif"),

(try_begin),

(gt, ":dif", 0),

(val_add, ":dif_to_add", 1),

(else_try),

(val_sub, ":dif_to_add", 1),

(try_end),

(try_end),

(val_add, ":cur_morale", ":dif_to_add"),

(party_set_morale, "p_main_party", ":cur_morale"),

]),

# (12) keep track of main party region ("$current_player_region"),

# and display log messages keey player informed of what region is he in, (mtarini)

(0.5,[(call_script,"script_get_region_of_party", "p_main_party"),

(assign, ":new_region", reg1),

(neq, "$current_player_region", ":new_region"), # region change!

(try_begin),

# entering a region without a clear name

#(this_or_next|eq, ":new_region", region_c_mirkwood),

#(this_or_next|eq, ":new_region", region_anduin_banks),

(eq,":new_region",-1),

(try_begin),

(gt, "$current_player_region", -1),

(store_add, reg2, str_shortname_region_begin , "$current_player_region"),

(try_begin),

(ge, "$current_player_region", region_rhun),

(store_sub, reg2, "$current_player_region", region_rhun),

(val_add, reg2, str_shortname_region_begin_new),

(try_end),

(str_store_string,s1,reg2),

(display_log_message, "@You have left {s1}."),

(try_end),

(else_try),

(store_add, reg2, str_shortname_region_begin, ":new_region"),

(try_begin),

(ge, ":new_region", region_rhun),

(store_sub, reg2, ":new_region", region_rhun),

(val_add, reg2, str_shortname_region_begin_new),

(try_end),

(str_store_string,s1,reg2),

(call_script, "script_region_get_faction", ":new_region", -1), # unbiased

(try_begin),

(gt, reg1, -1),

(str_store_faction_name, s2, reg1),

(display_log_message, "@You are entering {s1} ({s2})."),

(else_try),

(display_log_message, "@You are entering {s1}."),

(try_end),

(try_end),

(assign, "$current_player_region", ":new_region"),

]),

# (13) Party AI: pruning some of the prisoners in each center (once a week) - Kham: Changed from 72 to 46 hours

(24*2,[(try_for_range, ":center_no", centers_begin, centers_end),

(party_is_active, ":center_no"), #TLD

(party_slot_eq, ":center_no", slot_center_destroyed, 0), #TLD

(party_get_num_prisoner_stacks, ":num_prisoner_stacks",":center_no"),

(try_for_range_backwards, ":stack_no", 0, ":num_prisoner_stacks"),

(party_prisoner_stack_get_troop_id, ":stack_troop",":center_no",":stack_no"),

(neg|troop_is_hero, ":stack_troop"),

(party_prisoner_stack_get_size, ":stack_size",":center_no",":stack_no"),

(try_begin),

(ge,":stack_size", 100),

(store_random_in_range, ":rand_no", 40, 80),

(else_try),

(store_random_in_range, ":rand_no", 10, 40),

(try_end),

(val_mul, ":stack_size", ":rand_no"),

(val_div, ":stack_size", 100),

(try_begin), #MV added this block

(ge, ":rand_no", 30),

(val_max, ":stack_size", 1), #POP bugfix: at least one should escape, so there are not plenty of 1-2 prisoner stacks

(try_end),

(party_remove_prisoners, ":center_no", ":stack_troop", ":stack_size"),

(try_end),

(try_end),

]),

# (14) Hiring men with center wealths (once a day)

(24,[(try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),

(ge, ":party_no", 1),

(party_is_active, ":party_no"), #MV

(party_slot_eq, ":party_no", slot_party_type, spt_kingdom_hero_party), #TLD: only hosts reinforce

(party_get_attached_to, ":cur_attached_party", ":party_no"),

(is_between, ":cur_attached_party", centers_begin, centers_end),

(party_slot_eq, ":cur_attached_party", slot_center_is_besieged_by, -1), #center not under siege

(call_script, "script_hire_men_to_kingdom_hero_party", ":troop_no"), #Hiring men up to lord-specific limit

(try_end),

(try_begin),

(lt,"$savegame_version",1),

(call_script, "script_update_savegame"), # Rafa: ensure the volunteers system is up to date

(try_end),

(try_for_range, ":center_no", centers_begin, centers_end),

(party_is_active, ":center_no"), #TLD

(party_slot_eq, ":center_no", slot_center_destroyed, 0), #TLD

(neg|party_slot_eq, ":center_no", slot_town_lord, "trp_player"), #center does not belong to player.

(party_slot_ge, ":center_no", slot_town_lord, 1), #center belongs to someone.

# (party_slot_eq, ":center_no", slot_center_destroyed, 0), #TLD - not destroyed - redundant since (party_is_active, ":center_no")

# (party_get_slot, ":cur_wealth", ":center_no", slot_town_wealth),

(party_slot_eq, ":center_no", slot_center_is_besieged_by, -1), #center not under siege #InVain uncommented

(store_faction_of_party, ":faction", ":center_no"),

(neg|faction_slot_eq, ":faction", slot_faction_last_stand, 1), #No more garrisons for last stand factions

# (assign, ":hiring_budget", ":cur_wealth"),

# (val_div, ":hiring_budget", 5),

# (gt, ":hiring_budget", reinforcement_cost),

(call_script, "script_refresh_volunteers_in_town", ":center_no"),

#TLD: above replaced by this

(party_get_slot, ":garrison_limit", ":center_no", slot_center_garrison_limit),

(try_begin),

(neg|faction_slot_eq, ":faction", slot_faction_side, faction_side_good),

(val_mul, ":garrison_limit", 150),

(val_div, ":garrison_limit", 100),

(try_end),

(party_get_num_companions, ":garrison_size", ":center_no"),

(faction_get_slot, ":fac_strength", ":faction", slot_faction_strength), #InVain Scale center reinforcements with fac strength

(val_div, ":fac_strength", 250), #up to 32

(store_random_in_range, ":chance", 0, 100),

(try_begin),

(gt, ":garrison_limit", ":garrison_size"),

(try_begin),

(is_between, ":center_no", advcamps_begin, advcamps_end), #advance camps reinforce slightly faster, because they have low garrison

(lt, ":chance", 30),

(else_try),

(lt, ":chance", ":fac_strength"),

(try_end),

(call_script, "script_cf_reinforce_party", ":center_no"),

(str_store_party_name, s1, ":center_no"),

#(display_message, "@{s1} reinforced"),

(try_end),

# (val_sub, ":cur_wealth", reinforcement_cost),

# (party_set_slot, ":center_no", slot_town_wealth, ":cur_wealth"),

(try_end),

]),

# (15) Converging center prosperity to ideal prosperity once in every 15 days - MV: removed this and replaced with this:

# (15) Party cleanup: remove empty parties, and unstick parties stuck in impassable terrain, remove routed parties that are too far from player.

(23*3,

[

(set_spawn_radius, 3),

(assign, ":removed_empty_parties", 0), #For debugging - Kham

(try_for_parties, ":cur_party"),

(gt, ":cur_party", "p_scribble_242"), #avoid static map parties

(party_is_active, ":cur_party"),

#swy-- don't mess with the player!

(neq,":cur_party", "p_main_party"),

#remove empty parties

(party_get_num_companion_stacks, ":num_stacks", ":cur_party"),

(try_begin),

(le, ":num_stacks", 0), #kham - changed from eq

(party_get_battle_opponent, ":opponent", ":cur_party"),

(lt, ":opponent", 0),

(party_get_template_id, ":cur_party_template", ":cur_party"),

(neq, ":cur_party_template", "pt_ruins"),

(neq, ":cur_party_template", "pt_mound"),

(neq, ":cur_party_template", "pt_pyre"),

(neq, ":cur_party_template", "pt_legendary_place"),

(neq, ":cur_party_template", "pt_volunteers"), #Rafa: don't delete volunteer's parties

(party_detach, ":cur_party"),

(call_script, "script_safe_remove_party", ":cur_party"),

(val_add, ":removed_empty_parties", 1),

(else_try), # remove distant routed parties

(party_get_battle_opponent, ":opponent", ":cur_party"),

(lt, ":opponent", 0),

(party_get_template_id, ":cur_party_template", ":cur_party"),

(eq|this_or_next, ":cur_party_template", "pt_routed_allies"),

(eq|this_or_next, ":cur_party_template", "pt_routed_enemies"),

(eq, ":cur_party_template", "pt_retreat_troops"),

(store_distance_to_party_from_party, ":routed_distance", "p_main_party", ":cur_party"),

(gt, ":routed_distance", 50),

(call_script, "script_safe_remove_party", ":cur_party"),

(else_try), #unstick stuck parties

(party_get_current_terrain, ":terrain_type", ":cur_party"),

(try_begin),

(this_or_next|eq, ":terrain_type", rt_water),

(this_or_next|eq, ":terrain_type", rt_mountain),

(this_or_next|eq, ":terrain_type", rt_river),

(this_or_next|eq, ":terrain_type", rt_mountain_forest),

(gt, ":terrain_type", rt_desert_forest),

] + (is_a_wb_trigger==1 and [ # Rafa: Couldn't this be unified? I don't see any only-WB operation, using header_operations_mb1011.py as reference

(party_get_position, pos1, ":cur_party"),

(assign, ":max_range", 1000),

(try_for_range, ":unused", 0 , ":max_range"),

(map_get_land_position_around_position, pos2, pos1, 5),

(party_set_position, "p_terrain_party", pos2),

(party_get_current_terrain, ":temp_terrain", "p_terrain_party"),

(try_begin),

(this_or_next|is_between, ":temp_terrain", rt_plain, rt_river),

( eq, ":temp_terrain", rt_forest),

(party_set_position, ":cur_party", pos2),

(assign, ":max_range", 0),

(try_end), #End for Temp Party

(try_end), # End for Range

(try_begin),

(eq, "$cheat_mode", 1),

(str_store_party_name, s1, ":cur_party"),

(display_message, "@{!}DEBUG: {s1} was stuck, repositioning somewhere else!", color_good_news),

(try_end),

] or [

(assign, ":max_tries", 10),

(try_for_range, ":unused", 0, ":max_tries"),

# check for suitable terrain

(spawn_around_party, ":cur_party", "pt_none"),

(assign, ":fake_party", reg0),

#swy-- assign it a name just for kicks, maybe causes savegame corruption and this is a good marker!

(party_set_name, ":fake_party", "str_fake_party"),

(party_set_flags, ":fake_party", pf_no_label),

# ----

(party_get_position, pos1, ":fake_party"),

(party_get_current_terrain, ":terrain_type", ":fake_party"),

(call_script, "script_safe_remove_party", ":fake_party"),

#check for impassable terrain

(try_begin),

(this_or_next|eq, ":terrain_type", rt_water),

(this_or_next|eq, ":terrain_type", rt_mountain),

(this_or_next|eq, ":terrain_type", rt_river),

(this_or_next|eq, ":terrain_type", rt_mountain_forest),

( gt, ":terrain_type", rt_desert_forest), # any custom types?

#bad terrain, try again

(else_try), #good terrain, move party there and exit loop

(party_set_position, ":cur_party", pos1),

(assign, ":max_tries", 0),

(try_end),

(try_end), # try_for_range :unused

]) + [

(try_end),

(try_end), #unstick

(try_end), #try_for_parties

(try_begin),

(eq, "$cheat_mode",1),

(assign, reg3, ":removed_empty_parties"),

#(display_message, "@DEBUG: Removed Parties: {reg3}", color_bad_news),

(try_end),

]),

# (16) Checking if the troops are resting at a half payment point (this has to stay, in TLD!)

(6,[(store_current_day, ":cur_day"),

(try_begin),

(neq, ":cur_day", "$g_last_half_payment_check_day"),

(assign, "$g_last_half_payment_check_day", ":cur_day"),

(try_begin),

(eq, "$g_half_payment_checkpoint", 1),

(val_add, "$g_cur_week_half_daily_wage_payments", 1), #half payment for yesterday

(try_end),

(assign, "$g_half_payment_checkpoint", 1),

(try_end),

(assign, ":resting_at_manor_or_walled_center", 0),

(try_begin),

(neg|map_free),

(ge, "$g_last_rest_center", 0),

(this_or_next|party_slot_eq, "$g_last_rest_center", slot_center_has_manor, 1),

(is_between, "$g_last_rest_center", centers_begin, centers_end),

(assign, ":resting_at_manor_or_walled_center", 1),

(try_end),

(eq, ":resting_at_manor_or_walled_center", 0),

(assign, "$g_half_payment_checkpoint", 0),

]),

# (17) Give some xp to hero parties

(48,[(try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(store_random_in_range, ":rand", 0, 100),

(lt, ":rand", 30),

(troop_get_slot, ":hero_party", ":troop_no", slot_troop_leaded_party),

(gt, ":hero_party", centers_end),

(party_is_active, ":hero_party"),

(store_skill_level, ":trainer_level", skl_trainer, ":troop_no"), #lords have between 3 and 7 trainer skill

(val_add, ":trainer_level", 2), #5 - 9

(store_mul, ":xp_gain", ":trainer_level", 500), #2500 - 4500

(party_upgrade_with_xp, ":hero_party", ":xp_gain"),

(try_end),

(try_for_range, ":center_no", centers_begin, centers_end),

(party_is_active, ":center_no"), #TLD

(party_slot_eq, ":center_no", slot_center_destroyed, 0), #TLD

# TLD: Always upgrade volunteers in friendly towns (slowly!)

# InVain: volunteers are now trained in script_refresh_volunteers_in_town

#(party_get_slot, ":volunteers", ":center_no", slot_town_volunteer_pt),

# (try_begin),

# (gt, ":volunteers", 0),

# (party_is_active, ":volunteers"),

# (party_upgrade_with_xp, ":volunteers", 100), #negotiable

# (try_end),

# Town garrison

(store_random_in_range, ":rand", 0, 100),

(store_character_level, ":player_level", "trp_player"), #slight level scaling

(val_max, ":player_level", 10),

(lt, ":rand", ":player_level"),

(party_get_slot, ":center_lord", ":center_no", slot_town_lord),

(neq, ":center_lord", "trp_player"),

(party_upgrade_with_xp, ":center_no", 3000),

(party_slot_eq, ":center_no", slot_center_siegability, tld_siegable_capital),

(party_upgrade_with_xp, ":center_no", 1500), #capitals get a bonus

(try_end),

]),

# (18) MAIN AI STARTING POINT

# Decide faction ai by default every 36 hours

(36,[

(assign, "$g_recalculate_ais", 2),

#(display_message, "@recalculate all trigger"),

]),

# (19) Decide faction ai whenever flag is set

(0,[(gt, "$g_recalculate_ais", 0),(ge,"$tld_war_began",1),

# (try_begin),

# (eq, "$g_recalculate_ais", 2),

# (display_message, "@recalculate all theaters"),

# (else_try),

# (call_script, "script_theater_name_to_s15", "$g_recalculate_ais"),

# (display_message, "@recalculate theater {s15}"),

# (try_end),

(call_script, "script_recalculate_ais", "$g_recalculate_ais"), #g_recalculate_ais also stores the theater to be recalculated

(assign, "$g_recalculate_ais", 0),

]),

# (20) Count faction armies

(24,[ (try_for_range, ":faction_no", kingdoms_begin, kingdoms_end),

(call_script, "script_faction_recalculate_strength", ":faction_no"),

(try_end),

#TLD: ease siege requirements with player level to get a more dynamic game

(store_character_level, ":player_level", "trp_player"),

(try_begin),

(gt, "$tld_player_level_to_begin_war", tld_player_level_to_own_chest), #If player chooses to change war start level higher than the constant

(assign, ":siege_requirements_relax", "$tld_player_level_to_begin_war"),

(else_try),

(assign, ":siege_requirements_relax", tld_player_level_to_own_chest),

(try_end),

(try_begin),

(gt, ":player_level", ":siege_requirements_relax"), #some min level needed to do this

(store_sub, ":new_fac_str_siegable", ":player_level", ":siege_requirements_relax"), #1-..

(val_mul, ":new_fac_str_siegable", "$tld_option_siege_relax_rate"),

(val_add, ":new_fac_str_siegable", fac_str_weak),

(neq, ":new_fac_str_siegable", "$g_fac_str_siegable"), #this is how we determine if the player leveled up :); also makes old savegames work

(assign, "$g_fac_str_siegable", ":new_fac_str_siegable"),

(display_message, "@The war expands, commanders are getting bolder! (siege requirements reduced)"),

(try_end),

#TLD, grow faction strength with time from center income

(try_for_range, ":faction_no", kingdoms_begin, kingdoms_end),

#(faction_slot_ge, ":faction_no", slot_faction_strength, "$tld_option_regen_limit"), #was 1: no annoying regen for dying factions (<500/1000/1500) - Kham removed to allow regen.

(faction_get_slot, ":strength", ":faction_no", slot_faction_strength_tmp),

(faction_get_slot, ":debug_gain", ":faction_no", slot_faction_debug_str_gain), #debug

#(val_add,":strength",ws_faction_restoration), #old flat rate, obsolete

(try_for_range, ":center_no", centers_begin, centers_end),

(party_is_active, ":center_no"),

(party_slot_eq, ":center_no", slot_center_destroyed, 0), #TLD

(store_faction_of_party, ":center_faction", ":center_no"),

(eq, ":center_faction", ":faction_no"), # center belongs to kingdom

(party_slot_eq, ":center_no", slot_center_is_besieged_by, -1), #center not under siege

(party_get_slot, ":strength_income", ":center_no", slot_center_strength_income),

(try_begin), #no income

(this_or_next|eq, "$tld_war_began", 0), #InVain: No incaome before the war starts

(this_or_next|eq, "$tld_option_regen_rate", 2), #Battles only

(eq, "$tld_option_regen_rate", 3), #None

(assign, ":strength_income", 0),

(else_try), #halved income

(this_or_next|eq, "$tld_option_regen_rate", 1),

(le, ":strength", "$tld_option_regen_limit"), #Kham - Let weak factions regen with half income

(val_div, ":strength_income", 2),

(store_mod, ":to_sub_for_rounding", ":strength_income", 5),

(val_sub, ":strength_income", ":to_sub_for_rounding"), #keep it in increments of 5

(try_end),

(try_begin), #evil handicap: if player is evil, evil factions get less

(neg|faction_slot_eq, "$players_kingdom", slot_faction_side, faction_side_good),

(neg|faction_slot_eq, ":faction_no", slot_faction_side, faction_side_good),

(gt, ":strength_income", 0),

(val_div, ":strength_income", 2), #half income - tweakable

(store_mod, ":to_sub_for_rounding", ":strength_income", 5),

(val_sub, ":strength_income", ":to_sub_for_rounding"), #keep it in increments of 5

(val_max, ":strength_income", 5), #has to be >0

(try_end),

#] + (is_a_wb_trigger==1 and [

(try_begin), #campaign AI (difficulty setting)

(store_relation, ":player_relation", ":faction_no", "fac_player_supporters_faction"),

(gt, ":player_relation", 0),

(val_mul, ":strength_income", "$tld_ally_str_income_multi"),

(val_div, ":strength_income", 100),

(try_end),

#] or []) + [

(val_add, ":strength", ":strength_income"),

(val_add, ":debug_gain", ":strength_income"), #debug

(try_end),

#one more evil handicap: Gondor and Rohan get +20.. cheaters! #InVain: Actually, give it to all factions for more fun

(try_begin),

(gt, "$tld_war_began", 0),

(eq, "$tld_option_regen_rate", 0), #Normal

(neg|faction_slot_eq, "$players_kingdom", slot_faction_side, faction_side_good),

(faction_slot_eq, ":faction_no", slot_faction_side, faction_side_good),

# (this_or_next|eq, ":faction_no", "fac_gondor"),

# (eq, ":faction_no", "fac_rohan"),

(val_add, ":strength", 20), #tweakable

(try_end),

(val_min, ":strength", fac_str_max), #limit max strength

(faction_set_slot, ":faction_no", slot_faction_strength_tmp, ":strength"),

(faction_set_slot, ":faction_no", slot_faction_debug_str_gain, ":debug_gain"), #debug

(try_end),

]),

# (21) Decide vassal ai

# 7 hours in vanilla

( 3,[(try_begin),

(ge,"$tld_war_began",1), # vassal AI can change only if War started, GA

(neq,"$tld_war_began",100), #InVain

(call_script, "script_init_ai_calculation"),

(call_script, "script_decide_kingdom_party_ais"), # TLD, script modified to also decide if a lord spawns a host

(try_end),

]),

# (22) Process vassal ai

( 2,[(ge,"$tld_war_began",1), # vassal AI can change only if War started, GA

(call_script, "script_process_kingdom_parties_ai")]),

# (23) Process sieges

(24,[(try_begin),(ge,"$tld_war_began",1),(call_script, "script_process_sieges"),(try_end)]),

# (24) Changing readiness to join army - MV: might remove all "readiness" calculations (including this trigger), so we have maximum lord participation in campaigns

(10,[(try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(assign, ":modifier", 1),

(troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),

(try_begin),

(gt, ":party_no", 0),

(party_is_active, ":party_no"),

(party_get_slot, ":commander_party", ":party_no", slot_party_commander_party),

(ge, ":commander_party", 0),

(party_is_active, ":commander_party"),

(store_faction_of_party, ":faction_no", ":party_no"),

(faction_get_slot, ":faction_marshall", ":faction_no", slot_faction_marshall),

(ge, ":faction_marshall", 0),

(troop_get_slot, ":marshall_party", ":faction_marshall", slot_troop_leaded_party),

(eq, ":commander_party", ":marshall_party"),

(assign, ":modifier", 0), #MV: was -1, no readiness decrease when on campaign ("weariness")

(try_end),

(troop_get_slot, ":readiness", ":troop_no", slot_troop_readiness_to_join_army),

(val_add, ":readiness", ":modifier"),

(val_clamp, ":readiness", 0, 100),

(troop_set_slot, ":troop_no", slot_troop_readiness_to_join_army, ":readiness"),

(assign, ":modifier", 1),

(try_begin),

(gt, ":party_no", 0),

(store_troop_faction, ":troop_faction", ":troop_no"),

(eq, ":troop_faction", "fac_player_supporters_faction"),

(neg|troop_slot_eq, ":troop_no", slot_troop_player_order_state, spai_undefined),

(party_get_slot, ":party_ai_state", ":party_no", slot_party_ai_state),

(party_get_slot, ":party_ai_object", ":party_no", slot_party_ai_object),

#Check if party is following player orders

(try_begin),

(troop_slot_eq, ":troop_no", slot_troop_player_order_state, ":party_ai_state"),

(troop_slot_eq, ":troop_no", slot_troop_player_order_object, ":party_ai_object"),

(assign, ":modifier", -1),

(else_try),

#Leaving following player orders if the current party order is not the same.

(troop_set_slot, ":troop_no", slot_troop_player_order_state, spai_undefined),

(troop_set_slot, ":troop_no", slot_troop_player_order_object, -1),

(try_end),

(try_end),

(troop_get_slot, ":readiness", ":troop_no", slot_troop_readiness_to_follow_orders),

(val_add, ":readiness", ":modifier"),

(val_clamp, ":readiness", 0, 100),

(troop_set_slot, ":troop_no", slot_troop_readiness_to_follow_orders, ":readiness"),

(try_begin),

(lt, ":readiness", 10),

(troop_set_slot, ":troop_no", slot_troop_player_order_state, spai_undefined),

(troop_set_slot, ":troop_no", slot_troop_player_order_object, -1),

(try_end),

(try_end),

]),

# (25) Process alarms

(3,[(call_script, "script_process_alarms")]),

# (26) Process siege ai - modified with script - Kham (Oct 2018)

(3,[(store_current_hours, ":cur_hours"),

#Preparations: Check for besieged centers, store besieger parties, store siege time

(try_for_range, ":center_no", centers_begin, centers_end),

(party_is_active, ":center_no"), #TLD

(party_slot_eq, ":center_no", slot_center_destroyed, 0), #TLD

(party_get_slot, ":besieger_party", ":center_no", slot_center_is_besieged_by),

(gt, ":besieger_party", 0),

(party_is_active, ":besieger_party"),

(store_faction_of_party, ":besieger_faction", ":besieger_party"),

(store_faction_of_party, ":center_faction", ":center_no"),

(party_slot_ge, ":center_no", slot_center_is_besieged_by, 1),

(party_get_slot, ":siege_begin_hours", ":center_no", slot_center_siege_begin_hours),

(store_sub, ":siege_begin_hours", ":cur_hours", ":siege_begin_hours"),

(assign, ":launch_attack", 0),

(assign, ":call_attack_back", 0),

(assign, ":attacker_strength", 0),

(assign, ":marshall_attacking", 0),

#not 100% sure, but this double checks for those hosts that actually besiege the center, circles through, collects their individual party strengths and adds it to the sum of the attacker party strength

(try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

#(troop_slot_eq, ":troop_no", slot_troop_is_prisoner, 0),

(neg|troop_slot_ge, ":troop_no", slot_troop_prisoner_of_party, 0),

(troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),

(gt, ":party_no", 0),

(party_is_active,":party_no"), #GA bugfix

(store_troop_faction, ":troop_faction_no", ":troop_no"),

(eq, ":troop_faction_no", ":besieger_faction"),

(assign, ":continue", 0),

(try_begin),

(party_slot_eq, ":party_no", slot_party_ai_state, spai_besieging_center),

(party_slot_eq, ":party_no", slot_party_ai_object, ":center_no"),

(assign, ":continue", 1),

(else_try),

(party_get_slot, ":commander_party", ":party_no", slot_party_commander_party),

(gt, ":commander_party", 0),

(party_is_active, ":commander_party"),

(party_slot_eq, ":commander_party", slot_party_ai_state, spai_besieging_center),

(party_slot_eq, ":commander_party", slot_party_ai_object, ":center_no"),

(assign, ":continue", 1),

(try_end),

(eq, ":continue", 1),

(party_get_battle_opponent, ":opponent", ":party_no"),

(this_or_next|lt, ":opponent", 0),

(eq, ":opponent", ":center_no"),

(try_begin),

(faction_slot_eq, ":besieger_faction", slot_faction_marshall, ":troop_no"),

(assign, ":marshall_attacking", 1),

(try_end),

(call_script, "script_party_calculate_regular_strength", ":party_no"), # get individual attacker party strength

(val_add, ":attacker_strength", reg0), # colletive attacker party strength

(try_end),

(try_begin),

(gt, ":attacker_strength", 0),

(party_collect_attachments_to_party, ":center_no", "p_collective_enemy"), #get collective defender party strength

(call_script, "script_party_calculate_regular_strength", "p_collective_enemy"),

(assign, ":defender_strength", reg0),

(try_begin),

(eq, "$auto_enter_town", ":center_no"),

(eq, "$g_player_is_captive", 0),

(call_script, "script_party_calculate_regular_strength", "p_main_party"),

(val_add, ":defender_strength", reg0),

(val_mul, ":attacker_strength", 2), #double the power of attackers if the player is defending the center???

(try_end),

(party_get_slot, ":siege_hardness", ":center_no", slot_center_siege_hardness),

(val_add, ":siege_hardness", 100),

(val_mul, ":defender_strength", ":siege_hardness"),

(val_div, ":defender_strength", 100),

(val_max, ":defender_strength", 1),

(try_begin),

(eq, ":marshall_attacking", 1),

(eq, ":besieger_faction", "$players_kingdom"),

(check_quest_active, "qst_follow_army"),

(val_mul, ":attacker_strength", 2), #double the power of attackers if the player is in the campaign

(try_end),

(store_mul, ":strength_ratio", ":attacker_strength", 100),

(val_div, ":strength_ratio", ":defender_strength"),

(store_sub, ":random_up_limit", ":strength_ratio", 250), #Kham - was 200 (TLD 3.5 Apr 2017)

(try_begin),

(neg|faction_slot_ge, ":center_faction", slot_faction_strength, fac_str_very_weak),

(val_max, ":random_up_limit", 0), #MV: if the defending faction is on its knees, even a suicidal siege attack is welcome, as it will lower the garrison and defending lord strength for the next siege; but mostly we hope that the player will intervene and win

(try_end),

(try_begin),

(gt, ":random_up_limit", -100), #never attack if the strength ratio is less than 1:1 (was 2:1)

(store_div, ":siege_begin_hours_effect", ":siege_begin_hours", 3),

(val_add, ":random_up_limit", ":siege_begin_hours_effect"),

(try_end),

(val_div, ":random_up_limit", 5),

(val_max, ":random_up_limit", 0),

(store_sub, ":random_down_limit", 100, ":strength_ratio"), #was 200, less siege retreats now

(val_max, ":random_down_limit", 0),

(try_begin), #:random_up_limit is the chance to decide for attack

(store_random_in_range, ":rand", 0, 100),

(val_add, ":random_up_limit", 20), #kham - lets start sieges earlier

(this_or_next|lt, ":rand", ":random_up_limit"),

(faction_slot_ge, ":besieger_faction", slot_faction_scripted_until, ":cur_hours"), #always attack if in scripted mode

(gt, ":siege_begin_hours", 24),#initial preparation

(assign, ":launch_attack", 1),

(else_try), #if not, :random_down_limit is the chance to give up siege

(store_random_in_range, ":rand", 0, 100),

(lt, ":rand", ":random_down_limit"),

(assign, ":call_attack_back", 1),

(try_end),

(else_try),

(assign, ":call_attack_back", 1),

(try_end),

#Assault the fortress

(try_begin),

(eq, ":launch_attack", 1),

(call_script, "script_begin_assault_on_center", ":center_no"),

(else_try),

(eq, ":call_attack_back", 1),

(try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(neg|troop_slot_ge, ":troop_no", slot_troop_prisoner_of_party, 0),

(troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),

(gt, ":party_no", 0),

(party_is_active, ":party_no"), #Kham - fix

(party_slot_eq, ":party_no", slot_party_ai_state, spai_besieging_center),

(party_slot_eq, ":party_no", slot_party_ai_object, ":center_no"),

(party_slot_eq, ":party_no", slot_party_ai_substate, 1),

(call_script, "script_party_set_ai_state", ":party_no", spai_undefined, -1),

(call_script, "script_party_set_ai_state", ":party_no", spai_besieging_center, ":center_no"),

#resetting siege begin time if at least 1 party retreats

(party_set_slot, ":center_no", slot_center_siege_begin_hours, ":cur_hours"),

(try_end),

(try_end),

(try_end),

]),

# (27) Reset hero quest status

# Change hero relation

(12,[(try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(troop_set_slot, ":troop_no", slot_troop_does_not_give_quest, 0),

(try_end),

(try_for_range, ":troop_no", mayors_begin, mayors_end),

(troop_set_slot, ":troop_no", slot_troop_does_not_give_quest, 0),

(try_end),

]),

# (28) Attach Lord Parties to the town they are in

(0.1,[(try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(troop_get_slot, ":troop_party_no", ":troop_no", slot_troop_leaded_party),

(party_is_active, ":troop_party_no"), #GA. when hero loses battles slot is not emptied, can cause errors

(ge, ":troop_party_no", 1),

(party_get_attached_to, ":cur_attached_town", ":troop_party_no"),

(lt, ":cur_attached_town", 1),

(party_get_cur_town, ":destination", ":troop_party_no"),

(is_between, ":destination", centers_begin, centers_end),

(call_script, "script_get_relation_between_parties", ":destination", ":troop_party_no"),

(try_begin),

(ge, reg0, 0),

(party_attach_to_party, ":troop_party_no", ":destination"),

(else_try),

(party_set_ai_behavior, ":troop_party_no", ai_bhvr_hold),

(try_end),

(try_begin),

(this_or_next|party_slot_eq, ":destination", slot_party_type, spt_town),

(party_slot_eq, ":destination", slot_party_type, spt_castle),

(store_faction_of_party, ":troop_faction_no", ":troop_party_no"),

(store_faction_of_party, ":destination_faction_no", ":destination"),

(eq, ":troop_faction_no", ":destination_faction_no"),

(party_get_num_prisoner_stacks, ":num_stacks", ":troop_party_no"),

(gt, ":num_stacks", 0),

(assign, "$g_move_heroes", 1),

(call_script, "script_party_prisoners_add_party_prisoners", ":destination", ":troop_party_no"),#Moving prisoners to the center

(assign, "$g_move_heroes", 1),

(call_script, "script_party_remove_all_prisoners", ":troop_party_no"),

(try_end),

(try_end),

# Piggybacking on this trigger to check for routed parties.

# (call_script, "script_spawn_routed_parties"),

]),

# (29) Check escape chances of hero prisoners.

(24,[

(assign, ":hero_escape_chance", 210), #player party, scale chance with prisoner management

(party_get_skill_level, ":prs_management", "p_main_party", "skl_prisoner_management"),

(val_mul, ":prs_management", 20),

(val_sub, ":hero_escape_chance", ":prs_management"),

(assign, reg78, ":hero_escape_chance"),

(call_script, "script_randomly_make_prisoner_heroes_escape_from_party", "p_main_party", ":hero_escape_chance"),

(try_for_range, ":center_no", centers_begin, centers_end), #towns, maybe unneeded in TLD?

## (party_slot_eq, ":center_no", slot_town_lord, "trp_player"),

(party_is_active, ":center_no"), #TLD

(party_slot_eq, ":center_no", slot_center_destroyed, 0), #TLD

(assign, ":chance", 30),

(try_begin),

(party_slot_eq, ":center_no", slot_center_has_prisoner_tower, 1),

(assign, ":chance", 5),

(try_end),

(call_script, "script_randomly_make_prisoner_heroes_escape_from_party", ":center_no", ":chance"),

(try_end),

]),

# (30) Respawn hero party after kingdom hero is released from captivity.

(48, # changed from 48 to 24 in TLD, GA # Changed again to 48, but gave them reinforcements - Kham (TLD 3.5 - Apr 2017)

[ (try_for_range, ":troop_no", heroes_begin, heroes_end),

(troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),

(neg|troop_slot_ge, ":troop_no", slot_troop_prisoner_of_party, 0),

(neg|troop_slot_ge, ":troop_no", slot_troop_leaded_party, 1),

(neg|troop_slot_eq, ":troop_no", slot_troop_wound_mask, wound_death),

(store_current_day, ":cur_day"), #set a minimal respawn time

(troop_get_slot, ":day_of_defeat", ":troop_no", slot_troop_respawn_timer),

(val_sub, ":cur_day", ":day_of_defeat"),

(ge, ":cur_day", 2),

(store_random_in_range, ":chance", 0, 7), #chance increases with waiting time, one week maximum

(le, ":chance", ":cur_day"),

(store_troop_faction, ":cur_faction", ":troop_no"),

(try_begin),

(faction_slot_eq, ":cur_faction", slot_faction_state, sfs_active), #MV, defensive

(call_script, "script_cf_select_random_walled_center_with_faction_and_owner_priority_no_siege", ":cur_faction", ":troop_no"),#Can fail

(assign, ":center_no", reg0),

(call_script, "script_create_kingdom_hero_party", ":troop_no", ":center_no"),

(party_attach_to_party, "$pout_party", ":center_no"),

(call_script, "script_cf_reinforce_party", "$pout_party"), #Kham (TLD 3.5 Apr 2017)

(else_try),

(neg|faction_slot_eq, ":cur_faction", slot_faction_state, sfs_active),

(troop_set_slot, ":troop_no", slot_troop_change_to_faction, "fac_commoners"), #TLD: defeated faction lords simply disappear

# (try_begin),

# (is_between, ":troop_no", kings_begin, kings_end),

# (troop_set_slot, ":troop_no", slot_troop_change_to_faction, "fac_commoners"),

# (else_try),

# (store_random_in_range, ":random_no", 0, 100),

# (lt, ":random_no", 10),

# (call_script, "script_cf_get_random_active_faction_except_player_faction_and_faction", ":cur_faction"),

# (troop_set_slot, ":troop_no", slot_troop_change_to_faction, reg0),

# (try_end),

(try_end),

(try_end),

]),

#(72,[(call_script, "script_update_trade_good_prices")]),