Quiz bot (fully interactive by others (they answer only)

local VERSION = "2.7.3"

local letters = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"}
local userCooldowns = {}
local currentQuestion
local questionAnsweredBy
local quizRunning = false
local HttpService = game:GetService("HttpService")
local players = game:GetService("Players")
local localPlayer = players.LocalPlayer
local blockedPlayers = {}
local whiteListedplayers = {}
local mode = "Quiz"
local answeredCorrectly = {}
local submittedAnswer = {}
local awaitingAnswer = false
local questionPoints = 1
local timeSinceLastMessage = tick()
local placeId = game.PlaceId
local replicatedStorage = game:GetService("ReplicatedStorage")
local StarterGui = game:GetService("StarterGui")
local textChatService = game:GetService("TextChatService")
local quizCooldown = false
local answerOptionsSaid = 0 -- how many answer options have been said (0 = none, 1 = a, 2 = b, etc.). Prevents users from spamming letters before they even know what the corresponding answer option is
local minMessageCooldown = 2.3 -- how much you need to wait to send another message to avoid ratelimit
local whiteListEnabled = false
local ContextActionService = game:GetService("ContextActionService")
local UserInputService = game:GetService("UserInputService")

local settings = {
    questionTimeout = 10,
    userCooldown = 5,
    sendLeaderBoardAfterQuestions = 0, -- only send quiz LB at end of quiz by default
    automaticLeaderboards = true,
    automaticCurrentQuizLeaderboard = false,
    automaticServerQuizLeaderboard = true,
    signStatus = true, -- Booth game: update sign text with relevant question text and timer
    boothStatus = true, -- Booth game: also update your booth's text
    boothGameFullMode = false, -- Booth game: use the sign/booth for all text, including answer options
    boothGameSuppressNotifs = true, -- Booth game: suppress push notifications while a quiz is running
    romanNumbers = false, -- Booth game: use roman numerals to minimize filtering
    disableChat = false, -- Booth game: communicate exclusively through sign/booth
    autoplay = false,
    repeatTagged = true,
    sendDetailedCategorylist = false, -- off by default since sending it this way tends to trigger the filter. Blame Roblox
    removeLeavingPlayersFromLB = true,
}

local numberMap = {
    {1000, 'M'},
    {900, 'CM'},
    {500, 'D'},
    {400, 'CD'},
    {100, 'C'},
    {90, 'XC'},
    {50, 'L'},
    {40, 'XL'},
    {10, 'X'},
    {9, 'IX'},
    {5, 'V'},
    {4, 'IV'},
    {1, 'I'}
}

function intToRoman(num)
    local roman = ""
    while num > 0 do
        for _, v in pairs(numberMap)do
            local romanChar = v[2]
            local int = v[1]
            while num >= int do
                roman = roman..romanChar
                num = num - int
            end
        end
    end
    return roman
end

local function Chat(msg, force)
    if settings.disableChat and not force then
        return
    end
    textChatService.TextChannels.RBXGeneral:SendAsync(msg)
end

local function shuffle(tbl) -- Table shuffle function by sleitnick
    local rng = Random.new()
    for i = #tbl, 2, -1 do
        local j = rng:NextInteger(1, i)
        tbl[i], tbl[j] = tbl[j], tbl[i]
    end
    return tbl
end

local function sortAlphabetically(a, b)
    return string.lower(a) < string.lower(b)
end

local function roundNumber(num, numDecimalPlaces)
    return tonumber(string.format("%." .. (numDecimalPlaces or 0) .. "f", num))
end

-- callback value of configTable needs to be a bindable function
local notifyBindable = Instance.new("BindableFunction")
local function notify(title: string, text: string, configTable: { any }?, duration: number?)
    configTable = configTable or {}
    StarterGui:SetCore("SendNotification", {
        Title = title,
        Text = text,
        Callback = notifyBindable,
        Button1 = configTable.Button1,
        Button2 = configTable.Button2,
        Duration = duration
    })
    if configTable.Callback then
        notifyBindable.OnInvoke = configTable.Callback
    end
end

local function setgenv(key: string, value: any)
    pcall(function()
        getgenv()[key] = value
    end)
end

if getgenv and getgenv().QUIZBOT_RUNNING then
    notify("quizbot is already running", "You cannot run two instances of quizbot at once")
    return
end
setgenv("QUIZBOT_RUNNING", true)

local function copyLatestScript() -- copies latest loadstring version of the script to clipboard
    setclipboard('loadstring(game:HttpGet("https://raw.githubusercontent.com/Damian-11/quizbot/master/quizbot.luau", true))()')
    notify("Script copied", "The latest version of quizbot has been copied to your clipboard")
end

local DATA_FILENAME = "quizbot_data.json"
type dataValueType = string | number | boolean
local data: {[string]: dataValueType} = {}
if isfile and isfile(DATA_FILENAME) then
    data = HttpService:JSONDecode(readfile(DATA_FILENAME))
end

local function writeToDataFile(key: string, value: dataValueType)
    if not writefile then
        notify("Can't write to file", "Your exploit does not support the writefile function. Your settings will not be saved.")
        return
    end
    data[key] = value
    writefile(DATA_FILENAME, HttpService:JSONEncode(data))
end
local function getDataFileValue(key: string): dataValueType?
    return data[key]
end

-- check if running latest version from GitHub
local LATEST_VERSION_URL = "https://raw.githubusercontent.com/Damian-11/quizbot/master/version_number.luau"
local success, LATEST_VERSION: string = pcall(function()
    return loadstring(game:HttpGet(LATEST_VERSION_URL))() -- this returns a string, such as "2.5.7"
end)

local outdated = if success and LATEST_VERSION then VERSION ~= LATEST_VERSION else false
if outdated then
    if not getDataFileValue("disableVersionAlert") then -- true if user has pressed "Don't show again" before
        notify(
            "Outdated quizbot version",
            "You are running an outdated version of quizbot. Click the button below to copy the latest version of this script",
            {
                Callback = copyLatestScript,
                Button1 = "Copy latest version",
            },
            10
        )
    end
end

local function EscapePattern(pattern: string) -- escapes magic characters in pattern
    local escapePattern = "[%(%)%.%%%+%-%*%?%[%]%^%$]"
    return string.gsub(pattern, escapePattern, "%%%1")
end

local antiFilteringDone: boolean
local importantMessageSent: boolean -- if a important message that needs to be resent if filtered has been sent recently
local messageBeforeFilter: string
local answeredByAltMessage: string -- alt message specially for the correct answer text
local mainQuestionSent: boolean
local messageFiltered: boolean -- set to false once main question gets asked successfully without being filtered
local lastMessageTime: number -- time at which the last message was picked up by the antifilering function
function SendMessageWhenReady(message: string, important: boolean?, altMessage: string?) -- sends message so roblox won't rate limit it. if message is "important", script will send it again if it gets filtered/tagged first time. Altmessage is the message to send instead of original if it gets tagged
    if not quizRunning or settings.disableChat then
        return
    end
    if not settings.repeatTagged then
        important = false
    end
    if important then
        importantMessageSent = true
        messageBeforeFilter = message
        answeredByAltMessage = altMessage
        messageFiltered = false
        antiFilteringDone = false
    end
    if tick() - timeSinceLastMessage >= minMessageCooldown then
        Chat(message)
        timeSinceLastMessage = tick()
    else
        task.wait(minMessageCooldown - (tick() - timeSinceLastMessage))
        if not quizRunning then
            return
        end
        Chat(message)
        timeSinceLastMessage = tick()
    end
    if important then
        lastMessageTime = tick()
        while (not antiFilteringDone or mainQuestionSent) and quizRunning and settings.repeatTagged do -- yields until the anti filter functions have done their job
            task.wait()
            if tick() - lastMessageTime > 4.5 then -- prevents the antifiltering functions yielding forever in case the message fails to send
                notify("Failed to Send Quiz Message", "Message rate limit exceeded. Avoid sending messages in the chat while a quiz is running. This could also be caused by high network latency.", nil, 10)
                messageFiltered = true -- the message not sending at all is equivalent to it being filtered
                break
            end
        end
    end
    importantMessageSent = false
end

-- Booth Game integration may break at any point. I won't bother fixing it every time they update the remote events
local boothGame = (placeId == 8351248417)
local signRemote
local changeSignTextRemote
local boothFunction
if placeId == 8351248417 then
    -- For updating sign text
    signRemote = replicatedStorage:WaitForChild("Remotes").SettingsRem
    changeSignTextRemote = replicatedStorage.SharedModules.TextInputPrompt.TextInputEvent
    -- For changing the booth text and getting current booth text/image
    boothFunction = replicatedStorage.Remotes.Booth.BoothFunc
end

local function UpdateSignText(text: string)
    local sign = localPlayer.Character:FindFirstChild("Text Sign") or localPlayer.Backpack:FindFirstChild("Text Sign")
    if not sign then
        return
    end
    signRemote:FireServer("SignServer")
    changeSignTextRemote:FireServer({text})
end

local currentText = ""
-- After quiz is done, reset booth text to what it was previously
local originalBoothText = ""
local boothDecalId = 0
local function CaptureBoothTextAndImage()
    if not boothGame or not boothFunction then
        return
    end
    local result = boothFunction:InvokeServer("GetMyBoothTextImage")
    -- Don't update originalBoothText if the text has been set by UpdateBoothgameTexts()
    if result then
        if result.Text and result.Text ~= currentText then
            originalBoothText = result.Text
        end
        if result.IID then
            boothDecalId = result.IID
        end
    end
end

local function UpdateBoothText(text: string)
    task.spawn(boothFunction.InvokeServer, boothFunction, "ChangeTIM", text, boothDecalId)
end

-- Since the question timeout starts immediately after the
-- last answer option has been said, its reading time becomes "owed".
-- quizbot must ensure that the last answer option remains visible for this time.
-- Currently, this is only used by booth game intergariton, and the value of
-- this variable is the tick at which the debt will have been repaid
local readTimeOwedTick = 0

-- Updates both the sign and booth text (if enabled)
local lastUpdateTick = 0
local MIN_BOOTHGAME_UPDATE_COOLDOWN = 1
local function UpdateBoothgameTexts(text: string, imporant: boolean)
    if boothGame and text then
        if not imporant and settings.boothGameFullMode and readTimeOwedTick > tick() then
            return
        end
        -- Enforce minimum rate limit
        local timeSinceLastUpdate = tick() - lastUpdateTick
        if timeSinceLastUpdate < MIN_BOOTHGAME_UPDATE_COOLDOWN then
            -- If important, wait until an update can be performed instead of skipping
            if imporant then
                task.wait(MIN_BOOTHGAME_UPDATE_COOLDOWN - timeSinceLastUpdate)
            else
                return
            end
        end

        if settings.signStatus and signRemote and changeSignTextRemote then
            UpdateSignText(text)
        end
        if settings.boothStatus and boothFunction then
            if text == "" then
                UpdateBoothText(originalBoothText)
            else
                UpdateBoothText(text)
            end
        end
        currentText = text
        lastUpdateTick = tick()
    end
end

-- Disables the annoying notificaion boxes from popping up each time sign/booth is updated
local function SuppressBoothGameNotifications(suppress: boolean)
    if not boothGame or not settings.boothGameSuppressNotifs then
        return
    end
    local pushNotifScreenGui = localPlayer.PlayerGui:FindFirstChild("PushNotif")
    local pushNotifSound = replicatedStorage.SharedModules.PushHandler.Presets.MainPreset.Sound
    if pushNotifScreenGui then
        pushNotifScreenGui.Enabled = not suppress
    end
    if pushNotifSound then
        pushNotifSound.Volume = if suppress then 0 else 0.4 -- 0.4 is the default value
    end
end

local maxCharactersInMessage = 200
if placeId == 5118029260 then -- GRP cuts down messages at 100 characters
    maxCharactersInMessage = 100
end

local endMessage = "🏁 Quiz ended"

local function CalculateReadTime(text: string): number
    local timeToWait = #string.split(text, " ") * 0.4
    if timeToWait < minMessageCooldown then
        timeToWait = minMessageCooldown
    end
    return timeToWait
end
-------

--- Question OOP ---
local question = {}
question.__index = question

function question.New(quesitonText: string, options: { string }, value: number)
    local newQuestion = {}
    newQuestion.mainQuestion = quesitonText
    newQuestion.answers = options
    newQuestion.rightAnswer = letters[1]
    newQuestion.rightAnswerIndex = 1
    value = value or 1
    newQuestion.value = value
    setmetatable(newQuestion, question)
    return newQuestion
end

function question:Ask(): boolean
    if not quizRunning then
        return false
    end
    answerOptionsSaid = 0
    local rightAnswerBeforeShuffle = self.answers[self.rightAnswerIndex]
    self.answers = shuffle(self.answers)
    self.rightAnswerIndex = table.find(self.answers, rightAnswerBeforeShuffle)
    self.rightAnswer = letters[self.rightAnswerIndex]
    if self.value > 1 then
        if settings.boothGameFullMode then
            UpdateBoothgameTexts("⭐ "..self.value.."x points", true)
        end
        SendMessageWhenReady("⭐ | "..self.value.."x points for question")
        task.wait(2)
    end
    questionAnsweredBy = nil
    UpdateBoothgameTexts(self.mainQuestion, true)
    currentQuestion = self
    questionPoints = self.value
    mainQuestionSent = true
    SendMessageWhenReady("🎙️ | "..self.mainQuestion, true)
    if messageFiltered then
        task.wait(3)
        Chat("➡️ | Repeated filtering detected. Skipping to the next question...")
        return false
    end
    local waitTime = CalculateReadTime(self.mainQuestion)
    local timeWaited = 0
    while waitTime > timeWaited do -- check if someone answered every 0.1ms while waiting to send options
        if questionAnsweredBy or not quizRunning then
            return true
        end
        task.wait(0.1)
        timeWaited += 0.1
    end
    for i, v in ipairs(self.answers) do
        if questionAnsweredBy or not quizRunning then
            return true
        end
        if i ~= 1 then
            task.wait(CalculateReadTime(self.answers[i - 1]))
        end
        if questionAnsweredBy or not quizRunning then
            return true
        end
        local answerOptionText = letters[i]..")"..v -- 1 = A) 2 = B) 3 = C) etc.
        if settings.boothGameFullMode then
            UpdateBoothgameTexts(answerOptionText, true)
        end
        SendMessageWhenReady(answerOptionText, true)
        answerOptionsSaid = i
        readTimeOwedTick = tick() + CalculateReadTime(self.answers[i])
    end
