Hablar por consola distinto para dios / semi

Función:Cuando un Administrador o game master DIOS hable por consola mediante /RMSGsale así:
Nick> Buenas tardes!
Cuando un SemiDios hable por consola tendrá su propio comando, este va a ser /SEMIsale así:
Nick> Buenas tardes!


Servidor

Buscar:

Código:

If UCase$(Left$(rdata, 6)) = "/RMSG " Then
rdata = Right$(rdata, Len(rdata) - 6)
    Call LogGM(UserList(UserIndex).Name, "Mensaje Broadcast:" & rdata, False)
    If Len(rdata) > 0 Then
        Call SendData(ToAll, 0, 0, "||" & rdata & FONTTYPE_TALK & ENDC)
    End If
    Exit Sub
End If

Reemplazar eso por:

Código:

If UCase$(Left$(rdata, 6)) = "/RMSG " Then
rdata = Right$(rdata, Len(rdata) - 6)
If UserList(UserIndex).flags.Privilegios < 3 Then Exit Sub
Call LogGM(UserList(UserIndex).Name, "Mensaje Broadcast:" & rdata, False)
If rdata <> "" Then
Call SendData(ToAll, 0, 0, "|$" & UserList(UserIndex).Name & "> " & rdata)
End If
Exit Sub
End If
 
If UCase$(Left$(rdata, 6)) = "/SEMI " Then
rdata = Right$(rdata, Len(rdata) - 6)
If UserList(UserIndex).flags.Privilegios <> 2 Then Exit Sub
Call LogGM(UserList(UserIndex).Name, "Mensaje Broadcast:" & rdata, False)
If rdata <> "" Then
Call SendData(ToAll, 0, 0, "|C" & UserList(UserIndex).Name & "> " & rdata)
End If
Exit Sub
End If

Cliente

Buscar:

Código:

Case "||"

Y Arriva agregamos:

Código:

Case "|$"
Rdata = Right$(Rdata, Len(Rdata) - 2)
tempint = InStr(1, Rdata, ">")
tempstr = Mid(Rdata, 1, tempint)
Call AddtoRichTextBox(frmMain.rectxt, tempstr, 150, 34, 35, 0, 0, True)
tempstr = Right$(Rdata, Len(Rdata) - tempint)
Call AddtoRichTextBox(frmMain.rectxt, tempstr, 240, 238, 207, 0, 0)
Exit Sub
                 
Case "|C"
Rdata = Right$(Rdata, Len(Rdata) - 2)
tempint = InStr(1, Rdata, ">")
tempstr = Mid(Rdata, 1, tempint)
Call AddtoRichTextBox(frmMain.rectxt, tempstr, 0, 100, 0, 1, 0, True)
tempstr = Right$(Rdata, Len(Rdata) - tempint)
Call AddtoRichTextBox(frmMain.rectxt, tempstr, 240, 238, 207, 0, 0)
Exit Sub

Saludos!