Al lado del nombre aparece el lvl

por santi55 Lun Dic 20, 2010 3:36 pm

Bueno empezemos el codigo es muy simple

Buscamos:

If Len(UserList(TempCharIndex).Desc) > 1 Then
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " - " & UserList(TempCharIndex).Desc
Else
'Call SendData(Sendtarget.ToIndex, UserIndex, 0, "||Ves a " & UserList(TempCharIndex).Name & Stat)
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat
End If

Lo remplazamos por:

If Len(UserList(TempCharIndex).Desc) > 1 Then
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " - " & "Level:" & UserList(UserIndex).Stats.ELV & UserList(TempCharIndex).Desc
Else
'Call SendData(Sendtarget.ToIndex, UserIndex, 0, "||Ves a " & UserList(TempCharIndex).Name & Stat)
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & "Level:" & UserList(UserIndex).Stats.ELV
End If

Simple y funcional