decoding bgm_stg230_fct.aax
sample rate 48000 Hz
channels: 2
loop start: 1941380 samples (40.4454 seconds)
loop end: 8974667 samples (186.9722 seconds)
stream total samples: 8974667 (186.9722 seconds)
encoding: CRI ADX 4-bit ADPCM
layout: AAX blocked, 18-byte interleaved
metadata from: CRI AAX header
samples to play: 16007954 (333.4990 seconds)

for /f "skip=1 tokens=*" %%i in ('stream_info.exe -m %1') do (
set "freq=%%i"
goto stopbucle

:stopbucle
set conversor=ffmpeg
set recodificador=adxencd

' VGMstream2ADXenc ver 2.4 rev 302 By por Kapodamy!
' Uso VGMstream2ADXenc.vbs -e [ARCHIVO] -f [FREQUENCIA DE CONVERSION] -s [CARPETA DE SALIDA] -mono 

' Convierte los archivos de audio Stream, soportados por el VGMstream al formato ADX de manera automatizada. ideal para ADX con 32khz (menor peso)
' agradecimientos a novlucker, al foro el hacker y al equipo del proyecto SOund eXchange.

' Parametros:
' -e [ARCHIVO] archivo a convertir; debe ser soportado por el vgmstream y NO PUEDE
'              TENER MAS DE 2 CANALES. en caso de que tuviera mas de 2 canales. la conversion
'              sera reducida a 2 canales. si esta presente el parametro "-mono" la reduccion sera a un unico canal.

' -f [FRECUENCIA DE CONVERSION] especifica la frequencia de conversion de los ADX en hertz.
'                               si no se especifica la frequencia de salida sera igual a la de entrada.

' -s [CARPETA DE SALIDA] especifica la carpeta en donde se almacenaran los ADX, en lo posible SIN ESPACIOS.
'                        SE RECOMIENDA NO ESPECIFICAR SUBCARPETAS como por ejemplo "archivos_adx\wii_rips\ost".
'                        de lo contrario usar "COMILLAS". (ESTE PARAMETRO ES OPCIONAL)

' -mono especifica que la salida ADX mono (un canal) y no stereo (dos canales).
'       NOTA:PUEDE CAUSAR ERRORES EN LOS LOOP's DE LOS ADX's. (ESTE PARAMETRO ES OPCIONAL)

'Ejemplos de uso
' VGMstream2ADXenc.vbs -e bgm_stage01.strm -f 32000 -s archivos_adx      convertira el archivo bgm_stage01.strm a bgm_stage01.adx dentro de la carpeta my_adxs\ost\rips con una frequencia de 32000hz.
' VGMstream2ADXenc.vbs -e bgm_stage01.strm -s "my_adxs\ost\rips"         convertira el archivo bgm_stage01.strm a bgm_stage01.adx dentro de la carpeta my_adxs\ost\rips.
' VGMstream2ADXenc.vbs -e bgm_stage01.strm -mono                         convertira el archivo bgm_stage01.strm a bgm_stage01.adx pero en mono.
' VGMstream2ADXenc.vbs -e bgm_stage01.strm                               convertira el archivo bgm_stage01.strm a bgm_stage01.adx sin modificar nada.
'----------------------------------------------------------INICIO DEL SCRIPT--------------------------------------------------------------------------------------------------------------------------

dim detect
dim loop_total
dim exist_lps
dim contc
dim no_loop_index
dim hz_index
dim freq_index
dim samplei_index
dim samplef_index
dim samplefd_index
dim sampleid
dim estado
dim freq_real
dim inicio
dim final
dim loop_inicio_dec
dim loop_final_dec
dim no_loop
dim loop_inicio_real
dim loop_inicio
dim dec_corr_i_index
dim dec_corr_f_index
dim canales_index
dim canales_index_d
dim r
dim i
dim argumento_mono
dim argumento_adx_dir
dim argumento_archivo
dim archivo_nombre_index
dim loop_iniciodec
dim loop_finaldec
dim dec_corr_i
dim dec_corr_f
dim loop_final
dim vgmstream
dim ffmpeg
dim sox
dim adxencd
dim argumentos_index
dim loop_detect
dim frequencia
dim adx_quest
Set objfso = createobject("scripting.filesystemobject")
Set objshell = createobject("wscript.shell")
'----------------rutina de seleccion de argumentos------------------
'                           0     1      2             3               4          5           6
' Uso VGMstream2ADXenc.vbs -e [ARCHIVO] -f [FREQUENCIA DE CONVERSION] -s [CARPETA DE SALIDA] -mono

exist_lps=0 'se predefine como bandera sin loop_inicio y loop_final
argumento_freq=0 'se predefine como bandera freq_real

If WScript.Arguments.count < 2 Then ' rutina de deteccion de parametros
 msgbox "Uso VGMstream2ADXenc.vbs -e [ARCHIVO] -f [FREQUENCIA DE CONVERSION] -s [CARPETA DE SALIDA] -mono"&chr(13)&"el parametro minimo es: -e [ARCHIVO]"&chr(13)&"los demas parametros son opcionales",32,"VGMstream2ADXenc - uso incorrecto"
 WScript.Quit
 else
 argumentos_index=WScript.Arguments.count-1
End If
'seleccion de parametros
for i=0 to argumentos_index
 select case WScript.Arguments(i)
 case "-e"
  r=i+1
  archivo=WScript.Arguments(r)
  if archivo="" then
  msgbox "error en -e. archivo no especificado",16,"VGMstream2ADXenc"
  wscript.quit
  end if

 case "-f"
   r=i+1
   argumento_freq=1
   freq_conv=WScript.Arguments(r)
   if freq_conv="" then
   msgbox "error en -f. frequencia no especificada",16,"VGMstream2ADXenc"
   wscript.quit
   end if
 case "-s"
  r=i+1
  argumento_adx_dir=1
  adx_dir_out=" "&WScript.Arguments(r)
  if adx_dir_out="" then
  msgbox "error en -s. carpeta de salida no especificada",16,"VGMstream2ADXenc"
  wscript.quit
  objshell.run("cmd /c md "&chr(34)&WScript.Arguments(r)&chr(34)), 0, true
  end if

 case "-mono"
  argumento_mono=1
  
 end select
next

if isnumeric(freq_conv)="False" then msgbox "error la frequencia especificada "&chr(34)&freq_conv&chr(34)&" no es un numero",16,"VGMstream2ADXenc"


rem rutina de deteccion de errores en parametros
 if archivo="" then
 msgbox "Error, archivo no especificado"&chr(13)&"parametro minimo: "&WScript.Scriptname&" -e [ARCHIVO]",16,"VGMstream2ADXenc"
 wscript.quit
end if


if not argumento_adx_dir=1 then adx_dir_out=""


'-----------sub-rutina obtencion del nombre del archivo
Set archivo_n = objfso.getfile(archivo)	

archivo_nombre=archivo_n.name

for i=255 to 0 step -1
detect=mid(archivo_nombre,i,1)
if detect="." then
archivo_nombre_index=i-1
i=0
end if
next
archivo_nombre=mid(archivo_nombre,1,archivo_nombre_index)
'----------fin de sub-rutina con archivo_nombre
archivo_conv=archivo_nombre&".wav"
archivo_tmp=archivo_nombre&"_tmp"&".wav"

' comprobacion de la existencia de un archivo adx con el mismo nombre que el resultado de la conversion
if objfso.FileExists(archivo_nombre&".adx")="True" then
 adx_quest = inputbox("El Siguiente Archivo:"&chr(13)&archivo_nombre&".adx"&chr(13)&"Ya existe, ingrese un nuevo nombre o pulse OK"&chr(13)&"para sobrescribir.","VGMstream2ADXenc",archivo_nombre&".adx")
 if not adx_quest="" then archivo_nombre=adx_quest
 call re_sub_rutina_nombre
end if

private sub re_sub_rutina_nombre()
 for i=255 to 0 step -1
 detect=mid(archivo_nombre,i,1)
 if detect="." then
 archivo_nombre_index=i-1
 i=0
 end if
 next
 archivo_conv=mid(archivo_nombre,1,archivo_nombre_index)&".wav"
end sub


'--------------fin de rutina de seleccion de argumentos con: archivo archivo_tmp archivo_conv
' freq_conv adx_dir_out argumento_mono
'msgbox archivo&"    "&archivo_nombre&"     "&archivo_conv&"    "&archivo_tmp

directorio_actual = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
vgmstream=chr(34)&directorio_actual&"test.exe"&chr(34)' ruta del vgmstream (la aplicacion se llama test.exe)
adxencd=chr(34)&directorio_actual&"adxencd.exe"&chr(34)' ruta del adxencd
sox=chr(34)&"sox.exe"&chr(34)' ruta del SOund eXchange
Set info_reader=objshell.exec(vgmstream&" -m "&archivo)' LECTURA DE DATOS DEL ARCHIVO

estado = info_reader.stdout.readline

if estado="" then
msgbox "error al abrir el archivo,al parecer no es un stream valido",16,"VGMstream2ADXenc"
wscript.quit
end if

freq_real = info_reader.stdout.readline
canales_index=info_reader.stdout.readline
inicio = info_reader.stdout.readline
final = info_reader.stdout.readline


'---------------rutina de frequencia real
for contc=1 to 24
detect=Mid(freq_real,contc,3)
if detect=" Hz" then
hz_index=contc
end if
next

freq_index=hz_index-12
freq_real=Mid(freq_real,13,freq_index)
'---------------fin de rutina con freq_real

'--------------rutina definidora de frequencias y canales de salida
canales_index_d=mid(canales_index,11,255)
loop_detect=Mid(inicio,8,5)

if loop_detect="total" then
 exist_lps=0
 else
 exist_lps=1
end if

select case argumento_freq
 case 0
  frequencia=freq_real
 case 1
  frequencia=freq_conv
end select
'------------fin de rutina con exist_lps y canales_index_d


'------------rutinas de obtencion de loop inicio real y loop final real
if exist_lps=1 then
 '---------------rutina de loop inical real
 for contc=12 to 60
 detect=Mid(inicio,contc,8)
 if detect=" samples" then
 samplei_index=contc
 end if
 next
 sampleid_index=samplei_index-12
 loop_inicio_real=Mid(inicio,13,sampleid_index)
 '---------------fin de rutina con loop_inicio_real
 
 '---------------rutina de loop final real
 for contc=12 to 60
 detect=Mid(final,contc,8)
 if detect=" samples" then
 samplef_index=contc
 end if
 next
 
 samplefd_index=samplef_index-11
 loop_final_real=Mid(final,11,samplefd_index)
 '----------------fin de rutina con loop_final_real
 rem msgbox "se han obtenido los siguientes valores reales"&chr(13)&"loop inicial:"&loop_inicio_real&chr(13)&"loop final:"&loop_final_real&chr(13)&"frequencia:"&freq_real&chr(13)&"canales:"&canales_index_d
END IF
'-----------fin de rutina con loop_inicio_real y loop_final_real



'------------rutina calculadora v1.2
if argumento_freq=exist_lps then
 call calculadora
 else
 loop_inicio=loop_inicio_real
 loop_final=loop_final_real
end if

private sub calculadora()
 loop_iniciodec = ( ( FREQ_CONV * loop_inicio_real ) / freq_real )
 
 loop_finaldec = ( ( FREQ_CONV * loop_final_real ) / freq_real )
 
  rem Sub-rutina quita decimales
  
  rem -----rutina quita-decimales de loop_iniciodec
   for contc=1 to 255
   detect=Mid(loop_iniciodec,contc,1)
   if detect="," then
   dec_corr_i=contc
   end if
   next
   if not dec_corr_i="" then
   dec_corr_i_index=dec_corr_i-1
   loop_inicio=Mid(loop_iniciodec,1,dec_corr_i_index) + 1
   else
   loop_inicio=loop_iniciodec
   end if
   '-----fin de rutina con loop_inicio
  rem -----rutina quita-decimales de loop_finaldec
   for contc=1 to 255
   detect=Mid(loop_finaldec,contc,1)
   if detect="," then
   dec_corr_f=contc
   end if
   next
   if not dec_corr_f="" then
   dec_corr_f_index=dec_corr_f-1
   loop_final=Mid(loop_finaldec,1,dec_corr_f_index) + 1
   else
   loop_final=loop_finaldec
   end if
  '-----fin de rutina con loop_final
  
  'wscript.echo "la calculadora ha calculado "&loop_iniciodec&" "&loop_finaldec
 rem msgbox "se ha calculado sin decimales"& Chr(13) &loop_inicio& Chr(13) &loop_final,vbinformation
END SUB



' RUTINAS DE CONVERSION FINALES !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Objshell.run (vgmstream&" -o "&archivo_tmp&" -l 3 -f 0 "&archivo), 1, true

if canales_index_d>2 then WScript.echo "ADVERTENCIA:el "&archivo&" posee "&canales_index_d&" canales, para evitar una conversion indeseada verifique el stream"

select case argumento_freq
 case 0
  if argumento_mono=1 then
  Objshell.run (sox&" --show-progress -v3 -c"&canales_index_d&" "&archivo_tmp&" -c1 -r"&frequencia&" "&archivo_conv), 1, true
  end if
  objfso.GetFile(archivo_tmp).Name=archivo_conv
  
 case 1
  if argumento_mono=1 then
  Objshell.run (sox&" --show-progress -v3 -c"&canales_index_d&" "&archivo_tmp&" -c1 -r"&frequencia&" "&archivo_conv), 1, true
  else
  Objshell.run (sox&" --show-progress -v3 -c"&canales_index_d&" "&archivo_tmp&" -c2 -r"&frequencia&" "&archivo_conv), 1, true
  end if
  end select

Objfso.deletefile archivo_tmp

select case exist_lps
 case 0
    Objshell.run (adxencd&" "&archivo_conv&adx_dir_out), 1, true
 
 case 1
  Objshell.run (adxencd&" "&archivo_conv&adx_dir_out&" -lps"&loop_inicio&" -lpe"&loop_final), 1, true
end select
Objfso.deletefile archivo_conv

WScript.quit