­/ EL ENTIERRO ­/ Versi¢n del 16 de abril del 2000 ­/ Versi¢n 1.7 ­/ (c) ENRIQUE PIMPINELA SANTOS ­/ ­/ OBJ1 = Cruz ­/ OBJ2 = Tela ­/ OBJ3 = Flor ­/ ­/ V1 = BUSCar -EXAMinar -EX -REGIstrar ­/ V2 = COGEr -TOMAr -AGARrar - ­/ V3 = PALPar -TOCAr - - ­/ V4 = OLER -OLFAtear -HUELe - ­/ V5 = ESCUcha -OIR -OYE - ­/ V6 = GRITar -AULLar - - ­/ V7 = APLAstar-CHAFar -ESTRujar -ROMPer ­/ V8 = GOLPear -EMPUjar - - ­/ V9 = CANTar - - - ­/ V10 = REZAr -ORAR -ORA - ­/ ­/ S1 = CARA -ROSTRO - - ­/ S2 = CRUZ -CRUCIFijo -COLGANte -CRUCECita ­/ S3 = GLADIOlo -FLOR -VEGETAl - ­/ S4 = VOCES -REZOS -ORACIOnes - ­/ S5 = SUPERFicie-PARED -PAREDEs -LADOS ­/ S6 = DIALOGos -RECUERdos -RECORDar - ­/ S7 = OIDO -OIDOS -OREJA -OREJAS ­/ S8 = ZUMBIDo -PITIDO - - ­/ S9 = TELA -PA¥UELo -pa¤uelo - ­/ S10 = ROPA -MI ROPa -TU ROPa -TRAJE ­/ S11 = ACOLCHado - - - ­/ S12 = MANO -MANOS - - ­/ ­/ P.GT 1 (VERSIàN_NéMERO) = N£mero de versi¢n ­/ P.GT 2 (DESCRIPCIàN_DE_LOS_REZOS) = Descripci¢n variable de las voces para EX ­/ P.GT 3 (DESCRIPCIàN_AMPLIA_DE_LOS_REZOS) = Descripci¢n variable de las voces para ESCUCHA ­/ P.G 1 (¨LA_CRUZ_ESTµ_YA_EXAMINADA?) = Si la CRUZ no ha sido EXAMINADA vale 0 si 1 vez 1 y si 2 2 ­/ P.G 2 (¨LA_FLOR_ESTµ_YA_OLIDA?) = Si la FLOR no ha sido OLIDA vale 0 si no 1 ­/ P.G 3 (¨LOS_REZOS_ESTµN_YA_EXAMINADOS?) = Si los REZOS no han sido EXAMINADOS vale 0 si no 1 ­/ P.G 4 (¨HAS_GRITADO_A_TIEMPO?) = Si has gritado antes de 10 acciones a 1 ­/ ------------------------------------------------------------------------------ SI=, PILA.ACN, 0, 0, inicio SI=, PILA.ACN, 25, 25, fin ------------------------------------------------------------------------------ PREGUNTAx, 12, 3, palpar_manos PREGUNTAx, 12, 1, ex_manos ------------------------------------------------------------------------------ PREGUNTAx, 11, 3, ex_acolchado PREGUNTAx, 11, 1, ex_acolchado ------------------------------------------------------------------------------ PREGUNTAx, 10, 3, palpar_ropa PREGUNTAx, 10, 1, ex_ropa ------------------------------------------------------------------------------ PREGUNTAx, 9, 4, oler_tela PREGUNTAx, 9, 3, palpar_tela PREGUNTAx, 9, 1, ex_tela ------------------------------------------------------------------------------ PREGUNTAx, 8, 1, ex_zumbido ------------------------------------------------------------------------------ PREGUNTAx, 7, 3, palpar_oreja PREGUNTAx, 7, 1, ex_oreja ------------------------------------------------------------------------------ PREGUNTAx, 6, 1, ex_recuerdos **.PREGUNTAx, 6, ex_recuerdos ------------------------------------------------------------------------------ PREGUNTAx, 5, 8, golpea/empuja_superficies PREGUNTAx, 5, 3, palpar_superficies PREGUNTAx, 5, 1, ex_superficies ------------------------------------------------------------------------------ PREGUNTAx, 4, 5, esc_voz PREGUNTAx, 4, 1, ex_voz ------------------------------------------------------------------------------ PREGUNTAx, 3, 7, chafar_flor PREGUNTAx, 3, 4, oler_flor PREGUNTAx, 3, 3, palpar_flor PREGUNTAx, 3, 1, ex_flor ------------------------------------------------------------------------------ PREGUNTAx, 2, 7, romper_cruz PREGUNTAx, 2, 4, oler_cruz PREGUNTAx, 2, 3, palpar_cruz PREGUNTAx, 2, 1, ex_cruz ------------------------------------------------------------------------------ PREGUNTAx, 1, 3, palpar_cara PREGUNTAx, 1, 1, ex_cara ------------------------------------------------------------------------------ PREGUNTAx.**, 10, rezar PREGUNTAx.**, 9, cantar PREGUNTAx.**, 6, gritar PREGUNTAx.**, 5, escuchar PREGUNTAx.**, 4, oler PREGUNTAx.**, 2, co_obj PREGUNTA, "VER", version PREGUNTA, "AYUDA", ayuda E, "No puedo hacer eso..." SALTA, respuestas_por_defecto ------------------------------------------------------------------------------ ­/ ----------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON LAS MANOS ­/ ----------------------------------------- .palpar_manos. E, "Me toco una mano con la otra. Tengo las manos fr¡as y h£medas." SALTA, respuestas_por_defecto .ex_manos. E, "Despu‚s de palparme una mano con la otra, siento que mis dedos son delgados... m s delgados de lo que recordaba..." SALTA, respuestas_por_defecto ­/ ----------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON EL ACOLCHADO ­/ ----------------------------------------- .ex_acolchado. E, "Un tipo de acolchado textil no demasiado blando, y satinado." SALTA, respuestas_por_defecto ­/ ------------------------------------ ­/ BLOQUE PARA LAS ACCIONES CON LA ROPA ­/ ------------------------------------ .palpar_ropa. E, "Est  confeccionada con un tejido normal, que no me llama la atenci¢n en ning£n sentido..." SALTA, respuestas_por_defecto .ex_ropa. E, "Bueno, unos pantalones sin bolsillos, algo que parece un jersey y poco m s." SALTA, respuestas_por_defecto ­/ ------------------------------------ ­/ BLOQUE PARA LAS ACCIONES CON LA TELA ­/ ------------------------------------ .oler_tela. E, "No huele a nada. A limpio, quiz ... No parece haber sido usado." SALTA, respuestas_por_defecto .palpar_tela. E, "Se trata de un tejido suave y no muy grande. Por ewl tacto podr¡a ser algod¢n o algo similar." SALTA, respuestas_por_defecto .ex_tela. E, PILA.T1, 1 SALTA, respuestas_por_defecto ­/ --------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON EL ZUMBIDO ­/ --------------------------------------- .ex_zumbido. E, "Es el molesto pitido que me envuelve la cabeza, quiz  debido a la falta de aire." SALTA, respuestas_por_defecto ­/ ------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON LA OREJA ­/ ------------------------------------- .ex_oreja. E, "Con dificultad, por lo limitado del espacio en el que te desenvuelves, te palpas los oidos. Sientes el tibio contacto de la carne." SALTA, respuestas_por_defecto ­/ ------------------------------------------ ­/ BLOQUE PARA LAS ACCIONES CON LOS RECUERDOS ­/ ------------------------------------------ .ex_recuerdos. E, "A trav‚s de las brumas de tu consciencia..." CARGA, "recuerdo.i" SALTA, respuestas_por_defecto ­/ -------------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON LAS SUPERFICIES ­/ -------------------------------------------- .golpea/empuja_superficies. E, "Lo intento, pero lo limitado del espacio me impide hacerlo con la suficiente fuerza como para que tenga efecto alguno." SALTA, respuestas_por_defecto .palpar_superficies. E, "Toco las superficies que me rodean. Se encuentran muy pr¢ximas a mi y son duras pero acolchadas. A trav‚s del tacto llego a la conclusi¢n de eencontrarme en una suerte de tubo de lados rectos, cuadrados. La superficie que se encuentra sobre mi cara, apenas si lo est  a dos cent¡metros, en tanto que los laterales deben ir un poco m s olgados, pero no mucho, porque tengo grandes dificultades para mover los brazos. Siento techo sobre mi cabeza o suelo bajo mis pies, pero al respirar, as¡ como por el rozar de la ropa, la resonancia misma me indica que estoy en un sitio cerrado y de peque¤as dimensiones." SALTA, respuestas_por_defecto .ex_superficies. E, "No puedes ver nada a tu alrededor, pero sientes la proximidad de las superficiesEst n cubiertas de alg£n tipo de acolchado." SALTA, respuestas_por_defecto ­/ -------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON LAS VOCES ­/ -------------------------------------- .esc_voz. E, DESCRIPCIàN_AMPLIA_DE_LOS_REZOS VALOR.N, ¨LOS_REZOS_ESTµN_YA_EXAMINADOS?, 1 SALTA, respuestas_por_defecto .ex_voz. E, DESCRIPCIàN_DE_LOS_REZOS VALOR.N, ¨LOS_REZOS_ESTµN_YA_EXAMINADOS?, 1 SALTA, respuestas_por_defecto ­/ ------------------------------------ ­/ BLOQUE PARA LAS ACCIONES CON LA FLOR ­/ ------------------------------------ .chafar_flor. SI=, PILA.N1, 3, 3, la_flor_ya_no_existe E, "La aplasto... Se me desmenuza en peque¤os pedazos que se me caen de la mano..." VALOR.N, PILA.N1, 3, 3 SALTA, respuestas_por_defecto .oler_flor. SI=, PILA.N1, 3, 3, la_flor_ya_no_existe SI=, ¨LA_FLOR_ESTµ_YA_OLIDA?, 1, ya_est _olida E, "Acerco torpemente la flor hasta mi nariz, percibiendo el suave aroma de un gladiolo..." VALOR.T, PILA.T1, 3, "Por su tacto y olor, es una flor, un gladiolo probablemente." VALOR.N, ¨LA_FLOR_ESTµ_YA_OLIDA?, 1 SALTA, respuestas_por_defecto .ya_est _olida. E, "Acerco de nuevo la flor hasta mi nariz, percibiendo el suave y desvaido aroma de un gladiolo." SALTA, respuestas_por_defecto .palpar_flor. SI=, PILA.N1, 3, 3, la_flor_ya_no_existe E, "Toco la flor con cuidado de no aplastarla. Su contacto es suave y ligeramente fresco, a todas luces biol¢gico..." SALTA, respuestas_por_defecto .ex_flor. SI=, PILA.N1, 3, 3, la_flor_ya_no_existe E, PILA.T1, 3 SALTA, respuestas_por_defecto .la_flor_ya_no_existe. E, "La flor se me cay¢, desmenuzada. Dudo mucho que pueda volver a localizarla..." SALTA, respuestas_por_defecto ­/ ---------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON LA CRUZ ­/ ---------------------------------------- .romper_cruz. E, "Torpemente, coges la cruz con las dos manos y haces fuerza... No consigues romperla, pero s¡ hacerte da¤o en las manos..." SALTA, repuestas_por_defecto .oler_cruz. E, "Me llevo lo que supongo cruz hasta la nariz. No aprecio ning£n olor especial, salvo quiz  (aunque bien pudiera ser una impresi¢n forzada por el deseo de confirmar tus especulaciones) uno ligero a hierro, a ¢xido." SALTA, repuestas_por_defecto .palpar_cruz. E, "Palpando la cruz, compruebo su estructura cruciforme..." SALTA, repuestas_por_defecto .ex_cruz. SI<, ¨LA_CRUZ_ESTµ_YA_EXAMINADA?, 2, recuerdo_largo_de_la_cruz SI=, PILA.N1, 2, 2, la_llevas_encima VALOR.T, PILA.T1, 2, "Est  situada sobre mi pecho. Peque¤a, ligera, fr¡a y met lica." E, PILA.T1, 2 SALTA, respuestas_por_defecto .la_llevas_encima. VALOR.T, PILA.T1, 2, "La tengo entre las manos, cogida. Peque¤a, ligera, fr¡a y met lica." E, PILA.T1, 2 SALTA, respuestas_por_defecto .recuerdo_largo_de_la_cruz. E, PILA.T1, 2 SI=, ¨LA_CRUZ_ESTµ_YA_EXAMINADA?, 0, recuerdo_extra_largo_de_la_cruz VALOR.N, ¨LA_CRUZ_ESTµ_YA_EXAMINADA?, 2 SI=, PILA.N1, 2, 1, la_llevas_encima_(cont) SALTA, respuestas_por_defecto .recuerdo_extra_largo_de_la_cruz. E, "Pero, ­­por Dios Santo!! (curiosa paradoja la de esta invocaci¢n, dada mi condi-ci¢n de ateo confeso), yo no he tenido jam s ninguna cruz, excepci¢n hecha de laque, siendo ni¤o, recib¡ a modo de regalo de mis familiares, creyentes y practi-cantes a la vieja usanza, durante aquellos a¤os." VALOR.N, PILA.N3, 2, 2 VALOR.N, ¨LA_CRUZ_ESTµ_YA_EXAMINADA?, 1 SI=, PILA.N1, 2, 1, la_llevas_encima_(cont) SALTA, respuestas_por_defecto .la_llevas_encima_(cont). E, "Despu‚s de manipularla unos instantes, la vuelvo a dejar..." SALTA, respuestas_por_defecto ­/ ---------------------------------------- ­/ BLOQUE PARA LAS ACCIONES CON LA CARA ­/ ---------------------------------------- .palpar_cara. E, "Me llevo las manos a la cara... No consigo identificar este rostro como m¡o a trav‚s del tacto, pero lo es... Tengo las manos fr¡as..." SALTA, repuestas_por_defecto .ex_cara. E, "Palp ndolo, mi rostro es delgado, estrecho, con las cuencas de los ojos un tantohundidas. Toco y siento la inflamaci¢n que rodea a ‚stos." SALTA, repuestas_por_defecto ­/ --------------------------------- ­/ BLOQUE PARA LAS ACCIONES VARIAS ­/ --------------------------------- .rezar. E, "No recuerdo ninguna oraci¢n... Pero, s¡, s¡, ahora acude a mi mente uno de aquellos rezos de mi infancia, mi madre junto a mi cama, rezando conmigo... As¡ pues, entono una breve oraci¢n en voz baja." SALTA, respuestas_por_defecto .cantar. E, "Canto una cancioncilla en voz baja... La atm¢sfera est  cargada." SALTA, respuestas_por_defecto .co_obj. E, "Al intentar hacerlo me doy cuenta del estrecho espacio en el que me muevo. Con-tinuamente mis brazos y manos gopean las superficies que me rodean." SALTA, respuestas_por_defecto .gritar. SI>, PILA.ACN, 10, 10, grito_no_efectivo VALOR.N, ¨HAS_GRITADO_A_TIEMPO?, 1 .grito_no_efectivo. E, "Grito, ensordeciendome por unos instantes. Se me taponan los oidos unos segundosEs horrible gritar en un sitio de tan reducidas dimensiones. Pero por un momentome parece escuchar c¢mo se detiene la actividad all  arriba." SALTA, respuestas_por_defecto .version. E_, "EL ENTIERRO " E_, VERSIàN_NéMERO E, " AventuraST 1999" SALTA, respuestas_por_defecto .ayuda. CARGA, "ayuda.i" .escuchar. E, "Escruto el silencio que me rodea, sin escuchar cerca nada especial. Da la impresi¢n de que est‚ embuelto en algo. Por un momento imagino estar metido en un gran frasco cerrado... Pero m s all , en el l¡mite casi de lo audible, unas voces..." SALTA, respuestas_por_defecto .oler. SI=, PILA.N1, 3, 3, oler_con_la_flor E, "Huele un poco a tierra h£meda y a tela." SALTA, respuestas_por_defecto .oler_con_la_flor. E, "En el ambiente huele suavemente a flor. A gladiolo..." SALTA, respuestas_por_defecto .fin. CambiaCOLOR.papel-texto, 0, 14 VALOR.T, PILA.T3, 5, "ENTERRADO..." TERMINA ------------------------------------------------------------------------------ .1as_oraciones. E, "Oigo algo que parece un rumor de voces, una letan¡a mocorde y confusa, pero tan lejos... tan lejos que casi podr¡a jurar que no es sino el £ltimo y residual rastro del sue¤o..." xFINALIZAx .2as_oraciones. SI=,¨HAS_GRITADO_A_TIEMPO?, 1, oraci¢n E, "Hasta mi llega, como a trav‚s de un grueso muro, lo que parece una oraci¢n tris-te... Una voz muy poco cargada de emoci¢n y sentimiento. Es una extra¤a y contradictoria mezcla." SI=, PILA.ACN, 11, 11, oraci¢n xFINALIZAx .oraci¢n. VALOR.T, DESCRIPCIàN_DE_LOS_REZOS, "Han cesado los rezos ya hora se oye algo similar a atropeyadas argumentaciones" VALOR.T, DESCRIPCIàN_AMPLIA_DE_LOS_REZOS, "Han cesado los rezos ya hora se oye algo similar a atropeyadas argumentaciones" SI=, ¨HAS_GRITADO_A_TIEMPO?, 1, 2as_oraciones_alternativas(cont) SI=, ¨LOS_REZOS_ESTµN_YA_EXAMINADOS?, 0, identifica E, "Los rezos y oraciones contin£an all  lejos, detr s de la espesa distancia..." xFINALIZAx .identifica. E, "Identifico, por fin, las oraciones como las habituales de los funerales..." xFINALIZAx .2as_oraciones_alternativas(cont). E, "Fuera, las voces y rumores que finalmente identifiqu‚ como rezos, se han visto sustituidos por un guirigay de exclamaciones." xFINALIZAx ------------------------------------------------------------------------------ .1os_recuerdos. E, "La cabeza me da vueltas, noto un ligero zumbido en los oidos. Y los recuerdos..." SI=, VARIABLE_PARA_RECUERDOS, 1, 1os_recuerdos(cont) E, "Pero... ¨qu‚ era eso que mi doctor me dijera? Pese a la extra¤a e in‚dita situa-ci¢n en la que me encuentro, siento que sus palabras eran de vital importancia." VALOR.N, VARIABLE_PARA_RECUERDOS, 1 xFINALIZAx .1os_recuerdos(cont). E, "Algo sobre una extra¤a enfermedad, epilepsia, o catalepsia, o algo as¡..." VALOR.N, VARIABLE_PARA_RECUERDOS, 0 xFINALIZAx .2os_recuerdos. E_, "La cabeza me palpita dolorosamente. La memoria deja escapar los recuerdos de forma incompleta, lenta y casi dolorosa. " SI=, VARIABLE_PARA_RECUERDOS, 1, 2os_recuerdos(cont) E, "S¡... algo sobre la catalepsia, era sobre lo que el canoso m‚dico me hablaba." VALOR.N, VARIABLE_PARA_RECUERDOS, 1 xFINALIZAx .2os_recuerdos(cont). E, "Pero no puedo, no puedo recordar m s all  de los l¡mites de mi propio cansancio." xFINALIZAx ------------------------------------------------------------------------------ .1as_paladas. E, "­­­ De repente, un impacto inesperado me sobresalta !!!" E, "Algo ha golpeado duro y fuerte delante de m¡. Es como si hubieran arrojado algo poco compacto sobre la delgada pared que se sit£a delante m¡o." xFINALIZAx .2as_paladas. SI=,¨HAS_GRITADO_A_TIEMPO?, 1, 2as_paladas_alternativas E, "Sigo oyendo caer algo sobre m¡, pero poco a poco, el sonido se torna m s amorti-guado." xFINALIZAx .2as_paladas_alternativas. E, "De nuevo oigo ruidos sobre m¡. Parece como si estubieran escarbando..." xFINALIZAx .3as_paladas. SI=,¨HAS_GRITADO_A_TIEMPO?, 1, 3as_paladas_alternativas E, "Por fin, el sonido amortiguado de algo que ca¡a sobre m¡, cesa cuando ya apenas es audible." xFINALIZAx .3as_paladas_alternativas. E_, "El ruido que me recuerda a como si escarbaran y que se prolonga desde hace rato,creciendo de intensidad, cesa s£bitamente. " CambiaCOLOR.papel-texto, 0, 14 E, "ALGUIEN GRITA AHÖ FUERA, CERCA..." CambiaCOLOR.papel-texto, 0, 15 E, "De pronto, surgido de no se d¢nde, un fino hilo de luz, recto y vertical, de un blanco cegador, crece hasta abarcar todo el campo de mi mirada. Cierro los ojos,abrumado, y poco a poco ‚stos se adapta a las nuevas condiciones de luminosidad ambiental. Pero mientras, casi sin darme tiempo a reaccionar, brazos y manos me agarran sin consideraci¢n. Voces altisonantes, y gritos tambi‚n, se suceden a miconfuso alrrededor." CambiaCOLOR.papel-texto, 0, 14 E, " " VALOR.T, PILA.T3, 5, "ME HAN DESENTERRADO..." PAUSA TERMINA ------------------------------------------------------------------------------ .inicio. ASIGNA, VERSIàN_NéMERO, 1, texto ASIGNA, DESCRIPCIàN_DE_LOS_REZOS, 2, texto ASIGNA, DESCRIPCIàN_AMPLIA_DE_LOS_REZOS, 3, texto ASIGNA, ¨LA_CRUZ_ESTµ_YA_EXAMINADA?, 1, num‚rica ASIGNA, ¨LA_FLOR_ESTµ_YA_OLIDA?, 2, num‚rica ASIGNA, ¨LOS_REZOS_ESTµN_YA_EXAMINADOS?, 3, num‚rica ASIGNA, ¨HAS_GRITADO_A_TIEMPO?, 4, num‚rica ASIGNA, VARIABLE_PARA_RECUERDOS, 5, num‚rica VALOR.T, VERSIàN_NéMERO, "1.7" VALOR.T, DESCRIPCIàN_DE_LOS_REZOS, "Ua voz no demasiado joven y quejumbrosa entona algo en la lejan¡a. Son rezos." VALOR.T, DESCRIPCIàN_AMPLIA_DE_LOS_REZOS, "Requiest in Pacem... Amen" INACTIVA, EXAMINAR CARGAx, "fnt.exe entierro.fnt" CARGA, "entierro.i" FINALIZAx ------------------------------------------------------------------------------ .respuestas_por_defecto. SI=, PILA.ACN, 3, 5, 1as_oraciones SI=, PILA.ACN, 4, 7, 1os_recuerdos SI=, PILA.ACN, 6, 6, 1as_paladas SI=, PILA.ACN, 8, 10, 2os_recuerdos SI=, PILA.ACN, 9, 11, 2as_oraciones SI=, PILA.ACN, 12, 15, 2as_paladas SI=, PILA.ACN, 19, 19, 3as_paladas xFINALIZAx ------------------------------------------------------------------------------