'MAB: Efectividad de hechizos
   With UserList(UserIndex).Stats.UserSkills
        If eSkill.Magia > 0 Then
            Select Case eSkill.Magia
			case 1 to 25
                Exito = 75
            case 25 to 50 Then
                Exito = 80
            case 50 to 75 Then
                Exito = 85
            case 75 to 100 Then
                Exito = 90
            case else
                Exito = 75
            End If
        Else
            Exito = 60
        End If
    End With

    tmpSucess = RandomNumber(1, 100)

    If tmpSucess <= Exito Then
        PuedeLanzar = True
    Else
        PuedeLanzar = False
        Call WriteConsoleMsg(UserIndex, "Has fallado al lanzar el hechizo.", FontTypeNames.FONTTYPE_INFO)
    End If