GS-Zone
Facebook Twitter

No cambia el color del nick de gms Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

3

Nota » 29 Dic 2011 01:19

Hola , cambie el color de Gms Con el vb , aca deje unas imagenes pero lo sigo viendo azul en el game y en consola verde miren.

Imagen

Imagen

tambien quiero cambiar el color de hablado de los Gms ya que hablan en amarillo me pueden echar una mano disculpen gracias!

Imagen
-.AnDy.-
Tribal Peliculas
545
Oraculo [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Colombia
Mensajes: 1555
Aportes: 4
Arriba

Nota » 29 Dic 2011 15:02

Para cuando hablan buscas el Case ";" y fijate donde dice vbyellow y cambialo.

Y lo otro debe ser cosa del sub renderscreen, yo en mi 11.5 tengo esto:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'If TempChar.invisible = False And Not MI(CualMI).IsInvisible(MapData(X, Y).CharIndex) Then
  2.                                     If TempChar.Nombre <> "" Then
  3.                                         Dim lCenter As Long
  4.                                         'Call Dialogos.DrawText(iPPx - 30, iPPy + 60, "mi:" & IIf(MI(CualMI).IsInvisible(MapData(X, Y).CharIndex), "1", "0") & " .i:" & IIf(TempChar.invisible, "1", "0") & "  X,Y:" & X & "," & Y, RGB(ColoresPJ(5).r, ColoresPJ(5).G, ColoresPJ(5).B))
  5.                                         If InStr(TempChar.Nombre, "<") > 0 And InStr(TempChar.Nombre, ">") > 0 Then
  6.                                             lCenter = (frmMain.TextWidth(Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1)) / 2) - 16
  7.                                             Dim sClan As String
  8.                                             sClan = mid(TempChar.Nombre, InStr(TempChar.Nombre, "<"))
  9.                                            
  10.                                             Select Case TempChar.priv
  11.                                             Case 0
  12.                                                 If TempChar.Criminal Then
  13.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  14.                                                     lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  15.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  16.                                                 Else
  17.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  18.                                                     lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  19.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  20.                                                 End If
  21.                                             Case 25  'admin
  22.                                                 Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  23.                                                 lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  24.                                                 Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  25.                                             Case Else 'el resto
  26.                                                 Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  27.                                                 lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  28.                                                 Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  29.                                             End Select
  30.                                         Else
  31.                                             lCenter = (frmMain.TextWidth(TempChar.Nombre) / 2) - 16
  32.                                             Select Case TempChar.priv
  33.                                             Case 0
  34.                                                 If TempChar.Criminal Then
  35.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  36.                                                 Else
  37.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  38.                                                 End If
  39.                                             Case 7
  40.                                                 Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  41.                                             Case Else
  42.                                                 Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  43.                                             End Select
  44.                                         End If
  45.                                     End If
  46.                                 'End If  'enidf nI
  47.                              End If
  48.                 End If  'end if ~in

Imagen


Gaara escribió:Me Caen Mal El Tipo De Personas Que Cuando Estas leveleando En Gathering(Por ejemplo)
Viene Un Neutro y te mata...Volves y Te Mata Lo Bardeas y le avisa al Gm y Te banea :@
Lekasak
Barrilete cósmico ^^
364
Aprendiz [6]
Registrado: Años de membresía
Ubicación: en mi casa
Mensajes: 439
Aportes: 2
Arriba

Nota » 30 Dic 2011 22:08

Creo que la solución la tengo ¿Me das el código que has puesto para cambiar el color desde vb6?

Si quieres por privado , me da exactamente lo mismo.

Imagen
Shak
@lautamarino
531
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2035
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Volver a Otras versiones

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados