Approved Tutorials: RGB for broadcast chat

Print Page | Close Window

RGB for broadcast chat

Printed From: Mirage Source
Category: Tutorials
Forum Name: Approved Tutorials
Forum Discription: All tutorials shown to actually work with MSE are moved here.
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=24
Printed Date: 20 December 2006 at 6:00pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com

Topic: RGB for broadcast chat

Posted By: Sync
Subject: RGB for broadcast chat
Date Posted: 07 February 2006 at 5:06pm

Originally posted by PresiseFA

!!Client Side Only!!

Find

:: Social Packets ::

Replace the whole thing with:


    ' ::::::::::::::::::::
    ' :: 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

Then find

Sub AddText

Below that, add this:

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 set, is for the color orange, just change it to w/e color you want it.

This could also be used for other things, since qbcolor is limited.

Replies:

Posted By: Sync
Date Posted: 07 February 2006 at 5:06pm

Approved