Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer, ByVal Acerto As Boolean)

    Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer, ByVal Acerto As Boolean)
    'Modificado por AyudandOh.-; sube skill en uso.
        With UserList(UserIndex)
            With .Stats
                            If .UserSkills(Skill) = MAXSKILLPOINTS Then Exit Sub
                     
                            Dim Lvl As Integer
                            Lvl = .ELV
                 
                            If Lvl > UBound(LevelSkill) Then Lvl = UBound(LevelSkill)
                 
                            If .UserSkills(Skill) >= LevelSkill(Lvl).LevelValue Then Exit Sub
   
                    .UserSkills(Skill) = .UserSkills(Skill) + 1
   
                    Call WriteConsoleMsg(UserIndex, "¡Has mejorado tu skill " & SkillsNames(Skill) & " en un punto! Ahora tienes " & .UserSkills(Skill) & " pts.", FontTypeNames.FONTTYPE_INFO)
                    .Exp = .Exp + 50
                    If .Exp > MAXEXP Then .Exp = MAXEXP
                     
                    Call WriteConsoleMsg(UserIndex, "¡Has ganado 50 puntos de experiencia!", FontTypeNames.FONTTYPE_FIGHT)
                     
                    Call WriteUpdateExp(UserIndex)
                    Call CheckUserLevel(UserIndex)
            End With
        End With
   
    End Sub