Flash pone carteles si un proceso es muy largo así que lo dividí en frames. En ese sentido no es que digo de mejorarlo, eso es complicado.

Escena 1
   actions for fotograma 1
      // De las permutaciones a crear:
      Largo = 1;
      // Primeras opciones y costos:
      // Largo de la permutación, id:
      L1P1 = "A";
      L1P1Costo = 4;
      L1P1Opciones = ["B", "C", "D", "E", "F", "G", "H"];
      L1P2 = "B";
      L1P2Costo = 4;
      L1P2Opciones = ["A", "C", "D", "E", "F", "G", "H"];
      L1P3 = "C";
      L1P3Costo = 4;
      L1P3Opciones = ["A", "B", "D", "E", "F", "G", "H"];
      L1P4 = "D";
      L1P4Costo = 4;
      L1P4Opciones = ["A", "B", "C", "E", "F", "G", "H"];
      L1P5 = "E";
      L1P5Costo = 2;
      L1P5Opciones = ["A", "B", "C", "D", "F", "G", "H"];
      L1P6 = "F";
      L1P6Costo = 2;
      L1P6Opciones = ["A", "B", "C", "D", "E", "G", "H"];
      L1P7 = "G";
      L1P7Costo = 2;
      L1P7Opciones = ["A", "B", "C", "D", "E", "F", "H"];
      L1P8 = "H";
      L1P8Costo = 2;
      L1P8Opciones = ["A", "B", "C", "D", "E", "F", "G"];
      // Costes:
      CostoAB = 2;
      CostoBA = 2;
      CostoAC = 1;
      CostoCA = 1;
      CostoAD = 2;
      CostoDA = 2;
      CostoAE = 2;
      CostoEA = 2;
      CostoAF = 2;
      CostoFA = 2;
      CostoAG = 3;
      CostoGA = 3;
      CostoAH = 3;
      CostoHA = 3;
      // 
      CostoBC = 2;
      CostoCB = 2;
      CostoBD = 1;
      CostoDB = 1;
      CostoBE = 2;
      CostoEB = 2;
      CostoBF = 2;
      CostoFB = 2;
      CostoBG = 3;
      CostoGB = 3;
      CostoBH = 3;
      CostoHB = 3;
      // 
      CostoCD = 2;
      CostoDC = 2;
      CostoCE = 2;
      CostoEC = 2;
      CostoCF = 2;
      CostoFC = 2;
      CostoCG = 3;
      CostoGC = 3;
      CostoCH = 3;
      CostoHC = 3;
      // 
      CostoDE = 3;
      CostoED = 3;
      CostoDF = 2;
      CostoFD = 2;
      CostoDG = 3;
      CostoGD = 3;
      CostoDH = 3;
      CostoHD = 3;
      // 
      CostoEF = 1;
      CostoFE = 1;
      CostoEG = 1;
      CostoGE = 1;
      CostoEH = 2;
      CostoHE = 2;
      // 
      CostoFG = 2;
      CostoGF = 2;
      CostoFH = 1;
      CostoHF = 1;
      // 
      CostoGH = 1;
      CostoHG = 1;
      // Para saber cuántas permutaciones con el largo anterior hay...
      // que extender:
      PermutacionesDeOldL = 8;
      Mensaje = "";
   actions for fotograma 2
      // Se extenderá L?P1, L?P2, etc, esto evita repetir concatenaciones:
      L_OldLargo_P = "L"+Largo+"P";
      // Incrementar largo de las permutaciones a crearse:
      Largo++;
      Mensaje = "Nuevo largo de permutaciones: "+Largo;
      // Parte de nombres de nuevas permutaciones, usado para evitar...
      // repetir concatenaciones:
      L_NewLargo_P = "L"+Largo+"P";
      NroDePermutacionaExtender = 0;
      // Cuando se empiece a extender permutaciones más largas,
      // esto determina cuántas hay que extender (PermutacionesDeOldL):
      PermutacionesNuevas = 0;
   actions for fotograma 3
      // Cambiar permutación a extender:
      NroDePermutacionaExtender++;
      NombreDePaExtender = L_OldLargo_P+NroDePermutacionaExtender;
      // Para evitar evals:
      EvaluedNombreDePaExtender = eval(NombreDePaExtender);
      // trace ("Se extenderá la permutación "+NombreDePaExtender+", que es "+EvaluedNombreDePaExtender);
      // Copia de variable, para evitar referencias:
      CaracteresDisponibles = eval(NombreDePaExtender+"Opciones");
      // Para evitar restas:
      LastNroDeCaracter = CaracteresDisponibles.length-1;
      NroDeCaracteraAgregar = -1;
      // Copia para evitar referencias:
      Costo = eval(NombreDePaExtender+"Costo");
      Mensaje = "Se extenderá la permutación "+NombreDePaExtender+", que es "+EvaluedNombreDePaExtender+" y cuesta "+Costo;
      // Último punto alcanzado:
      LastPunto = EvaluedNombreDePaExtender.charat(EvaluedNombreDePaExtender.length-1);
      // ¿NO SE PODRÍA USAR LastNroDeCaracter?
      // Para evitar repetir concatenaciones al averiguar costo a sumar:
      Costo_LastPunto = "Costo"+LastPunto;
      // ResumenParaCosto = "Costo"+(eval(NombreDePaExtender).charat(LastNroDeCaracter));
   actions for fotograma 4
      // Cambiar el caracter que se agrega:
      NroDeCaracteraAgregar++;
      // Crear permutación usando la a extender,
      // agregándole el caracter señalado:
      PermutacionesNuevas++;
      NombreDeNuevaP = L_NewLargo_P+PermutacionesNuevas;
      set (NombreDeNuevaP, eval(NombreDePaExtender)+CaracteresDisponibles[NroDeCaracteraAgregar]);
      // trace ("Nueva permutación: "+NombreDeNuevaP+": "+eval(NombreDeNuevaP));
      // Crear su variable de Opciones
      // (slice para copiar el array,
      // splice para quitarle un elemento):
      // Copia el array:
      CopiaDelArray = CaracteresDisponibles.slice();
      // A esa copia se le quita el caracter agregado en la permutación:
      CopiaDelArray.splice(NroDeCaracteraAgregar, 1);
      set (NombreDeNuevaP+"Opciones", CopiaDelArray);
      // trace ("Sus opciones son: "+NombreDeNuevaP+"Opciones: "+eval(NombreDeNuevaP+"Opciones"));
      set (NombreDeNuevaP+"Costo", Costo+(eval(Costo_LastPunto+(eval(NombreDeNuevaP).charat(eval(NombreDeNuevaP).length-1)))));
   actions for fotograma 5
      if (NroDeCaracteraAgregar<LastNroDeCaracter) {
         // Se volverá a extender la permutación, cambiando el caracter:
         gotoAndPlay (4);
      } else if (NroDePermutacionaExtender<PermutacionesDeOldL) {
         // Se volverá a cambiar la permutación a extender:
         delete eval(NombreDePaExtender);
         delete eval(NombreDePaExtender+"Opciones");
         delete eval(NombreDePaExtender+"Costo");
         gotoAndPlay (3);
      } else if (Largo<4) {
         // Se volverá a incrementar el largo...
         // de las permutaciones a extender:
         delete eval(NombreDePaExtender);
         delete eval(NombreDePaExtender+"Opciones");
         delete eval(NombreDePaExtender+"Costo");
         PermutacionesDeOldL = PermutacionesNuevas;
         gotoAndPlay (2);
      }
   actions for fotograma 6
      Mensaje = "Borrando variables innecesarias.";
      NroDePermutacionaBorrar = 0;
      do {
         NroDePermutacionaBorrar++;
         delete eval(L_NewLargo_P+NroDePermutacionaBorrar+"Opciones");
         delete eval(L_NewLargo_P+NroDePermutacionaBorrar);
      } while (NroDePermutacionaBorrar<PermutacionesNuevas);
   actions for fotograma 7
      delete eval(NombreDePaExtender);
      delete eval(NombreDePaExtender+"Opciones");
      delete PermutacionesDeOldL;
      delete Largo;
      delete L_OldLargo_P;
      delete L_NewLargo_P;
      delete NroDePermutacionaExtender;
      delete PermutacionesNuevas;
      delete NombreDePaExtender;
      delete CaracteresDisponibles;
      delete LastNroDeCaracter;
      delete NroDeCaracteraAgregar;
      delete NombreDeNuevaP;
      delete CopiaDelArray;
      delete NroDePermutacionaBorrar;
      Mensaje = "Listo.";
      stop ();
 

