./main_menu_common.lua

```
Menu_hint_bar = -1 
```

Main_menu_coop_is_xbox_live = -1			-- bool to determine whether main_menu_coop is xbox live or system link...

```
Main_menu_common_doc_h = -1 
```
```
 
```
```
Header_obj = -1 
```
```
Header_mini_obj = -1 
```
```
List = -1 
```
```
Screen_mask = -1 
```
```
Screen_slide_out_anim = -1 
```
```
Screen_slide_in_anim = -1 
```
```
Screen_in_anim = -1 
```
```
Screen_out_anim = -1 
```
```
Screen_back_in_anim = -1 
```
```
Screen_back_out_anim = -1 
```
```
 
```
```
SAVE_OPERATION_SAVE_GAME = 0 
```
```
SAVE_OPERATION_LOAD_GAME = 1 
```

Save_system_operation = SAVE_OPERATION_LOAD_GAME

```
 
```
```
COOP_INVITE_LIST			= 0 
```
```
COOP_ONLINE_JOIN_LIST  	= 1 
```
```
COOP_SYSLINK_JOIN_LIST 	= 2 
```

Coop_connect_operation = COOP_ONLINE_JOIN_LIST

```
 
```
```
Enter_dlc_menu = false 
```
```
Load_for_coop = false 
```
```
In_pause_menu = false 
```
```
Exit_after_closing = false 
```
```
First_time = true 
```
```
Save_message_displayed = false 
```
```
Start_game_after_display = false 
```
```
Show_continue = false 
```
```
Press_start_called = false 
```
```
Close_all_menu = false 
```
```
Join_friend_after_display = -1 
```
```
In_silverlink_menu = false 
```
```
Silverlink_rewards_type = -1 
```
```
 
```
```
-- PC Menu has height adjusted 
```
```
local PC_menu_adjusted = false 
```
```
 
```
```
function main_menu_common_init() 
```

	Main_menu_common_doc_h = vint_document_find("main_menu_common")

```
 
```

	--sync the main menu logo anim if availble

	local bg_saints_doc_handle = vint_document_find("bg_saints")

	if bg_saints_doc_handle ~= 0 and bg_saints_doc_handle ~= nil then

		if Bg_staints_play_logo_slide == true then

			local intro_logo_slide_anim_h = vint_object_find("intro_logo_slide_anim", 0, Main_menu_common_doc_h)

			vint_apply_start_values(intro_logo_slide_anim_h)

			lua_play_anim(intro_logo_slide_anim_h)

```
		end 
```
```
		Bg_staints_play_logo_slide = false 
```
```
	end 
```
```
	 
```
```
	 
```
```
	-- Japanese Logo version... 
```

	local logo_jp_h = vint_object_find("logo_jp")

```
	 
```
```
	--Adjust logo if we are japanese... 
```
```
	if game_get_language() == "JP" then 
```

		vint_set_property(logo_jp_h, "visible", true)

```
	else 
```

		vint_set_property(logo_jp_h, "visible", false)

```
	end 
```
```
	 
```

	List = Vdo_mega_list:new("list", 0, Main_menu_common_doc_h, "main_menu_common.lua", "List")

	List:set_highlight_color(COLOR_STORE_REWARDS_PRIMARY, COLOR_STORE_REWARDS_SECONDARY)

```
	 
```

	Header_obj = Vdo_pause_header:new("header",0,Main_menu_common_doc_h)

```
 
```
```
	List:set_visible(false) 
```
```
	Header_obj:set_visible(false) 
```
```
	 
```
```
	--For silverlink menu... 
```

	Header_mini_obj = Vdo_pause_header_mini:new("header_mini", 0, Main_menu_common_doc_h)

```
	Header_mini_obj:set_visible(false) 
```
```
	 
```

	Screen_mask = vint_object_find("screen_mask",0,Main_menu_common_doc_h)

```
	 
```

	Screen_in_anim = Vdo_anim_object:new("screen_in_anim",0,Main_menu_common_doc_h)

	local twn = Vdo_tween_object:new("screen_in_twn", Screen_in_anim.handle)

	twn:set_end_event("menu_common_anim_in_cb")

