module_scripts_unneeded.py

# -*- coding: utf-8 -*-


####################################################################################################################
# scripts is a list of script records.
# Each script record contns the following two fields:
# 1) Script id: The prefix "script_" will be inserted when referencing scripts.
# 2) Operation block: This must be a valid operation block. See header_operations.py for reference.
####################################################################################################################


#############################  TLD CHEAP PARTY HANDLING  #############################?#
# Objective: spawn fewer parties, to try avoiding corruption
#
# How to use:
#   every time you want to "remove_party" a party, call "script_remove_party" instead.
#   every time you want to "spawn_around_party" a party, call "script_spawn_around_party" instead.
#
# Effect: on removal, party aren't removed, they are just disabled and go dormant. 
#         on creation, if there's a dormant parties of the same tamplate, it is revived and used.

#script_remove_party #unused
("remove_party",[
    (store_script_param_1, ":party"),
    
    (party_set_slot, ":party", slot_party_dormant, 1),
    (party_clear, ":party", slot_party_dormant, 1),
    (party_add_members, ":party", "trp_dormant", 1),
    (disable_party, ":party"), # hide it

    #Debug
    (try_begin),
    	(eq, "$cheat_mode", 1),
    	(str_store_party_name, s1, ":party"),
    	(display_message, "@{!}DEBUG: {s1} made dormant."),
    (try_end),
]),

#script_spawn_around_party #unused
("spawn_around_party",[
    (store_script_param_1, ":around"),
    (store_script_param_2, ":pt"),
    
    # look for a suitable dormant party
    (assign, ":found", -1),
    (try_for_parties, ":party"),
        (lt, ":found", 0),  # didn't find it yet
        (neg|party_is_active, ":party"),  
        (party_slot_eq, ":party", slot_party_dormant, 1),
        (party_get_template_id, ":x", ":party"),(eq, ":x", ":pt"), 
        (assign, ":found", ":party"),
    (try_end),
    
    (try_begin), 
        (ge, ":found", 0), 
        # dormant party found: use it!
        (party_clear, ":found"),
        (party_add_template, ":found", ":pt"),
        (party_set_slot, ":party", slot_party_dormant, 0),
        (enable_party, ":found"), 
        (assign, reg0, ":found"),
        (party_relocate_near_party, reg0, ":around", 2), # use "$dormant_spawn_radius" instead of 2 when we start using the new script below

        #Debug
        (try_begin),
        	(eq, "$cheat_mode", 1),
        	(str_store_party_name, s1, reg0),
        	(str_store_party_name, s2, ":around"),
        	(display_message, "@{!}DEBUG: Dormant {s1} spawned around {s2}"),
        (try_end),

    (else_try),
        # dormant party not found
        (spawn_around_party, ":around", ":pt"),

        #Debug
        (try_begin),
        	(eq, "$cheat_mode", 1),
        	(str_store_party_name, s1, reg0),
        	(str_store_party_name, s2, ":around"),
        	(display_message, "@{!}DEBUG: No Dormant {s1} found. Creating one near {s2}"),
        (try_end),
    (try_end),
]),

#script_set_spawn_radius #unused
("set_spawn_radius",[
  (store_script_param_1, ":x"),
  
  (assign, "$dormant_spawn_radius", ":x"),
  (set_spawn_radius, ":x"),
]),