end

local function splitIntoMessages(itemTable: { string }, separtor: string, clearFilter: boolean?, waitTime: number?) -- split table into multiple messages to prevent roblox cutting down the message
    local tempItemList = {}
    local messages = {}
    local currentLength = 0
    for _, item in itemTable do
        if currentLength + #item + (#separtor * #tempItemList) + 6 >= maxCharactersInMessage then -- maxCharactersInMessage characters is the limit for chat messages in Roblox. For each item, we are adding a sepatator. +6 at end for " [x/x]" at the end of message
            local conctatTable = table.concat(tempItemList, separtor)
            table.insert(messages, conctatTable)
            table.clear(tempItemList)
            table.insert(tempItemList, item)
            currentLength = #item
        else
            table.insert(tempItemList, item)
            currentLength = currentLength + #item
        end
    end
    table.insert(messages, table.concat(tempItemList, separtor))
    for messageIndex, message in messages do
        if quizRunning then
            return
        end
        local messageNumberString = string.format("(%d/%d)", messageIndex, #messages) -- [current message/amount of messages]
        if messageIndex == 2 or messageIndex == 3 then
            if clearFilter then
                Chat("Waiting for filter...", true) -- hacky solution that prevents the second message getting filtered (works sometimes)
            end
            task.wait(5)
        end
        if quizRunning then
            return
        end
        Chat(message.." "..messageNumberString, true)
        task.wait(waitTime or CalculateReadTime(message) * 0.7) -- multiplied by 0.7 because full read time is too long for longer texts
    end
end

local antiAfkEnabled = false
local function EnableAntiAfk() -- prevents Roblox kicking the player after 20 minutes of inactivity
    -- credit to IY for antiafk code: https://github.com/EdgeIY/infiniteyield/tree/master
    if antiAfkEnabled then
        return
    end
    local GC = getconnections or get_signal_cons
    if GC then
        for i, v in pairs(GC(localPlayer.Idled)) do
            if v["Disable"] then
                v["Disable"](v)
            elseif v["Disconnect"] then
                v["Disconnect"](v)
            end
        end
    else
        local VirtualUser = cloneref(game:GetService("VirtualUser"))
        localPlayer.Idled:Connect(function()
            VirtualUser:CaptureController()
            VirtualUser:ClickButton2(Vector2.new())
        end)
    end
    antiAfkEnabled = true
    notify("Anti-AFK enabled successfully", "You will not get kicked for being idle")
end

--- Category OOP ---
local categoryManager = {}
local categories = {}
categories.categoryList = {}
categories.numberOfDifficulties = {}
categoryManager.__index = categoryManager

--[[Category table reference:
categories = {
    categoryList = {
        [categoryName] = {
            easy = {{quiz1Questions}, {quiz2Questions}},
            medium = {...},
            ...
        },
        [categoryName2] = {
            easy = {{quiz1Questions}, {quiz2Questions}},
            medium = {...},
            ...
        }
    }
    numberOfDifficulties = {
        [categoryName] = 2
        [categoryName2] = 3
        ...
    }
}
]]--

local difficultyOrder = {"", "easy", "medium", "hard"} -- the order in which difficulties should appear when sending the category list
function categoryManager.New(categoryName: string, difficulty: string?)
    difficulty = difficulty or "" -- if difficulty is not specified, use blank
    difficulty = string.lower(difficulty)
    if not categories.categoryList[categoryName] then
        categories.categoryList[categoryName] = {}
        categories.numberOfDifficulties[categoryName] = 0
    end
    if not categories.categoryList[categoryName][difficulty] then
        categories.categoryList[categoryName][difficulty] = {}
        categories.numberOfDifficulties[categoryName] += 1
        if not table.find(difficultyOrder, difficulty) then
            table.insert(difficultyOrder, difficulty)
        end
    end
    table.insert(categories.categoryList[categoryName][difficulty], {})
    local newCategory = categories.categoryList[categoryName][difficulty][#categories.categoryList[categoryName][difficulty]] -- get the new category at the end of it's difficulty table
    setmetatable(newCategory, categoryManager)
    return newCategory
end

function categoryManager:Add(quesitonText: string, options: { string }, value: number?, customQuestion: table?)
    self = customQuestion or self
    local newQuestion = question.New(quesitonText, options, value)
    table.insert(self, newQuestion)
end

local function getDisplayNameByUsername(username)
    local displayName = players:FindFirstChild(username) and players:FindFirstChild(username).DisplayName
    return displayName
end

--- Points OOP ---
local pointManager = {}
local userPoints = {}
local UpdateUILeaderboard, ClearLeaderboardLabels -- Defined later

function pointManager.NewAccount(player)
    userPoints[player.Name] = {}
    local playerPoints = userPoints[player.Name] -- Tables are passed by reference so this will update the original table
    -- Save displayname when creating an account to preserve it when the user leaves the game
    -- This is needed when settings.removeLeavingPlayersFromLB is false
    playerPoints.DisplayName = getDisplayNameByUsername(player.Name)
    playerPoints.GlobalPoints = 0
    playerPoints.CurrentQuizPoints = 0
    return playerPoints
end

function pointManager.AddPoints(player, points: number, type: string)
    if not points or not tonumber(points) then
        points = 1
    end
    if not type then
        type = "All"
    end
    local playerAccount = userPoints[player.Name]
    if not playerAccount then
        playerAccount = pointManager.NewAccount(player)
    end
    if type == "All" then
        playerAccount.GlobalPoints += points
        if quizRunning then
            playerAccount.CurrentQuizPoints += points
        end
    elseif playerAccount[type] then
        playerAccount[type] += points
    end
    UpdateUILeaderboard(type)
end

function pointManager.ClearQuizPoints()
    for _, v in pairs(userPoints) do
        v.CurrentQuizPoints = 0
    end
    ClearLeaderboardLabels("CurrentQuizPoints")
end

function pointManager.RemoveAccount(player)
    if userPoints[player.Name] then
        userPoints[player.Name] = nil
        UpdateUILeaderboard("All")
    end
end

function pointManager.ResetAllPoints()
    for _, v in pairs(userPoints) do
        v.GlobalPoints = 0
        v.CurrentQuizPoints = 0
    end
    ClearLeaderboardLabels("CurrentQuizPoints")
    ClearLeaderboardLabels("GlobalPoints")
end
-------

-- Used for low priority messages, will not wait
local function SendMessageIfPossible(message)
    timeSinceLastMessage = tick() - timeSinceLastMessage
    if timeSinceLastMessage > 2.5 then
        Chat(message)
        timeSinceLastMessage = tick()
    end
end

local function startChatListening(message: string, player: Player)
    local messageContent = string.upper(message) or ""
    if not currentQuestion or questionAnsweredBy or table.find(userCooldowns, player.Name) or table.find(blockedPlayers, player.Name) or table.find(submittedAnswer, player.Name) or (whiteListEnabled and not table.find(whiteListedplayers, player.Name)) then
        return
    end
    local matchAnswer
    local minLenght = 4
    if #currentQuestion.answers[currentQuestion.rightAnswerIndex] < minLenght then
        minLenght = #currentQuestion.answers[currentQuestion.rightAnswerIndex] -- if minlenght is higher the the lenght of the correct answer, decrease it
    end
    local escapedMessage = EscapePattern(messageContent)
    if #messageContent >= minLenght then
        for _, v in ipairs(currentQuestion.answers) do
        local escapedAnswer = EscapePattern(v)
            if v:upper() == messageContent then
                matchAnswer = v
                break
            elseif (string.match(v:upper(), escapedMessage) and #string.match(v:upper(), escapedMessage) >= minLenght) or string.match(messageContent, escapedAnswer:upper()) then
                if matchAnswer then -- no more than 1 match
                    return
                end
                matchAnswer = v
            end
        end
    end
    local matchingLetter = nil
    if not matchAnswer then -- check if single letter is specified. For example: "I think it is B"
        local senderCharacter = player.Character
        local character = localPlayer.Character
        if not senderCharacter or not character then
            return
        end

        local patterns = {}
        patterns[1] = "%s([A-"..letters[#currentQuestion.answers].."])%s" -- checks for letter surrounded by spaces on both sides (ex: "I think B is the right answer")
        patterns[2] = "%s([B-"..letters[#currentQuestion.answers].."])$" -- checks for letter with space before it at the end of the string (ex: "I think it is B"). A excluded to prevent false matches (ex: "It is *a* dog")
        patterns[3] = "^([A-"..letters[#currentQuestion.answers].."])%s" -- checks for letter with space after it at the beginning of the string (ex: "B I think")
        patterns[4] = "^([A-"..letters[#currentQuestion.answers].."])$" -- checks for letter with no spaces after or before it (ex: "B")

        messageContent = string.gsub(messageContent, "[%).?!]", "") -- removes ), ., ?, and ! to recognize people saying a), b., c?, or d!
        local magnitude = (character:GetPivot().Position - senderCharacter:GetPivot().Position).Magnitude -- make sure sender is not too far away to prevent false matches
        if magnitude < 10 then
            for i = 1, 4 do
                local match = messageContent:match(patterns[i])
                if match and table.find(letters, match) <= answerOptionsSaid then
                    if matchingLetter then -- if more than one match, return
                        return
                    end
                    matchingLetter = match
                end
            end
        else
            matchingLetter = messageContent:match(patterns[4])
            if matchingLetter then
                if table.find(letters, matchingLetter) > answerOptionsSaid then
                    matchingLetter = nil
                end
            end
        end
    end
    if matchingLetter or matchAnswer then
        if matchingLetter == currentQuestion.rightAnswer or matchAnswer == currentQuestion.answers[currentQuestion.rightAnswerIndex] then
            if mode == "Quiz" then
                questionAnsweredBy = player
                currentQuestion = nil
            else
                table.insert(submittedAnswer, player.Name)
                table.insert(answeredCorrectly, player.DisplayName)
                if #answeredCorrectly == 1 then
                    pointManager.AddPoints(player, questionPoints * 1.5) -- person who answers first gets 1.5x points
                else
                    pointManager.AddPoints(player, questionPoints)
                end
            end
        elseif mode == "Quiz" then
            if awaitingAnswer then
                SendMessageIfPossible("❌ | "..player.DisplayName.." wrong answer. Try again in "..tostring(settings.userCooldown).." seconds.")
            end
            table.insert(userCooldowns, player.Name)
            task.delay(settings.userCooldown, function()
                table.remove(userCooldowns, table.find(userCooldowns, player.Name))
            end)
        elseif mode == "Kahoot" then
            table.insert(submittedAnswer, player.Name)
        end
    end
end

local filtersInARow = 0
local function processMessage(player: Player, message: string)
    if player ~= localPlayer then
        startChatListening(message, player)
    else
        if not (importantMessageSent or mainQuestionSent) or not quizRunning or not messageBeforeFilter or not settings.repeatTagged then
            return
        end
        message = string.gsub(message, "&amp;", "&") -- & gets picked up as &amp; Needs to be corrected back to &
        if messageBeforeFilter == message or (answeredByAltMessage and string.find(message, answeredByAltMessage)) then -- if message before and after filtering are exactly the same, the message has not been filtered
            filtersInARow = 0
            messageFiltered = false
            mainQuestionSent = false
            antiFilteringDone = true
            return
        elseif math.abs(#message - #messageBeforeFilter) > 8 or not string.find(message, "#") then -- if the lenght is diffrent from messageBeforeFilter the message is unrelated. Also give some space for diffrence to account for roblox weirdness with filtered lengh being diffrent from original lenght. Also checks for # to see if at least part of the message got tagged
            return
        elseif mainQuestionSent and messageFiltered then -- if the main question got sent once and got filtered, don't try again
            mainQuestionSent = false
            antiFilteringDone = true
            return
        end
        lastMessageTime = tick() + 5 -- add 5 to account for the antifiltering wait procedures
        messageFiltered = true
        filtersInARow += 1
        if filtersInARow == 1 then
            SendMessageWhenReady("🔁 | Waiting for filter to clear and resending filtered message...")
            task.wait(5) -- waiting makes the the filtering system less agressive
        elseif filtersInARow == 2 then
            SendMessageWhenReady("🔁 | Resending previous message because of chat filter...")
            task.wait(6)
        else
            SendMessageWhenReady("Attempting to get around Roblox tagging. Please wait...")
            task.wait(6)
            filtersInARow = 0
        end
        if not quizRunning then
            return
        end
        if questionAnsweredBy and answeredByAltMessage then -- proceed to say message after question asnwered only if the message is the message with the correct answer
            SendMessageWhenReady(answeredByAltMessage)
            antiFilteringDone = true
            return
        elseif questionAnsweredBy then
            antiFilteringDone = true
            return
        end
        SendMessageWhenReady(messageBeforeFilter)
        antiFilteringDone = true
    end
end

local chatConnection = textChatService.MessageReceived:Connect(function(textChatMessage)
    local player = if textChatMessage.TextSource then players:GetPlayerByUserId(textChatMessage.TextSource.UserId) else nil
    if not player then
        return
    end
    local message = textChatMessage.Text
    processMessage(player, message)
end)

local function awaitAnswer(targetQuestion)
    if not quizRunning then
        return
    end
    awaitingAnswer = true
    local timeIsOut = false
    local function Timeout()
        if not quizRunning then
            return
        end
        task.wait(settings.questionTimeout)
        UpdateBoothgameTexts("⏰ "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex], true)
        timeIsOut = true
        currentQuestion = nil
        questionAnsweredBy = nil
        awaitingAnswer = false
        SendMessageWhenReady("⏰ | Time is out! Correct answer was: "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex], true)
    end
    local function SignTime()
        timeLeft = settings.questionTimeout
        while timeLeft > 0 do
            if questionAnsweredBy then
                return
            end
            local roundedTimeLeft = math.round(math.abs(timeLeft))
            -- Only update on even numbers to prevent rate limits
            if roundedTimeLeft % 2 == 0 then
                if settings.romanNumbers then
                    task.defer(UpdateBoothgameTexts, tostring(intToRoman(roundedTimeLeft))) -- convert to roman number and then convert to string
                else
                    task.defer(UpdateBoothgameTexts, tostring(roundedTimeLeft))
                end
            end
            timeLeft -= task.wait(1)
        end
    end
    local timeoutCoroutine = coroutine.create(Timeout)
    local signTimeCoroutine = coroutine.create(SignTime)
    coroutine.resume(timeoutCoroutine)
    if boothGame then
        coroutine.resume(signTimeCoroutine)
    end

    if mode == "Quiz" then
        -- Wait for the question to be answered or the timeoutCoroutine to end
        -- Simply checking the timeIsOut variable is not sufficient, as the SendMessageWhenReady function may still be running
        while questionAnsweredBy == nil and (table.find({"normal", "running", "suspended"}, coroutine.status(timeoutCoroutine))) and quizRunning do
            task.wait()
        end
        if timeIsOut or not quizRunning then
            return
        end
        coroutine.close(timeoutCoroutine)
        coroutine.close(signTimeCoroutine)
        pointManager.AddPoints(questionAnsweredBy, targetQuestion.value)
        task.delay(0.5, function() -- delayed to give time to the signtimecoroutine to stop changing sign text
            UpdateBoothgameTexts("✔️ "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex], true)
        end)
        SendMessageWhenReady("✔️ | "..questionAnsweredBy.DisplayName.." answered correctly. Answer was: "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex], true, "[Player name filtered] answered correctly. Answer was: "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex])
        questionAnsweredBy = nil
        awaitingAnswer = false
        table.clear(userCooldowns)
    else
        while table.find({"normal", "running", "suspended"}, coroutine.status(timeoutCoroutine)) and quizRunning do
            task.wait(1)
            questionPoints -= questionPoints / settings.questionTimeout
        end
        task.wait(2)
        if not quizRunning then
            return
        end
        if #answeredCorrectly > 0 then
            local tempuserList = {} -- split players into multiple messages to prevent roblox cutting down the message
            local currentLength = 37
            local firstIteration = true
            for _, user in pairs(answeredCorrectly) do
                if currentLength + #user + (2 * #tempuserList) >= maxCharactersInMessage then -- maxCharactersInMessage is the limit for chat messages in Roblox. For each user, we are adding 2 more characters (, )
                    if firstIteration then
                        SendMessageWhenReady("✔️ | Players who answered correctly: "..table.concat(tempuserList, ", "))
                        UpdateBoothgameTexts("✔️ "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex], true)
                        firstIteration = false
                    else
                        SendMessageWhenReady(table.concat(tempuserList, ", "))
                    end
                    task.wait(3)
                    table.clear(tempuserList)
                    table.insert(tempuserList, user)
                    currentLength = #user
                else
                    table.insert(tempuserList, user)
                    currentLength = currentLength + #user
                end
            end
            if #tempuserList > 0 then
                if firstIteration then
                    SendMessageWhenReady("✔️ | Players who answered correctly: "..table.concat(tempuserList, ", "))
                    firstIteration = false
                else
                    SendMessageWhenReady(table.concat(tempuserList, ", "))
                end
            end
        end
        table.clear(answeredCorrectly)
        table.clear(submittedAnswer)
        awaitingAnswer = false
        currentQuestion = nil
    end
