Random Team Picker

SettingsFile = Settings.ini
DevMode:=False
FileDelete, %SettingsFile%
Loop,
{
    CurrentNumTeammates:=A_Index-1
    If A_Index < 2
        InputBox, TeamMember, Team Picker, Please enter a teammate's name. (Click Cancel to finish entering names.) (Teammates Currently Entered: 0)
    Else
        InputBox, TeamMember, Team Picker, Please enter a teammate's name. (Click Cancel to finish entering names.) (Teammates Currently Entered: %CurrentNumTeammates% - Last Teammate: %TeamMember%)
    If ErrorLevel
        Break
    Members:=A_Index
    IniWrite, %TeamMember%, %SettingsFile%, Members, %A_Index%
}
Loop,
{
    CurrentNumTeams:=A_Index-1
    If A_Index < 2
        InputBox, TeamName, Team Picker, Please enter a team's name. (Click Cancel to finish entering names.) (Teams Currently Entered: 0)
    Else
        InputBox, TeamName, Team Picker, Please enter a team's name. (Click Cancel to finish entering names.) (Teams Currently Entered: %CurrentNumTeams% - Last Team: %TeamName%)
    If ErrorLevel
        Break
    Teams:=A_Index
    IniWrite, %TeamName%, %SettingsFile%, Teams, %A_Index%
}
CurrentTeam:=0
Index:=0
LoopTeams:
    Index+=1
    If DevMode
        MsgBox, %Index%/%Members%`n%TeamMemberChosen%/%Members%`n%CurrentTeam%/%Teams%
    If Index > %Members%
        Goto, ListTeams
    Random, TeamMemberChosen, 1, %Members%
    IniRead, TeamMemberTeam, %SettingsFile%, CurrentTeams, %TeamMemberChosen%, 0
    If TeamMemberTeam
        Goto, RetryTeammate
    Else
    {
        CurrentTeam+=1
        If CurrentTeam > %Teams%
            CurrentTeam:=1
        IniWrite, %CurrentTeam%, %SettingsFile%, CurrentTeams, %TeamMemberChosen%
    }
    Goto, LoopTeams
Return

RetryTeammate:
    If DevMode
        MsgBox, %Index% - %Members%`n%TeamMemberChosen%`n%CurrentTeam%
    Random, TeamMemberChosen, 1, %Members%
    IniRead, TeamMemberTeam, %SettingsFile%, CurrentTeams, %TeamMemberChosen%, 0
    If TeamMemberTeam
        Goto, RetryTeammate
    Else
    {
        CurrentTeam+=1
        If CurrentTeam > %Teams%
            CurrentTeam:=1
        IniWrite, %CurrentTeam%, %SettingsFile%, CurrentTeams, %TeamMemberChosen%
    }
    Goto, LoopTeams
Return

ListTeams:
    Gui, Add, ListView, Grid r20 w500, Teammate|Team
    Loop, %Members%
    {
        IniRead, TeamMateName, %SettingsFile%, Members, %A_Index%
        InIRead, TeamMateTeam, %SettingsFile%, CurrentTeams, %A_Index%
        IniRead, TeamMateTeamName, %SettingsFile%, Teams, %TeamMateTeam%, 0
        LV_Add(, TeamMateName, TeamMateTeamName)
    }
    LV_ModifyCol()
    Gui, Show
Return

GuiClose:
    FileDelete, %SettingsFile%
    ExitApp
Return