#script_mt_sneak_2 #unused
("mt_sneak_2",[
	(store_script_param_1, ":enemy_agent"),
	(try_begin),(eq, "$positions", 4),(agent_set_scripted_destination, ":enemy_agent", 1),
	 (else_try),(eq, "$positions", 8),(agent_set_scripted_destination, ":enemy_agent", 5),
	 (else_try),(eq, "$positions", 14),(eq, "$last_agent_position", 13),(agent_set_scripted_destination, ":enemy_agent", 13),
	 (else_try),(eq, "$positions", 13),(eq, "$last_agent_position", 14),(agent_set_scripted_destination, ":enemy_agent", 12),
	 (else_try),(eq, "$positions", 12),(eq, "$last_agent_position", 13),(agent_set_scripted_destination, ":enemy_agent", 11),
	 (else_try),(eq, "$positions", 11),(eq, "$last_agent_position", 12),(agent_set_scripted_destination, ":enemy_agent", 10),
	 (else_try),(eq, "$positions", 10),(eq, "$last_agent_position", 11),(agent_set_scripted_destination, ":enemy_agent", 9),
	 (else_try),(eq, "$positions", 20),(eq, "$last_agent_position", 19),(agent_set_scripted_destination, ":enemy_agent", 19),
	 (else_try),(eq, "$positions", 19),(eq, "$last_agent_position", 20),(agent_set_scripted_destination, ":enemy_agent", 16),
	 (else_try),(eq, "$positions", 16),(eq, "$last_agent_position", 19),(agent_set_scripted_destination, ":enemy_agent", 15),
	 (else_try),(assign, reg20, "$positions"),(val_add, reg20, 1),(agent_set_scripted_destination, ":enemy_agent", reg20),
	(try_end),
]), 
#script_isen_sneak_1 #unused
("isen_sneak_1",[
	(store_script_param_1, ":enemy_agent"),
	(try_begin),(eq, "$positions", 1),(agent_set_scripted_destination, ":enemy_agent", 2),
	 (else_try),(eq, "$positions", 2),(agent_set_scripted_destination, ":enemy_agent", 1),
	 (else_try),(eq, "$positions", 3),(agent_set_scripted_destination, ":enemy_agent", 4),
	 (else_try),(eq, "$positions", 4),(agent_set_scripted_destination, ":enemy_agent", 3),
	 (else_try),(eq, "$positions", 6),(agent_set_scripted_destination, ":enemy_agent", 7),
	 (else_try),(eq, "$positions", 7),(agent_set_scripted_destination, ":enemy_agent", 6),
	 (else_try),(eq, "$positions", 9),(agent_set_scripted_destination, ":enemy_agent",10),
	 (else_try),(eq, "$positions",10),(agent_set_scripted_destination, ":enemy_agent", 9),
	 (else_try),(eq, "$positions",14),(agent_set_scripted_destination, ":enemy_agent",15),
	 (else_try),(eq, "$positions",15),(agent_set_scripted_destination, ":enemy_agent",14),
	 (else_try),(eq, "$positions",16),(agent_set_scripted_destination, ":enemy_agent",17),
	 (else_try),(eq, "$positions",17),(agent_set_scripted_destination, ":enemy_agent",16),
	 (else_try),(assign, reg20, "$positions"),(val_add, reg20, 1),(agent_set_scripted_destination, ":enemy_agent", reg20),
	(try_end),
]),

  
# script_injure_companions #unused - instead script_injury_routine is called directly
("injure_companions",[
 	 (try_begin),
		(eq, "$tld_option_injuries",1),
		(try_for_range, ":npc",companions_begin,new_companions_end), # assume companions are always in our main party, if ever spawned on battlefield
        	(this_or_next|is_between, ":npc", companions_begin, companions_end),
    		(is_between, ":npc", new_companions_begin, new_companions_end),
			(troop_slot_eq, ":npc", slot_troop_wounded, 1), # was wounded in this battle?
			(call_script, "script_injury_routine", ":npc"),
			(troop_set_slot,":npc", slot_troop_wounded, 0),
		(try_end),
	(try_end),  
]),


#unused
("cf_get_custom_armor_ranges", [
	(store_script_param_1, ":troop_id"),
	(store_script_param_2, ":item_id"),

	(troop_get_inventory_slot_modifier, ":imod", ":troop_id", ek_body),
	(gt, ":imod", 0),

	(try_begin),
		(eq, ":imod", imod_powerful),
		(eq, ":item_id", "itm_white_tunic_a"),
		(assign, reg0, "str_dale_coat"),
		(assign, reg1, "str_tld_wear"),
	(else_try),
		(eq, ":imod", imod_fresh),
		(eq, ":item_id", "itm_white_tunic_a"),
		(assign, reg0, "str_tld_wear"),
		(assign, reg1, "str_dale_coat_end"),
	(try_end),
]),

