"S4L1.sce"
{
	INT unit_recno 
	
	INT weapon_shop_tours_recno
	INT	potion_shop_tours_recno
	INT	potion_shop_fierbois_recno
	INT weapon_shop_fierbois_recno
			
	INT	sell_weapon_list_id
	INT	sell_potion_list_id
	INT	sell_weapon_list_id_2
	INT	sell_potion_list_id_2

	init
	{
		if(FUNC("get_scenario_stage") == 0)
		{
			FUNC("set_game_start_date", 1429, 4, 29, 420, 0, 1440)

			FUNC("set_nation_friendship", "ENGLISH", "FRENCH", -77)
			FUNC("set_nation_friendship", "FRENCH", "ENGLISH", -77)
			FUNC("set_relation_status", "ENGLISH", "FRENCH", 0)

			unit_recno = FUNC("load_unit", "JOAN_OF_ARC", "FRENCH") 

			if( unit_recno == 0 )
			{
				unit_recno = FUNC("add_unit", "JOAN_OF_ARC", "FRENCH") 
			}

			FUNC("set_unit_pos", unit_recno,  18752.12, 884.32, -25.50)
			FUNC("set_unit_dir", unit_recno, 100) 
			FUNC("set_unit_ranking", unit_recno, "GENERAL")
			FUNC("set_unit_team", unit_recno, 125)
			FUNC("set_main_character", unit_recno, 1)

			weapon_shop_tours_recno = FUNC("search_facility_by_name" , "Tours Weapon Shop") 
			potion_shop_tours_recno = FUNC("search_facility_by_name" , "Tours Potion Shop") 
			potion_shop_fierbois_recno = FUNC("search_facility_by_name" , "Fierbois Potion Shop") 
			weapon_shop_fierbois_recno = FUNC("search_facility_by_name" , "Fierbois Weapon Shop") 
		
			sell_weapon_list_id = FUNC("search_item_sell_list_by_code" , "S4L1_weapon") 
			sell_potion_list_id = FUNC("search_item_sell_list_by_code" , "S4L1_potion") 
			sell_weapon_list_id_2 = FUNC("search_item_sell_list_by_code" , "S4L2_weapon") 
			sell_potion_list_id_2 = FUNC("search_item_sell_list_by_code" , "S4L2_potion") 
			
			FUNC("shop_set_sell_item_list", weapon_shop_tours_recno , sell_weapon_list_id) 
			FUNC("shop_set_sell_item_list", potion_shop_tours_recno, sell_potion_list_id) 
			FUNC("shop_set_sell_item_list", potion_shop_fierbois_recno , sell_potion_list_id_2) 
			FUNC("shop_set_sell_item_list", weapon_shop_fierbois_recno , sell_weapon_list_id_2) 
			
			FUNC("set_delay_before_win", 15000)
		}

		FUNC("set_fog_distance", 4096) 
		unit_recno = FUNC("search_unit_by_name", "Joanna d'Arc") 
	}

	// run the tactic script for this scenario
	SCRIPT("script\scenario\S4L1_tactic.sce")

	if( FUNC("get_scenario_stage") == 1 )
	{
//		FUNC("set_scenario_stage", 2)

//		FUNC("display_title_screen", "", 10, 0, 0)	// to cover the scene first!
//		FUNC("set_stop_unit_process_flag" , 1)	// enter cut scene! 
//		WAIT{ FUNC("pause_script", 50) }	// wait for the loading of the scene
//		WAIT{ FUNC("display_title_screen", "The Blessed Victory ", 6000, 2000, 2000) }
//		FUNC("set_stop_unit_process_flag" , 0)	// enter cut scene! 
		
		exit		
	}
		
	if( FUNC("get_scenario_stage") == 0 )
	{
		FUNC("set_scenario_stage", 1)
	}	

	// run the finish script for this scenario
	if( FUNC("is_game_finish") == 0 ) 
	{
		SCRIPT("script\scenario\S4L1_finish.sce")
	}

	
	
}