Quiz script! Loadstring at the bottom, or just pate all wit control.

--[[
-> This script is for fun quizzes, made by @Verwendedeinherz
-> Dev: @Verwendedeinherz
-> Scripter: @Verwendedeinherz aka @Uweder1 / @lIIlIIlIIIlIIII
-> Idea: N/A
-> Helper: @Verwendedeinherz


█▀█ █░█ █ ▀█   █▀ █▀▀ █▀█ █ █▀█ ▀█▀
▀▀█ █▄█ █ █▄   ▄█ █▄▄ █▀▄ █ █▀▀ ░█░

❗Have fun❗

]]--

print("Quiz script by VXPLOITS!!")
wait(0.5)
wait(1.3)
print("Sucesfully loaded the script!")
wait(1)
game.StarterGui:SetCore("SendNotification", {
    Title = "Damians Discord [COPIED TO CLIPBOARD]!";
    Text = "https://discord.gg/Np72b8mC";
    Icon = "";
    Duration = "25";
})

setclipboard("@Verwendedeinherz's Discord -> https://discord.gg/6An5J3kQ")
toclipboard("@Verwendedeinherz's Discord -> https://discord.gg/6An5J3kQ")

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 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 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 settings = {
    questionTimeout = 10,
    userCooldown = 5,
    sendLeaderBoardAfterQuestions = 5,
    automaticLeaderboards = true,
    automaticCurrentQuizLeaderboard = true,
    automaticServerQuizLeaderboard = true,
    signStatus = true,
    romanNumbers = true,
    autoplay = false,
    repeatTagged = 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 oldChat: boolean
if replicatedStorage:FindFirstChild('DefaultChatSystemChatEvents') then
    oldChat = true
else
    oldChat = false
end

local function Chat(msg)
    if replicatedStorage:FindFirstChild('DefaultChatSystemChatEvents') then
        replicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer(msg, "All")
    else
        textChatService.TextChannels.RBXGeneral:SendAsync(msg)
    end
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

function roundNumber(num, numDecimalPlaces)
    return tonumber(string.format("%." .. (numDecimalPlaces or 0) .. "f", num))
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
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 then
        return
    end
    if not settings.repeatTagged then
        important = false
    end
    if important then
        importantMessageSent = true
        messageBeforeFilter = message
        answeredByAltMessage = altMessage
        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
        while not antiFilteringDone and quizRunning do -- yields until the anti filter functions have done their job
            task.wait()
        end
    end
    importantMessageSent = false
end

local boothGame = false
local signRemote
local changeSignTextRemote
if placeId == 8351248417 then
    signRemote = replicatedStorage:WaitForChild("Remotes"):WaitForChild("SettingsRem")
    changeSignTextRemote = replicatedStorage.SharedModules.TextInputPrompt.TextInputEvent
    if signRemote and changeSignTextRemote then
        boothGame = true
    end
end
local function UpdateSignText(text: string)
    if not boothGame or not settings.signStatus or not text then -- only works in "booth game"
        return
    end
    local sign = localPlayer.Character:FindFirstChild("TextSign") or localPlayer.Backpack:FindFirstChild("TextSign")
    if not sign then
        return
    end
    signRemote:FireServer({"SignServer"})
    changeSignTextRemote:FireServer(text)
end

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

local endMessage = "Quiz ended"
if localPlayer.UserId == 2005147350 then
    endMessage = "Quiz ended"
end

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

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

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

function question:Ask()
    if not quizRunning then
        return
    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
        SendMessageWhenReady("⭐ | "..self.value.."x points for question")
        task.wait(2)
    end
    questionAnsweredBy = nil
    UpdateSignText(self.mainQuestion)
    currentQuestion = self
    questionPoints = self.value
    SendMessageWhenReady("🎙️ | "..self.mainQuestion, true)
    if not quizRunning then
        return
    end
    task.wait(CalculateReadTime(self.mainQuestion))

    for i, v in ipairs(self.answers) do
        if questionAnsweredBy or not quizRunning then
            return
        end
        if i ~= 1 then
            task.wait(CalculateReadTime(v))
        end
        if questionAnsweredBy or not quizRunning then
            return
        end
        SendMessageWhenReady(letters[i]..")"..v, true) -- 1 = A) 2 = B) 3 = C) etc.
        answerOptionsSaid = i
    end
end

