!================================================================
! Extensiones y modificaciones a la gramática
!================================================================


[ ResumenSub;
    print "Despertaste en la cola sin recordar quién eras ni dónde estabas.^";
    if (jugador.recuerdaNovia) {
        print "Al verte en el espejo que te prestó ";
        elDeDelante.nombre_the();
        print " recordaste a Linda.^";
    }
        
    if (fotoMujer.vista)
        print "Al mirar la foto de la cartera pudiste ver a Carmen, tu esposa.^";

    if (jugador.conoceDosMujeres)        
        print "Estos dos hechos te llevaron a darte cuenta de que Linda debía ser
               un lío que tenías aparte del matrimonio.^";
               
    if (jugador.recuerdaViolencia)
        print "Gracias a algo que te dijo el guardia recordaste un asesinato;
               tu esposa fue asesinada de un golpe con una lámpara, aunque
               no eres capaz de recordar quién fue el homicida.^";
               
    if (jugador.recuerdaAsesino) {
        print "Al pedir el espejo otra vez a ";
        elDeDelante.nombre_the();
        print ", pudiste comprobar que tú eras el asesino.^";
    }

    if (Oficinas.descubierta)
        print "En ese momento, el guardia te contó, al fin, dónde estabas,
               descubriendo así que estabas muerto, esperando tu juicio final,
               y que habías sido condenado.^";

    if (jugador.recuerdaTodo)
        print "Por fin, conseguiste recordar todo. Mataste a tu mujer en defensa
               propia para que no te matara ella a ti. Justo después, Linda te
               disparó y moriste.^";

    if (jugador.recuerdaTodo && ~~guardia.TestQuip(5))
        print "El guardia te ha comentado que aún podrías salvarte de tu condena,
               pero necesitarías alguna prueba.^";
               
    cola.turnoSinGritos = true;
];


[ TocarseSub;
    <<Examinar comosellame>>;
];

