Dudas en Codigos

Estado
Cerrado para nuevas respuestas.

·Azkerth!

[Pixel Art]
Hola estoy agregando codigos a mi server 11.5

1) agrege el comando /level & /oro que creo que aporto Ladder, funcionan perfecto. Pero no tienen un limite que deje de subir.
Osea Sigue subiendo.

2) tambien quisiera saber como cambiar el level maximo de mi server , y como cambiar las vidas y mana.

3) quiero saber si alguien tiene el code para el comando /reset.

4) los codigos para que funcione el sistema de Preto.

5) y por ultimo quiero saber donde tengo que ir para cambiar los FX de las meditaciones y donde tengo que modificar para que cada 10 levels cambie la meditacion.

un saludo , espero que me den una mano.
 

Khardus

Newbie Lvl 6
para el lvl maximo en declaraciones busca:

Public Const STAT_MAXELV As Byte =

y desp del = pone el lvl maximo

y el siistema de reset esta en el indice

saludos
 

·Azkerth!

[Pixel Art]
Khardus dijo:
para el lvl maximo en declaraciones busca:

Public Const STAT_MAXELV As Byte =

y desp del = pone el lvl maximo

y el siistema de reset esta en el indice

saludos
Gracias por tu ayuda ;) , espero que me ayuden con los otros problemas.

saludos
 

Damian

Software Developer
Ex-Staff
Acá te dejo el primero mientras sigo haciendo los otros:
Código:
 
'Ladder
Select Case UCase$(Left$(rData, 6))
        Case "/LEVEL"
        Dim MaxLVL As Integer
        With UserList(UserIndex)
            If .Stats.ELV >= MaxLVL Then
                .Stats.ELV = MaxLVL
                .Stats.Exp = 0
                .Stats.ELU = 0
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes subir más de nivel, tu nivel es el máximo." & FONTTYPE_INFO)                
            Else
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has subido un level!" & FONTTYPE_INFO)
                UserList(UserIndex).Stats.Exp = UserList(UserIndex).Stats.ELU
                Call CheckUserLevel(UserIndex)
            End If
    Exit Sub
End Select
'Ladder
'Ladder
Select Case UCase$(Left$(rData, 4))
        Case "/ORO"
        Dim OroMaximo As Long
        With UserList(UserIndex)
            If .Stats.GLD > OroMaximo Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya tienes suficiente oro." & FONTTYPE_INFO)
            Else
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has ganado 10000000 monedas de oro!" & FONTTYPE_INFO)
                .Stats.GLD = .Stats.GLD + 10000000
                Call SendUserStatsBox(UserIndex)
            End If
        End With
    Exit Sub
End Select
'Ladder
La 2 es estúpida la pregunta xD

Public Const STAT_MAXELV
Buscá eso y cambiale el valor.
 

·Azkerth!

[Pixel Art]
Damian dijo:
Acá te dejo el primero mientras sigo haciendo los otros:
Código:
 
'Ladder
Select Case UCase$(Left$(rData, 6))
        Case "/LEVEL"
        Dim MaxLVL As Integer
        With UserList(UserIndex)
            If .Stats.ELV >= MaxLVL Then
                .Stats.ELV = MaxLVL
                .Stats.Exp = 0
                .Stats.ELU = 0
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes subir más de nivel, tu nivel es el máximo." & FONTTYPE_INFO)                
            Else
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has subido un level!" & FONTTYPE_INFO)
                UserList(UserIndex).Stats.Exp = UserList(UserIndex).Stats.ELU
                Call CheckUserLevel(UserIndex)
            End If
    Exit Sub
End Select
'Ladder
'Ladder
Select Case UCase$(Left$(rData, 4))
        Case "/ORO"
        Dim OroMaximo As Long
        With UserList(UserIndex)
            If .Stats.GLD > OroMaximo Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya tienes suficiente oro." & FONTTYPE_INFO)
            Else
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has ganado 10000000 monedas de oro!" & FONTTYPE_INFO)
                .Stats.GLD = .Stats.GLD + 10000000
                Call SendUserStatsBox(UserIndex)
            End If
        End With
    Exit Sub
End Select
'Ladder
La 2 es estúpida la pregunta xD

Public Const STAT_MAXELV
Buscá eso y cambiale el valor.
Gracias Damian ;
espero tus otros codigos.
Abrazo.

saludos
Nota del Moderador (Damian): Lo tenés que leer porque sino no vas a entender como hacerlo funcionar!
 
Estado
Cerrado para nuevas respuestas.
Arriba