```
	 
```

	Screen_out_anim = Vdo_anim_object:new("screen_out_anim",0,Main_menu_common_doc_h)

	local twn2 = Vdo_tween_object:new("screen_out_twn", Screen_out_anim.handle)

	twn2:set_end_event("menu_common_anim_out_cb")

```
	 
```

	Screen_slide_out_anim = Vdo_anim_object:new("screen_slide_out_anim",0,Main_menu_common_doc_h)

	local twn_out = Vdo_tween_object:new("screen_slide_out_twn1", Screen_slide_out_anim.handle)

	twn_out:set_end_event("menu_common_anim_out_cb")

```
	 
```

	Screen_slide_in_anim = Vdo_anim_object:new("screen_slide_in_anim",0,Main_menu_common_doc_h)

	local twn_in = Vdo_tween_object:new("screen_slide_in_twn1", Screen_slide_in_anim.handle)

	twn_in:set_end_event("menu_common_anim_in_cb")

```
	 
```

	Screen_back_in_anim = Vdo_anim_object:new("screen_back_in_anim",0,Main_menu_common_doc_h)

	local twn_back_in = Vdo_tween_object:new("back_in_twn1", Screen_back_in_anim.handle)

	twn_back_in:set_end_event("menu_common_anim_in_cb")

```
	 
```

	Screen_back_out_anim = Vdo_anim_object:new("screen_back_out_anim",0,Main_menu_common_doc_h)

	local twn_back_out = Vdo_tween_object:new("back_out_twn1", Screen_back_out_anim.handle)

	twn_back_out:set_end_event("menu_common_anim_out_cb")

```
	 
```

	bg_saints_set_type(BG_TYPE_VIDEO,true)

```
	 
```
```
	--Hide everything on init... 
```
```
	main_menu_logo_hide() 
```
```
	 
```

	-- Move the title up on PC to make room for the extra options

	if game_get_platform() == "PC" and PC_menu_adjusted == false then

```
		--[[ 
```

		local base_logo_h = vint_object_find("base_logo")

		local x, y = vint_get_property(base_logo_h, "anchor")

```
		if vint_is_std_res() then 
```

			vint_set_property(base_logo_h, "anchor", x, y - 35)

```
		else 
```

			vint_set_property(base_logo_h, "anchor", x, y - 25)

```
		end 
```
```
		]] 
```
```
		PC_menu_adjusted = true 
```
```
	end 
```
```
	 
```
```
	--Hide silverlink logo... 
```

	local silverlink_logo_h = vint_object_find("silverlink_logo")

	vint_set_property(silverlink_logo_h, "visible", false)

```
	 
```
```
	--Hide silverlink logo... 
```

	local logged_in_text_h = vint_object_find("logged_in_text", 0, Main_menu_common_doc_h)

	vint_set_property(logged_in_text_h, "visible", false)

```
	 
```

	  -- HVS_EC  Set GPU Reserve on  (Enable Kinect Eye)

```
	os_set_gpu_reserve_state(true) 
```
```
end 
```
```
 
```
```
function main_menu_common_cleanup() 
```

 -- HVS_EC  Set GPU Reserve off  (Disable Kinect Eye)

```
	os_set_gpu_reserve_state(false) 
```
```
end 
```
```
 
```

-------------------------------------------------------------------------------

```
-- Start the bg video... 
```

-------------------------------------------------------------------------------

function main_menu_start_video(has_pressed_start)

	--local intro_logo_slide_anim_h = vint_object_find("intro_logo_slide_anim", 0, Main_menu_common_doc_h)

	--vint_apply_start_values(intro_logo_slide_anim_h)

	--lua_play_anim(intro_logo_slide_anim_h)

```
	 
```

	--bg_saints_set_video("main_menu_bg.bik")

	-- HVS_BDF 4/10/14: we use Bink 2 on SR4GAT

	bg_saints_set_video("main_menu_bg.bk2")

```
	if not has_pressed_start then 
```
```
		--bg_saints_press_start_setup() 
```
```
	end 
```

	bg_saints_play_video(true, "video_stopped")

