onClipEvent (load) {
	N = 0;
}
onClipEvent (enterFrame) {
	N = N+1;
	Opacidad = 100-N*2.5;
	if (Opacidad>0) {
		attachMovie("LuzRojaB", "Light"+N, N);
		setProperty ("Light"+N, _xscale, 100+N*N);
		setProperty ("Light"+N, _yscale, 100+N*N);
		setProperty ("Light"+N, _alpha, Opacidad);
	}
}

Escena 1
   actions for fotograma 1
      N = 0;
      C = String(N).charat(N);
      trace (N+", "+C);
      if (C == 0) {
         trace ("para que C sea 0 usar N: "+N);
      } else if (C == -9) {
         trace ("para que C sea -9 usar N: "+N);
      } else if (C == 4.5) {
         trace ("para que C sea 4.5 usar N: "+N);
      } else if (C == -7.2) {
         trace ("para que C sea -7.2 usar N: "+N);
      }
   actions for fotograma 2
      N = 9;
      C = String(N).charat(N);
      trace (N+", "+C);
      if (C == 0) {
         trace ("para que C sea 0 usar N: "+N);
      } else if (C == -9) {
         trace ("para que C sea -9 usar N: "+N);
      } else if (C == 4.5) {
         trace ("para que C sea 4.5 usar N: "+N);
      } else if (C == -7.2) {
         trace ("para que C sea -7.2 usar N: "+N);
      }
   actions for fotograma 3
      ListPart1 = 0;
      ListPart2 = 9;
      ListParts = 2;
   actions for fotograma 4
      Mayordistancia = 0;
      Puntero = ListParts;
   actions for fotograma 5
      Distancia = eval("ListPart"+Puntero)-eval("ListPart"+(Puntero-1));
      if (Distancia>Mayordistancia) {
         Mayordistancia = Distancia;
         NElegido = Puntero;
      }
      Puntero = Puntero-1;
   actions for fotograma 6
      if (Puntero>1) {
         gotoAndPlay (5);
      } else {
         N = Math.ceil(eval("ListPart"+NElegido)-eval("ListPart"+(NElegido-1))/2);
         C = String(N).charat(N);
         trace (N+", "+C);
         if (C == 0) {
            trace ("para que C sea 0 usar N: "+N);
         } else if (C == -9) {
            trace ("para que C sea -9 usar N: "+N);
         } else if (C == 4.5) {
            trace ("para que C sea 4.5 usar N: "+N);
         } else if (C == -7.2) {
            trace ("para que C sea -7.2 usar N: "+N);
         }
      }
   actions for fotograma 8
      // Agregar N en el lugar que le corresponde en la lista.
      if (N<eval("ListPart"+Puntero)) {
         Saver = eval("ListPart"+Puntero);
         set ("ListPart"+Puntero, N);
         N = Saver;
      } else {
         Puntero = Puntero+1;
         if (Puntero>ListParts) {
            // Agregar N al final de la lista.
            set ("ListPart"+Puntero, N);
            ListParts = ListParts+1;
            // Producir nuevo N.
            gotoAndPlay (4);
         } else {
            // Ver si al nuevo N le corresponde estar en la siguiente parte.
            gotoAndPlay (7);
         }
      }
   actions for fotograma 9
      Puntero = Puntero+1;
      // Correr hacia atrás a los elementos de la lista.
      Saver = eval("ListPart"+Puntero);
      set ("ListPart"+Puntero, N);
      N = Saver;
   actions for fotograma 10
      if (Puntero == ListParts) {
         ListParts = ListParts+1;
         // Sólo falta correr al último elemento.
         set ("ListPart"+ListParts, N);
         gotoAndPlay (4);
      } else {
         gotoAndPlay (9);
      }

