XInterface.UT2DraftTeam

// ====================================================================
//  Class:  XInterface.UT2DraftTeam
//  Parent: XInterface.GUIPage
//
//  Draft the team.  Salary stuff commented out for UT2003.
// ====================================================================

class UT2DraftTeam extends UT2K3GUIPage;

var GUIListBox          lboStats, lboTeamStats;
var GUILabel            lblMatchData, lblChoose;
var GUIScrollTextBox    stbPlayerData;
var GUICharacterListTeam cltMyTeam;
var GUICharacterListTeam cltPortrait;
var GUIButton           butDraft, butRelease, butClear, butEnter, butAuto;
var GUIGfxButton        butLeft, butRight;
var GUITitleBar         MyTitleBar, MyHintBar;

var string              ButtonStyleEnabled, ButtonStyleDisabled;
var localized string    ClearConfirmMessage, EnterConfirmMessage, StatsMessage;

var bool bPlaySounds;   // whether to play the announcer/select sounds

function Created()
{
    lblMatchData = GUILabel(Controls[1]);
    stbPlayerData = GUIScrollTextBox(Controls[2]);
    lboStats = GUIListBox(Controls[3]);
    cltMyTeam = GUICharacterListTeam(Controls[4]);
    cltPortrait = GUICharacterListTeam(Controls[6]);
    butDraft = GUIButton(Controls[7]);
    butRelease = GUIButton(Controls[8]);
    butClear = GUIButton(Controls[9]);
    butEnter = GUIButton(Controls[10]);
    butLeft = GUIGfxButton(Controls[11]);
    butRight = GUIGfxButton(Controls[12]);
    lblChoose = GUILabel(Controls[13]);
    lboTeamStats = GUIListBox(Controls[14]);
    MyTitleBar = GUITitleBar(Controls[15]);
    MyHintBar = GUITitleBar(Controls[16]);
    butAuto = GUIButton(Controls[17]);
    OnKeyEvent=MyKeyEvent;
}

// capture escape-hits
function bool MyKeyEvent(out byte Key,out byte State,float delta)
{
    if ( Key == 27 )    // Escape pressed
    {
        return true;
    }
}

function InitComponent(GUIController MyController, GUIComponent MyOwner)
{
    MyController.RegisterStyle(class'STY_RosterButton');

    Super.Initcomponent(MyController, MyOwner);
    cltPortrait.InitListInclusive("SP");
    cltPortrait.Find("Gorge");
    cltPortrait.OnChange=CharListChange;
    CharListUpdate(cltPortrait);

    ReloadPortraits();

    butEnter.bVisible = false;
    butEnter.bAcceptsInput = false;


    butDraft.OnClick=ButtonClick;
    butRelease.OnClick=ButtonClick;
    butClear.OnClick=ButtonClick;
    butEnter.OnClick=ButtonClick;
    butLeft.OnClick=ButtonClick;
    butRight.OnClick=ButtonClick;
    butAuto.OnClick=ButtonClick;

    lboStats.List.bAcceptsInput=false;
    lboTeamStats.List.bAcceptsInput=false;

    cltMyTeam.OnChange=CharListChange;
    cltMyTeam.Index = -1;
}

function ReloadPortraits()
{
    local GameProfile GP;
    local array<xUtil.PlayerRecord> PlayerRecords;
    local int i;

    GP = PlayerOwner().Level.Game.CurrentGameProfile;
    if (GP != None)
    {
        for ( i=0; i<GP.PlayerTeam.Length; i++ ) {
            PlayerRecords[i] = class'xUtil'.static.FindPlayerRecord(GP.PlayerTeam[i]);
            //Log("UT2DraftTeam::ReloadPortraits scanning"@GP.PlayerTeam[i]);
        }

        cltMyTeam.ResetList(PlayerRecords, GP.PlayerTeam.Length);
    }
}


