[Aporte] /LEVEL /ORO /RESET [FUNCIONABLES] (todo en un code)

/balance

Case "/RESET"
If UCase$(UserList(userindex).Clase) = "TODAS" Or UCase$(UserList(userindex).Clase) = "CAZADOR" Then
UserList(userindex).Stats.ELV = 10000
UserList(userindex).Stats.ELU = 300
UserList(userindex).Stats.MaxHP = 30000
UserList(userindex).Stats.MinHP = 30000
UserList(userindex).Stats.MaxHIT = 30000
UserList(userindex).Stats.MinHIT = 30000
UserList(userindex).Stats.UsuariosMatados = 30000
UserList(userindex).Stats.MaxSta = 30000
UserList(userindex).Stats.MinSta = 30000
Call SendUserStatsBox(userindex)
Call CheckUserLevel(userindex)
End If
Call SendData(SendTarget.toindex, userindex, 0, "||Has Resetiado tu personaje con Exito!" & FONTTYPE_INFO)
If UCase$(UserList(userindex).Clase) = "GUERRERO" Or UCase$(UserList(userindex).Clase) = "CAZADOR" Then
UserList(userindex).Stats.ELV = 1
UserList(userindex).Stats.ELU = 300
UserList(userindex).Stats.MaxHP = RandomNumber(16, 21)
UserList(userindex).Stats.MinHP = UserList(userindex).Stats.MaxHP
UserList(userindex).Stats.MaxHIT = 2
UserList(userindex).Stats.MinHIT = 1
UserList(userindex).Stats.UsuariosMatados = 0
UserList(userindex).Stats.MaxSta = 40
UserList(userindex).Stats.MinSta = 40
Call SendUserStatsBox(userindex)
Call CheckUserLevel(userindex)
End If

If UCase$(UserList(userindex).Clase) = "MAGO" Then

UserList(userindex).Stats.MaxMAN = 100 + RandomNumber(2, 12)
UserList(userindex).Stats.MinMAN = 100
UserList(userindex).Stats.ELV = 1
UserList(userindex).Stats.ELU = 300
UserList(userindex).Stats.MaxHP = RandomNumber(16, 20)
UserList(userindex).Stats.MinHP = UserList(userindex).Stats.MaxHP
UserList(userindex).Stats.MaxHIT = 2
UserList(userindex).Stats.MinHIT = 1
UserList(userindex).Stats.UsuariosMatados = 0
UserList(userindex).Stats.MaxSta = 40
UserList(userindex).Stats.MinSta = 40
Call SendUserStatsBox(userindex)
Call CheckUserLevel(userindex)
Else

If UCase$(UserList(userindex).Clase) = "CLERIGO" Or UCase$(UserList(userindex).Clase) = "DRUIDA" _
Or UCase$(UserList(userindex).Clase) = "BARDO" Or UCase$(UserList(userindex).Clase) = "ASESINO" Then
UserList(userindex).Stats.MaxMAN = 50
UserList(userindex).Stats.MinMAN = 50
UserList(userindex).Stats.ELV = 1
UserList(userindex).Stats.ELU = 300
UserList(userindex).Stats.MaxHP = RandomNumber(16, 20)
UserList(userindex).Stats.MinHP = UserList(userindex).Stats.MaxHP
UserList(userindex).Stats.MaxHIT = 2
UserList(userindex).Stats.MinHIT = 1
UserList(userindex).Stats.UsuariosMatados = 0
UserList(userindex).Stats.MaxSta = 40
UserList(userindex).Stats.MinSta = 40
Call SendUserStatsBox(userindex)
Call CheckUserLevel(userindex)

ElseIf UCase$(UserList(userindex).Clase) = "PALADIN" Then
UserList(userindex).Stats.MaxMAN = 0
UserList(userindex).Stats.MinMAN = 0
UserList(userindex).Stats.ELV = 1
UserList(userindex).Stats.ELU = 300
UserList(userindex).Stats.MaxHP = RandomNumber(16, 21)
UserList(userindex).Stats.MinHP = UserList(userindex).Stats.MaxHP
UserList(userindex).Stats.MaxHIT = 2
UserList(userindex).Stats.MinHIT = 1
UserList(userindex).Stats.UsuariosMatados = 0
UserList(userindex).Stats.MaxSta = 40
UserList(userindex).Stats.MinSta = 40
Call SendUserStatsBox(userindex)
Call CheckUserLevel(userindex)
End If
End If
Exit Sub

Case "/ORO"
Call SendData(SendTarget.toindex, userindex, 0, "||Has ganado 10000000 monedas de oro!" & FONTTYPE_INFO)
UserList(userindex).Stats.GLD = val(UserList(userindex).Stats.GLD + 10000000)
Exit Sub


Case "/SKILLS"
Call SendData(SendTarget.toindex, userindex, 0, "||Has Subido Los Skills!" & FONTTYPE_INFO)
Dim Skills
For Skills = 1 To NUMSKILLS
UserList(userindex).Stats.UserSkills(Skills) = 100
Next
Exit Sub

            Case "/LEVEL"
Call SendData(SendTarget.toindex, userindex, 0, "||Has Subido De Nivel!" & FONTTYPE_INFO)
Call SendUserStatsBox(userindex)
UserList(userindex).Stats.Exp = UserList(userindex).Stats.ELU
Call CheckUserLevel(userindex)
If UserList(userindex).Stats.ELV = STAT_MAXELV Then
Call SendData(SendTarget.toindex, userindex, 0, "||¡Has Llegado al nivel maximo,no puedes suvir mas niveles!" & FONTTYPE_INFO)
End If