function StringToPlayerColor takes string color returns playercolor
    set color = StringCase(color, false)
    if color == "red" then
        return PLAYER_COLOR_RED
    elseif color == "blue" then
        return PLAYER_COLOR_BLUE
    elseif color == "cyan" then
        return PLAYER_COLOR_CYAN
    elseif color == "purple" then
        return PLAYER_COLOR_PURPLE
    elseif color == "yellow" then
        return PLAYER_COLOR_YELLOW
    elseif color == "orange" then
        return PLAYER_COLOR_ORANGE
    elseif color == "green" then
        return PLAYER_COLOR_GREEN
    elseif color == "pink" then
        return PLAYER_COLOR_PINK
    elseif color == "light gray" then
        return PLAYER_COLOR_LIGHT_GRAY
    elseif color == "light blue" then
        return PLAYER_COLOR_LIGHT_BLUE
    elseif color == "aqua" then
        return PLAYER_COLOR_AQUA
    elseif color == "brown" then
        return PLAYER_COLOR_BROWN
    endif
    return null
endfunction

function StringToPlayerId takes string color, player admin returns player
    local integer i
    local player p
    local playercolor col = StringToPlayerColor(color)
    if col != null then
        set i = 0
        loop
            set p = Player(i)
            // В вызове этой функции в триггере с событием на чат в качестве admin передаём GetTriggerPlayer().
            // Сначала проверится, не админ ли это. Если это админ, дальнейшие условия скипаются.
            // Если всё-таки не админ, проверяется статус. Если слот пуст или игрок вышел, дальнейшие условия скипаются.
            // Если игрок всё ещё играет, то сверяем цвета. Если цвета не равны, то выходим из условия.
            // Если всё правда, то возвращаем индекс или сразу игрока.
            if p != admin and GetPlayerSlotState(p) == PLAYER_SLOT_STATE_PLAYING and GetPlayerColor(p) == col then
                return p
            endif
            set i = i + 1
            exitwhen i == bj_MAX_PLAYERS
        endloop
    endif
    return null
endfunction

function StringToPlayerColor takes string color returns playercolor
    set color = StringCase(color, false)
    if color == "red" then
        return PLAYER_COLOR_RED
    elseif color == "blue" then
        return PLAYER_COLOR_BLUE
    elseif color == "cyan" then
        return PLAYER_COLOR_CYAN
    elseif color == "purple" then
        return PLAYER_COLOR_PURPLE
    elseif color == "yellow" then
        return PLAYER_COLOR_YELLOW
    elseif color == "orange" then
        return PLAYER_COLOR_ORANGE
    elseif color == "green" then
        return PLAYER_COLOR_GREEN
    elseif color == "pink" then
        return PLAYER_COLOR_PINK
    elseif color == "light gray" then
        return PLAYER_COLOR_LIGHT_GRAY
    elseif color == "light blue" then
        return PLAYER_COLOR_LIGHT_BLUE
    elseif color == "aqua" then
        return PLAYER_COLOR_AQUA
    elseif color == "brown" then
        return PLAYER_COLOR_BROWN
    endif
    return null
endfunction

function StringToPlayerId takes string color returns integer
    local integer i
    set bj_setPlayerTargetColor = StringToPlayerColor(color)
    if bj_setPlayerTargetColor != null then
        set i = 0
        loop
            if GetPlayerColor(Player(i)) == bj_setPlayerTargetColor then
                return i
            endif
            set i = i + 1
            exitwhen i == bj_MAX_PLAYERS
        endloop
    endif
    return -1
endfunction