```
	 
```
```
	if has_pressed_start == true then  
```
```
		--bg_saints_main_menu_setup() 
```
```
	end 
```
```
end 
```
```
 
```
```
function main_menu_stop_video() 
```

	bg_saints_play_video(false, "video_stopped")

```
end 
```
```
 
```
```
function video_stopped() 
```
```
	main_menu_video_has_stopped() 
```
```
end 
```
```
 
```
```
function main_menu_common_reset() 
```
```
	--main_menu_restart_video() 
```

	-- Move the title up on PC to make room for the extra options

```
	Header_obj:reset_width() 
```
```
	if game_get_platform() == "PC" then 
```
```
		--[[ 
```

		local base_logo_h = vint_object_find("base_logo")

		local x, y = vint_get_property(base_logo_h, "anchor")

```
		if vint_is_std_res() then 
```

			vint_set_property(base_logo_h, "anchor", x, y - 35)

```
		else 
```

			vint_set_property(base_logo_h, "anchor", x, y - 25)

```
		end 
```
```
		]] 
```
```
		PC_menu_adjusted = true 
```
```
	end 
```
```
end 
```
```
 
```

-------------------------------------------------------------------------------

```
-- Show logo... 
```

-------------------------------------------------------------------------------

```
function main_menu_logo_show() 
```
```
	--show the main menu logo. 
```
```
	 
```

	local intro_logo_anim_h = vint_object_find("intro_logo_anim", 0, Main_menu_common_doc_h)

	lua_play_anim(intro_logo_anim_h, 0, Main_menu_common_doc_h)

```
	 
```

	local logo_h = vint_object_find("base_logo", 0, Main_menu_common_doc_h)

```
	vint_set_property(logo_h, "alpha", 1) 
```
```
	 
```
```
	First_time = true 
```
```
end 
```
```
 
```

-------------------------------------------------------------------------------

```
-- Hide logo... 
```

-------------------------------------------------------------------------------

```
function main_menu_logo_hide() 
```
```
	--we probably don't need this... 
```
```
	 
```

	local intro_logo_anim_h = vint_object_find("intro_logo_anim", 0, Main_menu_common_doc_h)

	vint_set_property(intro_logo_anim_h, "is_paused", true)

```
	 
```

	local logo_h = vint_object_find("base_logo", 0, Main_menu_common_doc_h)

```
	vint_set_property(logo_h, "alpha", 0) 
```
```
	 
```
```
end 
```
```
 
```

-------------------------------------------------------------------------------

---LEGACY C++ stuff from the old main menu...

```
-- Lets clean this up. 
```

-------------------------------------------------------------------------------

function main_menu_controller_selected(show_continue)

	Main_menu_controller_is_selected = true

```
	Show_continue = show_continue 
```
```
	 
```
```
	main_menu_top_press_start_hide() 
```
```
	main_menu_top_menu_show() 
```
```
	 
```
```
	if Press_start_called == false then 
```
```
		bg_saints_main_menu_setup() 
```
```
		Press_start_called = true 
```
```
	end 
```
```
end 
```
```
 
```

--FORCES the player to a specific menu...

```
function main_menu_force_to_menu() 
```

	--Don't do anything because we shouldn't

```
--[[ 
```

	if Main_menu_controller_selected == false then

```
		Main_menu_first_menu = menu_name 
```
```
	else 
```
```
		main_menu_close_extra_screens(true) 
```
```
		if menu_name == "top" then 
```

			if Main_menu_controller_selected == true then

```
				menu_hide_active() 
```

				vint_set_property(vint_object_find("safe_frame"), "visible", true)

```
				Main_menu_can_has_input = true 
```
```
				menu_input_block(false) 
```
```
				main_menu_screen_fade(0) 
```
```
			end 
```
```
			 
```
```
			main_menu_grab_input() 
```
```
			dialog_box_force_close_all() 
```
```
		elseif menu_name == "coop_load" then 
```
```
			credits_force_close() 
```
```
			Pause_load_is_coop = true 
```

			vint_set_property(vint_object_find("safe_frame"), "visible", true)