end

--- Questions ---
-- Built-in quiz definitions are wrapped in do-end block to prevent reaching the 200 local variable limit
do

local countriesEasy = categoryManager.New("Guess the country", "easy")
countriesEasy:Add("What country is this? 🇹🇷", {"Turkey", "Spain", "Greece", "Cyprus"})
countriesEasy:Add("What country is this? 🇪🇸", {"Spain", "Portugal", "Greece", "Mexico"})
countriesEasy:Add("What country is this? 🇵🇱", {"Poland", "Indonesia", "Austria", "Greenland"})
countriesEasy:Add("What country is this? 🇮🇳", {"India", "Pakistan", "Sri Lanka", "Afghanistan"})
countriesEasy:Add("What country is this? 🇳🇴", {"Norway", "Sweden", "Denmark", "Iceland"}, 2)

local countriesEasy2 = categoryManager.New("Guess the country", "easy")
countriesEasy2:Add("What country is this? 🇫🇷", {"France", "England", "Netherlands", "Russia"})
countriesEasy2:Add("What country is this? 🇬🇷", {"Greece", "Serbia", "Argentina", "Spain"})
countriesEasy2:Add("What country is this? 🇦🇷", {"Argentina", "Honduras", "Estonia", "Brazil"})
countriesEasy2:Add("What country is this? 🇻🇳", {"Vietnam", "China", "Japan", "Bejing"})
countriesEasy2:Add("What country is this? 🇷🇸", {"Serbia", "Bosnia", "Croatia", "Slovakia"}, 2)

local countriesMedium = categoryManager.New("Guess the country", "medium")
countriesMedium:Add("What country is this? 🇲🇽", {"Mexico", "Netherlands", "Iran", "Spain"})
countriesMedium:Add("What country is this? 🇵🇹", {"Portugal", "Brazil", "Madrid", "Spain"})
countriesMedium:Add("What country is this? 🇲🇦", {"Morocco", "Vietnam", "China", "Israel"}, 2)
countriesMedium:Add("What country is this? 🇧🇪", {"Belgium", "Germany", "France", "Romania"})
countriesMedium:Add("What country is this? 🇮🇩", {"Indonesia", "Poland", "Peru", "Switzerland"})

local countriesHard = categoryManager.New("Guess the country", "hard")
countriesHard:Add("What country is this? 🇸🇮", {"Slovenia", "Slovakia", "Russia", "Serbia"})
countriesHard:Add("What country is this? 🇪🇷", {"Eritrea", "Ecuador", "El Salvador"})
countriesHard:Add("What country is this? 🇫🇮", {"Finland", "Sweden", "Falkland Islands"})
countriesHard:Add("What country is this? 🇿🇲", {"Zambia", "Zimbabwe", "Zaire"}, 2)
countriesHard:Add("What country is this? 🇸🇴", {"Somalia", "Solomon Islands", "Samoa"})

local science = categoryManager.New("Science", "medium")
science:Add("The standard unit of measurement used for measuring force is which of the following?", {"Newton", "Mile", "Watt", "Kilogram"})
science:Add("How long does it take the earth to do one full rotation of the sun?", {"365 days", "7 days", "30 days"})
science:Add("Oil, natural gas and coal are examples of …", {"Fossil fuels", "Renewable resources", "Biofuels", "Geothermal resources"}, 2)
science:Add("Why do our pupils constrict in bright light?", {"To let in less light", "To give our eyes more oxygen", "To change our vision to 3D"})
science:Add("What is cooling lava called?", {"Igneous rocks", "Magma", "Fossils"})

local science2 = categoryManager.New("Science", "medium")
science2:Add("What is faster, sound or light?", {"Light", "Sound", "They travel at the same speed", "They don't move"})
science2:Add("Which of these is NOT one of Newton's laws of motion?", {"Objects at rest stay in motion", "Force equals mass times acceleration", "Every action has an equal and opposite reaction", "An object in motion stays in motion"})
science2:Add("Who developed the theory of relativity?", {"Einstein", "Newton", "Galileo", "Darwin"})
science2:Add("Which of these is not a state of matter?", {"Energy", "Solid", "Liquid", "Gas"})
science2:Add("What is the powerhouse of the cell?", {"Mitochondria", "Nucleus", "Cytoplasm", "Nucleic membrane"}, 2)

local history = categoryManager.New("History", "medium")
history:Add("Which of these countries did the Soviet Union NEVER invade?", {"Sweden", "Afghanistan", "Finland", "Poland"})
history:Add("What was the main cause of the French Revolution in 1789?", {"The social and economic inequality of the Third Estate", "The invasion of Napoleon Bonaparte", "Disputes over territorial boundaries with neighboring countries", "The spread of the Black Death"})
history:Add("What ancient civilization built the Machu Picchu complex?", {"Inca", "Aztec", "Maya", "Egypt"})
history:Add("What do people call the era before written records?", {"Prehistory", "Medieval Times", "Renaissance", "Industrial Age"})
history:Add("Which of these historical events happened first?", {"The American Revolution", "The French Revolution", "The Industrial Revolution", "The Russian Revolution"}, 2)

local history2 = categoryManager.New("History", "medium")
history2:Add("The disease that killed a third of Europe's population in the 14th century is known as:", {"Plague (Black Death)", "Spanish Flu", "Smallpox", "Malaria"})
history2:Add("Who discovered America in 1492?", {"Christopher Columbus", "Marco Polo", "Ferdinand Magellan", "Leif Erikson"})
history2:Add("Which country gifted the Statue of Liberty to the United States?", {"France", "Germany", "United Kingdom", "Spain"})
history2:Add("What was the name of the period of renewed interest in art and learning?", {"Renaissance", "Reformation", "Enlightenment", "Industrial Revolution"}, 2)
history2:Add("Which famous trade route connected Europe and Asia?", {"Silk Road", "Spice Route", "Amber Road", "Trans-Saharan Route"})

local foodAndDrink = categoryManager.New("Food and Drink", "medium")
foodAndDrink:Add("Which country is the largest producer of coffee in the world?", {"Brazil", "Vietnam", "Colombia", "Ethiopia"})
foodAndDrink:Add("What is the name of the Italian dessert made from layers of sponge cake soaked in coffee and mascarpone cheese?", {"Tiramisu", "Maritozzo", "Cannoli", "Zabaglione"})
foodAndDrink:Add("What is the national dish of England?", {"Fish and Chips", "Shepherd's Pie", "Yorkshire Pudding", "Sunday Roast"})
foodAndDrink:Add("What is the name of the fermented milk drink that is popular in Central Asia & Eastern Europe?", {"Kefir", "Karin", "Kulmel", "Yogurt"})
foodAndDrink:Add("Which country does feta cheese come from?", {"Greece", "Switzerland", "Spain", "France"}, 2)

local trivia = categoryManager.New("Trivia", "medium")
trivia:Add("Which is NOT a Nobel Prize category?", {"Mathematics", "Physics", "Literature", "Chemistry"})
trivia:Add("Which musical instrument has 47 strings and seven pedals?", {"Harp", "Piano", "Guitar", "Violin"})
trivia:Add("What is the capital city of Japan?", {"Tokyo", "Beijing", "Seoul", "Bangkok"})
trivia:Add("Which country is the only one to have a non-rectangular flag?", {"Nepal", "Switzerland", "Japan", "Qatar"})
trivia:Add("'Bokmål' and 'Nynorsk' are the two official written forms of which language?", {"Norwegian", "Italian", "Danish", "Spanish"}, 2)

local trivia2 = categoryManager.New("Trivia", "medium")
trivia2:Add("Which animal is the national emblem of Australia?", {"Kangaroo", "Koala", "Emu", "Platypus"})
trivia2:Add("What does the Richter scale measure?", {"Earthquake intensity", "Wind Speed", "Temperature", "Tornado Strength"}, 2)
trivia2:Add("Which currency is used in Japan?", {"Yen", "Dollar", "Euro", "Pound"})
trivia2:Add("What is the hardest natural substance on Earth?", {"Diamond", "Gold", "Iron", "Platinum"})
trivia2:Add("In sport, what does the term PGA refer to?", {"Professional Golfers Association", "Par Golfing Average", "Playing Golf Average", "Part-Time Golfing Amaterurs"})

local guessTheLanguage = categoryManager.New("Guess the language", "medium")
guessTheLanguage:Add("Je suis désolé", {"French", "Spanish", "Italian", "Portuguese"})
guessTheLanguage:Add("בוקר טוב", {"Hebrew", "Tamil", "Lao", "Mandarin"})
guessTheLanguage:Add("Guten Tag", {"German", "Tagalog", "Finnish", "Dutch"})
guessTheLanguage:Add("こんにちは", {"Japanese", "Chinese", "Turkish", "Arabic"}, 2)
guessTheLanguage:Add("नमस्ते", {"Hindi", "Indonesian", "Cantonese", "Nahuatl"})

local capitals = categoryManager.New("Capital Cities", "easy")
capitals:Add("What is the capital city of the USA?", {"Washington D.C.", "New York City", "Los Angeles", "Austin"})
capitals:Add("What is the capital city of Finland?", {"Helsinki", "Stockholm", "Dublin", "Reykjavik"}, 2)
capitals:Add("What is the capital city of Poland?", {"Warsaw", "Kiev", "Moscow", "Krakow"})
capitals:Add("What is the capital city of Germany?", {"Berlin", "Frankfurt", "Hamburg", "Dusseldorf"})
capitals:Add("What is the capital city of Canada?", {"Ottawa", "Toronto", "Vancouver", "Montreal"})

local capitalsHard = categoryManager.New("Capital Cities", "hard")
capitalsHard:Add("What is the capital of Belgium?", {"Brussels", "Liege", "Amsterdam"})
capitalsHard:Add("What is the capital of Somalia?", {"Mogadishu", "Garoowe", "Berbera"})
capitalsHard:Add("What is the capital city of Mongolia?", {"Ulaanbaatar", "Hanoi", "Seoul"})
capitalsHard:Add("What is the capital city of Australia?", {"Canberra", "Sydney", "Perth"})
capitalsHard:Add("What is the capital city of New Zealand?", {"Wellington", "Auckland", "Hamilton"})

local geography = categoryManager.New("Geography", "easy")
geography:Add("On which continent is the Sahara Desert located?", {"Africa", "Asia", "Europe", "South America"})
geography:Add("Which river flows through London?", {"River Thames", "River Severn", "River Trent", "The Nile"})
geography:Add("Which of these cities is NOT a national capital?", {"Sydney", "Oslo", "Wellington", "Bangkok"}, 2)
geography:Add("Which continent has the largest land area?", {"Asia", "Africa", "Europe", "South America"})
geography:Add("What is the smallest country in the world?", {"Vatican City", "Belgium", "Luxembourg", "Hungary"})