local function SplitIntoMessages(itemTable: table, separtor: string, waitTime: number?) -- split table into multiple messages to prevent roblox cutting down the message
    local tempItemList = {}
    local currentLength = 0
    for _, item in pairs(itemTable) do
        if quizRunning then
            return
        end
        if currentLength + #item + (#separtor * #tempItemList) >= maxCharactersInMessage then -- maxCharactersInMessage characters is the limit for chat messages in Roblox. For each item, we are adding a sepatator
            local conctatTable = table.concat(tempItemList, separtor)
            Chat(conctatTable)
            task.wait(waitTime or CalculateReadTime(conctatTable) * 0.3) -- multiplied by 0.3 because full read time is too long
            if quizRunning then
                return
            end
            table.clear(tempItemList)
            table.insert(tempItemList, item)
            currentLength = #item
        else
            table.insert(tempItemList, item)
            currentLength = currentLength + #item
        end
    end
    if not quizRunning then
        Chat(table.concat(tempItemList, separtor))
    end
end
--- Category OOP ---
local categoryManager = {}
local categories = {}
categoryManager.__index = categoryManager

function categoryManager.New(categoryName)
    categories[categoryName] = {}
    local newCategory = categories[categoryName]
    setmetatable(newCategory, categoryManager)
    return newCategory
end

function categoryManager:Add(quesitonText: string, options: table, value: number, correctAnswer: number)
    local newQuestion = question.New(quesitonText, options, value, correctAnswer)
    table.insert(self, newQuestion)
end

--- Points OOP ---
local pointManager = {}
local userPoints = {}
pointManager.__index = pointManager

function pointManager.NewAccount(player)
    userPoints[player.Name] = {}
    local playerPoints = userPoints[player.Name]
    playerPoints.GlobalPoints = 0
    playerPoints.CurrentQuizPoints = 0
    setmetatable(playerPoints, pointManager)
    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 type == "Global" then
        playerAccount.GlobalPoints += points
    elseif type == "CurrentQuiz" then
        playerAccount.CurrentQuizPoints += points
    end
end

function pointManager.ClearQuizPointsForPlayer(player)
    local playerAccount = userPoints[player.Name]
    if not playerAccount then
        return
    end
    playerAccount.CurrentQuizPoints = 0
end

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

function pointManager.ClearGlobalPointsForPlayer(player)
    local playerAccount = userPoints[player.Name]
    if not playerAccount then
        return
    end
    playerAccount.GlobalPoints = 0
end

function pointManager.ClearGlobalPoints()
    for _, v in pairs(userPoints) do
        v.GlobalPoints = 0
    end
end

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

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

local function requestSendMessage(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 (#whiteListedplayers > 0 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
    if #messageContent >= minLenght then
        for _, v in ipairs(currentQuestion.answers) do
            if v:upper() == messageContent then
                matchAnswer = v
                print("first function", v)
                print(v:upper(), "=", messageContent, "correct: ", currentQuestion.answers[currentQuestion.rightAnswerIndex])
                break
            elseif (string.match(v:upper(), messageContent) and #string.match(v:upper(), messageContent) >= minLenght) or string.match(messageContent, v:upper()) then
                print(string.match(v:upper(), messageContent), string.match(messageContent, v:upper()), "match funtion", v)
                print("Answer is correct: ", matchAnswer == currentQuestion.answers[currentQuestion.rightAnswerIndex])
                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")
        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")

        local magnitude = (character.HumanoidRootPart.Position - senderCharacter.HumanoidRootPart.Position).Magnitude -- make sure sender is not too far away to prevent false matches
        if magnitude < 10 then
            messageContent = string.gsub(messageContent, "[%).?]", "") -- removes ), ., and ? to recognize people saying a) or b. or c?
            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
        print("Matching letter:", matchingLetter, "==", currentQuestion.rightAnswer, "==", matchingLetter == currentQuestion.rightAnswer, "Matching answer:", matchAnswer, "==", currentQuestion.answers[currentQuestion.rightAnswerIndex], "==", matchAnswer == currentQuestion.answers[currentQuestion.rightAnswerIndex])
        if matchingLetter == currentQuestion.rightAnswer or matchAnswer == currentQuestion.answers[currentQuestion.rightAnswerIndex] then
            if mode == "quiz" then
                print("1")
                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
            if awaitingAnswer then
                requestSendMessage("❌ | "..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 not quizRunning then
            return
        end
        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
            antiFilteringDone = true
            return
        elseif math.abs(#message - #messageBeforeFilter) > 5 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
            return
        end
        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")
            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
local joinConnection
local playerChatConnections = {}
if oldChat then
    settings.repeatTagged = false -- repeating tagged messages does not work on old chat system because of problems with diffrent chat event (player.Chatted vs textChatService.MessageReceived)
    for _, player in players:GetPlayers() do
        if player ~= localPlayer then
            local connection
            connection = player.Chatted:Connect(function(message)
                startChatListening(message, player)
            end)
            table.insert(playerChatConnections, connection)
        end
    end
    joinConnection = players.PlayerAdded:Connect(function(player)
        local connection
        connection = player.Chatted:Connect(function(message)
            startChatListening(message, player)
        end)
        table.insert(playerChatConnections, connection)
    end)
else
    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)
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)
        UpdateSignText(targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex])
        SendMessageWhenReady("⏰ | Time is out! Correct answer was: "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex], true)
        timeIsOut = true
        currentQuestion = nil
        questionAnsweredBy = nil
        awaitingAnswer = false
    end
    local function SignTime()
        for timeLeft = settings.questionTimeout, 1, -1 do
            if questionAnsweredBy then
                return
            end
            if settings.romanNumbers then
                UpdateSignText(tostring(intToRoman(timeLeft))) -- convert to roman number and then convert to string
            else
                UpdateSignText(tostring(timeLeft))
            end
            task.wait(1)
        end
    end
    local timeoutCoroutine = coroutine.create(Timeout)
    local signTimeCoroutine = coroutine.create(SignTime)
    coroutine.resume(timeoutCoroutine)
    if boothGame and settings.signStatus then
        coroutine.resume(signTimeCoroutine)
    end

    if mode == "quiz" then
        while questionAnsweredBy == nil and not timeIsOut 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 chanong sign text
            UpdateSignText(targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex])
        end)
        SendMessageWhenReady("✔️ | "..questionAnsweredBy.DisplayName.." answered correctly. Answer was: "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex], true, "Answer was: "..targetQuestion.rightAnswer..")"..targetQuestion.answers[targetQuestion.rightAnswerIndex])
        questionAnsweredBy = nil
        awaitingAnswer = false
        table.clear(userCooldowns)
    else
        while not timeIsOut 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, ", "))
                        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 ---

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