```
			main_menu_load_menu_select() 
```
```
		elseif menu_name == "customize" then 
```

			vint_set_property(vint_object_find("safe_frame"), "visible", true)

```
			main_menu_customize_menu_select() 
```
```
		end 
```
```
	end 
```
```
]] 
```
```
end 
```
```
 
```
```
function main_menu_nav(target, event) 
```

	-- We will try and use input tracker...

```
	--do nothing 
```
```
end 
```
```
 
```
```
function load_before_join() 
```
```
	Load_for_coop = true 
```
```
	push_screen("pause_save_game") 
```
```
end 
```
```
 
```
```
-- Make the megalist look main menuy 
```
```
-- 
```

function main_menu_set_style(list, header, width, num_pops)

```
	 
```
```
	header:set_visible(true) 
```
```
	list:set_visible(true) 
```
```
	 
```
```
	--get the list width 
```

	local list_w, list_h = vint_get_property(list.handle, "screen_size")

```
	list_w = width or list_w 
```
```
 
```
```
	local new_x 
```
```
	if vint_is_std_res() == false then 
```
```
		new_x = 640 
```
```
	else 
```
```
		new_x = 320 * 1.5 
```
```
	end 
```
```
	new_x = new_x - (list_w * 0.5) 
```
```
	 
```
```
	local list_tween_h 
```
```
	local header_tween_h 
```
```
	local hint_bar_tween_h 
```
```
	 
```
```
	local max_width = 650 
```

	local back_out_twn1_h = vint_object_find("back_out_twn1", Screen_back_out_anim.handle)

	local back_out_twn2_h = vint_object_find("back_out_twn2", Screen_back_out_anim.handle)

	local back_out_twn3_h = vint_object_find("back_out_twn3", Screen_back_out_anim.handle)

```
	 
```

	local slide_out_twn1_h = vint_object_find("screen_slide_out_twn1", Screen_slide_out_anim.handle)

	local slide_out_twn2_h = vint_object_find("screen_slide_out_twn2", Screen_slide_out_anim.handle)

	local slide_out_twn3_h = vint_object_find("screen_slide_out_twn3", Screen_slide_out_anim.handle)

```
	--[[ 
```
```
	if list_w > max_width then 
```

		vint_set_property(back_out_twn1_h, "end_value", -1 * max_width, 652)

		vint_set_property(back_out_twn2_h, "end_value", -1 * max_width, 230)

		vint_set_property(back_out_twn3_h, "end_value", -1 * max_width, 267)

```
		 
```

		vint_set_property(slide_out_twn1_h, "end_value", 1100, 652)

		vint_set_property(slide_out_twn2_h, "end_value", 1100, 267)

		vint_set_property(slide_out_twn3_h, "end_value", 1150, 230)

```
	else 
```

		vint_set_property(back_out_twn1_h, "end_value", -300, 652)

		vint_set_property(back_out_twn2_h, "end_value", -300, 230)

		vint_set_property(back_out_twn3_h, "end_value", -300, 267)

```
		 
```

		vint_set_property(slide_out_twn1_h, "end_value", 900, 652)

		vint_set_property(slide_out_twn2_h, "end_value", 900, 267)

		vint_set_property(slide_out_twn3_h, "end_value", 950, 230)

```
	end 
```
```
	]] 
```
```
	if not First_time then 
```
```
		 
```
```
		 
```
```
		 
```

		bg_saints_set_type(BG_TYPE_PAUSE, true, list_w)

		local mask_x,mask_y = vint_get_property(Screen_mask, "anchor")

		--main_menu_mask_morph(BG_TYPE_CENTER, list_w, new_x)

```
		 
```
```
		if num_pops > 0 then 
```

			--main_menu_set_slide_in_values( new_x )

			vint_apply_start_values(Screen_slide_in_anim.handle)

```
			Screen_slide_in_anim:play(0) 
```
```
		else 
```

			--main_menu_set_back_in_values( new_x )

			vint_apply_start_values(Screen_back_in_anim.handle)

