if event.type == "program" then
  -- Füge hier die Herausforderungen oder Anweisungen ein
  mem.herausforderungen = {"Ziel 1", "Ziel 2", "Ziel 3"}
  -- Füge hier den Text ein, der angezeigt wird, wenn kein Ziel angezeigt wird
  mem.hint = "Geh auf die Platte, um deine Challenge zu erhalten!"
  -- Gib hier die Zeit in Sekunden ein, nach der der Hinweistext angezeigt werden soll
  mem.cooldown = 2
 
  interrupt(0.2, "idle")
end
 
local function clearScreen()
    for i=1,6,1 do
    digiline_send("screen", " ")
  end
end
 
if event.type == "interrupt" and event.iid == "idle" then
  clearScreen()
  digiline_send("screen", mem.hint)
end
 
if event.type == "on" then
  clearScreen()
  digiline_send("screen", "hello")
  digiline_send("screen", mem.herausforderungen[math.random(#mem.herausforderungen)])
  interrupt(mem.cooldown, "idle")
end

if event.type == "program" then
 
  -- Stelle hier die Anzahl der Lernenden ein, die verteilt werden sollen.
  mem.lernenden_count = 4
  -- Stelle hier die Gruppennamen ein.
  -- Achte darauf, dass die Namen in Anführungszeichen sind und trenne sie mit einem Komma.
  mem.groupnames = {"a", "b"}
  -- Stelle hier den Hinweis ein, der erscheinen soll, wenn niemand vor der Kamera steht.
  -- Mit \n kannst du eine neue Zeile auf dem Bildschirm erzwingen
  mem.hint = "Stelle dich vor die\n Kamera, um deine Gruppe anzuzeigen!"
  -- Stelle hier den Hinweis ein, der erscheinen soll, wenn alle Gruppen voll sind.
  mem.hint_vollegruppen = "Alle Gruppen sind voll!"
  -- Stelle hier den Hinweis ein, der erscheinen soll, wenn mehrere Avatare im Kamerabereich stehen
  mem.hint_eineperson = "Bitte nur eine Person vor der Kamera!"
  -- Stelle hier die Zeit in Sekunden ein, die die Gruppenzugehörigkeit noch angezeigt werden soll,
  -- nachdem ein Avatar den Kamerabereich verlässt 
  mem.cooldown = 2
 
  mem.groups = {}
  mem.seen_lernende = {}
 
  for _, groupname in ipairs(mem.groupnames) do
    mem.groups[groupname] = {}
  end
  interrupt(0.2, "idle")
end
 
local function clearScreen()
    for i=1,6,1 do
    digiline_send("screen", " ")
  end
end
 
if event.type == "interrupt" and event.iid == "idle" then
  clearScreen()
  digiline_send("screen", mem.hint)
end
 
local function groupHasCapacity()
    for _, groupname in ipairs(mem.groupnames) do
        if (#mem.groups[groupname] or 0) < mem.lernenden_count / #mem.groupnames then
            return true
        end
    end
    return false
end
 
local function assignPlayer(player)
    if not groupHasCapacity() then
        digiline_send("screen", mem.hint_vollegruppen)
        return
    end
 
    local assigned = false
    while not assigned do
        local selected_group = mem.groupnames[math.random(#mem.groupnames)]
 
        if (#mem.groups[selected_group] or 0) < mem.lernenden_count / #mem.groupnames then
            table.insert(mem.groups[selected_group], player)
            assigned = true
        end
    end
    table.insert(mem.seen_lernende, player)
end
 
if event.type == "digiline" and event.channel == "camera" then
    clearScreen()
    if #event.msg == 1 then
        local player = event.msg[1]
 
        -- Überprüfen, ob Avatar bereits gesehen wurden
        local already_seen = false
        for _, seen_player in ipairs(mem.seen_lernende) do
            if seen_player == player then
                already_seen = true
                break
            end
        end
 
        if already_seen then
 
    -- Gruppe finden, zu der ein Avatar gehört
    local player_group = nil
    for groupname, members in pairs(mem.groups) do
        for _, member in ipairs(members) do
            if member == player then
                player_group = groupname
                break
            end
        end
        if player_group then break end -- Schleife verlassen, falls Avatar gefunden wurde
    end
 
    -- Gruppe auf Bildschirm anzeigen
    if player_group then
        digiline_send("screen", player .. " ist in Gruppe " .. player_group)
    else
        digiline_send("screen", "Fehler: " .. player .. " in keiner Gruppe gefunden.")
    end
        else
            assignPlayer(player)
        end
    else
        digiline_send("screen", mem.hint_eineperson)
    end
    interrupt(mem.cooldown, "idle")
end