[UPDATED] Specty-Chat Box

 HttpService = :()
 Players = :()
 TextService = :()
 UserInputService = :()
 VoiceChatService = :()

 player = Players.LocalPlayer
.__FAKE_CHAT_BUS = .__FAKE_CHAT_BUS  { Messages = {}, Event = .() }
 ChatBus = .__FAKE_CHAT_BUS

 gui = .()
gui.Name = 
gui.ResetOnSpawn = 
gui.Parent = .CoreGui

 topButton = .()
topButton.Size = .(,,,)
topButton.BackgroundColor3 = .(,,)
topButton.BorderSizePixel = 
topButton.Image = 
topButton.Parent = gui
.(, topButton).CornerRadius = .(,)

  ()
     hasVoice = 
    (()
        hasVoice = VoiceChatService:(player.UserId)
    )
     hasVoice 
        topButton.AnchorPoint = .(,)
        topButton.Position = .(,,,)
    
        topButton.AnchorPoint = .(,)
        topButton.Position = .(,,,)
    


.(()
      
        ()
        .()
    
)

 chatFrame = .()
chatFrame.Size = .(, .(, .CurrentCamera.ViewportSize.X * ), , .(, .CurrentCamera.ViewportSize.Y * ))
chatFrame.Position = .(,,,)
chatFrame.BackgroundColor3 = .(,,)
chatFrame.BackgroundTransparency = 
chatFrame.Visible = 
chatFrame.Parent = gui
.(, chatFrame).CornerRadius = .(,)

 title = .()
title.Text = 
title.Size = .(,-,,)
title.Position = .(,,,)
title.BackgroundTransparency = 
title.TextColor3 = .(,,)
title.Font = .Font.Arial
title.TextSize = 
title.TextXAlignment = .TextXAlignment.Left
title.Parent = chatFrame

 infoButton = .()
infoButton.Size = .(,,,)
infoButton.Position = .(,-,,)
infoButton.BackgroundColor3 = .(,,)
infoButton.BorderSizePixel = 
infoButton.Image = 
infoButton.Parent = chatFrame
.(, infoButton).CornerRadius = .(,)

 scroll = .()
scroll.Position = .(,,,)
scroll.Size = .(,-,,-)
scroll.CanvasSize = .(,,,)
scroll.BackgroundTransparency = 
scroll.BorderSizePixel = 
scroll.ScrollBarImageTransparency = 
scroll.Parent = chatFrame

 layout = .()
layout.Padding = .(,)
layout.SortOrder = .SortOrder.LayoutOrder
layout.Parent = scroll

 infoFrame = .()
infoFrame.Size = scroll.Size
infoFrame.Position = scroll.Position
infoFrame.BackgroundTransparency = 
infoFrame.Visible = 
infoFrame.Parent = chatFrame

 infoScroll = .()
infoScroll.Size = .(,,,)
infoScroll.CanvasSize = .(,,,)
infoScroll.ScrollBarImageTransparency = 
infoScroll.BackgroundTransparency = 
infoScroll.BorderSizePixel = 
infoScroll.Parent = infoFrame

 infoLayout = .()
infoLayout.Padding = .(,)
infoLayout.Parent = infoScroll

  (text)
     lbl = .()
    lbl.Size = .(,-,,)
    lbl.BackgroundTransparency = 
    lbl.TextWrapped = 
    lbl.TextXAlignment = .TextXAlignment.Left
    lbl.TextYAlignment = .TextYAlignment.Top
    lbl.Font = .Font.Arial
    lbl.TextSize = 
    lbl.TextColor3 = .(,,)
    lbl.Text = text
    lbl.Parent = infoScroll
     width = infoScroll.AbsoluteSize.X
     width ==   width =  
    lbl.Size = .(,-,,TextService:(text,,lbl.Font,.(width,)).Y+)
    infoScroll.CanvasSize = .(,,,infoLayout.AbsoluteContentSize.Y+)


()
()
()

 box = .()
box.Size = .(,-,,)
box.Position = .(,,,-)
box.BackgroundColor3 = .(,,)
box.TextColor3 = .(,,)
box.PlaceholderText = 
box.ClearTextOnFocus = 
box.Font = .Font.Arial
box.TextSize = 
box.Parent = chatFrame
.(, box).CornerRadius = .(,)

 send = .()