local flagsEasy2 = categoryManager.New("Flags-easy2")
flagsEasy2:Add("What flag is this? 🇫🇷", {"France", "England", "Netherlands", "Russia"})
flagsEasy2:Add("What flag is this? 🇬🇷", {"Greece", "Serbia", "Argentina", "Spain"})
flagsEasy2:Add("What flag is this? 🇦🇷", {"Argentina", "Honduras", "Chile", "Brazil"})
flagsEasy2:Add("What flag is this? 🇨🇳", {"China", "Japan", "Bejing", "Vietnam"})
flagsEasy2:Add("What flag is this? 🇷🇸", {"Serbia", "Bosnia", "Croatia", "Slovakia"}, 2)

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

local flagsHard = categoryManager.New("Flags-hard")
flagsHard:Add("What flag is this? 🇩🇴", {"Dominican Republic", "Denmark", "Djibouti"})
flagsHard:Add("What flag is this? 🇪🇷", {"Eritrea", "Ecuador", "El Salvador"})
flagsHard:Add("What flag is this? 🇫🇮", {"Finland", "Sweden", "Falkland Islands"})
flagsHard:Add("What flag is this? 🇿🇲", {"Zambia", "Zimbabwe", "Zaire"}, 2)
flagsHard:Add("What flag is this? 🇸🇴", {"Somalia", "Solomon Islands", "Samoa"})

local science = categoryManager.New("Science")
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("Science2")
science2:Add("What is faster, sound or light?", {"Light", "Sound", "They travel at the same speed", "They don't move"})
science2:Add("What is the main cause of seasons on the Earth?", {"The tilt of the Earth's axis in relation to the sun", "The speed that the Earth rotates around the sun", "Changes in amount of energy coming from the sun", "The distance between the Earth and the sun"}, 2)
science2:Add("Who developed the theory of relativity?", {"Albert Einstein", "Isaac Newton", "Galileo Galilei"})
science2:Add("Which of these is a major concern about the overuse of antibiotics?", {"It can lead to antibiotic-resistant bacteria", "There will be an antibiotic shortage", "Antibiotics can cause secondary infections", "Antibiotics will get into the water system"})
science2:Add("What is the powerhouse of the cell?", {"Mitochondria", "Nucleus", "Cytoplasm", "Nucleic membrane"}, 2)

local history = categoryManager.New("History")
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", "The assassination of King Louis XVI", "The spread of the Black Death"})
history:Add("Which of these historical events happened first?", {"The American Revolution", "The French Revolution", "The Industrial Revolution", "The Russian Revolution"}, 2)
history:Add("What ancient civilization built the Machu Picchu complex?", {"Inca", "Aztec", "Maya", "Egypt"})
history:Add("In what modern-day country was Karl Marx, the communist philosopher, born?", {"Germany", "France", "Russia", "China"}, 2)

