Te puedo confirmar que el codigo esta bien.
parece que lo compilas con la nueva y parece que no te funciona bien esta parte del codigo:
Archivo: PRG/Archivos-Global.prg
Liniea: 128
- function CARGAR_TODO_DEL_JUEGO();
- private
- r,g,b;
- string ftps_txt;
- begin
- jkeys_set_default_keys();
- jkeys_controller();
- texto_boton_info(-2,CONFIG_KEY[0]);
- /////////////////////SELECTOR DE TEMA DE JUEGO///////////////
- get_dirinfo("temas-juego\*.*",_subdir);
- FOR(bo=0;bo<dirinfo.files;bo++);
- text_temp=dirinfo.name[bo];
- bo[5]=0;
- if(text_temp<>"." and text_temp<>".." and text_temp<>"");
- if(file_exists("temas-juego\"+text_temp+"\config.ini")and file_exists("temas-juego\"+text_temp+"\bloques.ini")and file_exists("temas-juego\"+text_temp+"\menu\022.map")and file_exists("temas-juego\"+text_temp+"\menu\023.map")and file_exists("temas-juego\"+text_temp+"\menu\024.map"));
- if(file_exists("temas-juego\"+text_temp+"\personajes.ini")and file_exists("temas-juego\"+text_temp+"\micro.fnt")and file_exists("temas-juego\"+text_temp+"\texto.fnt")and file_exists("temas-juego\"+text_temp+"\medio.fnt")and file_exists("temas-juego\"+text_temp+"\grande.fnt"));
- temas_hay[bo[1]].carpetaN=text_temp;
- bo[1]++;
- IF(BO[1]>MAX_TEMAS_HAY);BREAK;END
- end
- end
- end
- end
- top_temas_hay=bo[1];
Es decir que la variable BO[1] se te pone a 0
deberia ser 2 (por que hay 2 tematicas validas)
algo falla en la nueba beta cictec.
o va por el get_dirinfo o file_exists
ademas comprueba que existan esos files que te pide en el codigo, todo aquello que esta en file_exists.
si no algun problema tienes en la nueva beta....
prueba de trazar ese momento de comprobar las carpetas de get_dirinfo y comprobar si puede analizar si exsisten los files que te piden de esa tematica.
si aun así no te va,
añade esto en la linea 152...
temas_hay[0].carpetaN="PUSH";bo[1]=1;
esto Creera de manera forzosa que existe 1 tematica valida.
si quieres los 2 abria que ponerlo así:
temas_hay[0].carpetaN="PUSH";
temas_hay[1].carpetaN="Torture Killer";bo[1]=2;