minimbreesmm:
Está muy interesante y hasta me resulta educativo lo que dices. Ten en cuenta la posibilidad de que requieras explicarle mucho más de lo que crees, o sea ¿quieres que averigüe lo que es "pon" o se lo vas a explicar? Explicarle cómo averiguar es complicado...
También te sugiero iniciar por cosas simples, por ejemplo hablaste de género y de invertir la estructura de una frase, pero está claro que en principio la estructura de los datos a ingresar podría ser una y sin género, por ejemplo:
Acción Objeto1 Objeto2
Entonces:
Pon Basura Bote
Descarga Megamente 00:30:00
Hace mucho cuando empecé con el tema "IA" iba por un rumbo similar al tuyo, em has dado ganas de avanzar por ese camino xD pero bueno sigo con el mío.
Por cierto el código que puse está mal, no me resulta sencillo explicar por qué y no tengo muchas ganas así que simplemente pondré lo que uso ahora. Además, esto compara varias variables, lo anterior sólo comparaba 2.
Crear variables a guardar en archivo (las As y Act) y crear archivo cuyo contenido sean dichas variables y su nombre esté basado en ellas.
Código MF5:
Ver originalA1 = 1;
A2 = 1;
A3 = 1;
A4 = 1;
A5 = 1;
Act = 1;
M.Vars = 5;
M.Z = 1;
M.SaveID = A1;
do {
M.Z = M.Z+1;
M.SaveID = M.SaveID+"_"+eval("A"+M.Z);
} while (M.Z<M.Vars);
M.SaveID = M.SaveID+".txt";
fscommand ("save", M.SaveID);
En otro frame:
Crear, en otro objeto, las mismas variables pero con valores que se supone que no se guardarán en el archivo:
Código MF5:
Ver original// Proceso para verificar save.
M.Cargas = 0;
M.Z = 0;
do {
M.Z = M.Z+1;
set ("M.A"+M.Z, -100);
} while (M.Z<M.Vars);
M.Act = -100;
Cargar las variables en el objeto:
Código MF5:
Ver originalM.Comp = 0;
M.Cargas = M.Cargas+1;
loadVariables (M.SaveID, "M");
Chequear que las variables se hayan cargado como número, es decir, que los valores "imposibles" hayan sido sustituídos por los valores debidos:
Código MF5:
Ver originalM.Comp = M.Comp+1;
M.Verif = 1;
M.Z = 0;
do {
M.Z = M.Z+1;
M.AZ = Number(eval("M.A"+M.Z));
if (-10>M.AZ) {
M.Verif = 0;
M.Z = M.Vars;
}
} while (M.Z<M.Vars);
M.Act = Number(M.Act);
if (-10>M.Act) {
M.Verif = 0;
}
if (M.Verif == 0) {
if (M.Comp == 10) {
if (M.Cargas == 3) {
fscommand ("save", "30 fallas en "+M.SaveID);
fscommand ("quit");
} else {
// reload (ir a cargar variables; fragmento anterior).
}
} else {
// retry (repetir este fragmento).
}
}
agleiva respondo tu mensaje más tarde.