¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndiceIndiceÚltimas imágenesBuscarRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 23 usuarios en línea: 0 Registrados, 0 Ocultos y 23 Invitados

Ninguno
[ Ver toda la lista ]

El record de usuarios en línea fue de 77 durante el Dom Oct 27, 2024 11:28 am
Mejores posteadores
Rango
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
Habauc
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
Trogclodita
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
WhoTeR
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
Tomm-
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
ZankuR
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
GM-PekeMixz
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
LuciMoyo
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
MwM
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
Diclut s2 Lalaa♥
[Aporte]Cambiar color de habla de GM's Vote_lcap[Aporte]Cambiar color de habla de GM's Voting_bar[Aporte]Cambiar color de habla de GM's Vote_rcap 
Estadísticas
Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

 :: Argentum Online :: Talleres Taller Argentum :: Programación
 

 [Aporte]Cambiar color de habla de GM's

Ir abajo 
3 participantes
AutorMensaje
WhoTeR
Director de Tropas
Director de Tropas
WhoTeR


Cantidad de envíos : 143
Fecha de inscripción : 28/07/2013

[Aporte]Cambiar color de habla de GM's Empty
MensajeTema: [Aporte]Cambiar color de habla de GM's   [Aporte]Cambiar color de habla de GM's Icon_minitimeDom Jul 28, 2013 10:21 am
Lo hice para mi mod Nightmare.
Apurado lo hice asi que si tiene algun error avisen que edito.

Buscan:
Código:
case ";"

Y Reemplazan todo ese case por este:
Código:
Case ";" 'Hablar
            rData = Right$(rData, Len(rData) - 1)
            If InStr(rData, "°") Then
                Exit Sub
            End If
       
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero Then
                Call LogGM(UserList(UserIndex).name, "Dijo: " & rData, True)
            End If
           
            ind = UserList(UserIndex).Char.CharIndex
           
            If UserList(UserIndex).flags.Oculto > 0 Then
                UserList(UserIndex).flags.Oculto = 0
                If UserList(UserIndex).flags.Invisible = 0 Then
                    Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.CharIndex & ",0")
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has vuelto a ser visible!" & FONTTYPE_INFO)
                End If
            End If
           
If UserList(UserIndex).flags.Muerto = 1 Then
                Call SendData(SendTarget.ToDeadArea, UserIndex, UserList(UserIndex).Pos.Map, "||12632256°" & rData & "°" & CStr(ind))
            Else
            If UserList(UserIndex).flags.Privilegios > User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & &H80FF& & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            ElseIf UserList(UserIndex).flags.Privilegios = User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbWhite & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            End If
            End If
            Exit Sub 'Primer Aporte que hago de programacion. By Tumba
Volver arriba Ir abajo
Habauc
Director de Tropas
Director de Tropas
Habauc


Cantidad de envíos : 146
Fecha de inscripción : 26/07/2013
Edad : 27
Localización : Devoto

[Aporte]Cambiar color de habla de GM's Empty
MensajeTema: Re: [Aporte]Cambiar color de habla de GM's   [Aporte]Cambiar color de habla de GM's Icon_minitimeDom Jul 28, 2013 3:06 pm
Muy buen aporte gracias por traerlo pero fijate que en una parte te confundistes

Código:
Case ";" 'Hablar
            rData = Right$(rData, Len(rData) - 1)
            If InStr(rData, "°") Then
                Exit Sub
            End If
     
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero Then
                Call LogGM(UserList(UserIndex).name, "Dijo: " & rData, True)
            End If
         
            ind = UserList(UserIndex).Char.CharIndex
         
            If UserList(UserIndex).flags.Oculto > 0 Then
                UserList(UserIndex).flags.Oculto = 0
                If UserList(UserIndex).flags.Invisible = 0 Then
                    Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.CharIndex & ",0")
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has vuelto a ser visible!" & FONTTYPE_INFO)
                End If
            End If
         
If UserList(UserIndex).flags.Muerto = 1 Then
                Call SendData(SendTarget.ToDeadArea, UserIndex, UserList(UserIndex).Pos.Map, "||12632256°" & rData & "°" & CStr(ind))
            Else
            If UserList(UserIndex).flags.Privilegios > User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & &H80FF& & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            ElseIf UserList(UserIndex).flags.Privilegios = User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbWhite & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            End If
            End If
            Exit Sub 'Primer Aporte que hago de programacion. By Tumba

