XInterface.UT2MultiplayerHostPage

// ====================================================================
//  Class:  XInterface.UT2MultiplayerHostPage
//  Parent: XInterface.GUIPage
//
//  <Enter a description here>
// ====================================================================

class UT2MultiplayerHostPage extends UT2K3GUIPage;

#exec OBJ LOAD FILE=InterfaceContent.utx

var Tab_MultiplayerHostMain 			pMain;
var Tab_InstantActionBaseRules 			pRules;
var Tab_InstantActionMutators			pMutators;
var Tab_MultiplayerHostServerSettings	pServer;
var Tab_InstantActionBotConfig			pBotConfig;

var GUITabControl						MyTabs;

var localized string	MainTabLabel,
						MainTabHint,
						RulesTabLabel,
						RulesTabHint,
						MutatorsTabLabel,
						MutatorsTabHint,
						ServerTabLabel,
						ServerTabHint,
						BotTabLabel,
						BotTabHint;

function InitComponent(GUIController MyController, GUIComponent MyOwner)
{
	local string RulesClass;

	Super.Initcomponent(MyController, MyOwner);

	MyTabs = GUITabControl(Controls[1]);
	GUITitleBar(Controls[0]).DockedTabs = MyTabs;

	pMain 		 = Tab_MultiplayerHostMain( MyTabs.AddTab(MainTabLabel,"xinterface.Tab_MultiplayerHostMain",,MainTabHint,true) );

	pMain.OnChangeGameType = ChangeGameType;

	RulesClass = pMain.GetRulesClass();

	pRules		 = Tab_InstantActionBaseRules(MyTabs.AddTab(RulesTabLabel,	RulesClass,,RulesTabHint));

	pMutators	 = Tab_InstantActionMutators(MyTabs.AddTab(MutatorsTabLabel,"xinterface.Tab_InstantActionMutators",,MutatorsTabHint));
	pServer		 = Tab_MultiplayerHostServerSettings(MyTabs.AddTab(ServerTabLabel,"xinterface.Tab_MultiplayerHostServerSettings",,ServerTabHint));
	pServer.OnChangeCustomBots = ChangeCustomBots;
	pBotConfig	 = Tab_InstantActionBotConfig(MyTabs.AddTab(BotTabLabel,"xinterface.Tab_InstantActionBotConfig",,BotTabHint));

	if (pBotConfig!=None)
		pBotConfig.SetupBotLists(pMain.GetIsTeamGame());

	MyTabs.bDockPanels=true;

	ChangeCustomBots(!pServer.bUseDefaults && pServer.bUseCustomBots);
}

function bool BackButtonClick(GUIComponent Sender)
{
	Controller.CloseMenu(true);
	return true;
}

function bool PlayButtonClick(GUIComponent Sender)
{
	local string FullURL, GameURL, FirstMap, GameType;

	GameURL = pMain.Play();
	GameURL = GameURL$pRules.Play();
	GameURL = GameURL$pMutators.Play();

	if(pServer.UseCustomBots())
		GameURL = GameURL$pBotConfig.Play();

	GameURL = GameURL$pServer.Play();

	if ( (pMain.MyCurMapList.List.ItemCount==0) || (pMain.MyCurMapList.List.Get() == "") )
	{
 		if ( (pMain.MyCurMapList.List.ItemCount==0) || (pMain.MyCurMapList.List.GetItemAtIndex(0) == ""))
			FirstMap = pMain.MyFullMapList.List.Get();
		else
			FirstMap = pMain.MyCurMapList.List.GetItemAtIndex(0);
	}
	else
		FirstMap = pMain.MyCurMapList.List.Get();

	GameType = "?Game="$pMain.GetGameClass();
	FullURL = FirstMap$GameType$GameURL;

    if( pServer.bDedicated )
        PlayerOwner().ConsoleCommand( "RELAUNCH " $ FullURL $ " -server -log=Server.log" );
    else
        PlayerOwner().ClientTravel( FullURL $"?Listen", TRAVEL_Absolute, false );

	Controller.CloseAll(false);

	return true;

}


