CAAD

! Definiciones para el teclado
! Esto va después de la rutina de inicialización
[TeclearSub;
"No hay nada tecleable por aquí­";
];

! LINEAS DE GRAMATICA

! Definiciones para el teclado
Verb 'teclea' 'ingresa' 'digita'
* -> teclear
* noun -> teclear
* topic -> teclear;

!Esto va donde pongamos el teclado
Object QWERTY "teclado" Lugar
with
   nombre 'teclado' 'teclas',         
   descripcion
   "Es un teclado QWERTY común.",
   reaccionar_antes
   [;
   teclear :
      np = 2;
      switch (SiguientePalabra()) {
         'password': print
            "De pronto...";
            !Resto del código para password correcto.
         default: "Nada ocurre...";
      };
   ],
has masculino escenario;

array contrasena1 string 10;
array contrasena2 string 10;

!Definimos nuestros 2 arrays tipo string.
!Es probable que no fuera estrictamente necesario que fuesen
!de tipo string, pero eso facilitó mucho testear y depurar
!el ejemplo

Include "EParser";
Include "Acciones";
Include "Gramatica";

!Aquí­ ponemos los includes de siempre

[inicializar;
   do
   {
      print "Introduce password:^^";
      KeyboardPrimitive(contrasena1);
   }
   until (contrasena1->1~=0);

!He puesto el primer KeyboardPrimitive en un bucle
!del que no sale hasta que la longitud de lo introducido por el
!jugador (que se guarda, como vimos, en posición 1 del array)
!sea distinta de cero
!Así­ nos aseguramos de que no introduce una cadena vací­a

   for(::)
      if (confirmar_contrasena()==true) break;

!Aquí­ está el bucle que llama a confirmar_contrasena las veces
!que haga falta hasta que el password sea correcto

   localizacion=limbo;
];



[confirmar_contrasena x;

   print "Confirma password:^^";
   KeyboardPrimitive(contrasena2);

   if (contrasena2->1==0)
   {
      print "Password INCORRECTO";
      rfalse;
   }

!pequeño parche para que salta automaticamente como
!password incorrecto a poco que el jugador introduzaca una
!cadena vací­a

   if (contrasena1->1 ~= contrasena2->1)
   {
      print "Password INCORRECTO";
      rfalse;
   }

!otro pequeño parche salvavidas que retorna false a poco
!que lo introducido por el jugador no tenga la misma longitud
!exacta que la contraseña.
!Estos dos últimos pueden parecer un poco paranoides, pero
!evitan un par de problemas en los que el jugador
!podí­a hacer trampa

   for(x=2:x<=(contrasena1->1+1):x++)
   {   
      if (contrasena1->x ~= contrasena2->x)
      {   print "Password INCORRECTO^";
         rfalse;
      }
   }
   "^^Password CORRECTO^";

!Y este era el bucle que examina la contraseña introducida y la
!compara caracter a caracter (letra a letra) con la original.
!De nuevo, notese que empieza por la tercera posición (la de
!í­ndice 2) y dura mientras x sea menor o igual que lo indicado en
!la longitud de la contraseña original + 1, para que todo cuadre
!bien

];

object limbo "limbo"
with descripcion "¿Como has llegado aquí­?^
Malditos betatesters...^^",
has luz;