current_hands.ttslua

function onUpdate()
    updateDescription()
end

function updateDescription()
    -- consumes nothing, and updates my description to reflect the
   -- hands of seated players.
   local seated_player_colors = getSeatedPlayers()
   if #seated_player_colors < 1 then return end
   local hands_string = format_player_colors(seated_player_colors)
   return self.setDescription(hands_string)
end

function format_player_colors(player_colors)
    -- consumes a list of player-colors (strings), and produces a string describing them.
    local str = ""
    if #player_colors == 0 then
        return str .. "none"
    else 
        for _, player_color in ipairs(player_colors) do
            if player_color ~= "Black" then
                player = Player[player_color]
                str = str .. format_player(player)
            end
        end
    return str
    end
end

function format_player(player)
    -- consumes a player and produces a string describing its state
    local fstring = "%s :: handsize = %i :: hand = %s \n"
    colour = player.color
    handcount = player.getHandCount()
    if handcount > 0 then
        hand_contents = player.getHandObjects(1)
        hand_contents_str = format_hand(hand_contents)
    else
        hand_contents_str = "None"
    end
    return string.format(fstring, colour, #hand_contents, hand_contents_str)
end

function format_hand(hand_objects)
    -- consumes a table of objects and produces a string of
    -- the GMNote-stored names of the objects
    local str = ""
    local fstring = "%s/"
    for _, object in ipairs(hand_objects) do
        local object_name = object.getGMNotes()
        str = str .. string.format(fstring, object_name)
    end
    return str
end