local history2 = categoryManager.New("History2")
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("What famous rifle is known in America as 'The Gun that Won the West?'", {"Winchester Model 1873", "Henry Repeating Rifle", "Colt Peacemake", "Remington Army Revolver"}, 2)
history2:Add("Were Italy and the United Kingdom allies or enemies during World War One?", {"Allies", "Enmies"})
history2:Add("How were Holy Roman Emperors chosen?", {"Elected by a small group of princes", "Chosen by the pope", "Democratic vote of the people"}, 2)
history2:Add("Where and when was Siddhārtha Gautama, AKA Buddha, born?", {"Approx. 500 BC, Nepal", "Approx. 1 AD, Palestine", "Approx. 900 AD, China"})

local foodAndDrink = categoryManager.New("Food and drink")
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 main ingredient of the Spanish dish, Paella?", {"Rice", "Bread", "Pasta", "Chicken"})
foodAndDrink:Add("What is the name of the fermented milk drink that is popular in Eastern Europe and Central Asia?", {"Kefir", "Yakult", "Lassi", "Ayran"})
foodAndDrink:Add("Which country does feta cheese come from?", {"Greece", "Switzerland", "Spain", "France"}, 2)

local trivia = categoryManager.New("Trivia")
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("Which artist painted the Mona Lisa?", {"Leonardo da Vinci", "Michelangelo", "Vincent van Gogh", "Pablo Picasso"})
trivia:Add("Which country is the only one to have a non-rectangular flag?", {"Nepal", "Switzerland", "Japan", "Qatar"})
trivia:Add("'Bokmal' and 'Nynorsk' are the two official written forms of WHICH language?", {"Norwegian", "Italian", "Danish", "Spanish"}, 2)

local trivia2 = categoryManager.New("Trivia2")
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("Which famous scientist developed the theory of relativity?", {"Albert Einstein", "Isaac Newton", "Galileo Galilei", "Charles Darwin"})
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")
guessTheLanguage:Add("Привет", {"Russian", "Norwegian", "Swedish", "Xhosa"})
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("Capitals")
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 Slovakia?", {"Bratislava", "Frankfurt", "Dublin", "Brussels"}, 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", "Düsseldorf"})
capitals:Add("What is the capital city of Canada?", {"Ottawa", "Toronto", "Vancouver", "Montreal"})

local capitalsHard = categoryManager.New("Capitals-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")
geography:Add("Which river flows through London?", {"River Thames", "River Severn", "River Trent"})
geography:Add("On which continent is the Sahara Desert located?", {"Africa", "Asia", "Europe"})
geography:Add("Which of these cities is NOT a national capital?", {"Sydney", "Oslo", "Wellington", "Bangkok"}, 2)
geography:Add("Which of these continents has the largest land area?", {"Asia", "Africa", "Europe", "South America"})
geography:Add("What is the smallest country in the world?", {"Vatican City", "Belgium", "Luxembourd"})

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")
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 virtual reality device developed by Valve?", {"Valve Index", "Oculus Rift", "Meta Quest", "Valve VR"})

local gaming2 = categoryManager.New("Gaming2")
gaming2:Add("What is the name of the fictional city where the Grand Theft Auto III and IV games are set?", {"Liberty City", "Vice City", "San Andreas", "Los Santos"})
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", "Rayman"})
gaming2:Add("How many standalone Grand Theft Auto titles have been released?", {"7", "5", "8", "10"}, 2)

local movies = categoryManager.New("Movies")
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")
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("Private servers were previously known as ...", {"VIP servers", "Personal servers", "Exclusive servers"})
roblox:Add("Which YouTuber won the RB Battles season 1 championship?", {"KreekCraft", "Tofuu", "Seedeng", "BriannaPlayz"}, 2)

local roblox2 = categoryManager.New("Roblox2")
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 the virtual reality headset that Roblox supports?", {"Oculus Rift", "Oculus Quest", "PlayStation VR", "Samsung Gear VR"})
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")
english:Add("I'm very happy _____ in India. I really miss being there.", {"to have lived", "to live", "to be living", "to be lived"})
english:Add("They didn't reach an agreement ______ their differences.", {"on account of", "with", "because", "owing"})
english:Add("I wish I _____ those words. But now it's too late.", {"had never said", "never said", "have never said", "not having said"}, 2)
english:Add("She was working on her computer with her baby next to _____.", {"her", "herself", "her own", "hers"})
english:Add("_____ in trying to solve this problem. It's clearly unsolvable.", {"There's no point", "It's no point", "There isn't point", "It's no need"})