Tanto borrado de variables al final es porque falta que muestre cual es el camino, tendría que comparar cada costo obtenido y quedarse con el menor ¿me conviene hacer eso al final?

El caso que estoy analizando es probablemente simplón: Pasar por los 8 tornillos (o lo que sean) tocando la menor cantidad de escaleras posible:
https://www.youtube.com/watch?v=ovi2Vr1Wza0
El video ese no es mío y no se está intentando eso, es simplemente para que vean.

Pero bueno ¿estoy borrando variables inexistentes?

Y me faltaría que se borren estas:
  Variable _level0.CostoAB = 2
  Variable _level0.CostoBA = 2
  Variable _level0.CostoAC = 1
  Variable _level0.CostoCA = 1
  Variable _level0.CostoAD = 2
  Variable _level0.CostoDA = 2
  Variable _level0.CostoAE = 2
  Variable _level0.CostoEA = 2
  Variable _level0.CostoAF = 2
  Variable _level0.CostoFA = 2
  Variable _level0.CostoAG = 3
  Variable _level0.CostoGA = 3
  Variable _level0.CostoAH = 3
  Variable _level0.CostoHA = 3
  Variable _level0.CostoBC = 2
  Variable _level0.CostoCB = 2
  Variable _level0.CostoBD = 1
  Variable _level0.CostoDB = 1
  Variable _level0.CostoBE = 2
  Variable _level0.CostoEB = 2
  Variable _level0.CostoBF = 2
  Variable _level0.CostoFB = 2
  Variable _level0.CostoBG = 3
  Variable _level0.CostoGB = 3
  Variable _level0.CostoBH = 3
  Variable _level0.CostoHB = 3
  Variable _level0.CostoCD = 2
  Variable _level0.CostoDC = 2
  Variable _level0.CostoCE = 2
  Variable _level0.CostoEC = 2
  Variable _level0.CostoCF = 2
  Variable _level0.CostoFC = 2
  Variable _level0.CostoCG = 3
  Variable _level0.CostoGC = 3
  Variable _level0.CostoCH = 3
  Variable _level0.CostoHC = 3
  Variable _level0.CostoDE = 3
  Variable _level0.CostoED = 3
  Variable _level0.CostoDF = 2
  Variable _level0.CostoFD = 2
  Variable _level0.CostoDG = 3
  Variable _level0.CostoGD = 3
  Variable _level0.CostoDH = 3
  Variable _level0.CostoHD = 3
  Variable _level0.CostoEF = 1
  Variable _level0.CostoFE = 1
  Variable _level0.CostoEG = 1
  Variable _level0.CostoGE = 1
  Variable _level0.CostoEH = 2
  Variable _level0.CostoHE = 2
  Variable _level0.CostoFG = 2
  Variable _level0.CostoGF = 2
  Variable _level0.CostoFH = 1
  Variable _level0.CostoHF = 1
  Variable _level0.CostoGH = 1
  Variable _level0.CostoHG = 1
  Variable _level0.EvaluedNombreDePaExtender = "HGF"
  Variable _level0.Costo = 5
  Variable _level0.LastPunto = "F"
  Variable _level0.Costo_LastPunto = "CostoF"
  Variable _level0.L3P336Costo = 5

O sea, si el programa tuviese más posibles caminos, serían más cantidad de "CostoLetra1Letra2". Además esta L3P336Costo, que supongo es la última de largo 3, si el programa llegara a formar caminos más largos (lo configuré hasta 4 por ahora para pruebas, pero se precisan 8), sería otra. No sé por qué no se borra.
Otras supongo que son fáciles de borrar.

¿Qué más me recomiendan?

No he olvidado esto:
https://foro.elhacker.net/buscador-t522268.0.html
pasa que en aquél entonces no me atraía tanto el tema. Leeré eso pronto.