[ EsperarTurnoSub;
    if (Oficinas.descubierta) {
        "¡No puedes esperar tranquilamente tu turno, vas a ser condenado!";
    } else {
        jugador.printHabla(
            "Tengo un mal presentimiento. No puedo esperar tranquilamente
             sin recuperar la memoria y saber qué estoy esperando", true);
        rtrue;
    }
];

[ BuscarAlgoEnSub;
    if (uno == cola)
        cola.buscarGente ();
    else
        <<Consultar uno otro>>;
];

[ IrLugarSub;
    Oficinas.irA ();
];

[ MoverseSub;
    Oficinas.moverse ();
];

[ MoverseFueraSub;
    Oficinas.moverseFuera ();
];

[ RecordarSub;
    jugador.recuerdaContexto ();
];

[ RecordarTemaSub;
    jugador.recuerdaTema ();
];

![ LeerSub;
!    "Eso no se puede leer.";
!];

[ DarPalmadaSub;
    "Aplaudes entusiasmado. ~Gracias, gracias...~ dice el
    autor. [BUG]";
];

[ GritarSub;
    "Gritas desesperado, pero nadie parece hacerte caso.";
];

[ NadaDeUsarSub;
    "Tratas de encontrar un uso para ", (el) uno, " pero tu mente no 
        acierta con la acción concreta.";
];


[ RespirarSub;
    "Tomas aire con ansia, tratando de oxigenar tu cerebro para
    clarificar tus ideas.";
];

[ MarcarSub;
    "No tiene sentido hacer una marca en ", (el) uno, ".";
];

[ EcharseSub;
    "No puedes volver a quedarte dormido otra vez.";
];

[ FrotarContraSub;
    if (uno notin jugador)
        "Para eso debes coger ", (el) uno, " antes.";
    if (EjecutarRutinas(uno, antes)) rtrue;
    if(EjecutarRutinas(otro, antes)) rtrue;
    print "Frotas ", (el) uno;
    if (uno==otro)
        print " contra sí mismo";
    else print " contra ", (el) otro;
    " sin lograr ningún resultado aparente.";
];

[ AyudaSub;
    "PIENSA.";
];

! ir, dejar , dar, buscar
[ NoIrSub;
    "¿Adónde quieres ir?";
];
[ NoDejarSub;
    "¿Qué quieres dejar?";
];
[ NoDarSub;
    "¿Qué quieres dar?";
];
[ NoBuscarSub;
    "¿Qué quieres buscar?";
];
[ BuscarAlgoEnNoSeSub;
    "¿Dónde quieres buscar?";
];


Verb 'ayuda' 'help'
    *                                   -> Ayuda;

Verb 'aplaude'
    *                                   -> DarPalmada;
VerboIrregular "aplaudir" with imperativo 'aplaude';

Extend 'da' first
    * 'palmada'/'palmas'                -> DarPalmada
    * 'una' 'palmada'                   -> DarPalmada;
Extend only 'grita' replace 
    *   topic                           -> Gritar;

! Eliminados de un plumazo los verbos de conversación
!Extend 'habla' replace
!    * topic                             -> Hablar;
!Extend 'pregunta' replace
!    * topic                             -> Hablar;
!Extend 'di' replace
!    * topic                             -> Hablar;

! **** Verbos de conversación

Extend 'pregunta' replace
    * 'a//' creature 'por'/'sobre'/'acerca' noun   -> Preguntar
    * 'por'/'sobre'/'acerca' noun 'a//' creature     -> Preguntar reverse
    * 'a//' creature 'por'/'sobre'/'acerca' topic  -> Preguntar
    * 'por'/'sobre'/'acerca' topic 'a//' creature  -> Preguntar reverse
    * 'a//' creature topic                         -> Preguntar
    * topic 'a//' creature                         -> Preguntar reverse;

Extend 'di' replace
    * creature topic                               -> Responder reverse
    * 'a//' creature topic                         -> Responder reverse
    * topic 'a//' creature                         -> Responder;
    


Verb 'usa' 'emplea' 'utiliza'
    * 'razon'                           -> Pensar
    * 'la' 'razon'                      -> Pensar
    * noun topic                        -> NadaDeUsar;

Extend 'pon' first
    * noun                              -> Vestir;

Verb 'respira'
    *                                   -> Respirar;

Verb 'marca'
    * noun                              -> Marcar;

Verb 'haz'
    * 'marca' 'en' noun                 -> Marcar
    * 'una' 'marca' 'en' noun           -> Marcar;
VerboIrregular "hacer la marca" with imperativo 'haz';

Verb 'tirate' = 'metete';
VerboIrregular "tirar" with imperativo 'tirate';

Extend 'echate' first
    *                                   -> Echarse;

Extend 'frota'
    * noun 'con' noun                   -> FrotarContra reverse
    * noun 'contra'/'sobre'/'en' noun   -> FrotarContra;

Verb 'unta' 'embadurna' = 'frota';
Verb 'levanta' = 'coge';
Verb 'muerde' = 'come';
VerboIrregular "morder" with imperativo 'muerde';

Verb 'arrastra'='empuja';

Extend 'empuja'
    * noun 'a//' noun                   -> EmpujarDir;


!Extend 'lee' replace
!    * noun                              -> Leer;

Verb 'recuerda' 
    *                                   -> Recordar
    * 'algo//' 'alguna//' 'cosa//' 'a'/'por'/'sobre'/'acerca' topic  -> RecordarTema
    * topic                             -> RecordarTema;
VerboIrregular "recordar" with imperativo 'recuerda';

! Movimiento
Extend 'vete' replace
    * 'a//'/'hacia' noun                              -> IrLugar;
Verb 'ir'
    * 'a//'/'hacia' noun                              -> IrLugar
    * -> NoIr;
Verb 'volver'
    * 'a//'/'hacia' noun                              -> IrLugar;

Extend 'entra' replace
    * 'en' noun                              -> IrLugar
    * noun                                   -> IrLugar;

Verb 'sigue' 'avanza' 'retrocede' 'muevete' 'explora' 'alejate'
    *                                   -> Moverse
    * topic                             -> Moverse;
Extend 'sal' replace
    * topic                             -> MoverseFuera;
Verb 'salir'
    * topic                             -> MoverseFuera;
Extend 'vete'
    * 'de//' topic                      -> MoverseFuera;
Verb 'irse'
    * 'de//'topic                       -> MoverseFuera;

! Buscar a alguien en la cola
Extend 'busca' replace
    * 'a' 'Carmen'   -> BuscarAlgoEnNoSe
    * 'Carmen'   -> BuscarAlgoEnNoSe
    * 'a' 'mujer'   -> BuscarAlgoEnNoSe
    * 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'esposa'   -> BuscarAlgoEnNoSe
    * 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'Linda'   -> BuscarAlgoEnNoSe
    * 'Linda'   -> BuscarAlgoEnNoSe

    * 'a//' topic 'en'/'entre' noun         -> BuscarAlgoEn reverse
    * topic 'en'/'entre' noun               -> BuscarAlgoEn reverse
    * 'en'/'entre'/'por' noun 'a//' topic   -> BuscarAlgoEn
    * 'en'/'entre'/'por' noun topic         -> BuscarAlgoEn
    * 'en' noun                      	    -> BuscarEn
    * 'en' noun 'sobre' topic		        -> Consultar
    * 'en' noun 'acerca' 'de' topic	        -> Consultar
    * 'a' topic   -> BuscarAlgoEnNoSe
    * topic   -> BuscarAlgoEnNoSe;

Verb 'localiza'
    * 'a' 'Carmen'   -> BuscarAlgoEnNoSe
    * 'Carmen'   -> BuscarAlgoEnNoSe
    * 'a' 'mujer'   -> BuscarAlgoEnNoSe
    * 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'esposa'   -> BuscarAlgoEnNoSe
    * 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'Linda'   -> BuscarAlgoEnNoSe
    * 'Linda'   -> BuscarAlgoEnNoSe

    * 'a//' topic 'en'/'entre'/'por' noun   -> BuscarAlgoEn reverse
    * topic 'en'/'entre'/'por' noun         -> BuscarAlgoEn reverse
    * 'en'/'entre'/'por' noun 'a//' topic   -> BuscarAlgoEn
    * 'en'/'entre'/'por' noun topic         -> BuscarAlgoEn
    * 'a//' topic   -> BuscarAlgoEnNoSe
    * topic   -> BuscarAlgoEnNoSe;

! Esto no sé por qué, pero si no lo pongo así no parece que funcione el infinitivo (?)
Verb 'buscar'
    * 'a' 'Carmen'   -> BuscarAlgoEnNoSe
    * 'Carmen'   -> BuscarAlgoEnNoSe
    * 'a' 'mujer'   -> BuscarAlgoEnNoSe
    * 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'esposa'   -> BuscarAlgoEnNoSe
    * 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'Linda'   -> BuscarAlgoEnNoSe
    * 'Linda'   -> BuscarAlgoEnNoSe

    * 'a//' topic 'en'/'entre' noun         -> BuscarAlgoEn reverse
    * topic 'en'/'entre' noun               -> BuscarAlgoEn reverse
    * 'en'/'entre'/'por' noun 'a//' topic   -> BuscarAlgoEn
    * 'en'/'entre'/'por' noun topic         -> BuscarAlgoEn
    * 'en' noun                      	    -> BuscarEn
    * 'en' noun 'sobre' topic		        -> Consultar
    * 'en' noun 'acerca' 'de' topic	        -> Consultar
    * 'a//' topic   -> BuscarAlgoEnNoSe
    * topic   -> BuscarAlgoEnNoSe
    * -> NoBuscar;

Verb 'localizar'
    * 'a' 'Carmen'   -> BuscarAlgoEnNoSe
    * 'Carmen'   -> BuscarAlgoEnNoSe
    * 'a' 'mujer'   -> BuscarAlgoEnNoSe
    * 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'tu' 'mujer'   -> BuscarAlgoEnNoSe
    * 'a' 'esposa'   -> BuscarAlgoEnNoSe
    * 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'tu' 'esposa'   -> BuscarAlgoEnNoSe
    * 'a' 'Linda'   -> BuscarAlgoEnNoSe
    * 'Linda'   -> BuscarAlgoEnNoSe

    * 'a//' topic 'en'/'entre'/'por' noun   -> BuscarAlgoEn reverse
    * topic 'en'/'entre'/'por' noun         -> BuscarAlgoEn reverse
    * 'en'/'entre'/'por' noun 'a//' topic   -> BuscarAlgoEn
    * 'en'/'entre'/'por' noun topic         -> BuscarAlgoEn

    * topic 'en'/'entre'/'por' noun         -> BuscarAlgoEn reverse
    * 'en'/'entre'/'por' noun 'a//' topic   -> BuscarAlgoEn
    * 'en'/'entre'/'por' noun topic         -> BuscarAlgoEn
    * 'a//' topic   -> BuscarAlgoEnNoSe
    * topic   -> BuscarAlgoEnNoSe
    * -> NoBuscar;

Extend 'espera'
    * 'turno'                   -> EsperarTurno
    * 'el' 'turno'              -> EsperarTurno
    * 'tu' 'turno'              -> EsperarTurno;

Extend 'pide' first
    * topic 'a//' creature           -> Preguntar reverse
    * 'a//' creature topic           -> Preguntar;

Verb 'resumen'
    *                           -> Resumen;
    
Extend only 'habla' replace
    * 'con' creature 		-> HablarCon
    * 'con' noun 			-> HablarCon
    * 'a' creature 			-> HablarCon
    * 'a' noun 			    -> HablarCon
    * creature 			    -> HablarCon
    * noun 			        -> HablarCon
    ;

Verb 'tocate'
    *                       -> Tocarse
    * noun                  -> Tocar;

Verb 'dejar'
    * multiheld                      	-> Dejar
    * 'a//' creature			-> Dejar
    * multiexcept 'en' recipiente     	-> Meter
    * multiexcept 'en' noun             -> PonerSobre
    * multiexcept 'dentro' 'de' noun 	-> Meter
    * multiexcept 'sobre' noun       	-> PonerSobre
    * multiexcept 'encima' 'de' noun 	-> PonerSobre
    * -> NoDejar;
    
Verb 'dar' 'darle'
    * held 'a//' creature		-> Dar
    * 'a//' creature held		-> Dar reverse
    * 'una' 'patada' 'a//' noun        	-> Atacar
    * 'un' 'punetazo' 'a//' noun	-> Atacar
    * 'un' 'golpe' 'a//' noun          	-> Atacar
    * -> NoDar;

Verb 'observar'
    * noun                           	-> Examinar
    * 'a//' creature                    -> Examinar;


Verb 'mirar'
    *                                	-> Mirar
    * 'a//' creature                    -> Examinar
    * noun                           	-> Examinar
    * 'a//'/'hacia' noun		-> Examinar
    * 'en' noun                      	-> BuscarEn
    * 'dentro' 'de' noun             	-> BuscarEn
    * 'sobre' noun                   	-> BuscarEn
    * 'bajo' noun                    	-> MirarDebajo
    * 'debajo' 'de' noun             	-> MirarDebajo
    * 'a//' 'traves' 'de' noun		-> BuscarEn
    * 'por' noun                     	-> BuscarEn;

Verb 'examinar'
    * noun                           	-> Examinar
    * 'a//' creature                    -> Examinar;