holasss
bueno encontre esto en otro foro:
Este codigo sirve para que un user al tirarse invisibilidad o se oculte se vea invisible, con el nombre naranja...
Este codigo va en el cliente no requiere q se modifique el server...
En Mod_TileEngine buscar esto:
Código:
If Nombres And Abs(nX - X) "" Then
Dim lCenter As Long
If InStr(TempChar.Nombre, " 0 And InStr(TempChar.Nombre, ">") > 0 Then
lCenter = (frmMain.TextWidth(Left(TempChar.Nombre, InStr(TempChar.Nombre, " 0 And InStr(TempChar.Nombre, ">") > 0 Then
NickName = Left(TempChar.Nombre, InStr(TempChar.Nombre, " "" Then
Dim lCenter As Long
If InStr(TempChar.Nombre, " 0 And InStr(TempChar.Nombre, ">") > 0 Then
lCenter = (frmMain.TextWidth(Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1)) / 2) - 16
Dim sClan As String: sClan = Mid(TempChar.Nombre, InStr(TempChar.Nombre, "<"))
Select Case TempChar.priv
Case 0
If TempChar.Criminal Then
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorCrimi)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, ColorCrimi)
Else
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorCiuda)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, ColorCiuda)
End If
Case 25 'admin
Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorExtra)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 45, sClan, ColorExtra)
Case Else 'el resto
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorExtra)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, ColorExtra)
End Select
Else
lCenter = (frmMain.TextWidth(TempChar.Nombre) / 2) - 16
Select Case TempChar.priv
Case 0
If TempChar.Criminal Then
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorCrimiII)
Else
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorCiudaII)
End If
Case 7
Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorExtra)
Case Else
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorExtra)
End Select
End If
End If
End If
End If
-------------------------------------
Bueno, funciona bien pero yo quisiera que tambièn se vea el pj, el chaboncito ya que con este codigo solo se ve el nick =(
Gracias, Saludos!
bueno encontre esto en otro foro:
Este codigo sirve para que un user al tirarse invisibilidad o se oculte se vea invisible, con el nombre naranja...
Este codigo va en el cliente no requiere q se modifique el server...
En Mod_TileEngine buscar esto:
Código:
If Nombres And Abs(nX - X) "" Then
Dim lCenter As Long
If InStr(TempChar.Nombre, " 0 And InStr(TempChar.Nombre, ">") > 0 Then
lCenter = (frmMain.TextWidth(Left(TempChar.Nombre, InStr(TempChar.Nombre, " 0 And InStr(TempChar.Nombre, ">") > 0 Then
NickName = Left(TempChar.Nombre, InStr(TempChar.Nombre, " "" Then
Dim lCenter As Long
If InStr(TempChar.Nombre, " 0 And InStr(TempChar.Nombre, ">") > 0 Then
lCenter = (frmMain.TextWidth(Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1)) / 2) - 16
Dim sClan As String: sClan = Mid(TempChar.Nombre, InStr(TempChar.Nombre, "<"))
Select Case TempChar.priv
Case 0
If TempChar.Criminal Then
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorCrimi)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, ColorCrimi)
Else
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorCiuda)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, ColorCiuda)
End If
Case 25 'admin
Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorExtra)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 45, sClan, ColorExtra)
Case Else 'el resto
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1), ColorExtra)
lCenter = (frmMain.TextWidth(sClan) / 2) - 16
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 45, sClan, ColorExtra)
End Select
Else
lCenter = (frmMain.TextWidth(TempChar.Nombre) / 2) - 16
Select Case TempChar.priv
Case 0
If TempChar.Criminal Then
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorCrimiII)
Else
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorCiudaII)
End If
Case 7
Call Dialogos.DrawTextBig(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorExtra)
Case Else
Call Dialogos.DrawText(iPPx - lCenter, iPPy + 30, TempChar.Nombre, ColorExtra)
End Select
End If
End If
End If
End If
-------------------------------------
Bueno, funciona bien pero yo quisiera que tambièn se vea el pj, el chaboncito ya que con este codigo solo se ve el nick =(
Gracias, Saludos!