function CharListUpdate(GUIComponent Sender)
{
    local GUICharacterList GCL;
    local xUtil.PlayerRecord PR;
    //local GameProfile GP;
    local string str;

    GCL = cltPortrait;
    PR = GCL.GetRecord();

    if ( bPlaySounds )
        PlayerOwner().ClientPlaySound(GCL.GetSound(),,,SLOT_Interface);

    str = Mid(PR.TextName, Max(InStr(PR.TextName, ".")+1, 0));
    stbPlayerData.SetContent(Controller.LoadDecoText("xPlayers", str));

    BuildStats ( PR, lboStats, lboTeamStats );
    //lblPlayerSalary.Caption = ""$class'xUtil'.static.GetSalaryFor(PR);
    //GP = PlayerOwner().Level.Game.CurrentGameProfile;
    //lblTeamSalary.Caption = ""$class'xUtil'.static.GetTeamSalaryFor(GP);
    //lblTeamSalaryCap.Caption = ""$GP.SalaryCap;

    //if (int(lblTeamSalaryCap.Caption) > int(lblTeamSalary.Caption) + int(lblPlayerSalary.Caption)) {
    //	Log("SINGLEPLAYER affordable.  teamfull = "$IsTeamFull());
    UpdateDraftable (true);
    /*} else {
    //  Log("SINGLEPLAYER not affordable. ");
    //  UpdateDraftable(false);
    //}

    lblPlayerSalary.Caption = "Salary:"@lblPlayerSalary.Caption$"M";
    lblTeamSalary.Caption = "Team Salary:"@lblTeamSalary.Caption$"M";
    lblTeamSalaryCap.Caption = "Salary Cap:"@lblTeamSalaryCap.Caption$"M";
    */

}

function CharListChange(GUIComponent Sender)
{
    Super.OnChange(Sender);
    if ( Sender == cltMyTeam )
    {
        if ( cltMyTeam.GetName() == "" )
        {
            cltMyTeam.Index = -1;
        }
        else
        {
            cltPortrait.Find(cltMyTeam.GetName());
            CharListUpdate(Sender);
        }
    }
}

function bool IsOnTeam(string botname)
{
    local int i;
    local GameProfile GP;

    if ( botname == "" )
    {
        return false;
    }

    GP = PlayerOwner().Level.Game.CurrentGameProfile;
    if ( GP != none )
    {
        for ( i=0; i<GP.TEAM_SIZE; i++ )
        {
            if ( GP.PlayerTeam[i] ~= botname )
            {
                return true;
            }
        }
    }
    return false;
}

function bool IsTeamFull()
{
    local GameProfile GP;
    local int i;

    GP = PlayerOwner().Level.Game.CurrentGameProfile;
    if ( GP.PlayerTeam.Length < GP.TEAM_SIZE )
    {
        return false;
    }

    for ( i=0; i<GP.TEAM_SIZE; i++ )
    {
        if ( GP.PlayerTeam[i] == "" )
        {
            return false;
        }
    }

    return true;
}

// set one of the draft/release buttons effective
// depends upon various salary labels being up-to-date
function UpdateDraftable(bool bAffordable)
{
    local bool bOnTeam;
    local bool bCanDraft;

    bCanDraft = bAffordable && !IsTeamFull();

    // check if he's on team already
    bOnTeam = IsOnTeam(cltPortrait.GetName());
    butDraft.bAcceptsInput = !bOnTeam && bCanDraft;
    butRelease.bAcceptsInput = bOnTeam;

    butDraft.bVisible = butDraft.bAcceptsInput;
    butRelease.bVisible = butRelease.bAcceptsInput;
/*
    if (butDraft.bAcceptsInput)
    {
        butDraft.StyleName=ButtonStyleEnabled;
    }
    else
    {
        butDraft.StyleName=ButtonStyleDisabled;
    }
    if (butRelease.bAcceptsInput)
    {
        butRelease.StyleName=ButtonStyleEnabled;
    }
    else
    {
        butRelease.StyleName=ButtonStyleDisabled;
    }
*/
}

