| Mirage Source http://miragesource.net/forums/ |
|
| RGB For Broadcast http://miragesource.net/forums/viewtopic.php?f=210&t=74 |
Page 1 of 1 |
| Author: | Tutorial Bot [ Thu Jun 01, 2006 10:04 pm ] |
| Post subject: | RGB For Broadcast |
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) 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.
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 |
|
| Page 1 of 1 | All times are UTC |
| Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |
|