```
			Screen_back_in_anim:play(0) 
```
```
		end 
```
```
	else 
```
```
		--main_menu_center_layout( new_x ) 
```

		--vint_set_property(Screen_mask,"screen_size", list_w, 800)

		--main_menu_mask_morph(BG_TYPE_CENTER, list_w, new_x)

		bg_saints_set_type(BG_TYPE_PAUSE, false, list_w)

```
		glitch_cell() 
```

		ui_audio_post_event("UI_Hub_Menu_Forward")

```
		Screen_back_in_anim:play(0) 
```
```
	end 
```
```
end 
```
```
 
```

function main_menu_mask_morph( screen_type, size_end_x, anchor_end_x )

```
	--[[ 
```
```
	--get handles for everyone 
```

	local morph_anim_h = vint_object_find("screen_mask_anim", 0, Main_menu_common_doc_h)

	local morph_scale_twn_h = vint_object_find("screen_mask_scale_twn", 0, Main_menu_common_doc_h)

	local morph_anchor_twn_h = vint_object_find("screen_mask_anchor_twn", 0, Main_menu_common_doc_h)

```
	 
```

	--create the center anchor point from the width of the mask

	--anchor_end_x = (anchor_end_x) - (size_end_x * 0.5)

```
 
```
```
	--setup the anchor for the mask 
```
```
	--get the starting x position 
```

	local mask_anchor_start_x,mask_anchor_start_y = vint_get_property( Screen_mask, "anchor" )

	vint_set_property(morph_anchor_twn_h, "start_value", mask_anchor_start_x, mask_anchor_start_y )

	vint_set_property(morph_anchor_twn_h, "end_value", anchor_end_x, mask_anchor_start_y )

```
	 
```
```
	--setup the scale of the mask 
```
```
	--get the starting scale 
```

	local size_start_x,size_start_y = vint_get_property(Screen_mask,"scale")

	--get the correct size, this fixes SD scale issues

	local adjusted_size_end_x,crap = element_get_scale_from_size(Screen_mask, size_end_x, 16)

	vint_set_property(morph_scale_twn_h, "start_value", size_start_x , size_start_y)

	vint_set_property(morph_scale_twn_h, "end_value", adjusted_size_end_x , size_start_y)

```
	 
```
```
	--play the animation 
```

	lua_play_anim(morph_anim_h, 0, Main_menu_common_doc_h)

```
	]] 
```
```
end 
```
```
 
```

function main_menu_set_slide_in_values( new_x )

	local hint_anchor_twn_h = vint_object_find("screen_slide_in_twn1", 0, Main_menu_common_doc_h)

	local header_anchor_twn_h = vint_object_find("screen_slide_in_twn3", 0, Main_menu_common_doc_h)

	local list_anchor_twn_h = vint_object_find("screen_slide_in_twn2", 0, Main_menu_common_doc_h)

```
	 
```

	local hint_x,hint_y = vint_get_property(hint_anchor_twn_h, "end_value")

	local header_x,header_y = vint_get_property(header_anchor_twn_h, "end_value")

	local list_x,list_y = vint_get_property(list_anchor_twn_h, "end_value")

```
	 
```

	--vint_set_property(hint_anchor_twn_h, "end_value", new_x + 17, hint_y)

	--vint_set_property(header_anchor_twn_h, "end_value", new_x + 30, header_y)

	--vint_set_property(list_anchor_twn_h, "end_value", new_x, list_y)

```
end 
```
```
 
```

function main_menu_set_back_in_values( new_x )

	local hint_anchor_twn_h = vint_object_find("back_in_twn1", 0, Main_menu_common_doc_h)

	local header_anchor_twn_h = vint_object_find("back_in_twn3", 0, Main_menu_common_doc_h)

	local list_anchor_twn_h = vint_object_find("back_in_twn2", 0, Main_menu_common_doc_h)

```
	 
```

	local hint_x,hint_y = vint_get_property(hint_anchor_twn_h, "end_value")

	local header_x,header_y = vint_get_property(header_anchor_twn_h, "end_value")

	local list_x,list_y = vint_get_property(list_anchor_twn_h, "end_value")