local animals = categoryManager.New("Animals")
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")
sports:Add("What sport is played on a field with 15 players on each team?", {"Rugby", "Soccer", "Cricket", "Lacrosse"})
sports:Add("What is the name of the trophy awarded to the winner of the NBA Finals?", {"Larry O'Brien Trophy", "NBA Champion Trophy", "Stanley Cup", "World Series Trophy"}, 2)
sports:Add("What sport uses a shuttlecock?", {"Badminton", "Tennis", "Squash", "Ping pong"})
sports:Add("What sport involves sliding stones on a sheet of ice towards a target area?", {"Curling", "Bobsleigh", "Luge", "Ice hockey"}, 2)
sports:Add("What sport is also known as table tennis?", {"Ping pong", "Badminton", "Squash", "Tennis"})

local minecraft = categoryManager.New("Minecraft")
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 item do you need to tame a wolf?", {"Bone", "Apple", "Fish"})
minecraft:Add("What block can you use to make a portal to the Nether?", {"Obsidian", "Netherrack", "Cobblestone", "Bedrock"})

local chess = categoryManager.New("Chess")
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")
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")
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 chemical weapons", "Germans sinking British civilian ships"})
WWI:Add("What was the name of the alliance between Germany, Austria-Hungary and Italy?", {"The Central Powers", "The Axis Powers", "The Triple Entente", "The League of Nations"}, 2)

