globals
    constant group EmptyGroup = CreateGroup()
    constant player Admin = Player(0)
endglobals

function StringToPlayer takes string color returns player
    set color = StringCase(color, false)
    if color == "red" then
        return Player(0)
    elseif color == "blue" then
        return Player(1)
    elseif color == "teal" then
        return Player(2)
    elseif color == "purple" then
        return Player(3)
    elseif color == "yellow" then
        return Player(4)
    elseif color == "orange" then
        return Player(5)
    elseif color == "green" then
        return Player(6)
    elseif color == "pink" then
        return Player(7)
    elseif color == "gray" then
        return Player(8)
    elseif color == "light blue" then
        return Player(9)
    elseif color == "dark green" then
        return Player(10)
    elseif color == "brown" then
        return Player(11)
    elseif color == "maroon" then
        return Player(12)
    elseif color == "navy" then
        return Player(13)
    elseif color == "turquoise" then
        return Player(14)
    elseif color == "violet" then
        return Player(15)
    elseif color == "wheat" then
        return Player(16)
    elseif color == "peach" then
        return Player(17)
    elseif color == "mint" then
        return Player(18)
    elseif color == "lavender" then
        return Player(19)
    elseif color == "coal" then
        return Player(20)
    elseif color == "snow" then
        return Player(21)
    elseif color == "emerald" then
        return Player(22)
    elseif color == "peanut" then
        return Player(23)
    endif
    return null
endfunction

function KickPlayer takes nothing returns boolean
    call KillUnit(GetFilterUnit())
    return false
endfunction

function MyTrig_Actions takes nothing returns nothing
    local string color = GetEventPlayerChatString()
    local player p = StringToPlayer(SubString(color, 3, StringLength(color)))
    if p != null and p != Admin and GetPlayerSlotState(p) == PLAYER_SLOT_STATE_PLAYING then
        call GroupEnumUnitsOfPlayer(EmptyGroup, p, Filter(function KickPlayer))
    endif
    set p = null
endfunction

function InitMyTrig takes nothing returns nothing
    set gg_trg_My = CreateTrigger(  )
    call TriggerRegisterPlayerChatEvent( gg_trg_My, Admin, "gg", false )
    call TriggerAddAction( gg_trg_My, function MyTrig_Actions )
endfunction

function DebugMsg takes string s returns nothing
    debug call DisplayTimedTextToPlayer(LocalPlayer, 0., 0., 5., s)
endfunction

function DebugMsgIf takes boolean bool, string s returns nothing
    static if DEBUG_MODE then
        if bool then
            call DebugMsg(s)
        endif
    endif
endfunction

function DebugMsgIfElse takes boolean bool, string s1, string s2 returns nothing
    static if DEBUG_MODE then
        if bool then
            call DebugMsg(s1)
        else
            call DebugMsg(s2)
        endif
    endif
endfunction

function PlayerColorToString takes playercolor color returns string	
    if color == PLAYER_COLOR_RED then
        return "red"
    elseif color == PLAYER_COLOR_BLUE then
        return "blue"
    elseif color == PLAYER_COLOR_CYAN then
        return "teal"
    elseif color == PLAYER_COLOR_PURPLE then
        return "purple"
    elseif color == PLAYER_COLOR_YELLOW then
        return "yellow"
    elseif color == PLAYER_COLOR_ORANGE then
        return "orange"
    elseif color == PLAYER_COLOR_GREEN then
        return "green"
    elseif color == PLAYER_COLOR_PINK then
        return "pink"
    elseif color == PLAYER_COLOR_LIGHT_GRAY then
        return "gray"
    elseif color == PLAYER_COLOR_LIGHT_BLUE then
        return "light blue"
    elseif color == PLAYER_COLOR_AQUA then
        return "dark green"
    elseif color == PLAYER_COLOR_BROWN then
        return "brown"
    elseif color == PLAYER_COLOR_MAROON then
        return "maroon"
    elseif color == PLAYER_COLOR_NAVY then
        return "navy"
    elseif color == PLAYER_COLOR_TURQUOISE then
        return "turquoise"
    elseif color == PLAYER_COLOR_VIOLET then
        return "violet"
    elseif color == PLAYER_COLOR_WHEAT then
        return "wheat"
    elseif color == PLAYER_COLOR_PEACH then
        return "peach"
    elseif color == PLAYER_COLOR_MINT then
        return "mint"
    elseif color == PLAYER_COLOR_LAVENDER then
        return "lavender"
    elseif color == PLAYER_COLOR_COAL then
        return "coal"
    elseif color == PLAYER_COLOR_SNOW then
        return "snow"
    elseif color == PLAYER_COLOR_EMERALD then
        return "emerald"
    elseif color == PLAYER_COLOR_PEANUT then
        return "peanut"
    endif
	
    return null
endfunction

function StringToPlayer takes string color returns player
    local integer i
    set bj_setPlayerTargetColor = StringToPlayerColor(color)
	
    if bj_setPlayerTargetColor != null then
        set i = 1
        loop
            set bj_forceRandomCurrentPick = Player(i)
            call DebugMsg("Current player is " + GetPlayerName(bj_forceRandomCurrentPick))
			if GetPlayerSlotState(bj_forceRandomCurrentPick) == PLAYER_SLOT_STATE_PLAYING then
                call DebugMsg("Color of " + GetPlayerName(bj_forceRandomCurrentPick) + " is " + PlayerColorToString(GetPlayerColor(bj_forceRandomCurrentPick)))
                if GetPlayerColor(bj_forceRandomCurrentPick) == bj_setPlayerTargetColor then
				    return bj_forceRandomCurrentPick
				endif
			endif
            call DebugMsg("No match!")
            set i = i + 1
			
            exitwhen i == bj_MAX_PLAYERS
        endloop
    endif
	call DebugMsg("Invalid string! String is " + color)
    return null
endfunction