```
	 
```

	--vint_set_property(hint_anchor_twn_h, "end_value", new_x + 17, hint_y)

	--vint_set_property(header_anchor_twn_h, "end_value", new_x + 30, header_y)

	--vint_set_property(list_anchor_twn_h, "end_value", new_x, list_y)

```
end 
```
```
 
```

function main_menu_center_layout( new_x )

```
	--get the list x and y 
```

	local list_x, list_y = vint_get_property(List.handle, "anchor")

	local header_x, header_y = vint_get_property(Header_obj.handle, "anchor")

	local hint_anchor_twn_h = vint_object_find("back_in_twn1", 0, Main_menu_common_doc_h)

	local hint_x,hint_y = vint_get_property(hint_anchor_twn_h, "end_value")

```
	 
```

	--vint_set_property(List.handle, "anchor", new_x, list_y)

	--vint_set_property(Header_obj.handle, "anchor", new_x + 30, header_y)

	--vint_set_property(Menu_hint_bar.handle, "anchor", new_x + 17, hint_y)

	--vint_set_property(Screen_mask, "anchor", new_x, -58)

```
end 
```
```
 
```

-------------------------------------------------------------------------------

-- Shows the silverlink logo via animation...

-- @bool 	is_visible 		Should the logo be displayed?

```
-- 
```

function main_menu_silverlink_logo_show(is_visible)

	local silver_link_in_anim_h = vint_object_find("silverlink_in_anim", 0, Main_menu_common_doc_h)

	local silver_link_out_anim_h = vint_object_find("silverlink_out_anim", 0, Main_menu_common_doc_h)

```
	if is_visible then 
```

		vint_set_property(silver_link_out_anim_h, "is_paused", true)

		lua_play_anim(silver_link_in_anim_h, 0, Main_menu_common_doc_h)

```
	else 
```

		vint_set_property(silver_link_in_anim_h, "is_paused", true)

		lua_play_anim(silver_link_out_anim_h, 0, Main_menu_common_doc_h)

```
	end 
```
```
end 
```
```
 
```

-------------------------------------------------------------------------------

-- Shows the silverlink logo via visible flag...

-- @bool 	is_visible 		Should the logo be displayed?

```
-- 
```

function main_menu_silverlink_logo_is_visible(is_visible)

	local silverlink_logo_h = vint_object_find("silverlink_logo", 0, Main_menu_common_doc_h)

	vint_set_property(silverlink_logo_h, "visible", is_visible)

```
end 
```
```
 
```

-------------------------------------------------------------------------------

-- Shows the silverlink login via animation...

-- @bool 	is_visible 		Should the logo be displayed?

```
-- 
```

function main_menu_silverlink_login_show(is_visible)

	local in_anim_h = vint_object_find("silverlink_login_in_anim", 0, Main_menu_common_doc_h)

	local out_anim_h = vint_object_find("silverlink_login_out_anim", 0, Main_menu_common_doc_h)

```
	if is_visible then 
```

		vint_set_property(in_anim_h, "is_paused", true)

		lua_play_anim(in_anim_h, 0, Main_menu_common_doc_h)

```
	else 
```

		vint_set_property(out_anim_h, "is_paused", true)

		lua_play_anim(out_anim_h, 0, Main_menu_common_doc_h)

```
	end 
```
```
end 
```
```
 
```

-------------------------------------------------------------------------------

```
-- Updates the display login... 
```
```
-- 
```

function main_menu_silverlink_update_login(display_login)

	local logged_in_text_h = vint_object_find("logged_in_text", 0, Main_menu_common_doc_h)

```
	 
```
```
	if display_login then 
```
```
		--Get login data from game... 
```

		local login_id_tag = silverlink_get_login()

```
 
```

		--prepare string with login data and update text tag...

		local insert_values = { [0] = login_id_tag}

		local login_string = vint_insert_values_in_string("SL_LOGIN_DISPLAY", insert_values)

		vint_set_property(logged_in_text_h, "text_tag", login_string)

```
	end 
```

	vint_set_property(logged_in_text_h, "visible", display_login)

```
end 
```
```
 
```