Quiz by AGBest

 textchat = :()
 channels = textchat:()
 general = channels.RBXGeneral

 done = {}
 guessed = {}
 points = {}
 connection
 QUIZSTOP = 
 debug = 

 DTB = {
    [] = {
        A = ,
        B = ,
        C = ,
        D = ,
        correct = 
    },
    [] = {
        A = ,
        B = ,
        C = ,
        D = ,
        correct = 
    },
    [] = {
        A = ,
        B = ,
        C = ,
        D = ,
        correct = 
    },
    [] = {
        A = ,
        B = ,
        C = ,
        D = ,
        correct = 
    },
    [] = {
        A = ,
        B = ,
        C = ,
        D = ,
        correct = 
    }
}

  (Table)
     AllValues = {}

     Index, Value  (Table) 
        .(AllValues, {
            Index = Index,
            Value = Value
        })
    

     AllValues[Random.():(, #AllValues)]


  (msg)
     debug 
        general:(..msg)
    
        general:( .. msg)
    


()
.()
()
.()
()
.()
()
.()
()
.()
()
.()
()
.()
 i = ,  
     QUIZSTOP 
        
    
     question = (DTB)
    ( .. i ..  .. question.Index)
    .()
    ( .. question.Value.A ..  .. question.Value.B ..  .. question.Value.C ..  .. question.Value.D)
    .()
    ()
    done[i] = 
    guessed[i] = 
    .(()
        textchat.MessageReceived:((msg)
              done[i] 
                 message = msg.Text:()
                 .({,,,}, message) 
                     message == question.Value.correct 
                        guessed[i] = 
                        done[i] = 
                         points[msg.TextSource.Name] 
                            points[msg.TextSource.Name] = points[msg.TextSource.Name] + 
                        
                            points[msg.TextSource.Name] = 
                        
                        .()
                        ( .. msg.TextSource.Name .. )
                    
                        .()
                        ( .. msg.TextSource.Name .. )
                    
                
                 msg.TextSource.UserId == :().LocalPlayer.UserId 
                     message ==  
                        .()
                        
                        :()
                        QUIZSTOP = 
                        done[i] = 
                        guessed[i] = 
                    
                
            
        )
        .()
        done[i] = 
    )
    
        .()
     done[i]
    .()
      guessed[i] 
        ( .. question.Value.correct .. )
    
    DTB[question.Index] = 
    .()


.()
()
.()
 k, v  (points) 
    (k ..  .. v)
    .()