local geographyMedium = categoryManager.New("Geography", "medium")
geographyMedium:Add("Which island is the largest in the world?", {"Greenland", "Madagascar", "Borneo", "New Guinea"})
geographyMedium:Add("Which continent has the most countries?", {"Africa", "Europe", "Asia", "Australia"})
geographyMedium:Add("Which one of the following countries is further north?", {"Scotland", "The Netherlands", "Belgium", "Poland"})
geographyMedium:Add("What is the longest river in the world?", {"The Nile", "Amzon River", "Yangtze River", "Yellow River"})
geographyMedium:Add("Which ocean is the deepest?", {"Pacific Ocean", "Atlantic Ocean", "Indian Ocean", "Arctic Ocean"}, 2)

local geographyHard = categoryManager.New("Geography", "hard")
geographyHard:Add("Which country has the longest coastline?", {"Canada", "Chile", "Norway", "Australia"})
geographyHard:Add("Which continent is the only one without a desert?", {"Europe", "Asia", "North America", "Africa"})
geographyHard:Add("Which one of the following countries is not an enclave?", {"Italy", "Vatican City", "San Marino", "Lasotho"}, 2)
geographyHard:Add("Which is the northernmost capital city in the world?", {"Reykjavik, Iceland", "Oslo, Norway", "Helsinki, Finland", "Moscow, Russia"})
geographyHard:Add("Which city is the only one located on two continents?", {"Istanbul", "Cairo", "Moscow", "Panama City"})

local gaming = categoryManager.New("Gaming", "medium")
gaming:Add("What is the best-selling video game of all time?", {"Minecraft", "FIFA 18", "Call of Duty: Modern Warfare 3", "Tetris"})
gaming:Add("What was the first commercially successful video game?", {"Pong", "Donkey Kong Country", "Super Mario Bros", "Spacewar"})
gaming:Add("What is the name of the main character in the Legend of Zelda series?", {"Link", "Zelda", "Ganon", "Mario"})
gaming:Add("What video game did Mario, the Nintendo character, first appear in?", {"Donkey Kong", "Super Mario Bros", "Marios Cement Factory", "Mario Bros"}, 2)
gaming:Add("What is the name of the latest virtual reality device developed by Valve?", {"Steam Frame", "Oculus Rift", "Meta Quest", "Valve VR"})

local gaming2 = categoryManager.New("Gaming", "medium")
gaming2:Add("Which company created the Mario franchise?", {"Nintendo", "Sony", "Microsoft", "Sega"})
gaming2:Add("What is the name of the game developer who created Half-Life, Portal, and Counter-Strike?", {"Valve", "Blizzard", "Bethesda", "Rockstar"})
gaming:Add("What is the name of the gaming console that was released by Nintendo in 2006 and featured motion controls?", {"Wii", "Switch", "GameCube", "DS"})
gaming2:Add("What is the name of the platform game series that features a plumber who rescues a princess from a turtle-like villain?", {"Super Mario", "Sonic the Hedgehog", "Crash Bandicoot", "Cuphead"})
gaming2:Add("How many standalone Grand Theft Auto titles have been released?", {"7", "5", "8", "10"}, 2)

local movies = categoryManager.New("Movies", "medium")
movies:Add("Which actor played the role of Jack Sparrow in the 'Pirates of the Caribbean' franchise?", {"Johnny Depp", "Orlando Bloom", "Keira Knightley", "Geoffrey Rush"})
movies:Add("What was the first movie in the Marvel Cinematic Universe?", {"Iron Man", "The Avengers", "Batman", "Spider-Man"}, 2)
movies:Add("Which movie is based on the novel by J.R.R. Tolkien?", {"The Lord of the Rings", "The Chronicles of Narnia", "The Hunger Games", "The Da Vinci Code"})
movies:Add("What is the name of the protagonist in The Matrix?", {"Neo", "Morpheus", "Trinity", "Cypher"})
movies:Add("In the movie 'Frozen', who is Olaf?", {"A snowman", "A ghost", "A knight", "A reindeer"})

local roblox = categoryManager.New("Roblox", "easy")
roblox:Add("What was the original name of Roblox?", {"DynaBlocks", "SuperBlocks", "XtraBlocks"})
roblox:Add("What is the name of Roblox's other virtual currency that has been removed since 2016?", {"Tix", "Builder Coins", "Ro-Points"})
roblox:Add("What program do you use to make games on Roblox?", {"Roblox Studio", "Roblox Player", "Roblox Create", "Roblox Creator"})
roblox:Add("Roblox's private servers were previously known as which of the following?", {"VIP servers", "Personal servers", "Exclusive servers"})
roblox:Add("Who won the RB Battles season 1 championship?", {"KreekCraft", "Tofuu", "Seedeng", "BriannaPlayz"}, 2)

local roblox2 = categoryManager.New("Roblox", "easy")
roblox2:Add("What is another name for the avatar shop?", {"Catalog", "Avatar Creator", "Avatar Editor"})
roblox2:Add("What programming language do you need to use to create Roblox games?", {"Luau", "JavaScript", "Python", "PHP"}, 2)
roblox2:Add("What is the name of Roblox's annual developer conference?", {"RDC", "Robloxcon", "Robloxx", "Blockfest"})
roblox2:Add("What was the former name of Roblox premium?", {"Builders Club", "Roblox Plus", "Roblox Pro", "VIP Club"})
roblox2:Add("What was the very first Roblox game to reach 1B+ visits?", {"MeepCity", "Arsenal", "Build a Boat For Treasure", "Adopt Me"}, 2)

local english = categoryManager.New("English", "easy")
english:Add("Which of the following is a proper noun?", {"London", "City", "River", "Mountain"})
english:Add("What is the correct way to punctuate this sentence?", {"However, I don't agree with your opinion.", "However I, don't agree with your opinion.", "However I don't, agree with your opinion.", "However; I don't agree with your opinion."})
english:Add("Which word is an adjective?", {"Beautiful", "Run", "Quickly", "Table"})
english:Add("Which is the correct spelling?", {"Necessary", "Neccessary", "Nessessary", "Necessay"})
english:Add("What is the subject in the sentence: 'The cat chased the mouse across the yard'?", {"The cat", "The mouse", "The yard", "Chased"}, 2)

local animals = categoryManager.New("Animals", "easy")
animals:Add("What is the largest land animal?", {"Elephant", "Giraffe", "Whale", "Rhino"})
animals:Add("What is the name of a baby kangaroo?", {"Joey", "Cub", "Pup", "Kit"})
animals:Add("Capable of exceeding 186 miles per hour, what is the fastest creature in the animal kingdom?", {"Peregrine falcon", "Cheetah", "Horse", "Lion"})
animals:Add("What is the only mammal that can fly?", {"Bat", "Penguin", "Pterodactyl", "Dragon"}, 2)
animals:Add("Which of these “fish” is actually a fish?", {"Swordfish", "Starfish", "Crayfish", "Jellyfish"})

local sports = categoryManager.New("Sports", "easy")
sports:Add("In which sport might you perform a 'bicycle kick'?", {"Football (Soccer)", "Basketball", "Rugby", "Tennis"})
sports:Add("Which country is famous for inventing sumo wrestling?", {"Japan", "China", "India", "Thailand"})
sports:Add("What animal is used in the traditional sport of polo?", {"Horse", "Camel", "Elephant", "Yak"})
sports:Add("What sport is also known as table tennis?", {"Ping Pong", "Badminton", "Squash", "Tennis"})
sports:Add("Which sport uses the terms 'strike' and 'spare'?", {"Bowling", "Baseball", "Cricket", "Golf"}, 2)

local minecraft = categoryManager.New("Minecraft", "easy")
minecraft:Add("What is the name of the green creature that explodes?", {"Creeper", "Zombie", "Skeleton", "Slime"})
minecraft:Add("Which tool is best for digging stone and bricks?", {"Pickaxe", "Shovel", "Axe", "Drill"})
minecraft:Add("What is the name of the dimension where you fight the Ender Dragon?", {"The End", "The Nether", "The Overworld", "The Void"}, 2)
minecraft:Add("What resource do you need to trade with villagers?", {"Emerald", "Apple", "Gold", "Iron"})
minecraft:Add("What block can you use to make a portal to the Nether?", {"Obsidian", "Netherrack", "Cobblestone", "Bedrock"})

local chess = categoryManager.New("Chess", "medium")
chess:Add("What is the name of the piece that can only move diagonally?", {"Bishop", "Knight", "Queen"})
chess:Add("What is the term for a situation where a king is under attack and cannot escape?", {"Checkmate", "Stalemate", "En passant", "Castling"})
chess:Add("What is the name of the chess strategy that involves sacrificing a piece to gain an advantage?", {"Gambit", "Fork", "Pin", "Skewer"})
chess:Add("What is the name of the special move where a king and a rook swap places?", {"Castling", "Promotion", "Capture", "Fork"})
chess:Add("Which piece is involved in 'en passant'?", {"Pawn", "Queen", "Bishop", "Knight"}, 2)

local WWII = categoryManager.New("WWII", "hard")
WWII:Add("Which countries formed the Axis powers in WWII?", {"Germany, Italy and Japan", "France, Britain and Russia", "China, India and Australia", "Canada, Mexico and Brazil"})
WWII:Add("Which country was attacked by Japan in 1941, prompting its entry into WWII?", {"USA", "China", "India", "Australia"})
WWII:Add("Which two countries were the first to declare war on Germany?", {"Britain and France", "Italy and Greece", "Norway and Denmark", "Poland and Russia"})
WWII:Add("What was the name of the operation that marked the Allied invasion of Normandy in 1944?", {"Operation Overlord", "Operation Barbarossa", "Operation Torch", "Operation Garden"}, 2)
WWII:Add("What was the name of the code-breaking machine developed by the British to crack German ciphers?", {"Bombe", "Turing", "Lorenz", "Enigma"})

local WWI = categoryManager.New("WWI", "hard")
WWI:Add("Which country made the first declaration of war in WWI?", {"Austria-Hungary", "Serbia", "Russia", "Germany"})
WWI:Add("What was the name of the British passenger ship that was sunk by a German submarine in 1915?", {"Lusitania", "Titanic", "Britannia", "Olympic"})
WWI:Add("What was the nickname given to the type of warfare that involved digging trenches and fighting from them?", {"Trench warfare", "Guerrilla warfare", "Dirt warfare", "Siege warfare"})
WWI:Add("What caused Great Britain to join World War I?", {"German troops marching through Belgium", "German bombing raids on London", "German use of illegal chemicals", "Germans sinking British civilian ships"})
WWI:Add("What was the name of the alliance between Germany, Austria-Hungary and Italy?", {"Triple Alliance", "The Axis Powers", "The Triple Entente", "The League of Nations"}, 2)

local luau = categoryManager.New("Luau", "hard")
luau:Add("What is the keyword for defining a function in Luau?", {"function", "def", "local", "sub"})
luau:Add("What is the syntax for creating a comment in Luau?", {"-- comment", "// comment", "# comment", "' comment"}, 2)
luau:Add("What is the data type for storing multiple values in Luau?", {"table", "array", "list", "set"})
luau:Add("How do you declare a table in Luau?", {"local table = {}", "local table = []", "local table = table.new()", "local table = ()"})
luau:Add("What is the symbol for concatenating strings in Luau?", {"..", "+", "&", "%"}, 2)

local astronomy = categoryManager.New("Astronomy", "medium")
astronomy:Add("What is the name of the dwarf planet that was once considered a ninth planet in our solar system?", {"Pluto", "Ceres", "Eris", "Haumea"})
astronomy:Add("What is the name of the theory that describes how the universe began with a massive expansion from a single point?", {"The Big Bang theory", "The Steady State theory", "The Inflationary theory", "The String theory"})
astronomy:Add("What is the name of the largest planet in our solar system?", {"Jupiter", "Saturn", "Earth", "Neptune"})
astronomy:Add("What is the term for a group of stars that form a recognizable pattern?", {"A constellation", "A nebula", "A cluster", "A galaxy"})
astronomy:Add("What is the name of the largest moon in our solar system?", {"Ganymede", "Titan", "Io", "Europa"}, 2)

local memes = categoryManager.New("Memes", "easy")
memes:Add("Which meme features a dog sitting in a burning room?", {"This is fine", "Doge", "Grumpy Cat", "Bad Luck Brian"})
memes:Add("What is the name of the frog character that is often associated with the phrase 'feels good man'?", {"Pepe", "Kermit", "Frogger", "Freddy"}, 2)
memes:Add("What is the term for a meme that looks low-quality and pixelated?", {"Deep fried", "Dank", "Cringe", "Ironic"})
memes:Add("Which animal is associated with the 'Doge' meme?", {"Shiba Inu", "Grumpy Cat", "Keyboard Cat", "Nyan Cat"})
memes:Add("What is the name of the meme featuring a man's head sticking out of a while toilet bowl?", {"Skibidi Toilet", "TF2 Guy", "Fanum Tax", "Smurf Cat"})

local anime = categoryManager.New("Anime", "easy")
anime:Add("What is the name of the main character in Naruto?", {"Naruto Uzumaki", "Naruto Uchiha", "Kakashi Naruto", "Itachi Uchiha"})
anime:Add("What is the name of the pirate crew that Monkey D. Luffy leads in One Piece?", {"Straw Hat Pirates", "Blackbeard Pirates", "Red Hair Pirates", "Whitebeard Pirates"})
anime:Add("What is the name of the powerful notebook that can kill anyone whose name is written in it in it?", {"Death Note", "Kira Note", "Shinigami Note", "Life Note"})
anime:Add("In Death Note, how does Light Yagami first discover the infamous notebook?", {"He sees it fall from the sky", "He receives it as a gift from a friend", "It is delivered to him in a mysterious box", "He finds it on the subway"}, 2)
anime:Add("What is the name of the main character in the Pokémon series?", {"Ash Ketchum", "Naruto Uzumaki", "Gary Oak", "Pikachu"})