function BuildStats ( out xUtil.PlayerRecord PR, GUIListBox charbox, GUIListBox teambox )
{
    local string str;
    local GameProfile GP;
    GP = PlayerOwner().Level.Game.CurrentGameProfile;

    charbox.List.Clear();
    str = PR.DefaultName;
    charbox.List.Add(str);
    str = class'xUtil'.static.GetFavoriteWeaponFor(PR);
    charbox.List.Add(str);
    str = class'xUtil'.Default.AccuracyString@class'xUtil'.static.AccuracyRating(PR);
    charbox.List.Add(str);
    str = class'xUtil'.Default.AggressivenessString@class'xUtil'.static.AggressivenessRating(PR);
    charbox.List.Add(str);
    str = class'xUtil'.Default.AgilityString@class'xUtil'.static.AgilityRating(PR);
    charbox.List.Add(str);
    str = class'xUtil'.Default.TacticsString@class'xUtil'.static.TacticsRating(PR);
    charbox.List.Add(str);

    // team stats
    teambox.List.Clear();
    str = GP.TeamName@StatsMessage;
    teambox.List.Add(str);
    str = class'xUtil'.Default.AccuracyString@class'xUtil'.static.TeamAccuracyRating(GP);
    teambox.List.Add(str);
    str = class'xUtil'.Default.AggressivenessString@class'xUtil'.static.TeamAggressivenessRating(GP);
    teambox.List.Add(str);
    str = class'xUtil'.Default.AgilityString@class'xUtil'.static.TeamAgilityRating(GP);
    teambox.List.Add(str);
    str = class'xUtil'.Default.TacticsString@class'xUtil'.static.TeamTacticsRating(GP);
    teambox.List.Add(str);
}

// automatically fills the remainder of the team with random selections
function AutoFillTeam()
{
    local int nextDraft;
    local bool oldbPlaySounds;
    local GameProfile GP;
    local int listsize, i, listoffset;

    GP = PlayerOwner().Level.Game.CurrentGameProfile;
    if ( GP == none ) // pretty unlikely
        return;

    oldbPlaySounds = bPlaySounds;
    listsize = cltPortrait.PlayerList.Length;
    for ( nextDraft = 0; nextDraft < 7; nextDraft++ )
    {
        if ( GP.PlayerTeam[nextDraft] != "" )
            continue;

        // this is slow but it keeps the list happy
        listoffset = cltPortrait.Index + Rand(listsize-1);
        listoffset = listoffset % listsize;
        for ( i=0; i<listoffset; i++)
            cltPortrait.ScrollRight();

        while ( IsOnTeam(cltPortrait.GetName()) )
            cltPortrait.ScrollRight();

        GP.PlayerTeam[nextDraft] = cltPortrait.GetName();
    }
    bPlaySounds = oldbPlaySounds;

}

function bool ButtonClick(GUIComponent Sender)
{
    local GameProfile GP;
    local GUIQuestionPage Page;
    local bool oldbPlaySounds;

    GP = PlayerOwner().Level.Game.CurrentGameProfile;
    oldbPlaySounds = bPlaySounds;  // changed temporarily, only by the draft and release buttons

    if ( Sender==butDraft )
    {
        // should only be called if player is affordable and not on team
        bPlaySounds = false;
        GP.AddTeammate( cltPortrait.GetName() );
    }
    else if ( Sender==butRelease )
    {
        bPlaySounds = false;
        GP.ReleaseTeammate( cltPortrait.GetName() );
        cltMyTeam.Index = -1;
    }
    else if ( Sender==butClear )
    {
        // check if they're certain they want to clear their entire roster
        if (Controller.OpenMenu("XInterface.GUIQuestionPage"))
        {
            Page = GUIQuestionPage(Controller.ActivePage);
            Page.SetupQuestion(ClearConfirmMessage, QBTN_YesNo, QBTN_No);
            Page.OnButtonClick = ClearConfirm;
        }
        return true;
    }
    else if ( Sender==butEnter )
    {
        // check if they're certain they want to play with this team
        if (Controller.OpenMenu("XInterface.GUIQuestionPage"))
        {
            Page = GUIQuestionPage(Controller.ActivePage);
            Page.SetupQuestion(EnterConfirmMessage, QBTN_YesNo, QBTN_No);
            Page.OnButtonClick = EnterConfirm;
        }
        return true;
    }
    else if ( Sender==butLeft )
    {
        cltPortrait.ScrollLeft();
    }
    else if ( Sender==butRight )
    {
        cltPortrait.ScrollRight();
    }
    else if ( Sender==butAuto )
    {
        AutoFillTeam();
    }

    FinishButtonClick();
    bPlaySounds = oldbPlaySounds;

    return true;
}

