Game Command for target player

Description

This code adds a green chat message to the chat box for all players, showing the name of the game that a specified player is playing, when typing /game player.
If the specified player is not found, an orange chat message is shown to only the player that typed the command.

Code

Lua, Server-Side:

addCommandHandler('game', function(cmd, args, client)
	local client2 = getClientFromText(args)
	if not client2 then
		messageClient('Player not found', client, COLOUR_ORANGE)
	else
		message(client2.player.name .. ' is playing ' .. getGameNameFromGameId(client2.game), COLOUR_GREEN)
	end
end)

function getGameNameFromGameId(gameId)
	if gameId == GAME_GTA_III then return 'GTA III'
	elseif gameId == GAME_GTA_VC then return 'GTA VC'
	elseif gameId == GAME_GTA_SA then return 'GTA SA'
	elseif gameId == GAME_GTA_IV then return 'GTA IV'
	end
	return 'Unknown Game'
end

function getClientFromText(text)
    local clients = getClients()
    local textLower = text:lower()
    local textLength = text:len()

    -- player id
    local textNumber = tonumber(text, 10)
    if textNumber then
        for i,client in ipairs(clients) do
            if client.player.id == textNumber then
                return client
            end
        end
    end

    -- player full name (case-insensitive)
    for i,client in ipairs(clients) do
        if client.player.name:lower() == textLower then
            return client
        end
    end

    -- player partial name (case-insensitive)
    for i,client in ipairs(clients) do
        if client.player.name:lower():find(textLower, 1, true) then
            return client
        end
    end

    -- nearest player name match (case-insensitive)
    local charMatchCounts = {}
    for i,client in ipairs(clients) do
        local playerNameChars = {}
        local playerNameLower = client.player.name:lower()
        local playerNameLength = client.player.name:len()
        for i2=1, playerNameLength do
            table.insert(playerNameChars, playerNameLower:sub(i2, i2))
        end
        local charMatchCount = 0
        local playerNameCharIndex
        for i2=1, textLength do
            playerNameCharIndex = false
            local textChar = textLower:sub(i2, i2)
            for i3,playerNameChar in ipairs(playerNameChars) do
                if textChar == playerNameChar then
                    charMatchCount = charMatchCount + 1
                    playerNameCharIndex = i3
                    break
                end
            end
            if playerNameCharIndex then
                table.remove(playerNameChars, playerNameCharIndex)
            end
        end
        charMatchCounts[i] = { client, charMatchCount / playerNameLength }
    end
    local highestCharMatchCount = 0
    local highestCharMatchCountClient
    for i,data in ipairs(charMatchCounts) do
        if data[2] > highestCharMatchCount then
            highestCharMatchCount = data[2]
            highestCharMatchCountClient = data[1]
        end
    end
    if highestCharMatchCountClient then
        return highestCharMatchCountClient
    end

    -- no match
    return false
end