send.Size = .(,,,)
send.Position = .(,-,,-)
send.Text = 
send.Font = .Font.Arial
send.TextSize = 
send.TextColor3 = .(,,)
send.BackgroundColor3 = .(,,)
send.Parent = chatFrame
.(, send).CornerRadius = .(,)

 typingLabel = .()
typingLabel.Size = .(,-,,)
typingLabel.Position = .(,,,-)
typingLabel.BackgroundTransparency = 
typingLabel.TextColor3 = .(,,)
typingLabel.Font = .Font.Arial
typingLabel.TextSize = 
typingLabel.TextXAlignment = .TextXAlignment.Left
typingLabel.Text = 
typingLabel.Parent = chatFrame

topButton.MouseButton1Click:(()
    chatFrame.Visible =  chatFrame.Visible
)


 botNamesUrl = 
 botPhrasesUrl = 

 botNames, botPhrases = {}, {}
(()
    botNames = .(HttpService:(botNamesUrl), )
    botPhrases = .(HttpService:(botPhrasesUrl), )
)

 #botNames ==   
    botNames = {, , , , , , } 


 #botPhrases ==   
    botPhrases = {
        , , , , 
        , , , 
        , , 
        , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        , , , 
        
    } 



 friends = {}
(()
     _,f  (player:():()) 
        friends[f.Username] = 
        friends[f.DisplayName] = 
    
)


  (name,text)
     isRed = friends[name] == 
     lbl = .()
    lbl.BackgroundTransparency = 
    lbl.TextWrapped = 
    lbl.TextXAlignment = .TextXAlignment.Left
    lbl.TextYAlignment = .TextYAlignment.Top
    lbl.Font = .Font.Arial
    lbl.TextSize = 
    lbl.RichText = 
     width = scroll.AbsoluteSize.X
     width ==   width =  
     isRed 
        lbl.Text = .(,name,text)
    
        lbl.Text = .(,name,text)
    
    lbl.Size = .(,-,,TextService:(text,,lbl.Font,.(width,)).Y+)
    lbl.Parent = scroll
    scroll.CanvasSize = .(,,,layout.AbsoluteContentSize.Y+)
    scroll.CanvasPosition = .(,.(,scroll.CanvasSize.Y.Offset-scroll.AbsoluteWindowSize.Y))



send.MouseButton1Click:(()
     box.Text ~=  
         msg = {name=player.DisplayName,text=box.Text}
        .(ChatBus.Messages,msg)
        ChatBus.Event:(msg)
        box.Text = 
    
)


ChatBus.Event.Event:((msg)
    (msg.name,msg.text)
)


 _,msg  (ChatBus.Messages) 
    (msg.name,msg.text)



.(()
      
         name = botNames[.(#botNames)]
         text = botPhrases[.(#botPhrases)]
         msg = {name=name,text=text}
        .(ChatBus.Messages,msg)
        ChatBus.Event:(msg)
        .(.(,))
    
)


.(()
      
         typingUsers = {}
         numTyping = .(,)
         i=,numTyping 
            .(typingUsers, botNames[.(#botNames)])
        
         #typingUsers ==  
            typingLabel.Text = 
         #typingUsers ==  
            typingLabel.Text = typingUsers[]..
         #typingUsers >  
            typingLabel.Text = 
        
             text = .(typingUsers,)
            text = text:(,)
            typingLabel.Text = text..
        
        .(.(,))
        typingLabel.Text = 
        .(.(,))
    
)


 showingInfo = 
infoButton.MouseButton1Click:(()
    showingInfo =  showingInfo
     showingInfo 
        title.Text = 
        scroll.Visible = 
        infoFrame.Visible = 
    
        title.Text = 
        scroll.Visible = 
        infoFrame.Visible = 
    
)


UserInputService.InputBegan:((input,gp)
     gp   
     input.UserInputType == .UserInputType.Keyboard  input.KeyCode == .KeyCode.Slash 
          chatFrame.Visible  chatFrame.Visible =  
        box:()
    
)