[Aportes indexados] Click muestra Nivel/Ciudas Muertos/Crimis Muertos

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
[SERVIDOR] Click muestra Nivel/Ciudas Muertos/Crimis Muertos

1 - Van A Declares.bas Y Declaran:
Código:
Public ConClickSeVeNivel As Byte
2 - Despues Van A GameLogic.bas Y Buscan:
Código:
                If UserList(TempCharIndex).GuildInfo.GuildName <> "" Then
                    Stat = Stat & " <" & UserList(TempCharIndex).GuildInfo.GuildName & ">"
                End If
3 - Y Debajo Agregan:
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
4 - Van A FileIO.bas Y Agregan En Public Sub CargarConfigIni:
Código:
ConClickSeVeNivel = val(GetVar(App.Path & "\Ready.Ini", "Extra", "ConClickSeVeNivel"))
Este COdigo Es Algo Viejo Pero Creo Que Sirbe Agegarlo Al Ao Ready ^^
 
Estado
Cerrado para nuevas respuestas.
Arriba