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.
Login
Register
FAQ
Search
Members
