!****************************************************************
! El objeto MensajesLibreria sirve para modificar las respuestas por
! defecto de la libreria. Debe escribirse entre el Include "EParser" y
! el include "Acciones"
Object  MensajesLibreria
 with   antes[;
         Miscelanea:
            switch(ml_n)
            {
             26: rtrue;
             30: "Hasta donde alcanza tu entendimiento, no hay nada 
                aquí que responda a ese nombre.";
                ! COGE XADI
             39: "No puedes ocuparte de eso ahora.";
                ! Actuar sobre lo irrelevante
             44: "No hay nada a tu alrededor.";
                ! "Coge todo" si no hay nada
            }
         Mirar:
            if (ml_n>4)
            {
                print "^ ";
                if (ml_o~=localizacion)
                {   if (ml_o has soporte) print "Sobre "; else print "En ";
                    print (el) ml_o;
                }
                else print "En el suelo ";
                if (n==5) print "también ";
                print "hay ";
                EscribirListaDesde(child(ml_o),
                                   ESPANOL_BIT + BANDERAUX_BIT +
                                   RECURSIVO_BIT + INFOPARCIAL_BIT +
                                   BREVE_BIT + OCULTAR_BIT);
                if (ml_o~=localizacion) ".";
                ".";
            }
         Tocar: if (ml_n==3) ! Tocarse a sí mismo
             <<Examinar jugador>>;
         Dormir:
            "No parece un buen momento para ponerse a dormir.";
         Cantar:
            "La demencia empieza a apoderarse de tu mente. Tienes que
            hacer grandes esfuerzos por controlarla.";
         Trepar:
            "Este no es un lugar adecuado para trepar.";
         Tacos:
            "Lo desesperado de la situación te hace perder tu normal
            compostura y jurar de forma innoble.";
         Nadar:
            "No puedes nadar sin agua.";
         Quemar:
            "No hay nada aquí con lo que hacer fuego.";
         MirarDebajo:
!            if (localizacion ofclass CeldaOscura)
!                "No ves nada en esta oscuridad.";
            "No hay nada que pueda servirte.";
         Frotar:
            "Frotas ", (el) ml_o, " con las manos, sin lograr
                resultado alguno.";
         Puntuacion:
!            if (banderafin==1)
!                 "La inquisición ha terminado contigo.";
            if (banderafin==2)
                 rtrue;
            else
                "En este juego no hay puntuación.";
        ];
! Proporcionamos una funcion ImprimirRango, antes de incluir Acciones,
! para sustituir a la que venia por defecto, que escribia "." La
! nuestra no escribirá nada de nada.
[ ImprimirRango;
];

! Finalmente, reemplazamos la rutina de la accion Lugares. Normalmente
! esta rutina produce una lista de los lugares en que el jugador ha
! estado, pero en este juego resulta inadecuado.
Replace LugaresSub;
[ LugaresSub;
    "Ójala pudieras recordar dónde has estado antes de llegar aquí.";
];

! Rutina para evitar que al "coger todo" aparezcan los objetos de escenario
[ ElegirObjetos obj que;
    if (que == 1 or 0) {
        if (obj has escenario)  return 2;
        if (obj has oculto)  return 2;
        if (obj == actor)  return 2;
    }
];