function TabChange(GUIComponent Sender)
{
	if (GUITabButton(Sender)==none)
		return;

	GUITitleBar(Controls[0]).SetCaption(GUITitleBar(default.Controls[0]).GetCaption()@"|"@GUITabButton(Sender).Caption);
}

event ChangeHint(string NewHint)
{
	GUITitleBar(Controls[2]).SetCaption(NewHint);
}


function InternalOnReOpen()
{
}

function ChangeGameType()
{
	local string RulesClass;

	RulesClass = pMain.GetRulesClass();
	pRules = Tab_InstantActionBaseRules(MyTabs.ReplaceTab(pRules.MyButton,RulesTabLabel,RulesClass,,RulesTabHint));

	if (pBotConfig!=None)
		pBotConfig.SetupBotLists(pMain.GetIsTeamGame());

}

function ChangeCustomBots(bool Enable)
{
	MyTabs.RemoveTab(BotTabLabel);

	if(Enable)
		MyTabs.AddTab(BotTabLabel,"xinterface.Tab_InstantActionBotConfig",pBotConfig,BotTabHint);
}

defaultproperties
{
     MainTabLabel="Game & Map"
     MainTabHint="Choose the starting map and game type to play..."
     RulesTabLabel="Game Rules"
     RulesTabHint="Configure the current game type..."
     MutatorsTabLabel="Mutators"
     MutatorsTabHint="Select and configure any mutators to use..."
     ServerTabLabel="Server"
     ServerTabHint="Configure all server specific settings..."
     BotTabLabel="Bot Config"
     BotTabHint="Configure any bots that will be in the session..."
     Background=Texture'InterfaceContent.Backgrounds.bg11'
     OnReOpen=UT2MultiplayerHostPage.InternalOnReOpen
     Begin Object Class=GUITitleBar Name=HostHeader
         Effect=FinalBlend'InterfaceContent.Menu.CO_Final'
         Caption="Host Multiplayer Game"
         StyleName="Header"
         WinTop=0.036406
         WinHeight=46.000000
     End Object
     Controls(0)=GUITitleBar'XInterface.UT2MultiplayerHostPage.HostHeader'

     Begin Object Class=GUITabControl Name=HostTabs
         TabHeight=0.040000
         WinTop=0.250000
         WinHeight=48.000000
         bAcceptsInput=True
         OnActivate=HostTabs.InternalOnActivate
         OnChange=UT2MultiplayerHostPage.TabChange
     End Object
     Controls(1)=GUITabControl'XInterface.UT2MultiplayerHostPage.HostTabs'

     Begin Object Class=GUITitleBar Name=HostFooter
         bUseTextHeight=False
         StyleName="Footer"
         WinTop=0.930000
         WinLeft=0.120000
         WinWidth=0.760000
         WinHeight=0.055000
     End Object
     Controls(2)=GUITitleBar'XInterface.UT2MultiplayerHostPage.HostFooter'

     Begin Object Class=GUIButton Name=HostPlayButton
         Caption="START"
         StyleName="SquareMenuButton"
         Hint="Start the server"
         WinTop=0.930000
         WinLeft=0.880000
         WinWidth=0.120000
         WinHeight=0.055000
         OnClick=UT2MultiplayerHostPage.PlayButtonClick
         OnKeyEvent=HostPlayButton.InternalOnKeyEvent
     End Object
     Controls(3)=GUIButton'XInterface.UT2MultiplayerHostPage.HostPlayButton'

     Begin Object Class=GUIButton Name=HostBackButton
         Caption="BACK"
         StyleName="SquareMenuButton"
         Hint="Cancel Changes and Return to Previous Menu"
         WinTop=0.930000
         WinWidth=0.120000
         WinHeight=0.055000
         OnClick=UT2MultiplayerHostPage.BackButtonClick
         OnKeyEvent=HostBackButton.InternalOnKeyEvent
     End Object
     Controls(4)=GUIButton'XInterface.UT2MultiplayerHostPage.HostBackButton'

     WinHeight=1.000000
}