!================================================================ ! El objeto jugador ! ! Proporciona una descripción variable, por si quiere examinarse a sí ! mismo, y también intercepta algunas acciones según el estado. ! Object comosellame "ti mismo" Oficinas ! *** Propiedades simples de la biblioteca with cantidad 0, ! Todo PJ debe tener esta propiedad nombre 'tu' 'te', ! *** Variables de estado with enCola true, ! Indica si el jugador está situado en la cola enPrincipioCola false, enFinalCola false, recuerdaNovia false, ! Cuidado: a la novia la conoces si la recuerdas, recuerdaEsposa false, ! pero a la esposa la conoces por fotoMujer recuerdaViolencia false, ! Si recuerdas cómo muere tu mujer y salta sangre a cuello recuerdaAsesino false, ! Si recuerdas que tú eres el asesino recuerdaTodo false, ! Tu mujer era una $#&% ! *** Variables para variedad en respuestas seConoce false, ! Indica si el jugador se ha examinado ya a sí mismo o no conoceDosMujeres false, turnoSinDemonio false, cuentaNervios 0, ! *** Respuestas with descripcion [; if ((~~self.seConoce) && (~~elDeDelante.mostroEspejo)) { self.seConoce = true; "Miras tus manos, tu cuerpo... eres un hombre fuerte y robusto. Sin embargo, aún no eres capaz de recordar cómo eres ni cuál es tu ocupación."; } else { "Estás nervioso; notas que el sudor recorre tu cuerpo."; } ], ! *** Otros proced checkConoceMujeres [; if (fotoMujer.vista && jugador.recuerdaNovia) { if (~~self.conoceDosMujeres) { print "^"; self.printHabla( "???? Un momento... ¡Esa mujer no es la misma que había visto antes!. Eso quiere decir que la de la foto es mi esposa y Linda... Linda es sin duda una chica con la que tenía algún lío." , true); self.conoceDosMujeres = true; guardia.checkPorqueYo(); cola.turnoSinGritos = true; } else { print "La mujer de la foto es tu esposa; no debían irte muy bien las cosas con ella si te buscaste a otra.^"; } } ], ! *** Recuerdos recuerda [ tema; if (~~tema) { self.recuerdaContexto (); } else { self.recuerdaTema (tema); } ], recuerdaContexto [; ! Recuerdo por verse en el espejo if (elDeDelante.mostroEspejo && ~~self.recuerdaNovia) { self.printHabla( "Otro día, otro lugar. Limpio el vaho del espejo para poder mirarme mientras me peino, como me he mirado hace un momento en ese otro espejo.^ Una chica pelirroja, Linda, sale de la ducha, muy hermosa, muy ardiente, completamente desnuda. Me abraza, nos fundimos en un beso..." , true); self.recuerdaNovia = true; self.checkConoceMujeres (); cola.turnoSinGritos = true; ! Recuerdo de la muerte de la esposa } else if (guardia.insinuoMaldad && jugador.conoceDosMujeres && ~~self.recuerdaViolencia) { self.printHabla ( "Veo a Carmen, mi esposa, entre sombras. Está riendo descarada. Alguien la golpea furiosamente con una lámpara de mesa. El golpe hace saltar la sangre, manchando el cuello del asesino. Carmen queda tendida en el suelo, bañada en el líquido carmesí... está muerta." , true); self.recuerdaViolencia = true; cola.turnoSinGritos = true; ! Recuerdo de defensa propia } else if (Oficinas.descubierta && ~~self.recuerdaTodo) { self.printHabla ( "No puede ser, ¿cómo puedo haber llegado a esto?. Debo recordar lo que ocurrió justo antes de eso... Ya lo tengo. Carmen y yo estamos en nuestro chalet. Ella me apunta con una pistola.", true); print "^"; self.printHabla ( "'Por fin llegó mi momento' - me dice - 'el momento que tanto tiempo llevaba esperando'", true); print "^"; self.printHabla ( "'Pero, Carmen, no entiendo' - replico", true); print "^"; self.printHabla ( "'Eres un estúpido, siempre lo has sido. Llevo años manipulándote a placer y por fin recogeré los frutos. Me casé contigo por tu dinero, sólo por tu dinero, aprovechando tu exitosa carrera política que te ha llevado a la alcaldía. Desde el principio tenía pensado asesinarte y quedarme con la herencia. Tus abogados no me lo pusieron fácil, por su culpa hiciste ese testamento, aquel por el que no me dejarías nada en caso de muerte por asesinato. Pero esto no va a ser un asesinato, no... será un suicidio.'", true); print "^"; self.printHabla ( "'Olvidas algo, por mucho que intentes que parezca un suicidio falta un móvil. ¿Por qué iba yo a suicidarme?. Tengo éxito, dinero, familia...'", true); print "^"; self.printHabla ( "'Sí, ese era el problema al principio. Pero luego se me ocurrió una solución muy sencilla. ¿Cuál es el punto débil de los políticos, aquello que puede acabar con su carrera e incluso llevarles al suicidio?... la hipocresía de la sociedad. ¿Cuántas carreras políticas han llegado a su fin por haberse descubierto que no eran fieles a su esposa, que la engañaban con otra?'", true); print "^"; self.printHabla ( "'Espera... ¿quieres decir que Linda...?'", true); print "^"; self.printHabla ( "'Linda no es más que un peón en todo esto, no sabe nada. Ha hecho su trabajo y ha recibido su dinero. Dentro de unos meses terminará también su vida, en este caso serán las drogas las que acabarán con ella. Encima de la mesa tienes las fotos que prueban tu engaño, que es lo importante. Están en un sobre abierto, con tus huellas. Junto a las fotos hay un mensaje en el que te chantajean para que esas fotos no vean la luz. Tuve que esforzarme para que el chantaje fuera lo bastante convincente como para que te pudiera llevar al suicidio: obligarte a abandonar tu carrera política, una altísima cifra de dinero... Por un momento dudé incluso de hacer el chantaje realmente, cobrarlo y divorciarme de ti. Pero era un camino muy largo, y estoy ya harta de ti. Esto voy a disfrutarlo.'" , true); print "^"; self.printHabla ( "'Carmen, por favor...' - pero ya no me escucha. Me apunta con la pistola, MI pistola de entrenamientos. La empuña con un trapo para no dejar huellas. Va a disparar, sonríe... pero algo la sorprende, un ruido en la puerta. Agarro rápidamente la lámpara de la mesa, me abalanzo hacia ella y la golpeo. La sangre me salpica, la he matado.", true); print "^"; self.printHabla ( "Miro hacia la puerta. Es Linda: 'Cabrones, no sé qué jueguecito os llevais, pero no me vais a meter en esto'. Está temblando, empuña otra pistola - 'Linda, no, no sabes...' - Dispara. Muero.", true); print "^"; print "Sientes un fuerte estremecimiento al llegar a ese punto. Después de unos segundos, te recuperas y te das cuenta del error: tú en realidad no asesinaste a Carmen, no mereces tu condena.^"; self.recuerdaTodo = true; self.turnoSinDemonio = true; guardia.activarSabeTodo(); } else { "Por más que lo intentas no eres capaz de recordar nada. ", "Quizá si te concentraras en algún tema conseguirías algo."; } ], recuerdaTema [ tema tema2; tema = AveriguarTema (TemasRecuerdos); tema2 = AveriguarTema (TemasRecuerdos2); if ((tema2 == Tema_Tu) && (tema == Mujer_ambigua)) { tema = Esposa; } if (Oficinas.descubierta && (~~self.recuerdaEsposa) && (~~self.recuerdaTodo) && ((tema == Esposa) || ((tema == Mujer_ambigua) && ~~self.recuerdaNovia))) { ! Si intenta recordar a esposa por ver como la mato -> recuerda a secas, se descubre la defensa propia self.recuerdaContexto (); } else if ((fotoMujer.vista && (~~self.recuerdaEsposa) && (~~Oficinas.descubierta)) && ((tema == Esposa) || ((tema == Mujer_ambigua) && ~~self.recuerdaNovia))) { self.printHabla ( "Me levanto, estoy en mi casa. Es un lujoso chalet, estoy en el piso de arriba. Bajo para desayunar y en la cocina encuentro a Carmen. 'Carmen... perdona por lo de ayer. Supongo que estaba distraido o...'. Carmen no habla, su fría mirada lo dice todo. Supongo que últimamente no nos van muy bien las cosas..." , true); self.recuerdaEsposa = true; } else if ((tema == Esposa) && fotoMujer.vista) { "No recuerdas nada más sobre tu esposa. En realidad, no sabes si eso puede ser bueno."; } else if ((tema == Mujer_ambigua) && fotoMujer.vista && self.recuerdaNovia) { "¿A cuál de ellas quieres intentar recordar, a Carmen (tu esposa) o a Linda (tu ~amiga~)?"; } else if ((tema == Novia) && self.recuerdaNovia) { "No recuerdas nada más sobre Linda."; } else if ((tema == TemaAsesinato) && jugador.recuerdaViolencia && ~~jugador.recuerdaAsesino) { "No recuerdas más sobre el momento del asesinato, aunque te sigue atormentando ese momento del golpe mortal que hizo saltar la sangre de Carmen y que manchó el cuello del asesino."; } else { "No recuerdas nada sobre eso"; } ], ! *** Hablando nombre_may [; print "Tú"; ], printHabla [ frase pensando; printHablaGen (self.nombre_may, 1, frase, pensando); ], ! Demonio para ponerse nervioso al final daemon [ frase; if (self.turnoSinDemonio) { self.turnoSinDemonio = false; return; } frase = random (10); if (frase == 1) { switch (self.cuentaNervios) { 0: self.printHabla( "La cola avanza inexorable; mi trágico destino parece aguardarme al final", true); 1: self.printHabla( "Ójala esto acabe de una vez; mis nervios están a punto de estallar", true); } self.cuentaNervios++; } ], ! *** Atributos has animado propio; ! End object ! El cuello del jugador Object Cuello "cuello" comosellame with nombre 'cuello', adjetivos 'tu', descripcion [; if (jugador.recuerdaViolencia && ~~jugador.recuerdaAsesino) "Te palpas un poco el cuello. La mano no se mancha de sangre. Sin embargo, sí crees notar algo un poco reseco en un lado del cuello. Si pudieras vértelo..."; else "No tiene nada de especial."; ], antes [; Tocar: if (jugador.recuerdaViolencia && ~~jugador.recuerdaAsesino) "Te palpas un poco el cuello. La mano no se mancha de sangre. Sin embargo, sí crees notar algo un poco reseco en un lado del cuello. Si pudieras vértelo..."; Coger: "Eso no tiene sentido."; Dejar: "Eso no tiene sentido."; ], esta_en [; rtrue; ], has escenario oculto; ! Ropa del jugador Object ropa "traje" comosellame with nombre 'traje' 'ropa', adjetivos 'tu', descripcion [; "Llevas un traje de vestir, con chaqueta y corbata."; ], esta_en [; rtrue; ], antes [; Coger: "Llevas la ropa bien puesta, no la toques más."; Dejar: "Será mejor que no des ningún espectáculo."; Vestir: "Llevas la ropa bien puesta, no la toques más."; Desvestir: "Llevas la ropa bien puesta, no la toques más."; ], has oculto ; Object chaqueta "chaqueta" comosellame with nombre 'chaqueta', adjetivos 'tu', descripcion [; "No tiene nada de particular."; ], esta_en [; rtrue; ], antes [; Coger: "Llevas la ropa bien puesta, no la toques más."; Dejar: "Llevas la ropa bien puesta, no la toques más."; Vestir: "Llevas la ropa bien puesta, no la toques más."; Desvestir: "Llevas la ropa bien puesta, no la toques más."; ], has oculto; Object corbata "corbata" comosellame with nombre 'corbata', adjetivos 'tu', descripcion [; "No tiene nada de particular."; ], esta_en [; rtrue; ], antes [; Coger: "Llevas la ropa bien puesta, no la toques más."; Dejar: "Llevas la ropa bien puesta, no la toques más."; Vestir: "Llevas la ropa bien puesta, no la toques más."; Desvestir: "Llevas la ropa bien puesta, no la toques más."; ], has oculto; ! ******** TEMAS de recuerdos Object TemasRecuerdos; ! Y los sub-temas de este tema raiz Object -> Esposa "Esposa" with name 'morena' 'esposa' 'Carmen'; Object -> Novia "Novia" with name 'novia' 'chica' 'Linda' 'rollete' 'rollo' 'amiga' 'pelirroja' 'peliroja'; Object -> Mujer_ambigua "Mujer_ambigua" with name 'mujer'; Object -> TemaAsesinato "TemaAsesinato" with name 'lampara' 'lamparilla' 'asesinato' 'homicidio' 'crimen' 'criminal' 'atentado' 'asesino' 'homicida'; Object TemasRecuerdos2; Object -> Tema_Tu "Tema_Tu" with name 'tu';