local scienceHard = categoryManager.New("Science", "hard")
scienceHard:Add("What is the name of the largest bone in the human body?", {"Femur", "Humerus", "Tibia", "Pelvis"})
scienceHard:Add("Which of these particles is its own antiparticle?", {"Photon", "Proton", "Electron", "Neutron"})
scienceHard:Add("What is the name of the phenomenon in which light is scattered by particles in a medium that are not much larger than the wavelength of the light?", {"Rayleigh scattering", "Diffraction", "Refraction", "Dispersion"}, 2)
scienceHard:Add("What is the name of the branch of mathematics that deals with the properties and relationships of abstract entities such as numbers, symbols, sets, and functions?", {"Algebra", "Geometry", "Calculus", "Logic"})
scienceHard:Add("What is the name of the unit of electric potential difference, electric potential energy per unit charge?", {"Volt", "Ampere", "Ohm", "Watt"})

local mathCategory = categoryManager.New("Math", "easy")
mathCategory:Add("What is the value of PI (rounded to two decimal places)?", {"3.14", "3.15", "3.16", "3.17"})
mathCategory:Add("The property that states that a + b = b + a has what name?", {"Commutative property", "Associative property", "Distributive property", "Identity property"}, 2)
mathCategory:Add("What is the formula for the area of a circle?", {"pi * r^2", "2 * pi * r", "pi * d", "pi * r"})
mathCategory:Add("What is the name of the branch of mathematics that studies shapes and angles?", {"Geometry", "Algebra", "Calculus", "Arithmetic"})
mathCategory:Add("What is the value of x in the equation 2x + 5 = 13?", {"4", "3", "5", "6"})

local mathHard = categoryManager.New("Math", "hard")
mathHard:Add("What is the name of the theorem that states that a² + b² = c² for a right triangle?", {"Pythagorean theorem", "Fermat's last theorem", "Binomial theorem", "Euclid's theorem"})
mathHard:Add("What is the derivative of e^x?", {"e^x", "x*e^(x-1)", "ln(x)", "1/e^x"})
mathHard:Add("What is the name of the constant that is approximately equal to 2.71828?", {"Euler's number", "The golden ratio", "PI", "Planck's constant"})
mathHard:Add("What is the name of the sequence that starts with 1, 1, 2, 3, 5, 8, ...?", {"Fibonacci Sequence", "Arithmetic Sequence", "Geometric Sequence", "Harmonic Sequence"}, 2)
mathHard:Add("What is the name of the branch of mathematics that deals with patterns and sequences?", {"Combinatorics", "Algebra", "Calculus", "Geometry"})

local coldWar = categoryManager.New("Cold War", "hard")
coldWar:Add("In 1946 Winston Churchill popularized what term used to describe Soviet relations with Western powers?", {"Iron curtain", "Mutually assured destruction", "Quagmire", "Danger to society"})
coldWar:Add("Frequently cited as the counterpart to the CIA, what was the name of the Soviet intelligence agency?", {"KGB", "ICBM", "SALT", "DMZ"})
coldWar:Add("Devised in 1959, the DEFCON system has five stages of military readiness. Which DEFCON rating is used when a nuclear attack is imminent or already underway?", {"DEFCON 1", "DEFCON 3", "DEFCON 5"})
coldWar:Add("Although never fully leaving the organization, in 1966 what country withdrew its military from NATO and expelled NATO headquarters from its borders?", {"France", "United States", "Poland", "West Germany"})
coldWar:Add("Often seen as the Soviet version of the United States’ Vietnam quagmire, the U.S.S.R.’s 10-year-long invasion of what country began in 1979?", {"Afghanistan", "Poland", "Czechoslovakia", "Ukraine"}, 2)

local chemistry = categoryManager.New("Chemistry", "hard")
chemistry:Add("What is the chemical formula of water?", {"H2O", "CO2", "O2", "2HO"})
chemistry:Add("What is the name of the process that converts a solid into a gas without passing through a liquid state?", {"Sublimation", "Evaporation", "Condensation", "Deposition"})
chemistry:Add("What is the name of the element with the symbol K?", {"Potassium", "Calcium", "Krypton", "Kalium"})
chemistry:Add("What is the name of the process that separates a mixture of liquids based on their boiling points?", {"Distillation", "Filtration", "Crystallization", "Chromatography"})
chemistry:Add("What is the name of the organic compound that has the general formula CnH2n+2?", {"Alkane", "Alkene", "Alkyne", "Ammonia"}, 2)

local biology = categoryManager.New("Biology", "medium")
biology:Add("What is the name of the process by which plants make their own food?", {"Photosynthesis", "Respiration", "Transpiration", "Fermentation"})
biology:Add("What is the smallest unit of life?", {"Cell", "Atom", "Molecule", "Organ"})
biology:Add("What is the main function of red blood cells?", {"Oxygen transport", "Fighting infections", "Blood clotting", "Producing antibodies"})
biology:Add("What are the main building blocks of proteins?", {"Amino acids", "Fatty acids", "Nucleic acids", "Glucose"}, 2)
biology:Add("What is the name of the molecule that carries genetic information in most living organisms?", {"DNA", "Cell", "ATP", "ADP"})

local sayings = categoryManager.New("Sayings and Idioms", "easy")
sayings:Add("Which idiom means to reveal a secret?", {"Let the cat out of the bag", "Paint the town red", "Beat around the bush", "Bite the bullet"})
sayings:Add("What does 'a piece of cake' refer to?", {"Something very easy", "A dessert", "A difficult task", "A small portion"})
sayings:Add("Which idiom means to be in trouble?", {"In hot water", "On cloud nine", "Under the weather", "Out of the blue"})
sayings:Add("What does 'hold your horses' mean?", {"Be patient", "Ride horses", "Work hard", "Go faster"})
sayings:Add("What does 'break a leg' mean?", {"Good luck", "Actually break a leg", "Run away", "Take a break"}, 2)

local internetSlang = categoryManager.New("Internet Slang", "easy")
internetSlang:Add("What does 'LOL' stand for?", {"Laugh Out Loud", "Lots Of Love", "Living On Land", "Look Out Left"})
internetSlang:Add("What does 'FOMO' stand for?", {"Fear Of Missing Out", "Friends Of My Office", "Fond Of Moving On", "Full Of Many Options"})
internetSlang:Add("What does 'IMO' stand for?", {"In My Opinion", "Internet Mail Order", "It's Monday Obviously", "I Mean Okay"})
internetSlang:Add("What is the meaning of 'SMH'?", {"Shaking My Head", "So Much Hate", "Send More Help", "Smashing My Head"})
internetSlang:Add("What does 'IIRC' stand for?", {"If I Recall Correctly (If I Remember Correctly)", "It Is Really Cool (Is It Really Cool)", "I'm Incredibly Rich, Child", "Interesting Information Requires Consideration"}, 2)

local internetSlang2 = categoryManager.New("Internet Slang", "medium")
internetSlang2:Add("What does 'FTFY' mean?", {"Fixed That For You", "For The Following Year", "Forget That, Find Yourself", "Faster Than Fifty Yaks"})
internetSlang2:Add("What is the meaning of 'AMA'?", {"Ask Me Anything", "Always Making Assumptions", "Another Missed Appointment", "Awesome Meme Alert"})
internetSlang2:Add("What does 'YOLO' stand for?", {"You Only Live Once", "Your Own Life Obligations", "Yesterday's Old Leftover Onions", "Yelling Out Loud Often"})
internetSlang2:Add("What does 'OMW' stand for?", {"On My Way", "Oh My Word", "Only Men Welcome", "Official Meme Website"})
internetSlang2:Add("What is the meaning of 'ITT'?", {"In This Thread", "I'll Tell Them", "I Think That", "I Talked To"}, 2)

local guessTheMovie = categoryManager.New("Guess the Movie", "easy")
guessTheMovie:Add("Which movie features a young wizard attending the Hogwarts School?", {"Harry Potter and the Philosopher's Stone", "The Lord of the Rings", "The Chronicles of Narnia", "The Wizard of Oz"})
guessTheMovie:Add("What movie tells the story of a clownfish searching for his son across the ocean?", {"Finding Nemo", "Shark Tale", "The Little Mermaid", "Free Billy"})
guessTheMovie:Add("Which sci-fi film features blue-skinned aliens called the Na'vi?", {"Avatar", "Star Wars", "Alien", "District 9"})
guessTheMovie:Add("In what movie does Tom Hanks play a man stranded on an island with only a volleyball for company?", {"Cast Away", "The Terminal", "Forrest Gump", "Saving Private Ryan"}, 2)
guessTheMovie:Add("What movie tells the story of a group of toys that come to life when humans aren't around?", {"Toy Story", "The Lego Movie", "Small Soldiers", "Wreck-It Ralph"})

local guessTheBook = categoryManager.New("Guess the Book", "medium")
guessTheBook:Add("In which book does a young girl named Alice fall down a rabbit hole into a fantastical world?", {"Alice in Wonderland", "The Wonderful Wizard of Oz", "Peter Pan", "The Secret Garden"})
guessTheBook:Add("Which book tells the story of a character named Bilbo Baggins?", {"The Hobbit", "The Lord of the Rings", "The Silmarillion", "Eragon"})
guessTheBook:Add("Which book features a dystopian society where books are burned?", {"Fahrenheit 451", "Brave New World", "Lord of the Flies", "Slaughterhouse-Five"}, 2)
guessTheBook:Add("Which book tells the story of a boy named Charlie who wins a golden ticket?", {"Charlie and the Chocolate Factory", "Charlie and the Giant Peach", "Wonka's Chocolate Factory", "The BFG"})
guessTheBook:Add("Which book tells the story of a boy who never grows up and lives in Neverland?", {"Peter Pan", "The Wonderful Wizard of Oz", "Alice in Wonderland", "The Chronicles of Narnia"})

local music = categoryManager.New("Music", "medium")
music:Add("Which band released the album 'The Dark Side of the Moon'?", {"Pink Floyd", "The Beatles", "Led Zeppelin", "The Rolling Stones"})
music:Add("What do you call the words of a song?", {"Lyrics", "Melody", "Harmony", "Rhythm"})
music:Add("Which of these is not a wind instrument?", {"Violin", "Flute", "Clarinet", "Saxophone"})
music:Add("What is the national anthem of the United States called?", {"The Star Spangled Banner", "God Save the Queen", "La Marseillaise", "O Canada"})
music:Add("Which of these is not a type of guitar?", {"Cello", "Acoustic", "Electric", "Bass"}, 2)

local brainrot = categoryManager.New("Brainrot", "easy")
brainrot:Add("What's the word for those strange little men stuck in toilets?", {"Skibidi", "Toilet snakes", "Plumbing gnomes", "Bowl boys"})
brainrot:Add("What is it called when someone talks at lenght in an irritating manner?", {"Yapping", "Woofing", "Ranting", "Monologuing"})
brainrot:Add("Which term describes someone who's a bit of a lone wolf—perhaps even better than an alpha?", {"Sigma", "Omega", "Beta", "Zeta"})
brainrot:Add("In which U.S. state are wild, strange, unfortunate things most likely to happen, according to the internet?", {"Only in Ohio", "Only in Alaska", "Only in Florida", "Only in Mississippi"})
brainrot:Add("What is the name of the purple McDonad's drink?", {"Grimace Shake", "Sussy Punch", "Blueberry McFlurry", "Expired Shake"}, 2)

local brainrot2 = categoryManager.New("Brainrot", "easy")
brainrot2:Add("What does it mean to be 'cooked'?", {"In a really bad position", "Extremely hungry", "Feeling very tired", "Excited or thrilled"})
brainrot2:Add("Fill in the blank: 'Erm, what the ___'?", {"sigma", "dog", "heck", "alpha"})
brainrot2:Add("What is the term for excessively praising or complimenting someone?", {"Glazing", "Rizzing", "Gassing", "Fawning"})
brainrot2:Add("Who is the main enemy of Skibidi Toilet?", {"Cameraman", "Janitor", "Skibidi Sink", "G-Man"}, 2)
brainrot2:Add("Finish the quote: 'Just put the ___ in the bag.'", {"Fries", "Money", "Skibidi", "Rizz"})

local gamerWords = categoryManager.New("Gamer Words", "easy")
gamerWords:Add("What does 'GG' mean?", {"Good Game", "Get Good", "Great Goal", "Gamer Girl"})
gamerWords:Add("Which phrase tells players to take a real-world break and go outside?", {"Touch Grass", "Eat a Salad", "Get Off", "Chillax"})
gamerWords:Add("A 'Noob' is a:", {"New Player", "Night Ops Bot", "Cheater", "Nintendo Spectator"})
gamerWords:Add("'OP' stands for:", {"Overpowered", "Original Poster", "Online Player", "Open Party"})
gamerWords:Add("If someone is 'Buffing', they are:", {"Powering Up", "Working Out", "Cleaning Gear", "Taking Damage"}, 2)

local gamerWords2 = categoryManager.New("Gamer Words", "easy")
gamerWords2:Add("When devs weaken a strong weapon, they ___ it:", {"Nerf", "Buff", "Patch", "Hotfix"})
gamerWords2:Add("'Camping' in shooters means:", {"Staying in One Spot", "Cheating", "Co-op Mode", "Building Camps"})
gamerWords2:Add("A 'Clutch' is a:", {"Last-Second Win", "Car Part", "Team Carry", "Controller Glitch"})
gamerWords2:Add("If a player is trying to beat a game as fast as possible, they are attempting a ...", {"Speedrun", "Speed Challenge", "Time Trial", "Time attack"})
gamerWords2:Add("What is the act of pulling enemies away to fight them individually called?", {"Kiting", "Buffing", "Turtling", "Zerging"}, 2)

local streaming = categoryManager.New("Streaming Culture", "medium")
streaming:Add("'IRL' stands for:", {"In Real Life", "Internet Rules List", "Item Reward Level", "Instant Raid Loot"})
streaming:Add("The 'PogChamp' emote expresses:", {"Excitement", "Disappointment", "Anger", "Sadness"})
streaming:Add("A viewer who watches silently without chatting is called a:", {"Lurker", "NPC", "Nonchatter", "Sneaker"})
streaming:Add("You can Cheer to streamers using which currency?", {"Bits", "Coins", "Credits", "Super Chats"})
streaming:Add("What is the term for when a streamer sends their viewers to another live stream?", {"Raid", "Swap", "Relay", "Transfer"}, 2)

