"HUMAN_ARCHER_TOWER_ATTACK"
{
	INT my_unit_recno 
	my_unit_recno = FUNC("get_character_recno") 

	// This unit just search for unit for a short range and do idle most of the time

	INT random_number 
	INT enemy_recno
	INT enemy_item_recno
	INT range

	range = FUNC("get_curr_task_para" , my_unit_recno, 1)

	FUNC("set_unit_attack_behaviour", my_unit_recno, "NEAREST_ARCHER")

	enemy_recno = FUNC("search_for_unit" , my_unit_recno, "E" , range, 0, 0, 0) 
	enemy_item_recno = FUNC("search_for_item" , my_unit_recno, "EGC" , range, 0) 

	if( enemy_recno || enemy_item_recno )
	{
		FUNC("set_unit_mode" , my_unit_recno, "ATTACK")
	}

	if ( enemy_recno == 0 && enemy_item_recno == 0 )
	{
		FUNC("set_unit_mode" , my_unit_recno, "ACTIVE" )
	}

	if( FUNC("is_attack_mode" , my_unit_recno) )
	{
		if( enemy_recno )
		{
			ACTION("give_order" , my_unit_recno, "TURN" , 3 , 0 , FUNC("get_rotation" , my_unit_recno, enemy_recno) , 0 , 0 , 0, 2500)

			random_number = FUNC("random_number" , 10)

			if ( random_number < 5 )		// 1/3 attack the enemy!
			{
				ACTION("give_order" , my_unit_recno, "SHOOT" , 2 , 0 , 1 , enemy_recno , 0 , 0, 1500) 
				exit
			}

		}

		if( enemy_item_recno )
		{
			ACTION("give_order" , my_unit_recno, "TURN" , 3 , 0 , FUNC("get_item_rotation" , my_unit_recno, enemy_item_recno) , 0 , 0 , 0, 2500)

			random_number = FUNC("random_number" , 10)

			if ( random_number < 5 )		// 1/3 attack the enemy!
			{
				ACTION("give_order" , my_unit_recno, "SHOOT" , 2 , 0 , 1 , enemy_recno , 0 , 0, 1500) 
				exit
			}

		}
		exit
	}

}
