GS-Zone
Facebook Twitter

Nicks sin color 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

2
Este tema se encuentra cerrado.

Nota » 02 Nov 2011 03:08

que tal gente, miren les comento mi problema.
resulta q estube testeando mi ao ultimamente y me di cuenta q todos los pjs tienen el nombre en blanco, voy al colores.dat y esta todo bien, trate de cambiarle los colores pero sigue todo blanco. Aviso q el cliente q me baje no era el original, si no me equivoco decia Artic Ao, peor no creo q eso cambie algo.
Si a alguien se le ocurre como puedo solucionar esto por favor posteelo! xd
Gracias de antemano :D

BEATUS VIR QUI SUFFERT TENTATIONEM

SPOILER
Desgracia
Usuario Registrado
Newbie [1]
Registrado: Octubre 2011
Mensajes: 8
Arriba

Nota » 21 Nov 2011 16:27

En el modulo Tile_Engine.bas buscas
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If Nombres


Reemplazas todo el If por este
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                              If Nombres And Abs(nX - X) < 2 And (Abs(nY - Y)) < 2 Then
  2.                                 'ya estoy dibujando SOLO si esta visible
  3.                                 'If TempChar.invisible = False And Not MI(CualMI).IsInvisible(MapData(X, Y).CharIndex) Then
  4.                                     If TempChar.Nombre <> "" Then
  5.                                         Dim lCenter As Long
  6.                                         '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))
  7.                                         If InStr(TempChar.Nombre, "<") > 0 And InStr(TempChar.Nombre, ">") > 0 Then
  8.                                             lCenter = (frmMain.TextWidth(Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1)) / 2) - 16
  9.                                             Dim sClan As String
  10.                                             sClan = mid(TempChar.Nombre, InStr(TempChar.Nombre, "<"))
  11.                                            
  12.                                             Select Case TempChar.priv
  13.                                             Case 0
  14.                                                 If TempChar.Criminal Then
  15.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  16.                                                     lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  17.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  18.                                                 Else
  19.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  20.                                                     lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  21.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  22.                                                 End If
  23.                                             Case 25  'admin
  24.                                                 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))
  25.                                                 lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  26.                                                 Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  27.                                             Case Else 'el resto
  28.                                                 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))
  29.                                                 lCenter = (frmMain.TextWidth(sClan) / 2) - 16
  30.                                                 Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  31.                                             End Select
  32.                                         Else
  33.                                             lCenter = (frmMain.TextWidth(TempChar.Nombre) / 2) - 16
  34.                                             Select Case TempChar.priv
  35.                                             Case 0
  36.                                                 If TempChar.Criminal Then
  37.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(50).r, ColoresPJ(50).G, ColoresPJ(50).b))
  38.                                                 Else
  39.                                                     Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(49).r, ColoresPJ(49).G, ColoresPJ(49).b))
  40.                                                 End If
  41.                                             Case 7
  42.                                                 Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  43.                                             Case Else
  44.                                                 Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, RGB(ColoresPJ(TempChar.priv).r, ColoresPJ(TempChar.priv).G, ColoresPJ(TempChar.priv).b))
  45.                                             End Select
  46.                                         End If
  47.                                     End If
  48.                                 'End If  'enidf nI
  49.                              End If
  50.  

InnovationAO - Director
Benadiz
[ Creando InnovationAO ]
66
Newbie [4]
Registrado: Años de membresíaAños de membresía
Ubicación: En una PC xD
Mensajes: 102
Aportes: 2
Arriba
Este tema se encuentra cerrado.

Volver a Otras versiones

¿Quién está conectado?

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