[Aportes indexados] Codigo: Hablar de Color (GMs y otros)

Estado
Cerrado para nuevas respuestas.

BlasTeR

Aprendiz Lvl 5
Khalem: Lo corregimos -.-

Gm`s Hablan En Verde:
(viene con filtro de boludeces y todo)

Buscan
Código:
Case ";" ' Hablar
Y Reemplazan Toda El Case Con El Siguiente Codigo:

Código:
        Case ";" 'Hablar
            rdata = Right$(rdata, Len(rdata) - 1)
            If InStr(rdata, "°") Then
                Exit Sub
            End If
        
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = 1 Then
                Call LogGM(UserList(UserIndex).Name, "Dijo: " & rdata, True)
            End If
            
            ind = UserList(UserIndex).Char.charindex
            '[CDT 17-02-2004] Filtro de palabras
            rdata = " " & rdata & " "
            rdata = Replace(rdata, " pt", " capo")
            rdata = Replace(rdata, " nw", " pro")
            rdata = Replace(rdata, " PT", " CAPO")
            rdata = Replace(rdata, " NW", " PRO")
            rdata = Replace(rdata, " Pt", " Capo")
            rdata = Replace(rdata, " Nw", " Pro")
            rdata = Replace(rdata, " pT", " CaPo")
            rdata = Replace(rdata, " nW", " PrO")
            rdata = Mid(rdata, 2, Len(rdata) - 2)
            '[/CDT] Filtro de palabras
            
If UserList(UserIndex).flags.Privilegios > 0 Then
            Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbGreen & "°" & rdata & "°" & str(ind))
            
            
            ElseIf UserList(UserIndex).flags.Muerto = 1 Then
            Call SendData(ToDeadArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbCyan & "°" & rdata & "°" & str(ind))
            Else
            Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbWhite & "°" & rdata & "°" & str(ind))
            End If

pd.:el codigo no es mio...pero es lindo

creo q los colores son:
vbwhite
vbcyan
vbgreen
vbblack
vbred
 

BlasTeR

Aprendiz Lvl 5
la parte donde expecifica el color del gm:

Código:
If UserList(UserIndex).flags.Privilegios > 0 Then 
            Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbGreen & "°" & rdata & "°" & str(ind))
 
Estado
Cerrado para nuevas respuestas.
Arriba