Fijate bien,Saludos.
Volver arriba Ir abajo
Trogclodita
Director de Tropas
Director de Tropas
Trogclodita


Cantidad de envíos : 144
Fecha de inscripción : 18/07/2013

[Aporte]Cambiar color de habla de GM's Empty
MensajeTema: Re: [Aporte]Cambiar color de habla de GM's   [Aporte]Cambiar color de habla de GM's Icon_minitimeDom Jul 28, 2013 4:27 pm
Habauc escribió:
Muy buen aporte gracias por traerlo pero fijate que en una parte te confundistes

Código:
Case ";" 'Hablar
            rData = Right$(rData, Len(rData) - 1)
            If InStr(rData, "°") Then
                Exit Sub
            End If
      
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero Then
                Call LogGM(UserList(UserIndex).name, "Dijo: " & rData, True)
            End If
          
            ind = UserList(UserIndex).Char.CharIndex
          
            If UserList(UserIndex).flags.Oculto > 0 Then
                UserList(UserIndex).flags.Oculto = 0
                If UserList(UserIndex).flags.Invisible = 0 Then
                    Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.CharIndex & ",0")
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has vuelto a ser visible!" & FONTTYPE_INFO)
                End If
            End If
          
If UserList(UserIndex).flags.Muerto = 1 Then
                Call SendData(SendTarget.ToDeadArea, UserIndex, UserList(UserIndex).Pos.Map, "||12632256°" & rData & "°" & CStr(ind))
            Else
            If UserList(UserIndex).flags.Privilegios > User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & &H80FF& & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            ElseIf UserList(UserIndex).flags.Privilegios = User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbWhite & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            End If
            End If
            Exit Sub 'Primer Aporte que hago de programacion. By Tumba

Fijate bien,Saludos.


Si vas a decir que esta mal, localiza el sector y por qué .
Lo revise yo al código, y esta todo bien :S

Se agradece el aporte, saludos .
Volver arriba Ir abajo
WhoTeR
Director de Tropas
Director de Tropas
WhoTeR


Cantidad de envíos : 143
Fecha de inscripción : 28/07/2013

[Aporte]Cambiar color de habla de GM's Empty
MensajeTema: Re: [Aporte]Cambiar color de habla de GM's   [Aporte]Cambiar color de habla de GM's Icon_minitimeDom Jul 28, 2013 9:01 pm
Habauc escribió:
Muy buen aporte gracias por traerlo pero fijate que en una parte te confundistes

Código:
Case ";" 'Hablar
            rData = Right$(rData, Len(rData) - 1)
            If InStr(rData, "°") Then
                Exit Sub
            End If
      
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero Then
                Call LogGM(UserList(UserIndex).name, "Dijo: " & rData, True)
            End If
          
            ind = UserList(UserIndex).Char.CharIndex
          
            If UserList(UserIndex).flags.Oculto > 0 Then
                UserList(UserIndex).flags.Oculto = 0
                If UserList(UserIndex).flags.Invisible = 0 Then
                    Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.CharIndex & ",0")
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has vuelto a ser visible!" & FONTTYPE_INFO)
                End If
            End If
          
If UserList(UserIndex).flags.Muerto = 1 Then
                Call SendData(SendTarget.ToDeadArea, UserIndex, UserList(UserIndex).Pos.Map, "||12632256°" & rData & "°" & CStr(ind))
            Else
            If UserList(UserIndex).flags.Privilegios > User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & &H80FF& & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            ElseIf UserList(UserIndex).flags.Privilegios = User Then
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbWhite & "°" & rData & "°" & CStr(ind))
                If Not rData = vbNullString Then
                End If
            End If
            End If
            Exit Sub 'Primer Aporte que hago de programacion. By Tumba

Fijate bien,Saludos.

Decime donde esta el error y te ayudo, igual esta Testiado y anda al 100%
Cuando vas a poner que hay un error, justificalo .

COMENTARIO EDITADO POR TROGCLODITA
Volver arriba Ir abajo
Contenido patrocinado





[Aporte]Cambiar color de habla de GM's Empty
MensajeTema: Re: [Aporte]Cambiar color de habla de GM's   [Aporte]Cambiar color de habla de GM's Icon_minitime
Volver arriba Ir abajo
 
[Aporte]Cambiar color de habla de GM's
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Cambiar el color de los nick de los GM's
» [Aporte] Cambiar Contraseñas desde la Cuenta
» Cambiar Zona de inicio
» [Aporte] 2 Mapas
» [APORTE] Potas infinitas 11.5

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: