GS-Zone

No cambia el color del nick de gms Ir al Indice

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
Tribal Peliculas
545
Oraculo [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Colombia
Mensajes: 1555
Aportes: 4

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:
  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 :@
Barrilete cósmico ^^
364
Aprendiz [6]
Registrado: Años de membresía
Ubicación: en mi casa
Mensajes: 439
Aportes: 2

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
@lautamarino
531
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2035
Aportes: 46
Premios: 1
Embajador (1)


Volver a Otras versiones

¿Quién está conectado?

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