Para establecer el número de intentos (10) y colores (10) hay que modificar la tarea pero ya tenemos para empezar. Cada letra corresponderá a un color.
Si encuentra un color, convierte la letra del código secreto (%codigo) en minúscula para no volver a encontrarla.
Si una blanca se cuenta erróneamente en el lugar de una negra, al llegar a la posición de esa negra verifica si hay más letras iguales. Si no hay se resta la blanca, si hay se cambia a minúscula la primera que encuentre.
Si hay algún fallo en el razonamiento, no lo veo. Debería funcionar.
Probé con el otro método de 3 bucles y con este es más rápido apesar de mucho más acciones.
A9/28: Bucle de negras y blancas
A10/20: Negras
A21/27: Blancas
El '~' en A10 es para permitir coincidencia de mayúsculas con minúsculas.
El 'ig' en A11 es para distinguir mayúsculas de minúsculas.
En A16/17 corrige si una blanca se contó en lugar de una negra.
Tarea: Mastermind
A1: Array Set [ Matriz de Variables (array):%codigocopia Values:A,B,C,D,E,F,G,H,I,J,A,B,C,D,E,F,G,H,I,J,A,B ,C,D,E,F,G,H,I,J,A,B,C,D,E,F,G,H,I,J Separador:, ]
A2: Procesar Array [ Matriz de Variables (array):%codigocopia Tipo:Barajar ]
<probar>
A3: Array Set [ Matriz de Variables (array):%codigo Values:%codigocopia(1:4) Separador:, ]
A4: Consulta de Variable [ Título:4 letras entre A-J %codigocopia1%codigocopia2%codigocopia3%codigocopi a4 negras %negras blancas %blancas intentos %intentos Variable:%probar Tipo de entrada:Mayúsc / Todo Por Defecto: Imagen de fondo: Disposición:Variable Query Cuenta atrás (segundos):600 Mostrar sobre bloqueo pantalla:Apagado ]
A5: Buscar y Reemplazar Contenido de Variable [ Variable:%probar Buscar:\w Ignorar Caso:Apagado Multilínea:Apagado Una sola coincidencia:Apagado Almacenar Coincidencias En:%probar Reemplazar Coincidencias:Apagado Reemplazar Con: ]
A6: Sumar a variable [ Nombre:%intentos Valor:1 Módulo (wrap around):0 ]
A7: Establecer variable [ Nombre:%negras A:0 Recurse Variables:Apagado Calcular:Apagado Añadir:Apagado ]
A8: Establecer variable [ Nombre:%blancas A:0 Recurse Variables:Apagado Calcular:Apagado Añadir:Apagado ]
A9: For [ Variable:%posicion Ítems:1:4 ]
A10: Si (if) [ %probar(%posicion) ~ %codigo(%posicion) ]
A11: Si (if) [ %probar(%posicion) ig %codigo(%posicion) ]
A12: Convertir Variable [ Nombre:%codigo(%posicion) Función:A Minúsculas Almacenar Resultado en: ]
A13: Else
A14: Establecer variable [ Nombre:%posicion_contenido A:%probar(%posicion) Recurse Variables:Apagado Calcular:Apagado Añadir:Apagado ]
A15: Array Set [ Matriz de Variables (array):%indices_blancas Values:%codigo(#?%posicion_contenido) Separador:, ]
A16: Restar de variable [ Nombre:%blancas Valor:1 Módulo (wrap around):0 ] Si (if) [ %indices_blancas1 < 1 ]
A17: Convertir Variable [ Nombre:%codigo(%indices_blancas1) Función:A Minúsculas Almacenar Resultado en: ] Si (if) [ %indices_blancas1 > 0 ]
A18: Array Clear [ Matriz de Variables (array):%indices_blancas ]
A19: Fin si (End if)
A20: Sumar a variable [ Nombre:%negras Valor:1 Módulo (wrap around):0 ]
A21: Else Si (if) [ %codigo() ~ *%probar(%posicion)* ]
A22: Establecer variable [ Nombre:%posicion_contenido A:%probar(%posicion) Recurse Variables:Apagado Calcular:Apagado Añadir:Apagado ]
A23: Array Set [ Matriz de Variables (array):%indices_blancas Values:%codigo(#?%posicion_contenido) Separador:, ]
A24: Convertir Variable [ Nombre:%codigo(%indices_blancas1) Función:A Minúsculas Almacenar Resultado en: ]
A25: Array Clear [ Matriz de Variables (array):%indices_blancas ]
A26: Sumar a variable [ Nombre:%blancas Valor:1 Módulo (wrap around):0 ]
A27: Fin si (End if)
A28: End For
A29: Esperar [ MS:0 Segundos:1 Minutos:0 Horas:0 Días:0 ]
A30: Ir a acción [ Tipo:Etiqueta Acción Número:1 Etiqueta:probar ] Si (if) [ %intentos < 10 & %negras < 4 ]
A31: Flash [ Texto:Exito Largo:Apagado ] Si (if) [ %negras ig 4 ]
A32: Flash [ Texto:Fracaso Largo:Apagado ] Si (if) [ %negras nig 4 ]