[SERVIDOR] Click muestra Nivel/Ciudas Muertos/Crimis Muertos
1 - Van A Declares.bas Y Declaran:
2 - Despues Van A GameLogic.bas Y Buscan:
3 - Y Debajo Agregan:
4 - Van A FileIO.bas Y Agregan En Public Sub CargarConfigIni:
Este COdigo Es Algo Viejo Pero Creo Que Sirbe Agegarlo Al Ao Ready ^^
1 - Van A Declares.bas Y Declaran:
Código:
Public ConClickSeVeNivel As Byte
Código:
If UserList(TempCharIndex).GuildInfo.GuildName <> "" Then
Stat = Stat & " <" & UserList(TempCharIndex).GuildInfo.GuildName & ">"
End If
Código:
If ConClickSeVeNivel = 1 Then
If Len(UserList(TempCharIndex).Desc) > 1 Then
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " - " & UserList(TempCharIndex).Desc & " [Nivel: " & str(UserList(TempCharIndex).Stats.ELV) & " /"
Else
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " [Nivel: " & str(UserList(TempCharIndex).Stats.ELV) & " /"
End If
Else
If Len(UserList(TempCharIndex).Desc) > 1 Then
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & " - " & UserList(TempCharIndex).Desc & "["
Else
Stat = "||Ves a " & UserList(TempCharIndex).Name & Stat & "["
End If
End If
If UserList(TempCharIndex).Faccion.CiudadanosMatados > 0 And UserList(TempCharIndex).Faccion.CriminalesMatados > 0 Then
Stat = Stat & "Ciudas Matados:" & str(UserList(TempCharIndex).Faccion.CiudadanosMatados) & " /Crimis Matados:" & str(UserList(TempCharIndex).Faccion.CriminalesMatados) & " ]"
ElseIf UserList(TempCharIndex).Faccion.CiudadanosMatados > 0 Then
Stat = Stat & "Ciudas Matados:" & str(UserList(TempCharIndex).Faccion.CiudadanosMatados) & " ]"
ElseIf UserList(TempCharIndex).Faccion.CriminalesMatados > 0 Then
Stat = Stat & "Crimis Matados:" & str(UserList(TempCharIndex).Faccion.CriminalesMatados) & " ]"
Else
Stat = Stat & "]"
If ConClickSeVeNivel = 1 Then Stat = Left(Stat, Len(Stat) - 3) & "]"
End If
Código:
ConClickSeVeNivel = val(GetVar(App.Path & "\Ready.Ini", "Extra", "ConClickSeVeNivel"))Este COdigo Es Algo Viejo Pero Creo Que Sirbe Agegarlo Al Ao Ready ^^