RGB For Broadcast - Printable Version

RGB For Broadcast - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: RGB For Broadcast (/showthread.php?tid=63)

RGB For Broadcast - Tutorial Bot - 01-06-2006

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.