local luau = categoryManager.New("Luau")
luau:Add("What is the keyword for defining a function in Luau?", {"function", "def", "func", "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")
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")
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("What is the name of the meme that features a stock photo of a man looking at another woman while his girlfriend looks at him angrily?", {"Distracted Boyfriend", "Cheating Husband", "Jealous Girlfriend", "Flirting Couple"})
memes:Add("What is the name of the meme that features an elderly man with a forced smile?", {"Hide the Pain Harold", "Bad Luck Brian", "Grumpy Cat", "Success Kid"})

local anarchy = categoryManager.New("Anarchy")
anarchy:Add("What does the word 'anarchy' mean?", {"Absence of government and absolute freedom of the individual", "A state of disorder due to absence or nonrecognition of authority", "A political ideology that advocates self-governance and voluntary associations", "A system of social organization based on mutual aid and cooperation"})
anarchy:Add("Which of these symbols is commonly associated with anarchy?", {"A circled A", "A hammer and sickle", "A peace sign", "A red star"})
anarchy:Add("Which anarchist principle asserts that individuals should be free to pursue their interests and preferences, without being constrained by any fixed or imposed roles, norms, or identities?", {"Individualism", "Egoism", "Existentialism", "Nihilism"})
anarchy:Add("Which of these contemporary movements is inspired by anarchist principles?", {"Occupy Wall Street", "Black Lives Matter", "Extinction Rebellion", "All of the above"}, 2)
anarchy:Add("Which of these genres of music is often linked to anarchy?", {"Punk rock", "Classical music", "Country music", "Blues"})

local anime = categoryManager.New("Anime")
anime:Add("What is the name of the main character in Naruto?", {"Naruto Uzumaki", "Sasuke Uchiha", "Kakashi Hatake", "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("What is the main character's power in 'My Hero Academia'?", {"One For All", "All For One", "Half-Cold Half-Hot", "Explosion"}, 2)
anime:Add("What is the name of the forest spirit that Satsuki and Mei befriend in My Neighbor Totoro?", {"Totoro", "Catbus", "Kodama", "Makkuro Kurosuke"})

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("What is the term for the amount of substance in a system that contains as many elementary entities as there are atoms in 12 grams of carbon-12?", {"Mole", "Gram", "Molecule", "Atom"})
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")
mathCategory:Add("What is the value of PI (rounded to two decimal places)?", {"3.14", "3.15", "3.16", "3.17"})
mathCategory:Add("What is the name of the property that states a + b = b + a?", {"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", "Golden ratio", " number", "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")
coldWar:Add("In 1946 Winston Churchill popularized what term used to describe Soviet relations with Western powers?", {"Iron curtain", "Mutually assured destruction", "Quagmire", "Special relationship"})
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")
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")
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 term for a group of cells that perform a specific function?", {"Tissue", "Organ", "System", "Organism"})
biology:Add("What are the four types of macromolecules found in living things?", {"Carbohydrates, proteins, lipids, and nucleic acids", "Glucose, amino acids, fatty acids, and nucleotides", "Starch, enzymes, fats, and DNA", "Sugars, peptides, oils, and RNA"}, 2)
biology:Add("What is the name of the molecule that carries genetic information in most living organisms?", {"DNA", "RNA", "ATP", "ADP"})

local RobloxKnowlage = categoryManager.New("RobloxKnowlage")
RobloxKnowlage:Add("What language of scripting does roblox use?,", {"LuaU", "HTML", "JavaScript", "Lua"})
RobloxKnowlage:Add("What was the oldest verison of roblox?,", {"1988", "2006", "1976", "2002"})
RobloxKnowlage:Add("Which game of these has the most visits?,", {"BloxFruits", "JailBreak", "BloxPiece", "MM2"})
RobloxKnowlage:Add("What error code appears when you have a bad connection?,", {"Error code 277", "Error code 211", "Error code 432", "Error code 263"})
RobloxKnowlage:Add("Who made roblox?,", {"David Baszucki", "Eternal?", "David bazooka?", "Builderman"})

local RobloxKnowlage = categoryManager.New("RobloxKnowlage2")
RobloxKnowlage:Add("What is the message of a HW ban?,", {"You have been banned.", "You have been hardware banned.", "You have been IP banned.", "You have been terminated."})
RobloxKnowlage:Add("What was the most popular exploit?,", {"Synapse", "KRNL", "Codex", "Wave"})
RobloxKnowlage:Add("Who was the most dangrous h4cker?,", {"Elernate", "C0Ol Kid", "BunBun", "Jenna"})
RobloxKnowlage:Add("Who made the game doors? (CAN BE A GROUP TOO),", {"LSplash", "Nikilis", "Big games", "ROLVe"})
RobloxKnowlage:Add("Who made roblox?,", {"David Baszucki", "Eternal?", "David bazooka?", "Builderman"})

local RobloxKnowlage = categoryManager.New("RobloxKnowlage2")
RobloxKnowlage:Add("Which of these cars is the fastest?,", {"911?", "bugatti", "supra", "You have been terminated."})
RobloxKnowlage:Add("What was the most popular exploit?,", {"Synapse", "KRNL", "Codex", "Wave"})
RobloxKnowlage:Add("Who was the most dangrous h4cker?,", {"Elernate", "C0Ol Kid", "BunBun", "Jenna"})
RobloxKnowlage:Add("Who made the game doors? (CAN BE A GROUP TOO),", {"LSplash", "Nikilis", "Big games", "ROLVe"})
RobloxKnowlage:Add("Who made roblox?,", {"David Baszucki", "Eternal?", "David bazooka?", "Builderman"})


local categoryTable = {}
for k, v in pairs(categories) do
    table.insert(categoryTable, k)
end
table.sort(categoryTable)

local function sendCategories()
    if not quizRunning then
        Chat("❓ | Quiz topics:")
        task.wait(3)
        SplitIntoMessages(categoryTable, ", ", 5)
    end
end

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

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

local function sendLeaderboard(type, message)
    local array
    if not message then
        message = ""
    end
    if type == "Current quiz" then
        array = sortUserPoints("CurrentQuizPoints")
    else
        array = sortUserPoints("GlobalPoints")
    end
    task.wait(1.5)
    if array[1] and array[1][2] > 0 then
        Chat(message..type.." leaderboard:")
        local username = array[1][1]
        local displayName = getDisplayNameByUsername(username)
        local points = tostring(roundNumber(array[1][2], 1))
        task.wait(2.5)
        Chat("🥇 "..displayName.." (@"..username..") - "..points.." points")
        UpdateSignText("🥇 "..displayName)
        if array[2] and array[2][2] > 0 then
            username = array[2][1]
            displayName = getDisplayNameByUsername(username)
            points = tostring(roundNumber(array[2][2], 1))
            task.wait(2.5)
            Chat("🥈 "..displayName.." (@"..username..") - "..points.." points")
            UpdateSignText("🥈 "..displayName)
            if array[3] and array[3][2] > 0 then
                task.wait(2.5)
                username = array[3][1]
                displayName = getDisplayNameByUsername(username)
                points = tostring(roundNumber(array[3][2], 1))
                Chat("🥉 "..displayName.." (@"..username..") - "..points.." points")
                UpdateSignText("🥉 "..displayName)
                task.wait(2.5)
            end
        end
    end
end

local autoplayChosenCategories = {} -- categories previously chosen by autoplay
local function choseAutoplayCategory()
    local chosenCategory = categoryTable[math.random(#categoryTable)]
    if table.find(autoplayChosenCategories, chosenCategory) then -- if category has been previously chosen, chose another category
        return choseAutoplayCategory()
    else
        return chosenCategory
    end
end

local function startQuiz(category)
    if quizRunning or quizCooldown then
        return
    end
    quizRunning = true
    pointManager.ClearQuizPoints()
    Chat('🚀 | Initiating "'..category..'" quiz...')
    UpdateSignText(category)
    task.wait(3)
    local loopIterations = 0
    for _, v in pairs(categories[category]) do
        if not quizRunning then
            return
        end
        v:Ask()
        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(3)
    if loopIterations ~= 0 and settings.automaticLeaderboards and settings.automaticCurrentQuizLeaderboard then
        sendLeaderboard("Current quiz", "📜 | ")
    end
    UpdateSignText(endMessage)
    task.delay(15, function()
       UpdateSignText("")
    end)
    if settings.automaticLeaderboards and settings.automaticServerQuizLeaderboard then
        sendLeaderboard("Server", "🏆 | Quiz ended. ")
        task.wait(2)
    else
        SendMessageWhenReady("🏁 | Quiz ended")
        task.wait(3)
    end
    UpdateSignText(endMessage)
    quizRunning = false
    if settings.autoplay then
        table.insert(autoplayChosenCategories, category)
        Chat("🎲 | Picking next category...")
        local chosenCategory = choseAutoplayCategory()
        if #autoplayChosenCategories == #categoryTable then -- if every category has been chosen, clear the chosencategories table
            table.clear(autoplayChosenCategories)
        end
        task.wait(5)
        startQuiz(chosenCategory)
    end
end

local quizModeRules = {"Each question has one right answer and one to three wrong answers.", "If you answer correctly, you will earn one point (or two points if the question is a double point question).", "If you answer incorrectly, you will have to wait "..tostring(settings.userCooldown).." seconds before you can submit another answer."}
local kahootModeRules = {"Each question has one right answer and one to three wrong answers.", "You can only submit ONE answer per round.", "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 mode == "quiz" then
        Chat("📜 | Quiz mode rules:")
        task.wait(2)
        SplitIntoMessages(quizModeRules, " ")
    elseif mode == "kahoot" then
        Chat("📜 | Kahoot mode rules:")
        task.wait(2)
        SplitIntoMessages(kahootModeRules, " ")
    end
end

game:GetService("Players").PlayerRemoving:Connect(function(player) -- remove player's userpoint account on leave
    pointManager.RemoveAccount(player)
end)

local function getPlayerByPlayerName(name)
    if name then
        name = name:lower()
        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
    if name == " " or name == "" then
        -- if target player isn't specified, use the localplayer
        target = localPlayer
        return target
    end
    local matchingPlayer = getPlayerByPlayerName(name)
    if name:lower() == "me" then
        target = localPlayer
        return target
    elseif name:lower() == "random" then
        local playerTable = players:GetPlayers()
        target = playerTable[math.random(#playerTable)]
        return target
    elseif matchingPlayer then
        target = matchingPlayer
        return target
    end
    target = nil
    return target
end

local function getCategoryName(name) -- detects category from begging of string, for example: "gene" will return "general" category
    name = name:lower()
    for _, category in ipairs(categoryTable) do
        if string.lower(string.sub(category, 1, #name)) == name then
            return category
        end
    end
end
---------- UI ----------
local library = loadstring(game:HttpGet('https://raw.githubusercontent.com/bloodball/-back-ups-for-libs/main/wall%20v3'))()

local w = library:CreateWindow("Quiz script 📑")
local b = w:CreateFolder("Main controls⚡")

b:Label("MADE BY: @Vxploits",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

local selectedCategory

b:Box("Category", "string", function(value)
    selectedCategory = getCategoryName(value)
end)

b:Dropdown("Category", categoryTable, true, function(mob)
    selectedCategory = mob
end)

b:Button("Start quiz", function()
    if categories[selectedCategory] then
        startQuiz(selectedCategory)
    end
end)

b:Button("Stop quiz", function()
    quizCooldown = true
    quizRunning = false
    currentQuestion = nil
    questionAnsweredBy = nil
    awaitingAnswer = false
    task.delay(5, function()
        quizCooldown = false
    end)
end)

b:Button("Send categories", function()
    sendCategories()
end)

b:Button("Send rules", function()
    sendRules()
end)

b:Button("Send current LB", function()
    sendLeaderboard("Current quiz", "📜 | ")
end)

b:Button("Send server LB", function()
    sendLeaderboard("Server", "🏆 | ")
end)

b:Button("Reset all points", function()
    pointManager.ResetAllPoints()
end)

local c = w:CreateFolder("Player controls 🦎")
local targetPlayer

c:Box("Target", "string", function(value)
    targetPlayer = getTargetPlayer(value)
end)

local pointsToAdd
c:Box("Amount of points", "number", function(value)
    if value and tonumber(value) then
        pointsToAdd = value
    end
end)

c:Button("Apply global points", function()
    if pointsToAdd then
        pointManager.AddPoints(targetPlayer, pointsToAdd, "Global")
    end
end)

c:Button("Apply quiz points", function()
    if pointsToAdd then
        pointManager.AddPoints(targetPlayer, pointsToAdd, "CurrentQuiz")
    end
end)

c:Button("Rest quiz points", function()
    pointManager.ClearQuizPointsForPlayer(targetPlayer)
end)

c:Button("Rest global points", function()
    pointManager.ClearGlobalPointsForPlayer(targetPlayer)
end)

c:Button("Reset all points", function()
    pointManager.RemoveAccount(targetPlayer)
end)

c:Button("Block", function()
    table.insert(blockedPlayers, targetPlayer.Name)
end)

c:Button("Unblock", function()
    table.remove(blockedPlayers, table.find(blockedPlayers, targetPlayer.Name))
end)

c:Button("Unblock all", function()
    table.clear(blockedPlayers)
end)

c:Button("Whitelist", function()
    table.insert(whiteListedplayers, targetPlayer.Name)
end)

c:Button("Unwhitelist", function()
    table.remove(whiteListedplayers, table.find(whiteListedplayers, targetPlayer.Name))
end)

c:Button("Disable whitelist", function()
    table.clear(whiteListedplayers)
end)

local d = w:CreateFolder("Settings 🍀")

d:Dropdown("Mode", {"Quiz", "Kahoot"}, true, function(mob)
    mode = mob:lower()
    if mob == "Quiz" then
        Chat("❓ | Quiz mode enabled")
    elseif mob == "Kahoot" then
        Chat("✉️ | Kahoot mode enabled")
    end
end)

d:Toggle("Autoplay quizzes automatically", function(value)
    settings.autoplay = value
end)

d:Box("Question timeout", "number", function(value)
    if value then
        settings.questionTimeout = value
    end
end)

d:Box("User cooldown on wrong answer", "number", function(value)
    if value then
        settings.userCooldown = value
    end
end)

d:Box("Automatically send leaderboard after questions", "number", function(value)
    if value then
        settings.sendLeaderBoardAfterQuestions = value
    end
end)

d:Toggle("Disable automatic leaderboards", function(value)
    settings.automaticLeaderboards = not value
end)

d:Toggle("Disable automatic sending of current quiz LB", function(value)
    settings.automaticCurrentQuizLeaderboard = not value
end)

d:Toggle("Disable automatic sending of server LB at the end of quiz", function(value)
    settings.automaticServerQuizLeaderboard = not value
end)

d:Toggle("Do not repeat tagged messages", function(value)
    if not oldChat then
        settings.repeatTagged = not value
    end
end)

if boothGame then
    d:Toggle("Disable sign status (booth game only)", function(value)
        settings.signStatus = not value
    end)
    d:Toggle("Don't use roman numbers for sign timer (may get tagged)", function(value)
        settings.romanNumbers = not value
    end)
end

local f = library:CreateWindow("Quizzes to put in Catergory! 🐢")
local f = f:CreateFolder("if not work use capital letter")

f:Label("flags if not work then Flags",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("RobloxKnowlage, RobloxKnowlage2",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("Flags-Medium",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("Flags-Easy2",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("Flags-Hard",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("science",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("science2",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("history AND history2",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("foodAndDrink",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("Trivia AND Trivia2",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("guessTheLanguage",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("capitals AND capitalsHard",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("geography AND geographyMedium AND geographyHard",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("gaming AND gaming2",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("movies [From now on i add more in one lable :C ]",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("roblox, roblox2, english, animals, sports, minecraft",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("chess, WWII, WWI, Luau, astronomy",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

f:Label("memes, anarchy, anime, mathHard, coldWar, Biology",{
    TextSize = 15,
    TextColor = Color3.fromRGB(255,255,255),
    BgColor = Color3.fromRGB(69,69,69)
})

local e = w:CreateFolder("Destroy GUI ❌")

e:Button("Disable connections", function()
    if oldChat then
        for _, connection in playerChatConnections do
            joinConnection:Disconnect()
            connection:Disconnect()
        end
    else
        chatConnection:Disconnect()
    end
end)
e:DestroyGui()