event ChangeHint(string NewHint)
{
    MyHintBar.SetCaption(NewHint);
}


// broken out of ButtonClick for the ClearConfirm function
function FinishButtonClick()
{
    butEnter.bVisible = IsTeamFull();
    butEnter.bAcceptsInput = IsTeamFull();

    ReloadPortraits();
    CharListUpdate(cltPortrait);
}

// called when the clear-roster dialog pops up
function ClearConfirm(byte bButton)
{
    if (bButton == QBTN_Yes)
    {
        PlayerOwner().Level.Game.CurrentGameProfile.ClearTeammates();
        FinishButtonClick();
    }
}

// called when a button on the 'enter tourney' dialog is pressed
function EnterConfirm(byte bButton)
{
    if (bButton == QBTN_Yes)
    {
        PlayerOwner().Level.Game.SavePackage(PlayerOwner().Level.Game.CurrentGameProfile.PackageName);
        Controller.CloseMenu();
    }
}

defaultproperties
{
     ButtonStyleEnabled="RoundButton"
     ButtonStyleDisabled="NoBackground"
     ClearConfirmMessage="This action will empty your current roster.  Are you sure?"
     EnterConfirmMessage="Are you ready to enter the tournament?"
     StatsMessage="Stats"
     bPlaySounds=Wahr
     Background=Texture'InterfaceContent.Backgrounds.bg10'
     Begin Object Class=GUIImage Name=SPDTRosterBK0
         Image=Texture'InterfaceContent.Menu.BorderBoxD'
         ImageColor=(A=160)
         ImageStyle=ISTY_Stretched
         WinTop=0.130833
         WinLeft=0.586875
         WinWidth=0.377617
         WinHeight=0.598438
     End Object
     Controls(0)=GUIImage'XInterface.UT2DraftTeam.SPDTRosterBK0'

     Begin Object Class=GUILabel Name=SPDTMatchData
         Caption="No Game Profile => No MatchData"
         TextAlign=TXTA_Center
         TextColor=(B=255,G=255,R=255)
         TextFont="UT2LargeFont"
         WinTop=-0.120000
         WinLeft=0.100000
         WinWidth=0.800000
         WinHeight=0.100000
     End Object
     Controls(1)=GUILabel'XInterface.UT2DraftTeam.SPDTMatchData'

     Begin Object Class=GUIScrollTextBox Name=SPDTCharData
         CharDelay=0.040000
         EOLDelay=0.250000
         OnCreateComponent=SPDTCharData.InternalOnCreateComponent
         Hint="Team members profile"
         WinTop=0.129167
         WinLeft=0.024063
         WinWidth=0.520000
         WinHeight=0.359687
         bNeverFocus=Wahr
     End Object
     Controls(2)=GUIScrollTextBox'XInterface.UT2DraftTeam.SPDTCharData'

     Begin Object Class=GUIListBox Name=SPDTCharStats
         OnCreateComponent=SPDTCharStats.InternalOnCreateComponent
         WinTop=0.491249
         WinLeft=0.024063
         WinWidth=0.520000
         WinHeight=0.237813
         bAcceptsInput=Falsch
         bNeverFocus=Wahr
     End Object
     Controls(3)=GUIListBox'XInterface.UT2DraftTeam.SPDTCharStats'

     Begin Object Class=GUICharacterListTeam Name=SPDTRosterCharList
         bLocked=Wahr
         DefaultPortrait=TexPanner'InterfaceContent.Menu.pEmptySlot'
         bFillBounds=Wahr
         bAllowSelectEmpty=Falsch
         FixedItemsPerPage=7
         StyleName="CharButton"
         Hint="Choose a teammate to play in the next match"
         WinTop=0.750000
         WinLeft=0.004688
         WinWidth=0.670315
         WinHeight=0.170000
         OnClick=SPDTRosterCharList.InternalOnClick
         OnRightClick=SPDTRosterCharList.InternalOnRightClick
         OnMousePressed=SPDTRosterCharList.InternalOnMousePressed
         OnMouseRelease=SPDTRosterCharList.InternalOnMouseRelease
         OnKeyEvent=SPDTRosterCharList.InternalOnKeyEvent
         OnBeginDrag=SPDTRosterCharList.InternalOnBeginDrag
         OnEndDrag=SPDTRosterCharList.InternalOnEndDrag
         OnDragDrop=SPDTRosterCharList.InternalOnDragDrop
         OnDragEnter=SPDTRosterCharList.InternalOnDragEnter
         OnDragLeave=SPDTRosterCharList.InternalOnDragLeave
         OnDragOver=SPDTRosterCharList.InternalOnDragOver
     End Object
     Controls(4)=GUICharacterListTeam'XInterface.UT2DraftTeam.SPDTRosterCharList'

     Begin Object Class=GUIImage Name=SPDTCharListBox
         Image=Texture'InterfaceContent.Menu.BorderBoxD'
         ImageColor=(A=160)
         ImageStyle=ISTY_Stretched
         WinTop=0.741667
         WinLeft=0.007813
         WinWidth=0.639846
         WinHeight=0.185625
     End Object
     Controls(5)=GUIImage'XInterface.UT2DraftTeam.SPDTCharListBox'

     Begin Object Class=GUICharacterListTeam Name=SPDTPortrait
         DefaultPortrait=TexPanner'InterfaceContent.Menu.pEmptySlot'
         bFillBounds=Wahr
         FixedItemsPerPage=1
         StyleName="CharButton"
         Hint="Select teammate"
         WinTop=0.190313
         WinLeft=0.687500
         WinWidth=0.133300
         WinHeight=0.400000
         OnClick=SPDTPortrait.InternalOnClick
         OnRightClick=SPDTPortrait.InternalOnRightClick
         OnMousePressed=SPDTPortrait.InternalOnMousePressed
         OnMouseRelease=SPDTPortrait.InternalOnMouseRelease
         OnKeyEvent=SPDTPortrait.InternalOnKeyEvent
         OnBeginDrag=SPDTPortrait.InternalOnBeginDrag
         OnEndDrag=SPDTPortrait.InternalOnEndDrag
         OnDragDrop=SPDTPortrait.InternalOnDragDrop
         OnDragEnter=SPDTPortrait.InternalOnDragEnter
         OnDragLeave=SPDTPortrait.InternalOnDragLeave
         OnDragOver=SPDTPortrait.InternalOnDragOver
     End Object
     Controls(6)=GUICharacterListTeam'XInterface.UT2DraftTeam.SPDTPortrait'

     Begin Object Class=GUIButton Name=SPDTDraft
         Caption="DRAFT"
         Hint="Add this character to your team"
         WinTop=0.602917
         WinLeft=0.620626
         WinWidth=0.132812
         WinHeight=0.055000
         bFocusOnWatch=Wahr
         OnKeyEvent=SPDTDraft.InternalOnKeyEvent
     End Object
     Controls(7)=GUIButton'XInterface.UT2DraftTeam.SPDTDraft'

     Begin Object Class=GUIButton Name=SPDTRelease
         Caption="RELEASE"
         Hint="Remove this character from your team"
         WinTop=0.602917
         WinLeft=0.804998
         WinWidth=0.132812
         WinHeight=0.055000
         bFocusOnWatch=Wahr
         OnKeyEvent=SPDTRelease.InternalOnKeyEvent
     End Object
     Controls(8)=GUIButton'XInterface.UT2DraftTeam.SPDTRelease'

     Begin Object Class=GUIButton Name=SPDTClear
         Caption="CLEAR"
         StyleName="SquareMenuButton"
         Hint="Clear your team roster"
         WinTop=0.930000
         WinWidth=0.120000
         WinHeight=0.055000
         bFocusOnWatch=Wahr
         OnKeyEvent=SPDTClear.InternalOnKeyEvent
     End Object
     Controls(9)=GUIButton'XInterface.UT2DraftTeam.SPDTClear'

     Begin Object Class=GUIButton Name=SPDTEnter
         Caption="PLAY"
         StyleName="SquareMenuButton"
         Hint="Enter tournament with this team"
         WinTop=0.930000
         WinLeft=0.880000
         WinWidth=0.120000
         WinHeight=0.055000
         bFocusOnWatch=Wahr
         OnKeyEvent=SPDTEnter.InternalOnKeyEvent
     End Object
     Controls(10)=GUIButton'XInterface.UT2DraftTeam.SPDTEnter'

     Begin Object Class=GUIGFXButton Name=SPDTPicLeft
         Graphic=FinalBlend'InterfaceContent.Menu.fbArrowLeft'
         Position=ICP_Scaled
         Hint="Select teammate"
         WinTop=0.335833
         WinLeft=0.601563
         WinWidth=0.080000
         WinHeight=0.080000
         bFocusOnWatch=Wahr
         OnKeyEvent=SPDTPicLeft.InternalOnKeyEvent
     End Object
     Controls(11)=GUIGFXButton'XInterface.UT2DraftTeam.SPDTPicLeft'

     Begin Object Class=GUIGFXButton Name=SPDTPicRight
         Graphic=FinalBlend'InterfaceContent.Menu.fbArrowRight'
         Position=ICP_Scaled
         Hint="Select teammate"
         WinTop=0.335833
         WinLeft=0.870312
         WinWidth=0.080000
         WinHeight=0.080000
         bFocusOnWatch=Wahr
         OnKeyEvent=SPDTPicRight.InternalOnKeyEvent
     End Object
     Controls(12)=GUIGFXButton'XInterface.UT2DraftTeam.SPDTPicRight'

     Begin Object Class=GUILabel Name=SPDTLblChoose
         Caption="Choose Teammate"
         TextAlign=TXTA_Center
         TextColor=(B=255,G=255,R=255)
         TextFont="UT2HeaderFont"
         WinTop=0.122084
         WinLeft=0.592498
         WinWidth=0.368750
         WinHeight=0.079687
     End Object
     Controls(13)=GUILabel'XInterface.UT2DraftTeam.SPDTLblChoose'

     Begin Object Class=GUIListBox Name=SPDTTeamStats
         OnCreateComponent=SPDTTeamStats.InternalOnCreateComponent
         WinTop=0.739166
         WinLeft=0.654063
         WinWidth=0.338750
         WinHeight=0.189062
         bAcceptsInput=Falsch
         bNeverFocus=Wahr
     End Object
     Controls(14)=GUIListBox'XInterface.UT2DraftTeam.SPDTTeamStats'

     Begin Object Class=GUITitleBar Name=SPDTHeader
         Effect=FinalBlend'InterfaceContent.Menu.CO_Final'
         Caption="Single Player | Draft your team"
         StyleName="Header"
         WinTop=0.036406
         WinHeight=46.000000
     End Object
     Controls(15)=GUITitleBar'XInterface.UT2DraftTeam.SPDTHeader'

     Begin Object Class=GUITitleBar Name=SPDTHints
         bUseTextHeight=Falsch
         StyleName="Footer"
         WinTop=0.930000
         WinLeft=0.120000
         WinWidth=0.760000
         WinHeight=0.055000
     End Object
     Controls(16)=GUITitleBar'XInterface.UT2DraftTeam.SPDTHints'

     Begin Object Class=GUIButton Name=SPDTAuto
         Caption="AUTO FILL"
         Hint="Automatically fill your team"
         WinTop=0.666667
         WinLeft=0.681245
         WinWidth=0.187500
         WinHeight=0.055000
         bFocusOnWatch=Wahr
         OnKeyEvent=SPDTAuto.InternalOnKeyEvent
     End Object
     Controls(17)=GUIButton'XInterface.UT2DraftTeam.SPDTAuto'

     WinHeight=1.000000
     bAcceptsInput=Falsch
}