local computerHardware = categoryManager.New("Computer Hardware", "medium")
computerHardware:Add("What component is considered the 'brain' of a computer?", {"CPU", "RAM", "GPU", "HDD"})
computerHardware:Add("What does GPU stand for?", {"Graphics Processing Unit", "General Processing Unit", "Gaming Performance Unit", "Global Processing Unit"})
computerHardware:Add("What unit is computer memory (RAM) typically measured in?", {"Gigabytes", "Volts", "Hertz", "Watts"})
computerHardware:Add("What is the standard port for connecting a monitor?", {"HDMI", "USB", "Ethernet", "PS/2"})
computerHardware:Add("Which type of memory loses all its data when the computer is turned off?", {"RAM", "HDD", "SSD", "ROM"}, 2)

local ancientCivilizations = categoryManager.New("Ancient Civilizations", "medium")
ancientCivilizations:Add("Which ancient civilization had gladiator fights?", {"Romans", "Greeks", "Egyptians", "Chinese"})
ancientCivilizations:Add("Which ancient civilization built the pyramids of Giza?", {"Egypt", "Inca", "Rome", "Greece"})
ancientCivilizations:Add("What was the capital of the Roman Empire?", {"Rome", "Athens", "Alexandria", "Constantinople"})
ancientCivilizations:Add("Which civilization invented democracy?", {"Ancient Greece", "Rome", "Egypt", "Persia"}, 2)
ancientCivilizations:Add("Which ancient civilization invented paper?", {"Chinese", "Egyptians", "Greeks", "Persians"})

local worldRecords = categoryManager.New("World Records", "easy")
worldRecords:Add("What is the fastest land animal?", {"Cheetah", "Lion", "Horse", "Antelope"})
worldRecords:Add("Which book holds the record for being the most sold and translated in history?", {"The Bible", "The Lord of the Rings", "Harry Potter and the Sorcerer's Stone", "The Quran"})
worldRecords:Add("Which is the largest country by land area?", {"Russia", "China", "United States", "Canada"})
worldRecords:Add("Which is the highest mountain in the world?", {"Mount Everest", "K2", "Mount Kilimanjaro", "Mount Fuji"})
worldRecords:Add("What is the longest word in a major dictionary?", {"Pneumonoultramicroscopicsilicovolcanoconiosis", "Supercalifragilisticexpialidocious", "Hippopotomonstrosesquippedaliophobia", "Floccinaucinihilipilification"}, 2)

end -- End of quiz definitions

-- Adds trailing zeros to a number to make it a certain length.
-- For example, addTrailingZeros(5, 3) returns "005"
local function addTrailingZeros(number: number, desiredLength: number): string
    local numberString = tostring(number)
    local lenghtDifference = desiredLength - string.len(numberString)
    return string.rep("0", math.max(0, lenghtDifference))..numberString
end

local categoryTable = {} -- Final list names of all quizzes, for example "Geography-easy", "Geography-medium", "Trivia-1", etc.
local categoryLookupTable = {} -- categoryLookupTable is used to get the actual quiz table from formatted category name

