RGB For Broadcast

[Tutorial Bot]

Author: PresiseFA
Difficulty: 1/5

:: CLIENT SIDE ::
Find:

Code:

:: Social Packets ::

Replace the whole thing with:

Code:

' ::::::::::::::::::::
    ' :: Social packets ::
    ' ::::::::::::::::::::
    If (LCase(Parse(0)) = "saymsg") Or (LCase(Parse(0)) = "broadcastmsg") Or (LCase(Parse(0)) = "playermsg") Or (LCase(Parse(0)) = "mapmsg") Or (LCase(Parse(0)) = "adminmsg") Then
        Call AddText(Parse(1), Val(Parse(2)))
        Exit Sub
    End If
    
    If (LCase(Parse(0)) = "globalmsg") Then
        Call AddText2(Parse(1), Val(Parse(2)))
    End If

Find:

Code:

Sub AddText

Below that, add:

Code:

Public Sub AddText2(ByVal Msg As String, ByVal Color As Integer)
Dim s As String
  
    s = vbNewLine & Msg
    frmMirage.txtChat.SelStart = Len(frmMirage.txtChat.Text)
    frmMirage.txtChat.SelColor = RGB(255, 123, 60)
    frmMirage.txtChat.SelText = s
    frmMirage.txtChat.SelStart = Len(frmMirage.txtChat.Text) - 1
End Sub

The RGB is set for the color orange. Just change it to whatever color you want it. This could also be used for other things, since QBColor is limited.