[Aportes indexados] Cambiar Color Del Texto Del /RMSG

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
Gustavo dijo:
Hola shura te queria preguntar algo, como hago que para cuando el GM hable por /rmsg a todos los usuarios se vea amarillo?

Busca En Declares.bas:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'Texto</span></li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> FONTTYPE_TALK <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #ffffff;">"~255~255~255~0~0"</span></li></ol></div>[/vb]
Debajo Agrega:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> FONTTYPE_SHURA <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #ffffff;">"~255~255~0~0~0"</span></li></ol></div>[/vb]
Ejemplo De Colores:
"~255~0~0~0~0" [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rData, <span style="color: #cc66cc;">6</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/RMSG "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    rData = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rData, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rData<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">6</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> LogGM<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">name</span>, <span style="color: #ffffff;">"Mensaje Broadcast:"</span> & rData, <span style="color: #b1b100;">False</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> rData <> <span style="color: #ffffff;">""</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & rData & FONTTYPE_TALK & ENDC<span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">    <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]
Y Reemplazalo Por:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rData, <span style="color: #cc66cc;">6</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/RMSG "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    rData = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rData, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rData<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">6</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> LogGM<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">name</span>, <span style="color: #ffffff;">"Mensaje Broadcast:"</span> & rData, <span style="color: #b1b100;">False</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> rData <> <span style="color: #ffffff;">""</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & rData & FONTTYPE_SHURA & ENDC<span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">    <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]

Esto Mismo Se Puede Aplicar A Cualquier Comando.
 

DarkThom

Oráculo Lvl 3
Y Sabes HAcer que segun su jerarquia salga de tal color ??

por ejemplo

Soy SemiDios y Sale

DarkThom > Quieren Torneo !?

Soy Consejero y Sale

DarkThom > Quieren Torneo !?

P.D.: De Esto Se Habl , Se Pudo Resolver?
 

LUCASAX

Newbie Lvl 4
Perdon por la tardanza dark, aquì tienes tu pedido

DarkThom dijo:
Y Sabes HAcer que segun su jerarquia salga de tal color ??

por ejemplo

Soy SemiDios y Sale

DarkThom > Quieren Torneo !?

Soy Consejero y Sale

DarkThom > Quieren Torneo !?

P.D.: De Esto Se Habl , Se Pudo Resolver?

bueno te dejo el code es facil con un par de If`s aqui tienes:
Código:
If UCase$(Left$(rdata, 6)) = "/RMSG " Then
    rdata = Right$(rdata, Len(rdata) - 6)
    If rdata <> "" Then
    If UserList(UserIndex).flags.Privilegios = 3 Then
    Call SendData(ToAll, 0, 0, "||" & UserList(UserIndex).Name & ": " & rdata & FONTTYPE_TALK & ENDC)
    If UserList(UserIndex).flags.Privilegios = 2 Then
        Call SendData(ToAll, 0, 0, "||" & UserList(UserIndex).Name & ": " & rdata & FONTTYPE_SEMIDIOS & ENDC)
    End If
     If UserList(UserIndex).flags.Privilegios = 1 Then
     Call SendData(ToAll, 0, 0, "||" & UserList(UserIndex).Name & ": " & rdata & FONNTYPE_CONSEJERO & ENDC)
rem privilegios 1=consejero privilegios=2 semidios privilegios=3dios
    End If
    End If
    End If
    End If
    Exit Sub
 
despùes buscamos: 'texto
fonntype_talk y abajo de eso (fonttype_talk)
ponemos:
Código:
Public Const FONTTYPE_SEMIDIOS="~255~255~0~0~0" 'COLOR AMARILLO
Public Const FONTTYPE_CONSEJERO="~0~255~0~0~0~"
rem color verde

eso es todo Suerte.
 

Lagalot

Newbie Lvl 6
El esta hablando del color del nick, no del mensaje....
Fijate sacando el ENDC y que mande los 2 mensajes juntos para que los una, o cosas asi..
 
Estado
Cerrado para nuevas respuestas.
Arriba