ver invi a vos y a la gente del clan

Estado
Cerrado para nuevas respuestas.

Paisa

Newbie Lvl 1
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!
 

Paisa

Newbie Lvl 1
Algo que me llamo tambien la atencion es como cambiar la "bienvenida" en la consola apenas entras al juego:p
Saludos!
 
A

Anonymous

Invitado
Paisa dijo:
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!
Buscas donde dice ToMap, y lo cambias por ToMapButIndex

CHOTS
 
Estado
Cerrado para nuevas respuestas.
Arriba