local function UpdateCategoryTable(categoryName: string, difficulties: table)
    local multipleDifficulties = categories.numberOfDifficulties[categoryName] > 1
    for difficulty, quizzes in difficulties do
        for index, quiz in quizzes do
            local listName
            -- if multiple quizzes exist in current difficulty, and there are more difficulties, add their difficulty and index at the end to distinguish them
            if #quizzes > 1 and multipleDifficulties then
                -- Add trailing zeros to prevent cases where a number such as "12" comes before "2"
                local finalIndex = addTrailingZeros(index, string.len(#quizzes))
                listName = categoryName.."-"..difficulty..finalIndex -- ex: flags-easy1, flags-easy2, flags-medium
                table.insert(categoryTable, listName)
            elseif multipleDifficulties and difficulty ~= "" then -- if multiple difficulties exist but only one quiz in current difficulty, only add the difficulty at the end
                listName = categoryName.."-"..difficulty -- ex: flags-hard
                table.insert(categoryTable, listName)
            -- if multiple quizzes exist under the same category, but all under the same difficulty, only add their index at the end
            elseif #quizzes > 1 or (difficulty == "" and multipleDifficulties) then
                local finalIndex = addTrailingZeros(index, string.len(#quizzes))
                listName = categoryName.."-"..finalIndex -- ex: history-1, history-2
                table.insert(categoryTable, listName)
            else
                listName = categoryName -- ex: flags
                table.insert(categoryTable, listName)
            end
            categoryLookupTable[listName] = {quiz, difficulty}
        end
    end
end

for categoryName, difficulties in categories.categoryList do
    UpdateCategoryTable(categoryName, difficulties)
end
table.sort(categoryTable, sortAlphabetically)

local function SortDifficulty(a, b)
    local aOrder = table.find(difficultyOrder, a:match("^(%a+)%d*$"))
    local bOrder = table.find(difficultyOrder, b:match("^(%a+)%d*$"))
    if not aOrder or not bOrder then
        return a < b
    elseif aOrder == bOrder then
        return a < b
    else
        return aOrder < bOrder
    end
end

local categoriesToSend: { string } = {} -- no suffixes, only category names. format should be: food and drink, flags, science
-- categoriesToSendDetailed sends if settings.sendDetailedCategorylist is true
local categoriesToSendDetailed: { string } = {} -- format should be: food and drink, flags [easy, easy2, medium, hard], science [easy, hard]

local function addToSendCategoryTable(categoryName: string, difficulties: { any })
    local formattedCategory = {}
    local iterator = 0
    local multipleDifficulties = categories.numberOfDifficulties[categoryName] > 1
    for difficulty, quizzes in difficulties do
        iterator += 1
        if #quizzes > 1 and multipleDifficulties then
            for index, quiz in quizzes do
                table.insert(formattedCategory, difficulty..index) -- "easy1, easy2"
            end
        elseif multipleDifficulties and difficulty == "" then
            table.insert(formattedCategory, difficulty.."1") -- to make sure that categories without a difficulty also get shown
        elseif multipleDifficulties then
            table.insert(formattedCategory, difficulty) -- "easy"
        elseif #quizzes > 1 then
            table.insert(formattedCategory, tostring(#quizzes)) -- "2, 4". simply indicates how many quizzes exist in that cateogry
        end
    end
    table.sort(formattedCategory, SortDifficulty) -- make sure easy always comes before medium, etc.
    if #formattedCategory > 0 then
        formattedCategory = categoryName.." ["..table.concat(formattedCategory, ", ").."]"
    else
        formattedCategory = categoryName
    end
    table.insert(categoriesToSendDetailed, formattedCategory)
    table.insert(categoriesToSend, categoryName)
end

for categoryName, difficulties in categories.categoryList do -- indexing categories for sending with sendCategories() function
    addToSendCategoryTable(categoryName, difficulties)
end
table.sort(categoriesToSend, sortAlphabetically)
table.sort(categoriesToSendDetailed, sortAlphabetically)

local firstTimeSendingCategories = true -- Roblox often filters the category table the first time you try to send it
local currentlySending: string? -- gives alert in this format: "[currentlySending] currently being sent"
local function sendCategories()
    if not quizRunning and not currentlySending then
        currentlySending = "Category list is"
        local waitTime = 5
        if firstTimeSendingCategories and settings.sendDetailedCategorylist then
            notify("Warning: possible filtering", "Turn off detailed categories in settings if the category list gets filtered")
            waitTime = 7
        end
        Chat("❓ | Quiz topics:", true)
        task.wait(3)
        -- only use the clear filter option when detailed leaderboards are on (more prone to filtering)
        if settings.sendDetailedCategorylist then
            splitIntoMessages(categoriesToSendDetailed, ", ", true, waitTime)
        else
            splitIntoMessages(categoriesToSend, ", ", false, waitTime)
        end
        if settings.sendDetailedCategorylist then
            firstTimeSendingCategories = false
        end
        currentlySending = nil
    elseif currentlySending then
        notify(`{currentlySending} currently being sent`, "Wait for it to finish sending before sending the category list")
    elseif quizRunning then
        notify("Can't send category list", "Can't send the category list while a quiz is running. Stop the quiz or wait for it to end")
    end
end

local  function IsCategoryEqual(categoryName: string, matchCategory: string, suffix: string): boolean -- true if the categories are the same with the modifies. (WWII-1, WWI) -> false (WWII-1, WWII) -> true
    if categoryName == matchCategory then
        return true
    end
    local pattern = "^"..EscapePattern(categoryName..suffix)
    return string.match(matchCategory, pattern) ~= nil
end

local function RemoveDuplicateCategories(targetTable: table, categoryName: string, suffix: string)
    local tempTable = table.clone(targetTable) -- to prevent weird stuff from happening when the loop removes items from the table while it is actively running
    for i = 1, #targetTable do
        if IsCategoryEqual(categoryName, targetTable[i], suffix) then -- remove all of the category's quizzes to prevent duplicates
            table.remove(tempTable, table.find(tempTable, targetTable[i]))
        end
    end
    return tempTable
end

local categoryDropdown
local function UpdateCategory(categoryName: string) -- reindexes the specified category
    categoriesToSend = RemoveDuplicateCategories(categoriesToSend, categoryName, "")
    categoriesToSendDetailed = RemoveDuplicateCategories(categoriesToSendDetailed, categoryName, " [")
    local difficulties = categories.categoryList[categoryName]
    addToSendCategoryTable(categoryName, difficulties)
    categoryTable = RemoveDuplicateCategories(categoryTable, categoryName, "-")
    UpdateCategoryTable(categoryName, difficulties)
end

local numberOfCategoriesPerDifficulty: { number } = {}
for categoryName, category in categoryLookupTable do -- find how many categories are in each difficulty group. Needed so autoplay knows when it's out of categories
    if not numberOfCategoriesPerDifficulty[category[2]] then
        numberOfCategoriesPerDifficulty[category[2]] = 1
    else
        numberOfCategoriesPerDifficulty[category[2]] += 1
    end
end
------------- Custom question OOP -------------
local CustomCategoryManager = {}
CustomCategoryManager.__index = CustomCategoryManager
local categoryNames = {}

local autoplayFilterDifficulties: { string } = {} -- array of difficulties that'll show up on the autoplay filter dropdown
local autoplayFilterDropdown
function CustomCategoryManager.New(categoryName: string, difficulty: string?)
    -- Do sorting and refresh category dropdown only when all custom categories are added
    CustomCategoryManager.scheduleRefresh()
    if type(categoryName) == "string" then
        if type(difficulty) ~= "string" then
            difficulty = "" -- if difficulty is not a string, use default (blank)
        else
            difficulty = string.lower(difficulty)
        end
        -- if brand new category is added, add it to the filter dropdown
        if not numberOfCategoriesPerDifficulty[difficulty] or numberOfCategoriesPerDifficulty[difficulty] == 0 then
            numberOfCategoriesPerDifficulty[difficulty] = 1
            if difficulty == "" then
                 table.insert(autoplayFilterDifficulties, "missing difficulty")
            else
                table.insert(autoplayFilterDifficulties, difficulty)
            end
            autoplayFilterDropdown:Refresh(autoplayFilterDifficulties)
        end
        -- If a category with the same name already exists, use the existing name
        for name, _ in categories.categoryList do
            if string.lower(name) == string.lower(categoryName) then
                categoryName = name
            end
        end
        local newCategory = setmetatable(categoryManager.New(categoryName, difficulty), CustomCategoryManager)
        categoryNames[newCategory] = categoryName
        UpdateCategory(categoryNames[newCategory])
        return newCategory
    else
        print("Custom quiz error | CategoryName is not a string")
    end
    notify("Can't add custom quiz", "See the output for more information")
end

function CustomCategoryManager:Add(quesitonText: string, options: { string }, value: number?)
    if type(quesitonText) == "string" then
        if type(options) == "table" then
            if #options > 1 then
                if type(value) == "nil" or type(value) == "number" then
                    categoryManager:Add(quesitonText, options, value, self)
                    return
                else
                    print("Custom quiz error | [" .. quesitonText .. "] question value needs to be a number or nil")
                end
            else
                print("Custom quiz error | [" .. quesitonText .. "] options table need to have more than one option")
            end
        else
            print("Custom quiz error | [" .. quesitonText .. "] options is not a table")
        end
    else
        print("Custom quiz error | [" .. quesitonText .. "] quesitonText is not a string")
    end
    notify("Can't add custom question", "See the output for more information")
end

-- Schedules a sort & refresh of the category dropdown when custom category adding is done
function CustomCategoryManager.scheduleRefresh()
    if not CustomCategoryManager.refreshScheduled then
        CustomCategoryManager.refreshScheduled = true
        task.defer(function() -- Defer to run after all custom categories are added
            -- We're only running this once as it is expensive
            table.sort(categoriesToSend, sortAlphabetically)
            table.sort(categoriesToSendDetailed, sortAlphabetically)
            table.sort(categoryTable, sortAlphabetically)
            categoryDropdown:Refresh(categoryTable)
            CustomCategoryManager.refreshScheduled = false
        end)
    end
end

local function sortUserPoints(type)
    local array = {}
    for username, value in pairs(userPoints) do
        array[#array+1] = {username, value[type], value.DisplayName}
    end
    table.sort(array, function(a, b)
        return a[2] > b[2]
    end)
    return array
end

local medalEmojis = {"🥇 ", "🥈 ", "🥉 "}
local function sendLeaderboard(type: string, message: string, triggeredByUser: boolean?)
    if triggeredByUser and quizRunning then
        notify("Can't send LB", "Can't send LB while quiz is running. Stop the current quiz or wait for it to end")
        return
    elseif currentlySending then
        notify(`{currentlySending} currently being sent`, "Wait for it to finish sending before sending the leaderboard")
        return
    end
    currentlySending = "A LB is" -- abbreviate to LB to make sure text doesn't cut off in notification title
    local pointsArray
    message = message or ""
    if type == "Current quiz" then
        pointsArray = sortUserPoints("CurrentQuizPoints")
    else
        pointsArray = sortUserPoints("GlobalPoints")
    end
    task.wait(1.5)
    if triggeredByUser and quizRunning then
        return
    end
    for i = 1, 3 do
        if pointsArray[i] and pointsArray[i][2] > 0 then -- if entry exisits and player has more than 0 points
            if i == 1 then
                Chat(message..type.." leaderboard:")
            end
            local username = pointsArray[i][1]
            local displayName = pointsArray[i][3]
            local points = roundNumber(pointsArray[i][2], 1)
            local pointWord = if points > 1 then "points" else "point"
            task.wait(2.5)
            if triggeredByUser and quizRunning then
                return
            end
            Chat(medalEmojis[i]..displayName.." (@"..username..") - "..points.." "..pointWord)
            UpdateBoothgameTexts(medalEmojis[i]..displayName, true)
        end
    end
    task.wait(2.5)
    currentlySending = nil
end
local leaderboardLabels = {
    CurrentQuizPoints = {},
    GlobalPoints = {}
}
local function GetPointsAndUpdateLabels(type: string)
    local pointsArray = sortUserPoints(type)
    for index, label in leaderboardLabels[type] do
        if pointsArray[index] and pointsArray[index][2] > 0 then
            local username = pointsArray[index][1]
            local displayName = pointsArray[index][3]
            local points = roundNumber(pointsArray[index][2], 1)
            local pointWord = if points > 1 then "points" else "point"
            label:Set(`{medalEmojis[index]} {displayName} (@{username}) - {points} {pointWord}`)
        else
            label:Set(medalEmojis[index].." [Empty] - 0")
        end
    end
end
ClearLeaderboardLabels = function(type: string) -- clears current quiz points in the UI leaderboard at the beginning of each quiz
    for index, label in leaderboardLabels[type] do
        label:Set(medalEmojis[index].." [Empty] - 0")
    end
end
UpdateUILeaderboard = function(type: string?) -- updates the labels for the leaderboard in the UI
    type = type or "All"
    if type == "All" then
        GetPointsAndUpdateLabels("GlobalPoints")
        GetPointsAndUpdateLabels("CurrentQuizPoints")
    else
        assert(leaderboardLabels[type], "Invalid leaderboard type")
        GetPointsAndUpdateLabels(type)
    end
end

local autoplayChosenCategories = {} -- categories previously chosen by autoplay
local autoPlayDifficulties = difficultyOrder -- allowed difficulties by autoplay. Default is all difficulties
local function choseAutoplayCategory()
    local autoplayComplete = true -- true if every category has been played
    for _, difficulty in autoPlayDifficulties do -- do this each time in case the user changes the autoplay filter
        if autoplayChosenCategories[difficulty] and not (#autoplayChosenCategories[difficulty] == numberOfCategoriesPerDifficulty[difficulty]) then
            autoplayComplete = false
            break
        -- if the difficulty has not been chosen yet at all or there are no quizzes in it
        elseif not autoplayChosenCategories[difficulty] and numberOfCategoriesPerDifficulty[difficulty] then
            autoplayComplete = false
            break
        end
    end
    if autoplayComplete then -- if every category has been chosen, clear the chosencategories table
        table.clear(autoplayChosenCategories)
    end
    local chosenCategory = categoryTable[math.random(#categoryTable)]
    local chosenCategoryDifficulty = categoryLookupTable[chosenCategory][2]
    if (autoplayChosenCategories[chosenCategoryDifficulty] and table.find(autoplayChosenCategories[chosenCategoryDifficulty], chosenCategory)) or not table.find(autoPlayDifficulties, categoryLookupTable[chosenCategory][2]) then -- if category has been previously chosen, chose another category
        return choseAutoplayCategory()
    else
        return chosenCategory
    end
end

local function isFreeToRunQuiz(): boolean
    if quizRunning then
        notify("A quiz is currently running", "Stop the current quiz or wait for it to end")
        return false
    elseif quizCooldown then
        notify("Cooldown active", "Try again in a few seconds")
        return false
    end
    return true
end

local function startQuiz(category: string)
    if not isFreeToRunQuiz() then
        return
    end
    SuppressBoothGameNotifications(true)
    CaptureBoothTextAndImage()
    quizRunning = true
    pointManager.ClearQuizPoints()
    Chat('🚀 | Initiating "'..category..'" quiz...')
    UpdateBoothgameTexts(category)
    task.wait(3)
    local loopIterations = 0
    for _, v in pairs(categoryLookupTable[category][1]) do
        if not quizRunning then
            return
        end
        local questionAsked = v:Ask()
        if questionAsked == false then -- if question didn't get asked because of the filter, skip to next
            currentQuestion = nil
            questionAnsweredBy = nil
            task.wait(5)
            continue
        end
        awaitAnswer(v)
        if not quizRunning then
            return
        end
        task.wait(6)
        loopIterations += 1
        if not quizRunning then
            return
        end
        if loopIterations == settings.sendLeaderBoardAfterQuestions and settings.automaticLeaderboards and settings.automaticCurrentQuizLeaderboard then
            sendLeaderboard("Current quiz", "📜 | ")
            loopIterations = 0
        end
    end
    task.wait(2)
    if loopIterations ~= 0 and settings.automaticLeaderboards and settings.automaticCurrentQuizLeaderboard then
        sendLeaderboard("Current quiz", "📜 | ")
    end
    UpdateBoothgameTexts(endMessage, true)
    if settings.automaticLeaderboards and settings.automaticServerQuizLeaderboard then
        sendLeaderboard("Server", "🏆 | Quiz ended. ")
        task.wait(2)
    else
        SendMessageWhenReady("🏁 | Quiz ended")
        task.wait(3)
    end
    task.delay(8, function()
        if not quizRunning then
            UpdateBoothgameTexts("", true)
            task.wait(6)
            SuppressBoothGameNotifications(false)
        end
    end)
    quizRunning = false
    if settings.autoplay then
        if not autoplayChosenCategories[categoryLookupTable[category][2]] then -- insert the category into autoplayChosenCategories[difficulty]
            autoplayChosenCategories[categoryLookupTable[category][2]] = {category}
        else
            table.insert(autoplayChosenCategories[categoryLookupTable[category][2]], category)
        end
        UpdateBoothgameTexts("🎲 Picking next category...", true)
        Chat("🎲 | Picking next category...")
        local chosenCategory = choseAutoplayCategory()
        task.wait(6)
        startQuiz(chosenCategory)
    else
        UpdateBoothgameTexts(endMessage, true)
    end
end

local quizModeRules = {
    "Each question has one correct answer and one or more wrong answers. You can submit your answers only through text chat, not voice.",
    "If you submit an incorrect answer, you will always have to wait "..tostring(settings.userCooldown).." seconds before you can submit another answer.",
    "If you submit a correct answer, you will earn points.",
}
local kahootModeRules = {
    "Each question has one correct answer and one or more wrong answers. You can submit your answers only through text chat, not voice.",
    "You can only submit ONE answer per question.", "The first answer you submit is your final answer, and it can not be changed.",
    "You have "..tostring(settings.questionTimeout).." seconds to answer the question after all the options have been said.",
    "Every second after all the options have been said, the points you will gain for answering correctly decrease.",
    "In other words, the quicker you answer, the more points you will gain.",
    "Additionally, the first person who submits a correct answer gets 1.5x points.",
}
local function sendRules()
    if quizRunning then
        notify("Can't send rules", "Can't send rules while quiz is running. Stop the current quiz or wait for it to end")
        return
    elseif currentlySending then
        notify(`{currentlySending} currently being sent`, "Wait for it to finish sending before sending the rules")
        return
    end
    currentlySending = "The rules are"
    if mode == "Quiz" then
        Chat("📜 | Quiz mode rules:", true)
        task.wait(2)
        splitIntoMessages(quizModeRules, " ", 2)
    elseif mode == "Kahoot" then
        Chat("📜 | Kahoot mode rules:", true)
        task.wait(2)
        splitIntoMessages(kahootModeRules, " ")
    end
    currentlySending = nil
end

players.PlayerRemoving:Connect(function(player) -- remove player's userpoint account on leave
    if settings.removeLeavingPlayersFromLB then
        pointManager.RemoveAccount(player)
    end
end)

local function getPlayerByPlayerName(name)
    if name then
        name = string.lower(name)
        for i, v in ipairs(players:GetPlayers()) do
            if string.lower(string.sub(v.Name, 1, #name)) == name then
                return v
            end
            if string.lower(string.sub(v.DisplayName, 1, #name)) == name then
                return v
            end
        end
        for i, v in ipairs(players:GetPlayers()) do
            if string.match(v.Name:lower(), name) then
                return v
            end
            if string.match(v.DisplayName:lower(), name) then
                return v
            end
        end
    end
end

local function getTargetPlayer(name) -- try to get a target player from the name
    local target
    local matchingPlayer = getPlayerByPlayerName(name)
    if name:lower() == "me" then
        target = localPlayer
        return target
    elseif matchingPlayer then
        target = matchingPlayer
        return target
    end
    target = nil
    return target
end

local function getCategoryName(name: string) -- detects category from begging of string, for example: "gene" will return "general" category
    if #name < 2 then
        return
    end
    name = name:lower()
    for _, category in categoryTable do
        if string.lower(string.sub(category, 1, #name)) == name then
            return category
        end
    end
end
---------- UI ----------
local library, window

setgenv("DISABLE_RAYFIELD_REQUESTS", true) -- Disables Rayfield's analytic reports
setgenv("rayfieldCached", true) -- Disables Rayfield's splash screen
local success, errorMessage = pcall(function()
    library = loadstring(game:HttpGet('https://raw.githubusercontent.com/Damian-11/Rayfield/stable/source.lua'))() -- Rayfield lib
    window = library:CreateWindow({
        Name = "quizbot | Made by Damian11 AKA Quizzer",
        LoadingTitle = "Loading quizbot...",
        LoadingSubtitle = "made by Damian11 AKA Quizzer",
        ShowText = "quizbot",
        DisableRayfieldPrompts = true,
        DisableBuildWarnings = true,
    })
end)
if not success then -- if the libary is down for any reason, ask user to report it on discord
    notify("quizbot error", "Failed to load UI libary. Please report this bug in the Discord server:", {
        Callback = setclipboard("https://discord.gg/wm384KFFMC"),
        Button1 = "Copy invite link"
    })
    warn("quizbot error [UI LIB] | " .. errorMessage)
    return -- stops the script
end

local function toggleUI(_actionName, inputState, _inputObject)
    if inputState == Enum.UserInputState.Begin then
        library:SetVisibility(not library:IsVisible())
    end
end

-- Remember that laptops with touch screens exist
if UserInputService.TouchEnabled and not UserInputService.KeyboardEnabled then
    ContextActionService:BindAction("ToggleUI", toggleUI, true)
    ContextActionService:SetImage("ToggleUI", "rbxassetid://100698995249426")
end

local mainTab = window:CreateTab("Main", 74002778429106)

if outdated and not getDataFileValue("disableVersionAlert") then
    mainTab:CreateSection("Outdated version warning")
    mainTab:CreateParagraph({
        Title = "Outdated quizbot version",
        Content = "You are using an outdated version of quizbot. Use the latest version to access new features, updated quizzes, and more. [Disable in settings]"
    })
    mainTab:CreateButton({
        Name = "Click this button copy the latest version of quizbot",
        Callback = copyLatestScript,
    })
end

mainTab:CreateSection("Category selection")
local categoryLabel
local selectedCategory
mainTab:CreateInput({
    Name = "Category",
    PlaceholderText = "Enter a category name",
    RemoveTextAfterFocusLost = false,
    Callback = function(value)
        selectedCategory = getCategoryName(value)
        if selectedCategory then
            categoryLabel:Set("Selected category: "..selectedCategory)
            categoryDropdown:Set({selectedCategory})
        end
    end
})
categoryDropdown = mainTab:CreateDropdown({
    Name = "Category",
    Options = categoryTable,
    CurrentOption = "Select a category",
    Callback = function(option)
        selectedCategory = option[1]
        categoryLabel:Set("Selected category: "..selectedCategory)
    end
})
mainTab:CreateButton({
    Name = "Send category list in chat",
    Callback = sendCategories
})

mainTab:CreateSection("Quiz controls")
categoryLabel = mainTab:CreateLabel("Selected category: None")
mainTab:CreateButton({
    Name = "Start quiz",
    Callback = function()
        if categoryLookupTable[selectedCategory] then
            startQuiz(selectedCategory)
        else
            notify("Invalid category", "Select a valid category to start the quiz")
        end
    end
})
mainTab:CreateButton({
    Name = "Stop quiz",
    Callback = function()
        if quizRunning then
            quizCooldown = true
            quizRunning = false
            currentQuestion = nil
            questionAnsweredBy = nil
            awaitingAnswer = false
            task.delay(5, function()
                quizCooldown = false
            end)
        end
    end
})

mainTab:CreateSection("Autoplay")
mainTab:CreateToggle({
    Name = "Autoplay quizzes automatically",
    CurrentValue = settings.autoplay,
    Callback = function(value)
        settings.autoplay = value
        EnableAntiAfk()
    end
})

-- only include difficulties which include categories
for _, difficulty: string in difficultyOrder do
    if numberOfCategoriesPerDifficulty[difficulty] and numberOfCategoriesPerDifficulty[difficulty] > 0 then
        if difficulty == "" then -- replace "" with "missing difficulty" to prevent confusion
            difficulty = "missing difficulty"
        end
        table.insert(autoplayFilterDifficulties, difficulty)
    end
end
autoplayFilterDropdown = mainTab:CreateDropdown({
    Name = "Autoplay filter (unselect all to disable filter)",
    Options = autoplayFilterDifficulties,
    MultipleOptions = true,
    Callback = function(options)
        local filteredTable = table.clone(options) -- since tables are passed by value (mutable), they need to be cloned to prevent modifying the original table
        if #options == 0 then -- if none selected, select all
            filteredTable = difficultyOrder
        elseif table.find(filteredTable, "missing difficulty") then
            filteredTable[table.find(filteredTable, "missing difficulty")] = ""
        end
        autoPlayDifficulties = filteredTable
    end
})
mainTab:CreateButton({
    Name = "Play random quiz",
    Callback = function()
        if isFreeToRunQuiz() then
            local chosenCategory = choseAutoplayCategory()
            notify("Random quiz chosen", `Starting {chosenCategory} quiz`)
            startQuiz(chosenCategory)
        end
    end
})

local leaderboardTab = window:CreateTab("Leaderboard", 97885193604839)
leaderboardTab:CreateSection("Server leaderboard (doesn't reset)")
for i = 1, 3 do
    table.insert(leaderboardLabels.GlobalPoints, leaderboardTab:CreateLabel(medalEmojis[i].." [Empty] - 0"))
end
leaderboardTab:CreateButton({
    Name = "Send server leaderboard in chat",
    Callback = function()
        sendLeaderboard("Server", "🏆 | ", true)
    end
})

leaderboardTab:CreateSection("Current quiz leaderboard (resets every quiz)")
for i = 1, 3 do
    table.insert(leaderboardLabels.CurrentQuizPoints, leaderboardTab:CreateLabel(medalEmojis[i].." [Empty] - 0"))
end
leaderboardTab:CreateButton({
    Name = "Send current quiz leaderboard in chat",
    Callback = function()
        sendLeaderboard("Current quiz", "📜 | ", true)
    end
})

leaderboardTab:CreateSection("Reset points")
leaderboardTab:CreateButton({
    Name = "Reset all points",
    Callback = pointManager.ResetAllPoints
})

local playerControlTab = window:CreateTab("Player controls", 100068360107422)
local targetPlayer
local targetPlayerLabel
playerControlTab:CreateSection("Select target")
playerControlTab:CreateInput({
    Name = "Target",
    PlaceholderText = "Enter target name",
    Callback = function(value)
        if #value < 1 then return end
        targetPlayer = getTargetPlayer(value)
        if targetPlayer then
            targetPlayerLabel:Set(`Target: {targetPlayer.DisplayName} (@{targetPlayer.Name})`)
        else
            targetPlayerLabel:Set("Target: None")
        end
    end
})

local function TargetExists(target)
    if not target then
        notify("Invalid target", "Specify a target player")
        return false
    else
        return true
    end
end

targetPlayerLabel = playerControlTab:CreateLabel("Target: None")
playerControlTab:CreateSection("Modify points")
local pointsToAdd
playerControlTab:CreateInput({
    Name = "Amount of points",
    PlaceholderText = "Enter points amount",
    Callback = function(value)
        if value and tonumber(value) then
            pointsToAdd = value
        end
    end
})
playerControlTab:CreateButton({
    Name = "Apply points",
    Callback = function()
        if not TargetExists(targetPlayer) then
            return
        end
        if pointsToAdd then
            pointManager.AddPoints(targetPlayer, pointsToAdd, "GlobalPoints")
            notify("Points added", pointsToAdd.." server points have been added to "..targetPlayer.Name)
        else
            notify("Enter a point amount", "Enter an amount of points to add")
        end
    end
})
playerControlTab:CreateButton({
    Name = "Remove all points from player",
    Callback = function()
        if not TargetExists(targetPlayer) then return end
        pointManager.RemoveAccount(targetPlayer)
        notify("Points reset", "Successfully removed all points from "..targetPlayer.Name)
    end
})

playerControlTab:CreateSection("Block")
playerControlTab:CreateButton({
    Name = "Block from participating",
    Callback = function()
        if not TargetExists(targetPlayer) then return end
        if not table.find(blockedPlayers, targetPlayer.Name) then
            table.insert(blockedPlayers, targetPlayer.Name)
            notify("Player blocked", targetPlayer.Name.." has been blocked from participating")
        else
            notify("Can't block player", targetPlayer.Name.." is already blocked from participating")
        end
    end
})
playerControlTab:CreateButton({
    Name = "Unblock from participating",
    Callback = function()
        if not TargetExists(targetPlayer) then return end
        if table.find(blockedPlayers, targetPlayer.Name) then
            table.remove(blockedPlayers, table.find(blockedPlayers, targetPlayer.Name))
            notify("Player unblocked", targetPlayer.Name.." is no longer blocked from participating")
        else
            notify("Can't unblock player", targetPlayer.Name.." is not blocked from participating")
        end
    end
})
playerControlTab:CreateButton({
    Name = "Unblock all",
    Callback = function()
        notify("Unblocked everyone", #blockedPlayers.." players have been unblocked")
        table.clear(blockedPlayers)
    end
})

playerControlTab:CreateSection("Whitelist")
playerControlTab:CreateToggle({
    Name = "Enable whitelist",
    CurrentValue = whiteListEnabled,
    Callback = function(value)
        whiteListEnabled = value
    end
})
playerControlTab:CreateButton({
    Name = "Whitelist",
    Callback = function()
        if not TargetExists(targetPlayer) then return end
        if not table.find(whiteListedplayers, targetPlayer.Name) then
            table.insert(whiteListedplayers, targetPlayer.Name)
            if whiteListEnabled then
                notify("Player whitelisted", targetPlayer.Name.." has been whitelisted. The whitelist is currently enabled")
            else
                notify("Player whitelisted", targetPlayer.Name.." has been whitelisted, but the whitelist is currently disabled")
            end
        else
            notify("Can't whitelist player", targetPlayer.Name.." is already on the whitelist")
        end
    end
})
playerControlTab:CreateButton({
    Name = "Unwhitelist",
    Callback = function()
        if not TargetExists(targetPlayer) then return end
        if table.find(whiteListedplayers, targetPlayer.Name) then
            table.remove(whiteListedplayers, table.find(whiteListedplayers, targetPlayer.Name))
            notify("Player removed", targetPlayer.Name.." is no longer on the whitelist")
        else
            notify("Can't remove player", targetPlayer.Name.." is not on the whitelist")
        end
    end
})
playerControlTab:CreateButton({
    Name = "Clear whitelist",
    Callback = function()
        notify("Whitelist has been cleared", #whiteListedplayers.." players have been removed from the whitelist")
        table.clear(whiteListedplayers)
    end
})

local settingsTab = window:CreateTab("Settings", 112502172419483)
settingsTab:CreateSection("Discord server")
settingsTab:CreateLabel("Join my Discord server: discord.gg/wm384KFFMC")
settingsTab:CreateButton({
    Name = "Click this button to copy the invite link",
    Callback = function()
        setclipboard("https://discord.gg/wm384KFFMC")
        notify("Successfully copied invite", "The invite link has been copied to your clipboard")
    end
})

settingsTab:CreateSection("Select mode")
settingsTab:CreateDropdown({
    Name = "Mode",
    Options = {"Quiz", "Kahoot"},
    CurrentOption = mode,
    Callback = function(option)
        mode = option[1]
        if mode == "Quiz" then
            Chat("❓ | Quiz mode enabled", true)
        elseif mode == "Kahoot" then
            Chat("✉️ | Kahoot mode enabled", true)
        end
    end
})
settingsTab:CreateButton({
    Name = "Send rules in chat",
    Callback = sendRules
})

settingsTab:CreateSection("Time settings")
settingsTab:CreateInput({
    Name = "Question timeout",
    PlaceholderText = settings.questionTimeout,
    Callback = function(value)
        if value and tonumber(value) then
            settings.questionTimeout = tonumber(value)
        end
    end
})
settingsTab:CreateInput({
    Name = "User cooldown on wrong answer",
    PlaceholderText = settings.userCooldown,
    Callback = function(value)
        if value and tonumber(value) then
            settings.userCooldown = tonumber(value)
        end
    end
})

settingsTab:CreateSection("Leaderboard settings")

settingsTab:CreateToggle({
    Name = "Remove leaving players from leaderboard",
    CurrentValue = settings.removeLeavingPlayersFromLB,
    Callback = function(value)
        settings.removeLeavingPlayersFromLB = value
    end
})
settingsTab:CreateInput({
    Name = "Send current quiz leaderboard every X questions",
    PlaceholderText = settings.sendLeaderBoardAfterQuestions,
    Callback = function(value)
        if value and tonumber(value) then
            settings.sendLeaderBoardAfterQuestions = tonumber(value)
            if not settings.automaticCurrentQuizLeaderboard then
                notify("Current quiz LB is disabled", "This settings doesn't take effect while the automatic sending of the current quiz LB is diabled")
            end
        end
    end
})

settingsTab:CreateDivider()
-- This toggles both disable leaderboard toggles to the "on" position when the disable both leaderboards switch is toggled on
-- When it is toggled back off, the leaderboard toggles are returned back to their previous positions
local disableBothLeaderboardsToggle, disableCurrentLeaderboardToggle, disableServerLeaderboardToggle
local originalSettings: { boolean } = {not settings.automaticCurrentQuizLeaderboard, not settings.automaticServerQuizLeaderboard}
disableBothLeaderboardsToggle = settingsTab:CreateToggle({
    Name = "Disable automatic sending of both leaderboards",
    CurrentValue = not settings.automaticLeaderboards,
    Callback = function(value)
        settings.automaticLeaderboards = not value
        if value then
            -- Save current toggle positions
            originalSettings = {not settings.automaticCurrentQuizLeaderboard, not settings.automaticServerQuizLeaderboard}
            disableCurrentLeaderboardToggle:Set(true)
            disableServerLeaderboardToggle:Set(true)
        else
            disableCurrentLeaderboardToggle:Set(originalSettings[1])
            disableServerLeaderboardToggle:Set(originalSettings[2])
        end
    end
})
disableCurrentLeaderboardToggle = settingsTab:CreateToggle({
    Name = "Disable automatic sending of current quiz LB",
    CurrentValue = not settings.automaticCurrentQuizLeaderboard or not settings.automaticLeaderboards,
    Callback = function(value)
        if value == false and settings.automaticLeaderboards == false then
            originalSettings = {false, not settings.automaticServerQuizLeaderboard}
            settings.automaticLeaderboards = true
            disableBothLeaderboardsToggle:Set(false) -- The toggle's callback gets called when using :Set()
        end
        settings.automaticCurrentQuizLeaderboard = not value
    end
})
disableServerLeaderboardToggle = settingsTab:CreateToggle({
    Name = "Disable automatic sending of server LB",
    CurrentValue = not settings.automaticServerQuizLeaderboard or not settings.automaticLeaderboards,
    Callback = function(value)
        if value == false and settings.automaticLeaderboards == false then
            originalSettings = {not settings.automaticCurrentQuizLeaderboard, false}
            settings.automaticLeaderboards = true
            disableBothLeaderboardsToggle:Set(false)
        end
        settings.automaticServerQuizLeaderboard = not value
    end
})

local originalDoNotRepeatState = not settings.repeatTagged
local doNotRepeatTaggedToggle
local originalFullModeState = settings.boothGameFullMode
local fullModeToggle
if boothGame then
    settingsTab:CreateSection("Booth game settings")
    settingsTab:CreateToggle({
        Name = "Enable sign status (sign item required)",
        CurrentValue = settings.signStatus,
        Callback = function(value)
            settings.signStatus = value
        end
    })
    settingsTab:CreateToggle({
        Name = "Enable booth status (must own a booth)",
        CurrentValue = settings.boothStatus,
        Callback = function(value)
            settings.boothStatus = value
            if not value and originalBoothText ~= "" then
                UpdateBoothText(originalBoothText)
            end
        end
    })
    settingsTab:CreateToggle({
        Name = "Do not send quiz messages in the chat",
        CurrentValue = settings.disableChat,
        Callback = function(value)
            settings.disableChat = value
            -- Anti-filtering system must be disabled if no messages are being sent
            if value then
                originalDoNotRepeatState = not settings.repeatTagged
                doNotRepeatTaggedToggle:Set(true)
                originalFullModeState = settings.boothGameFullMode
                fullModeToggle:Set(true)
            else
                doNotRepeatTaggedToggle:Set(originalDoNotRepeatState)
                fullModeToggle:Set(originalFullModeState)
            end
        end
    })
    fullModeToggle = settingsTab:CreateToggle({
        Name = "List answer options on sign and booth",
        CurrentValue = settings.boothGameFullMode,
        Callback = function(value)
            if not value and settings.disableChat then
                notify("Can't change setting", 'This setting cannot be changed while the "do not send quiz messages in the chat" setting is enabled')
                fullModeToggle:Set(true)
                return
            end
            settings.boothGameFullMode = value
        end
    })
    settingsTab:CreateToggle({
        Name = "Use roman numbers for sign timer to bypass filtering",
        CurrentValue = settings.romanNumbers,
        Callback = function(value)
            settings.romanNumbers = value
        end
    })
    settingsTab:CreateToggle({
        Name = "Disable push notifications while a quiz is in progress",
        CurrentValue = settings.boothGameSuppressNotifs,
        Callback = function(value)
            if not value then
                SuppressBoothGameNotifications(false)
            end
            settings.boothGameSuppressNotifs = value
        end
    })
end

settingsTab:CreateSection("Miscellaneous settings")
doNotRepeatTaggedToggle = settingsTab:CreateToggle({
    Name = "Do not repeat tagged messages",
    CurrentValue = not settings.repeatTagged,
    Callback = function(value)
        if not value and settings.disableChat then
            notify("Can't change setting", 'This setting cannot be changed while the "do not send quiz messages in the chat" setting is enabled')
            doNotRepeatTaggedToggle:Set(true)
            return
        end
        settings.repeatTagged = not value
        messageFiltered = false
    end
})
settingsTab:CreateToggle({
    Name = "Send detailed category list in chat (may get tagged)",
    CurrentValue = settings.sendDetailedCategorylist,
    Callback = function(value)
        settings.sendDetailedCategorylist = value
    end
})

if outdated then
    settingsTab:CreateToggle({
        Name = "Disable outdated version alerts",
        CurrentValue = getDataFileValue("disableVersionAlert"),
        Callback = function(value)
            writeToDataFile("disableVersionAlert", value)
        end
    })
end

settingsTab:CreateSection("Disable script")
settingsTab:CreateButton({
    Name = "Destory UI and disable script",
    Callback = function()
        chatConnection:Disconnect()
        quizCooldown = true
        quizRunning = false
        currentQuestion = nil
        questionAnsweredBy = nil
        awaitingAnswer = false
        ContextActionService:UnbindAction("ToggleUI")
        library:Destroy()
        setgenv("QUIZBOT_RUNNING", false)
    end
})

return CustomCategoryManager