it_history.ttslua

indicatorGUID = "15a702"

function onLoad()
    indicator_block = getObjectFromGUID(indicatorGUID)
    THING_HISTORY = {"Black"}
    self.setName("Thing history")
end

function onUpdate()
    players = Player.getPlayers()
    player_with_joker = get_player_with_joker(players)
    last_recorded_thing = get_last_element_of_indexed_table(THING_HISTORY)
    if not player_has_been_thing_before(player_with_joker) then
        printToAll(string.format("%s ~= %s!", player_with_joker, last_recorded_thing))
        table.insert(THING_HISTORY, player_with_joker)
    end
    indicator_block.setColorTint(get_last_element_of_indexed_table(THING_HISTORY))
    self.setDescription(format_thing_history(THING_HISTORY))
end

-- auxiliary functions

function format_thing_history(table)
    -- consumes the thing-history table and produces
    -- a formatted string representing it.
    str = ""
    for _, el in ipairs(table) do
        str = str .. el .. "\n"
    end
    return str
end

function player_has_joker(player)
    -- consumes a player and produces true if that
    -- player has the Joker, false otherwise.
    -- assumes that each player has only 1 Hand-zone
    if player.getHandCount() < 1 then
        return false
    elseif player.getHandCount() > 1 then
        printToAll("hands are misconfigured: ".. tostring(Player) .. " has 2")
        return false
    else
        objects = player.getHandObjects(1)
        return table_contains_joker(objects)
    end
end

function table_contains_joker(table)
    -- consumes a table and produces true if that table
    -- contains the joker as a member, false otherwise.
    if #table < 1 then
      return false
    end
    for _, object in ipairs(table) do
        if Global.call("is_a_joker", object) then
            return true
        end
    end
    return false
end

function get_player_with_joker(players)
  -- consumes a table of players and produces the first player that
  -- holds a joker.
    for _, player in ipairs(players) do
        if player_has_joker(player) then
            return player.color
        end
    end
    return "Black"
end

function get_last_element_of_indexed_table(table)
  -- consumes a table and produces the table's last element
    return table[#table]
end

function get_last_recorded_thing()
  -- consumes nothing and produces a string representing the color of the
  -- last recorded thing.
    return get_last_element_of_indexed_table(THING_HISTORY)
end


function player_has_been_thing_before(color)
    -- consumes a Player and produces true if the player's been a Thing before,
    -- false otherwise.
    for _, playerColor in ipairs(THING_HISTORY) do
        if playerColor == color then
            return true
        end
    end
    return false
end
--