#unused
("set_mordor_cloud_scene_prop", [
	(get_player_agent_no, ":player"),
	(agent_get_position, pos23, ":player"),
	(set_spawn_position, pos23),
	(spawn_scene_prop, "spr_mordor_clouds_3", 0),
	(assign, ":mordor_clouds", reg0),
	(set_fixed_point_multiplier, 10),
	(prop_instance_set_scale, ":mordor_clouds", 500,500,500),
	(display_message, "@{!}Mordor Cloud Spawned"),]),

#unused
("lorien_mist_effect", [

	(get_player_agent_no, ":player"),
	(agent_get_team, ":player_team", ":player"),
	(faction_get_slot, ":player_side", "$players_kingdom", slot_faction_side),

	(try_for_agents, ":agent"),
		(agent_is_active, ":agent"),
		(agent_is_alive, ":agent"),
		(agent_get_team, ":agent_team", ":agent"),
		(try_begin),
			(eq, ":player_side", faction_side_good), #If Good
			(try_begin),
				(eq, ":agent_team", ":player_team"),
				(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_BUFF),
				(agent_set_reload_speed_modifier, ":agent", RANGED_RELOAD_SPEED_BUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A golden mist from Lórien covers the battlefield. Your troops feel encouraged by the presence of the Lady.", color_neutral_news),
				(try_end),
			(else_try),
				(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF),
				(agent_set_reload_speed_modifier, ":agent", RANGED_RELOAD_SPEED_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A golden mist from Lórien covers the battlefield. The witch is near, sending shivers down you and your troops' spine.", color_neutral_news),
				(try_end),
			(try_end),
		(else_try), #If Player is Evil
			(eq, ":agent_team", ":player_team"), #And agent is in player's team
			(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF),
			(agent_set_reload_speed_modifier, ":agent", RANGED_RELOAD_SPEED_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A golden mist from Lórien covers the battlefield. The witch is near, sending shivers down you and your troops' spine.", color_neutral_news),
				(try_end),
		(else_try), #If Player is Evil
			(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_BUFF), #and agent is not in player's team, they must be good.
			(agent_set_reload_speed_modifier, ":agent", RANGED_RELOAD_SPEED_BUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A golden mist from Lórien covers the battlefield. Your troops feel encouraged by the presence of the Lady.", color_neutral_news),
				(try_end),
		(try_end),
	(try_end),
 ]),

#unused
("sauron_darkness_effect", [

	(get_player_agent_no, ":player"),
	(agent_get_team, ":player_team", ":player"),
	(faction_get_slot, ":player_side", "$players_kingdom", slot_faction_side),

	(try_for_agents, ":agent"),
		(agent_is_active, ":agent"),
		(agent_is_alive, ":agent"),
		(agent_get_team, ":agent_team", ":agent"),
		(try_begin),
			(eq, ":player_side", faction_side_good), #If Good
			(try_begin),
				(eq, ":agent_team", ":player_team"),
				(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF),
				(agent_set_reload_speed_modifier, ":agent", RANGED_RELOAD_SPEED_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@Dark clouds from Mordor cover the battlefield. Your archers have trouble seeing the enemy, and the presence of evil terrifies your men.", color_neutral_news),
				(try_end),
			(else_try),
				(agent_set_damage_modifier, ":agent", WEAPON_DAMAGE_BUFF),
				(agent_set_speed_modifier, ":agent", SPEED_BUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@Dark clouds from Mordor cover the battlefield. The Dark Lord's presence strengthens you and your men.", color_neutral_news),
				(try_end),
			(try_end),
		(else_try), #If Player is Evil
			(eq, ":agent_team", ":player_team"), #And agent is in player's team
			(agent_set_damage_modifier, ":agent", WEAPON_DAMAGE_BUFF),
			(agent_set_speed_modifier, ":agent", SPEED_BUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@Dark clouds from Mordor cover the battlefield. The Dark Lord's presence strengthens you and your men.", color_neutral_news),
				(try_end),
		(else_try), #If Player is Evil
			(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF), #and agent is not in player's team, they must be good.
			(agent_set_reload_speed_modifier, ":agent", RANGED_RELOAD_SPEED_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@Dark clouds from Mordor cover the battlefield. Your archers have trouble seeing the enemy, and the presence of evil terrifies your men.", color_neutral_news),
				(try_end),
		(try_end),
	(try_end),
 ]),

#unused
("saruman_storm_effect", [

	(get_player_agent_no, ":player"),
	(agent_get_team, ":player_team", ":player"),
	(faction_get_slot, ":player_side", "$players_kingdom", slot_faction_side),

	(try_for_agents, ":agent"),
		(agent_is_active, ":agent"),
		(agent_is_alive, ":agent"),
		(agent_get_team, ":agent_team", ":agent"),
		(try_begin),
			(eq, ":player_side", faction_side_good), #If Good
			(try_begin),
				(eq, ":agent_team", ":player_team"),
				(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF),
				(agent_set_speed_modifier, ":agent", SPEED_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A thunderstorm from the Misty Mountains rages over the battlefield. Your troops are slowed down, and the superstitious amongst the men feel scared.", color_neutral_news),
				(try_end),
			(else_try),
				(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A thunderstorm from the Misty Mountains rages over the battlefield. Archers have difficulty in this weather.", color_neutral_news),
				(try_end),
			(try_end),
		(else_try), #If Player is Evil
			(eq, ":agent_team", ":player_team"), #And agent is in player's team
			(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A thunderstorm from the Misty Mountains rages over the battlefield. Archers have difficulty in this weather.", color_neutral_news),
				(try_end),
		(else_try), #If Player is Evil
			(agent_set_accuracy_modifier, ":agent", RANGED_ACCURACY_DEBUFF), #and agent is not in player's team, they must be good.
			(agent_set_speed_modifier, ":agent", SPEED_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A thunderstorm from the Misty Mountains rages over the battlefield. Your troops are slowed down, and the superstitious amongst the men feel scared.", color_neutral_news),
				(try_end),
		(try_end),
	(try_end),
 ]),

#unused
("guldur_fog_effect", [

	(get_player_agent_no, ":player"),
	(agent_get_team, ":player_team", ":player"),
	(faction_get_slot, ":player_side", "$players_kingdom", slot_faction_side),

	(try_for_agents, ":agent"),
		(agent_is_active, ":agent"),
		(agent_is_alive, ":agent"),
		(agent_get_team, ":agent_team", ":agent"),
		(try_begin),
			(eq, ":player_side", faction_side_good), #If Good
			(try_begin),
				(eq, ":agent_team", ":player_team"),
				(agent_set_max_hit_points, ":agent", MAX_HEALTH_DEBUFF),
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A poisonous fog from Dol Guldur lingers on the battlefield. You and your troops feel weakened. There is fear amongst the men.", color_neutral_news),
				(try_end),
			(try_end),
		(else_try), #If Player is Evil
			(eq, ":agent_team", ":player_team"), #And agent is in player's team
			# Do nothing
				(try_begin), #DEBUG
					(eq, ":agent", ":player"),
					(display_message, "@A poisonous fog from Dol Guldur lingers on the battlefield. You do not feel any different, but you hear your enemies suffer and you can smell their fear.", color_neutral_news),
				(try_end),
		(else_try), #If Player is Evil
			(agent_set_max_hit_points, ":agent", MAX_HEALTH_DEBUFF), #and agent is not in player's team, they must be good.
		(try_end),
	(try_end),
 ]),

#unused
("wield_agent_weapons", [
	(store_script_param_1, ":agent"),

	(agent_get_troop_id, ":troop", ":agent"),
	(assign, ":found", 0),
	(try_for_range, ":weapons", ek_item_0, ek_head),
		(eq, ":found", 0),
		(troop_get_inventory_slot, ":to_wield", ":troop", ":weapons"),
		(gt, ":to_wield", 0),
		(item_get_type, ":type", ":to_wield"),
		(this_or_next|eq,":type", itp_type_one_handed_wpn),
		(this_or_next|eq,":type", itp_type_two_handed_wpn),
		(eq, ":type", itp_type_polearm),
		(agent_set_wielded_item, ":agent", ":to_wield"),
		(assign, ":found", 1),
	(try_end),
	(assign, ":found_2", 0),
	(try_for_range, ":weapons", ek_item_0, ek_head),
		(eq, ":found_2", 0),
		(troop_get_inventory_slot, ":to_wield", "trp_player", ":weapons"),
		(gt, ":to_wield", 0),
		(item_get_type, ":type", ":to_wield"),
		(eq, ":type", itp_type_shield),
		(agent_set_wielded_item, ":agent", ":to_wield"),
		(assign, ":found_2", 1),
	(try_end),
	]),


####from module_items BEGIN

def troll_aoe(item):
  return (ti_on_weapon_attack, [
    ] + (is_a_wb_item==1 and [

    (store_trigger_param_1, ":agent_no"),

    (agent_is_active, ":agent_no"),
    (agent_is_alive, ":agent_no"),

    (store_random_in_range, ":rand", 0, 2),
    (eq, ":rand", 0), # 1/2 chance of dealing AOE

    (agent_get_attack_action, ":action", ":agent_no"),
  
    (is_between, ":action", 2, 7),
    #(display_message, "@Clear"), 

    (agent_get_position, pos9, ":agent_no"),
    (set_fixed_point_multiplier, 100),

    (try_for_agents, ":aoe_hit", pos9, 200),
      (agent_is_active, ":aoe_hit"),
      (agent_is_alive, ":aoe_hit"),
      (agent_is_human, ":aoe_hit"),
      (neq, ":aoe_hit", ":agent_no"), #don't hit yourself
      (gt, ":aoe_hit", 0),

      (agent_get_troop_id, ":victim_troop_id", ":aoe_hit"),
      (troop_get_type, ":victim_type", ":victim_troop_id"),
      (agent_get_horse, ":victim_horse", ":aoe_hit"),
      
      (store_random_in_range, ":flyback_anim", 0, 2),
      # then, set animation
      
      (neq, ":victim_type", tf_troll), #no flyback for trolls

      (try_begin),   
      # human (non trolls, non horse) victims
        (try_begin),
          (eq, ":flyback_anim", 0),
      # troll is in front of victim
          (agent_set_animation, ":aoe_hit", "anim_strike_fly_back_rise_from_left"), # send them flying back
        (else_try),
          (agent_set_animation, ":aoe_hit", "anim_strike_fly_back_rise"), # send them flying back
        (try_end),

      (store_random_in_range, ":rand_sound", 0, 6),
      (try_begin),
        (eq, ":rand_sound", 0),
        (agent_play_sound, ":aoe_hit", "snd_wooden_hit_low_armor_low_damage"),
      (else_try),
        (eq, ":rand_sound", 1),
        (agent_play_sound, ":aoe_hit", "snd_wooden_hit_low_armor_high_damage"),
      (else_try),
        (eq, ":rand_sound", 2),
        (agent_play_sound, ":aoe_hit", "snd_wooden_hit_high_armor_low_damage"),
      (else_try),
        (eq, ":rand_sound", 3),
        (agent_play_sound, ":aoe_hit", "snd_wooden_hit_high_armor_low_damage"),
      (else_try),
        (eq, ":rand_sound", 4),
        (agent_play_sound, ":aoe_hit", "snd_wooden_hit_high_armor_high_damage"),
      (else_try),
        (agent_play_sound, ":aoe_hit", "snd_blunt_hit"),
      (try_end),

        (try_begin),
          (gt, ":victim_horse", 1),
          (agent_start_running_away, ":victim_horse"),
          (agent_stop_running_away, ":victim_horse"),
        (try_end),
        (store_random_in_range,":random_timings",1,5),
        (agent_set_animation_progress, ":aoe_hit", ":random_timings"), # differentiate timings a bit

        (item_get_swing_damage, ":damage", item),
        (val_div, ":damage", 2),
        (agent_deliver_damage_to_agent, ":agent_no", ":aoe_hit", ":damage"),

      (try_end),
    (try_end),
     ] or []) + [ 
    ])

def custom_reskin(item):
  return (ti_on_init_item, [
    ] + (is_a_wb_item==1 and [
    # (store_trigger_param_1, ":agent_no"), #disabled to suppress compiler warnings
    (store_trigger_param_2, ":troop_no"),
    (troop_slot_eq, ":troop_no", slot_troop_has_custom_armour, 1),

    (call_script, "script_cf_get_custom_armor_ranges", ":troop_no", item),
    (assign, ":start", reg0),
    (assign, ":end", reg1),

    (str_clear, s1),
    #(item_get_slot, ":start", item, slot_item_materials_begin),
    #(item_get_slot, ":end", item, slot_item_materials_end),
    (store_sub, ":total", ":end", ":start"),
    (gt, ":total", 0),
    (try_begin),
      (gt, ":troop_no", -1),
      (troop_is_hero, ":troop_no"),
      (item_get_slot, ":value", item, slot_item_player_color),
      (neq, ":value", -1),
      (val_mod, ":value", ":total"),
      (val_add, ":value", ":start"),
    (else_try),
      (store_random_in_range, ":value", ":start", ":end"),
    (try_end),
    (try_begin),
      (str_store_string, s1, ":value"),
      (cur_item_set_material, s1, 0),
    (try_end),
    ] or []) + [ 
    ])


# Dunde's 1 Liner Heraldic Code
def heraldic(item_tableau):
  return (ti_on_init_item, [(store_trigger_param_1, ":agent_no"),(store_trigger_param_2, ":troop_no"),(call_script, "script_shield_item_set_banner", item_tableau, ":agent_no", ":troop_no")])

####from module_items END

############ RESCUE & STEALTH FROM 808 BEGINS##############################################
# #script_infiltration_battle_wall
# ("infiltration_battle_wall",[
	# (set_jump_mission, "mt_battle_wall_mission"),
	# (reset_visitors),
	# (modify_visitors_at_site, "$rescue_wall_battle"),
		# (try_for_range, reg1, 10, 20),
		# (store_random_in_range, reg2, 1, 6),
		# (try_begin),(eq, reg2, 1),(assign, reg3, "$wall_mounted_troop1"),
		 # (else_try),(eq, reg2, 2),(assign, reg3, "$guard_troop3"),
		 # (else_try),(eq, reg2, 3),(assign, reg3, "$wall_mounted_troop3"),
		 # (else_try),(eq, reg2, 4),(assign, reg3, "$guard_troop4"),
		 # (else_try),(eq, reg2, 5),(assign, reg3, "$wall_mounted_troop5"),
		# (try_end),
		# (set_visitor, reg1, reg3, 0),
	# (try_end),
	# (try_for_range, reg1, 23, 27),
		# (store_random_in_range, reg2, 1, 6),
		# (try_begin),(eq, reg2, 1),(assign, reg3, "$wall_missile_troop1"),
		 # (else_try),(eq, reg2, 2),(assign, reg3, "$wall_missile_troop2"),
		 # (else_try),(eq, reg2, 3),(assign, reg3, "$wall_missile_troop3"),
		 # (else_try),(eq, reg2, 4),(assign, reg3, "$wall_missile_troop4"),
		 # (else_try),(eq, reg2, 5),(assign, reg3, "$wall_missile_troop5"),
		# (try_end),
		# (set_visitor, reg1, reg3, 0),
	# (try_end),
	# (call_script, "script_set_infiltration_companions"),
# ]), 
# #script_infiltration_combat_2
# ("infiltration_combat_2",[
	# (set_jump_mission, "mt_infiltration_combat_mission"),
	# (jump_to_scene, "$rescue_courtyard_scene_2", 0),
	# (reset_visitors),
	# (modify_visitors_at_site, "$rescue_courtyard_scene_2"),
	# (call_script, "script_set_infiltration_companions"),
	# (assign, reg1, "$guard_troop2"),
	# (assign, reg2, "$guard_troop2"),
	# (assign, reg3, "$guard_troop3"),
	# (assign, reg4, "$guard_troop3"),
	# (assign, reg5, "$guard_troop4"),
	# (assign, reg5, "$guard_troop4"),
	# (assign, reg7, "$guard_troop5"),
	# (assign, reg8, "$guard_troop5"),
	# (assign, reg9, "$guard_troop6"),
	# (assign, reg10, "$guard_troop6"),
	# (assign, reg11, "$guard_troop7"),
	# (assign, reg12, "$guard_troop7"),
	# (assign, reg13, "$guard_troop8"),
	# (assign, reg14, "$guard_troop8"),
	# (assign, reg15, "$guard_troop9"),
	# (assign, reg16, "$guard_troop9"),
	# (assign, reg17, "$guard_troop10"),
	# (store_random_in_range, ":local0", 1, 6),
	# (val_add, ":local0", "$meta_alarm"),
	# (val_min, ":local0", 10),
	# (val_add, ":local0", 10),
	# (assign, ":local1", 7),
	# (val_add, ":local1", "$meta_alarm"),
	# (try_for_range, ":entry", 10, ":local0"),
		# (shuffle_range, 1, ":local1"),
		# (neg|eq, reg1, 0),
		# (set_visitor, ":entry", reg1, 0),
	# (try_end),
# ]), 
#script_infiltration_stealth_1
# ("infiltration_stealth_1",[
	# (set_jump_mission, "mt_infiltration_stealth_mission"),
	# (jump_to_scene, "$rescue_final_scene", 0),
	# (reset_visitors),
	# (modify_visitors_at_site, "$rescue_final_scene"),
	# (set_visitor, 0, "trp_player", 0),
	# (set_visitor, 1, "$guard_troop2", 0),
	# (set_visitor, 3, "$guard_troop2", 0),
	# (set_visitor, 6, "$guard_troop2", 0),
	# (set_visitor, 9, "$guard_troop2", 0),
	# (set_visitor, 14, "$guard_troop2", 0),
	# (set_visitor, 16, "$guard_troop2", 0),
	# ]), 
    
# #script_rescue_information
# ("rescue_information",[
	# (try_begin),
		# (eq, "$rescue_stage", 0),
		# (display_message, "@You_have_been_discovered_before_scaling_the_wall.", 4294901760),
		# (display_message, "@The_enemy_is_coming_in_force,_you_must_flee!", 4294901760),
	  # (else_try),
		# (eq, "$rescue_stage", 1),
		# (display_message, "@Scout_this_area_alone_and_meet_your_men_beyond!", 4294901760),
		# (display_message, "@Be_stealthy_but_eliminate_any_threats_quickly!", 4294901760),
	  # (else_try),
		# (eq, "$rescue_stage", 2),
		# (display_message, "@You_are_spotted_by_a_patrol!", 4294901760),
		# (display_message, "@Eliminate_them_before_the_alarm_spreads!", 4294901760),
	  # (else_try),
		# (eq, "$rescue_stage", 3),
		# (display_message, "@Scout_this_area_alone_and_meet_your_men_beyond!", 4294901760),
		# (display_message, "@Be_stealthy_but_eliminate_any_threats_quickly!", 4294901760),
	  # (else_try),
		# (eq, "$rescue_stage", 4),
		# (display_message, "@You_are_spotted_by_a_patrol!", 4294901760),
		# (display_message, "@Eliminate_them_before_the_alarm_spreads!", 4294901760),
	  # (else_try),
		# (eq, "$rescue_stage", 5),
		# (display_message, "@You_have_reached_the_dungeons!", 0),
		# (display_message, "@Eliminate_the_guards_and_free_your_men!", 0),
	# (try_end),
# ]),