Escena 1
   actions for fotograma 1
      Respuesta = "Vencer al enemigo mediante acciones, el enemigo tiene 11 HP. Se recomienda la serie... ";
      // Situación inicial:
      // HP inicial del enemigo:
      EnBaseHP = 11;
      trace ("EnBaseHP: "+EnBaseHP);
      // Guardar situación y cómo se produjo:
      // Esta variable es el principio del nombre de los datos (en este caso S11):
      SitID = "S"+EnBaseHP;
      trace ("SitID: "+SitID);
      // Esta variable marca qué acción se realizó en la situación anterior (en este caso ninguna):
      set (SitID+"ActionAnterior", "Ninguna");
      trace (SitID+"ActionAnterior: "+eval(SitID+"ActionAnterior"));
      // En este caso la variable es S11Action="Ninguna".
      // Acción que será usada 1ero:
      Action = 1;
      trace ("Action: "+Action);
      // Variables sobre situaciones anotadas:
      // Total de situaciones anotadas:
      As = 0;
      trace ("Situaciones anotadas: "+As);
      // Situación anotada que será investigada 1ero:
      A = 0;
      trace ("Situación anotada a investigar cuando se comience a investigar las anotadas: "+A);
   actions for fotograma 2
      // Reset de la situación. Aplicación de la acción:
      EnHP = EnBaseHP-Action;
      trace ("Reset de la situación, aplicación de la acción, la situación ahora es:");
      trace ("EnHP: "+EnHP);
      // ¿Se logró el objetivo?
      if (EnHP<=0) {
         // Sí, iniciar muestra de serie de acciones que la causan:
         Serie = Action;
         trace ("Solución hallada, iniciando proceso para mostrar respuesta.");
         gotoAndPlay (5);
      } else {
         // No se logró el objetivo.
         trace ("No se logró el objetivo.");
         // ¿La situación producida está anotada?
         if (eval("S"+EnHP+"ActionAnterior") == undefined) {
            trace ("La situación producida no está anotada.");
            // La situación no está anotada, anotarla y cómo se logró:
            SitID = "S"+EnHP;
            set (SitID+"EnHPAnterior", EnBaseHP);
            set (SitID+"ActionAnterior", Action);
            trace ("Nueva situación anotada: "+SitID);
            trace ("Su antecedente fue ("+SitID+"EnHPAnterior): "+EnBaseHP);
            trace ("y la acción fue ("+SitID+"ActionAnterior): "+Action);
            // También se agrega como situación a investigar y se anota en qué consiste:
            As = As+1;
            SitID = "A"+As;
            set (SitID+"EnHP", EnHP);
            trace ("Situaciones anotadas: "+As);
            trace ("La última consiste en (EnHP): "+eval(SitID+"EnHP"));
         } else {
            trace ("La situación producida ya está anotada.");
         }
      }
   actions for fotograma 3
      // La situación existe. ¿Modificar acción es posible?
      if (Action<2) {
         // Sí, modificarla:
         trace ("Es posible modificar acción.");
         Action = Action+1;
         trace ("Action fue modificada, es: "+Action);
         gotoAndPlay (2);
      } else {
         // No es posible modificar la acción.
         trace ("No es posible modificar la acción.");
         if (A<As) {
            // Aún hay situaciones anotadas sin investigar, investigar una (probablemente lo ideal sería investigar la más diferente a las investigadas, pero me es difícil programar eso):
            trace ("Aún hay situaciones anotadas sin investigar.");
            A = A+1;
            EnBaseHP = eval("A"+A+"EnHP");
            trace ("Se investigará la situación anotada nro: "+A);
            trace ("Consiste en EnBaseHP: "+EnBaseHP);
            Action = 1;
            trace ("Reset de la acción a usar, es: "+Action);
            gotoAndPlay (2);
         } else {
            // No hay situaciones anotadas sin investigar.
            Respuesta = "No es posible lograr el objetivo.";
            trace ("No hay situaciones anotadas sin investigar ni es posible lograr el objetivo.");
            stop ();
         }
      }
   actions for fotograma 5
      // Obtener acción anterior:
      ActionAnterior = eval("S"+EnBaseHP+"ActionAnterior");
      trace ("La acción anterior fue: "+ActionAnterior);
      // ¿Hubo?
      if (ActionAnterior != "Ninguna") {
         // Sí, agregarla en la lista:
         Serie = ActionAnterior+" "+Serie;
         trace ("Acción agregada en la serie.");
         // Averiguar cual fue la situación anterior:
         EnBaseHP = eval("S"+EnBaseHP+"EnHPAnterior");
         trace ("Se realizó en la situación: S"+EnBaseHP);
         // Repetir este frame.
         gotoAndPlay (4);
      } else {
         // No hubo una acción anterior, mostrar la serie:
         Respuesta = Respuesta+Serie;
         stop ();
      }