! "Konix" ! ! REALIZADO POR: Xavi Carrascosa, aka Grendelkhan ! ! Copyright (C) 2008 yonostudio@gmail.com ! CONSTANTES Constant Historia "~Konix~"; Constant Titular "^por Grendelkhan^^ Serie Minúscula^(C) 2008 www.yonostudio.com^"; Release 1; ! Cuando se vaya a distribuir cambiar por 1 ! Queremos usar el comando 'Salidas' Constant ADMITIR_COMANDO_SALIDAS; ! No queremos usar los comandos 'Lugares' y 'Objetos' Constant NO_LUGARES; ! No queremos usar puntuación Constant NO_PUNTUACION; ! Queremos que se muestren las deducciones del parser Constant IMPRIMIR_DEDUCCIONES; ! Queremos que se muestren las curiosidades al acabar Constant HAY_CURIOSIDADES; ! VARIABLES GLOBALES [curiosidades; print "^^Nada es casual, todo tiene una causa. Mitos, nombres y leyendas se funden en una masa común que reside en la mente de los hombres, que no recuerdan ya quienes fueron sus maestros, ni porqué existe orden dentro del caos. ¿Cómo sobrevivió la cultura a la piedra y la caverna? ¿Quién escogió los nombres primigenios? ¿Qué nos ha hecho ser como somos? ¿Qué son los dioses de los hombres sino los reyes del universo?^^~Konix~ es un relato de la Serie Minúscula, un proyecto de relatos cortos interactivos de Grendelkhan. (+info: http://ifgrendel.blogspot.com). La Serie Minúscula es un universo propio aparentemente surrealista cuyas historias se van entrelazando en los diferentes relatos que forman la serie."; ]; ! INCLUDES Y REPLACES Replace DibujarLineaEstado; Include "EParser"; ! Una linea de estado que simplemente pone centrado el titulo de la ! habitación, sin puntuación ni movimientos [ DibujarLineaEstado j width; width = 0->33; if (width == 0) width = 80; font off; @split_window 1; @buffer_mode 0; @set_window 1; style reverse; @set_cursor 1 1; spaces(width); texto_impreso-->0 = 64; @output_stream 3 texto_impreso; print (name) localizacion; @output_stream -3; j=(width-(texto_impreso-->0))/2; @set_cursor 1 j; print (name) localizacion; spaces(j-1); style roman; @buffer_mode 1; @set_window 0; font on; ]; Include "Acciones"; ! Cambiar el comentario si se desean mensajes en primera persona Include "Mensajes"; ! Include "Msg1P"; Include "Gramatica"; ! Con la siguiente línea tenemos las clases Objeto y Habitacion Include "Facilitar"; Class Decorado has escenario; Class Personaje has animado; ! LUGARES ! _________________________________________________________________________ ! Kuaran Habitacion kuaran "Cortes Generales de Kuaran" with descripcion "Vulcanianos libres nunca fueron tan provocativos ante las Cortes Generales de Kuaran. Ellos tienen llaves misteriosas que el rey Konix precisa para expansionistas planes galácticos. Los soldados de Konix te flanquean toda salida apuntándote con sus mortíferas lanzas eléctricas multicolor.", afuera [; banderafin=1; "Escapar imposible es de Kuaran sin el beneplácito de Rey Konix. Atravesado por mil lanzas de soldados, agónico estertor del último vulcaniano libre en galaxias de frío y expansión infinita.";], no_puedes_ir [; banderafin=1; "Escapar imposible es de Kuaran sin el beneplácito de Rey Konix. Atravesado por mil lanzas de soldados, agónico estertor del último vulcaniano libre en galaxias de frío y expansión infinita.";]; ! OBJETOS ! _________________________________________________________________________ ! Cortes Generales de Kuaran Decorado cortes "Cortes Generales de Kuaran" kuaran with nombre 'cortes' 'generales' 'kuaran', adjetivos 'parlamento', descripcion "Muchos ojos clavados en tí, vulcaniano. Tienes secretos que ellos ansían conocer. Galaxias enteras dependen de tus decisiones-universos que se tiñen de sangre-vísceras revoloteando entre agujeros negros. La gran mole que es el rey Konix te observa con gesto severo. Rodeándote numerosos soldados, y tras de tí los pocos que quedan de tu ejército."; Decorado zeuxv "zeux" kuaran with nombre 'zeux', antes [; default: <>;]; Objeto llaves "llaves vulcanianas" with nombre 'llaves' 'llave', descripcion "Ocultas entre tus largos ropajes dispones de las misteriosas llaves vulcanianas-objeto de deseo del imperio del Rey Konix de Kuaran-ojos que se posan en los tuyos glaucos frios inquisidores y susurran-dame las llaves dame las llaves, vulcaniano." has femenino nombreplural; Objeto ropajes "ropajes" with nombre 'ropajes' 'ropa' 'ropas' 'telas' 'tejidos', descripcion "Tus largos ropajes vulcanianos están tejidos con extrañas telas que resplandecen iluminadas en el anochecer kuaraniano.", has prenda nombreplural puesto; Decorado tunicas "túnicas y lanzas de los soldados" kuaran with nombre 'tunicas' 'chillonas' 'colores' 'lanzas' 'multicolor', antes [; coger, tocar: "Es demasiado arriesgado, vulcaniano, a pesar de su aspecto son rápidos y no dudarán en clavarte sus lanzas al menor síntoma de peligro.";], descripcion "Kuaran gusta de las múltiples posibilidades del amplio espectro de color, y no dudan en hacer uso de sus principios en su vestimenta y en utensilios de muy diversa índole, sean o no herramientas para dar muerte.", has femenino nombreplural; Decorado estrellas "estrellas" kuaran with nombre 'estrellas' 'firmamento' 'planetas' 'espacio' 'galaxias' 'anochecer' 'universos', antes [; default: "Anochecer trascendental en firmamento de estrellas demasiado lejanas con planetas acaso educados en el orden de los áuleos vulcanianos, galaxias demasiado jóvenes, otras demasiado viejas, pero todas renacen y todas necesitan guías.";]; ! PERSONAJES ! _________________________________________________________________________ Personaje kaviedex "Kaviedex, el Portador" kuaran with nombre 'kaviedex' 'portador', with reaccionar_antes[; Hablar: "Para hablar es mejor PREGUNTAR o DECIR algo a los personajes, como por ejemplo ~di hola a konix~ o ~pregunta a konix sobre kuaran~."; ], capacidad 5, descripcion "Eres Kaviedex, el Portador de las llaves -vencido y derrotado en la batalla de Kaifas por las tropas kuaranianas del Rey Konix."; ! _________________________________________________________________________ Personaje konix "Konix, el rey de Kuaran" kuaran with nombre 'konix' 'rey' 'mole' 'joyas' 'ojos' 'boca' 'cuerpo' 'trono', descripcion "Gran Rey Konix de Kuaran-inmensa mole añil ricamente adornada de las joyas de las coronas de otros reyes muertos lejanos. Ochenta ojos dispone para ver en cualquier ángulo, como los de las abejas, tiene por contra una boca que se asemeja a una delgada línea trazada de forma temblorosa. Te preguntas qué alimento come por esa boca tan pequeña capaz de producir un cuerpo tan descomunal.", inicial "La gran mole que es el rey Konix te observa con gesto severo desde lo alto de su trono ondulante.", ordenes [; zeux: "Konix contiene el aliento, deseando que la palabra no haya llegado a oidos de los vulcanianos."; default: "¿Te atreves a darme órdenes? ¡Ja! ¡Cuánta soberbia alberga la sinrazón del capitán de los vulcanianos!"; ], vida [; Responder: switch(uno) { 'konix', 'kuaran', 'rey', 'cortes', 'generales', 'soldados', 'eres': "~Mi nombre es Konix y soy el rey de Kuaran, estás en las Cortes Generales junto lo que queda de tu ejército vencido en la ulterior batalla de Kaifas. Mis soldados te rodean y te matarán al menor gesto, pero soy un rey misericordioso, así que dame las llaves tú mismo y te prometo la libertad...~"; 'kaifas', 'batalla', 'ejercito', 'amigos': "~Gloriosa batalla en Kaifas-miles de naves enfrentadas en delicada sinfonía muda de espacio teñido de muerte -oscuro amanecer- ejércitos sin fin del capitán vulcaniano Kaviedex El Portador derrotados al fin por el poder inigualable de Kuaran.~"; 'hola', 'saludos', 'salve': "~Hola, Kaviedex. Extrañas circunstancias son éstas para tí, acostumbrado a las victorias te ves ahora vencido y acorralado -escaso ejército destrozado tras de tí- dame las llaves y tuya será la libertad.~"; 'kaviedex', 'portador', 'soy', 'llamo', 'nombre': "~¿Qué puedo decir de tí, mi viejo amigo? Fuiste un formidable rival en la victoria, espero que seas también un digno vencido en la derrota. Pero no podías esperar otra cosa, ser portador de las llaves era demasiado pedir para los áuleos de tu raza, que sólo han conseguido ser reconocidos en pocas realidades y forjar un solo dios.~"; 'victoria', 'derrota', 'guerra', 'orden', 'ataque', 'naves', 'lucha', 'poder', 'capitan': "~Poder de vulcanianos reside en su lucha y sus poderosas flotas de naves espaciales. A la orden de su capitán, que vulgarmente suele ser el grito ¡Zeux!, que en vuestra jerga significa... ¡¿Pero qué digo?! Dame las llaves de una vez...~"; 'dios', 'vulcano', 'dioses', 'auleo', 'auleos': "~Los áuleos como tú y como yo somos la élite que forjamos realidades y tejemos nuevos campos de espacio. Ordenamos las variables y erradicamos los errores. Diferentes organismos nos veneran y nos llaman dioses, de la misma forma que nosotros veneramos el cambiante renacer. Vulcanianos forjaron su dios en planeta azul cercano a Kaifas, que reposa olvidado junto a otros venerados dioses de áuleos que en lapsos de tiempo y en unidades mesuradas educaron a organismos primitivos.~"; 'llaves', 'llaves', 'creadores', 'libertad', 'salida': "~Ya sabes porqué necesitamos las llaves, dámelas y te prometo la libertad para tí y los tuyos. Es necesario que seamos forjadores de nuevas realidades y tejedores de nuevos campos de espacio, algo que vosotros los vulcanianos y los otros creadores hace tiempo habéis olvidado.~"; 'realidades', 'campos', 'espacio', 'realidad': "~¿No te han educado los áuleos del antiguo renacer? Realidades forjadas por la continua expansión de las variables. Dominar las variables y moldearlas según el orden de los creadores, abrir nuevos campos de espacio con llaves del universo y manipular los múltiples sistemas de vida propuestos por el último renacer.~"; 'variables', 'sistemas', 'vida', 'renacer', 'vulcanianos': "~¿Qué es la vida sino profundo cambio? Renacer continuo entre lapso y lapso de tiempo, proponiendo múltiples variables en organismos y elementos, sistemas completamente extraños hoy son comunes mañana y eso los vulcanianos lo saben. Pero ya no os podéis adaptar más, vuestras leyes son ya antiguas y solo los kuaran podemos dominar nuevas realidades y sobrevivir al próximo renacer.~"; 'zeux': <>; } "El Gran Rey Konix te mira sin comprender, esperando con impaciencia mal disimulada el momento en que le entregues las llaves."; Preguntar: switch(otro) { 'konix', 'kuaran', 'rey', 'cortes', 'generales', 'soldados', 'eres': "~Mi nombre es Konix y soy el rey de Kuaran, estás en las Cortes Generales junto lo que queda de tu ejército vencido en la ulterior batalla de Kaifas. Mis soldados te rodean y te matarán al menor gesto, pero soy un rey misericordioso, así que dame las llaves tú mismo y te prometo la libertad...~"; 'kaifas', 'batalla', 'ejercito', 'amigos': "~Gloriosa batalla en Kaifas-miles de naves enfrentadas en delicada sinfonía muda de espacio teñido de muerte -oscuro amanecer- ejércitos sin fin del capitán vulcaniano Kaviedex El Portador derrotados al fin por el poder inigualable de Kuaran.~"; 'kaviedex', 'portador', 'soy', 'llamo', 'nombre', 'hola', 'saluda', 'saludo': "~¿Qué puedo decir de tí, mi viejo amigo? Fuiste un formidable rival en la victoria, espero que seas también un digno vencido en la derrota. Pero no podías esperar otra cosa, ser portador de las llaves era demasiado pedir para los áuleos de tu raza, que sólo han conseguido ser reconocidos en pocas realidades y forjar un solo dios.~"; 'victoria', 'derrota', 'guerra', 'orden', 'ataque', 'naves', 'lucha', 'poder', 'capitan': "~Poder de vulcanianos reside en su lucha y sus poderosas flotas de naves espaciales. A la orden de su capitán, que vulgarmente suele ser el grito ¡Zeux!, que en vuestra jerga significa... ¡¿Pero qué digo?! Dame las llaves de una vez...~"; 'dios', 'vulcano', 'dioses', 'auleo', 'auleos': "~Los áuleos como tú y como yo somos la élite que forjamos realidades y tejemos nuevos campos de espacio. Ordenamos las variables y erradicamos los errores. Diferentes organismos nos veneran y nos llaman dioses, de la misma forma que nosotros veneramos el cambiante renacer. Vulcanianos forjaron su dios en planeta azul cercano a Kaifas, que reposa olvidado junto a otros venerados dioses de áuleos que en lapsos de tiempo y en unidades mesuradas educaron a organismos primitivos.~"; 'llaves', 'llaves', 'creadores', 'libertad', 'salida': "~Ya sabes porqué necesitamos las llaves, dámelas y te prometo la libertad para tí y los tuyos. Es necesario que seamos forjadores de nuevas realidades y tejedores de nuevos campos de espacio, algo que vosotros los vulcanianos y los otros creadores hace tiempo habéis olvidado.~"; 'realidades', 'campos', 'espacio', 'realidad': "~¿No te han educado los áuleos del antiguo renacer? Realidades forjadas por la continua expansión de las variables. Dominar las variables y moldearlas según el orden de los creadores, abrir nuevos campos de espacio con llaves del universo y manipular los múltiples sistemas de vida propuestos por el último renacer.~"; 'variables', 'sistemas', 'vida', 'renacer', 'vulcanianos': "~¿Qué es la vida sino profundo cambio? Renacer continuo entre lapso y lapso de tiempo, proponiendo múltiples variables en organismos y elementos, sistemas completamente extraños hoy son comunes mañana y eso los vulcanianos lo saben. Pero ya no os podéis adaptar más, vuestras leyes son ya antiguas y solo los kuaran podemos dominar nuevas realidades y sobrevivir al próximo renacer.~"; 'zeux': "~No creo que tu ejército responda a la llamada... no te atreverás...~"; } "El Gran Rey Konix te mira sin comprender, esperando con impaciencia mal disimulada el momento en que le entregues las llaves."; Atacar, Besar: banderafin=1; "Con un rápido movimiento despistas inicialmente al menos a los soldados del Gran Rey Konix y de un poderoso salto intentas llegar hasta su trono, pero la viscosidad de éste te atrapa sin remedio y en seguida empiezas a notar, a tu espalda, el rico cosquilleo de la muerte que producen las lanzas de los soldados de Kuaran."; Lanzar: move uno to localizacion; <>; Dar, Mostrar: if (uno == llaves) { remove llaves; banderafin=2; "El Gran Rey Konix de Kuaran se muestra complacido por tu ofrecimiento, y tu te muestras sorprendido por tu cobardía. Los de Kuaran son por lo general cumplidores, así que como premio por haberles dado las Llaves del Universo-con las cuales podrán dominar éste y los otros universos paralelos dicho sea de paso- te dejan en libertad ofreciéndote a cambio una pequeña cápsula intergaláctica dispuesta a surcar el espacio exterior."; } "El Gran Rey Korian de Kuaran no parece interesado, aunque esboza una sonrisa burlona."; ], has propio; ! _________________________________________________________________________ Personaje soldados "soldados" kuaran with nombre 'soldados' 'guerreros' 'soldado', descripcion "Los soldados de Konix te flanquean toda salida apuntándote con sus mortíferas lanzas eléctricas multicolor. Aparentemente fofos y vestidos con pequeñas túnicas chillonas, son por contra guerreros temidos allende las estrellas.", ordenes [; zeux: "Los soldados de Kuaran palidecen ante la orden, esperando que no haya llegado a oidos de los vulcanianos."; default: "No es a los soldados de Kuaran a quien debas dar órdenes, sino a tu vencido y menguado ejército vulcaniano tras ellos."; ], vida [; Responder: switch(uno) { 'zeux': <>; } "Los soldados te miran con grandes ojos glaucos-mezcla de miedo y férrea decisión- nada parece indicar que estén deseosos de hablar."; Preguntar: "Los soldados te miran con grandes ojos glaucos-mezcla de miedo y férrea decisión- nada parece indicar que estén deseosos de hablar."; Atacar, Besar: banderafin=1; "Con un rápido movimiento despistas inicialmente al menos a los soldados del Gran Rey Konix y de un poderoso salto intentas llegar hasta su trono, pero la viscosidad de éste te atrapa sin remedio y en seguida empiezas a notar, a tu espalda, el rico cosquilleo de la muerte que producen las lanzas de los soldados de Kuaran."; Lanzar: move uno to localizacion; <>; Dar, Mostrar: if (uno == llaves) { remove llaves; banderafin=2; "El Gran Rey Konix de Kuaran se muestra complacido por tu ofrecimiento, y tu te muestras sorprendido por tu cobardía. Los de Kuaran son por lo general cumplidores, así que como premio por haberles dado las Llaves del Universo-con las cuales podrán dominar éste y los otros universos paralelos dicho sea de paso- te dejan en libertad y con una pequeña cápsula intergaláctica dispuesta a surcar el espacio exterior."; } "Algo te dice que es mejor ignorar éste último pensamiento."; ], has nombreplural oculto; ! _________________________________________________________________________ Personaje ejercito "ejercito derrotado" kuaran with nombre 'ejercito' 'vulcanianos' 'amigos' 'derrotado', descripcion "Tras de tí los pocos que quedan de tu ejército cabizbajos-ojos que lloran lágrimas dulzonas de color púrpura.", ordenes [; zeux: <>; default: "~Están esperando tan sólo la orden de guerra, la palabra que les llena de fuerzas para luchar por el orden estelar vulcaniano.~"; ], vida [; Responder: switch(uno) { 'zeux': <>; default: "Nada pues hacer por ellos, han visto demasiadas cosas y han comprendido demasiado rápido. Lo único que anhelan ahora es una muerte honrosa-una señal una orden de ataque de su capitán y morirán finalmente como guerreros- sangre vulcaniana en Kuaran rojo anochecer de los tiempos."; } Preguntar: switch(otro) { 'zeux': <>; } "Nada pues hacer por ellos, han visto demasiadas cosas y han comprendido demasiado rápido. Lo único que anhelan ahora es una muerte honrosa-una señal una orden de ataque de su capitán y morirán finalmente como guerreros- sangre vulcaniana en Kuaran rojo anochecer de los tiempos."; Atacar, Besar: "No son ellos tus enemigos, sino lo que queda de tu ejército, unos pocos vulcanianos destrozados."; Lanzar: move uno to localizacion; <>; Dar, Mostrar: if (uno == llaves) { remove llaves; banderafin=2; "El Gran Rey Konix de Kuaran se muestra complacido por tu ofrecimiento, y tu te muestras sorprendido por tu cobardía. Los de Kuaran son por lo general cumplidores, así que como premio por haberles dado las Llaves del Universo-con las cuales podrán dominar éste y los otros universos paralelos dicho sea de paso- te dejan en libertad y con una pequeña cápsula intergaláctica dispuesta a surcar el espacio exterior."; } "Algo te dice que es mejor ignorar éste último pensamiento."; ], has oculto; ! RUTINAS ! _________________________________________________________________________ ! Rutina principal y obligatoria de todo juego InformATE! [ Inicializar; ! Esto es para que el juego dé siempre la descripción de la habitación, aunque ! ya la hayamos visitado modomirar = 2; ! El jugador pasa a ser el personaje elegido CambiarJugador(kaviedex); ! Objetos que lleva al principio el jugador move llaves to jugador; move ropajes to jugador; ]; ! LINEAS DE GRAMATICA ! RUTINAS VERBOSUB [ayudaSub; print "^Estás leyendo un relato corto interactivo de la ~Serie Minúscula~, de Grendelkhan (+info: http://ifgrendel.blogspot.com). La Serie Minúscula es un universo propio aparentemente surrealista cuyas historias se van entrelazando en los diferentes relatos que forman la serie. Para avanzar en la trama debes escribir tus decisiones y ver qué sucede a continuación.^^Algunas de las cosas que puedes intentar son mirar las cosas, preguntar al rey sobre algo en particular e incluso intentar atacar a los soldados, entre otras posibilidades. El juego tiene tres finales, de tí depende escoger el camino correcto y escapar de Kuaran.^"; ]; [zeuxSub; banderafin=2; print "^¡Zeux! ¡Zeux! Gritas con súbita decisión mezcla de cólera y férrea determinación -lanzas que zumban sangrantes silvando melodías de acordes mortales- asombro en Kuaran con vulcanianos libres luchando a sangre por su vida y su método de orden estelar forjado en incalculables eones desde el último renacer...^"; print "^¡Zeux! ¡Zeux! Rabian bocas libres de vulcanianos con ojos inyectados en púrpura, abriéndose paso hacia una remota salida entre las lanzas -agónicos estertores alrededor -avanzas sin mirar atrás pisoteando cuerpos- tejiendo acaso nuevas realidades erradicando por contra otras...^"; print "^¡Zeux! ¡Zeux! se yergue tu ejército victorioso renaciendo como el universo, corriendo por su libertad ignorando las variables por un sentido del orden puro y lógico abriéndose paso entre las lanzas...^"; ]; [ XyzzySub; "^De nada te servirán los viejos trucos aquí."; ]; [ EscaparSub; banderafin=1; "Escapar imposible es de Kuaran sin el beneplácito de Rey Konix. Atravesado por mil lanzas de soldados, agónico estertor del último vulcaniano libre en galaxias de frío y expansión infinita."; ]; [DesnudarseSub o n; objectloop (o has prenda) if ((o in jugador)&&(o has puesto)) {give o ~puesto;move o to parent(jugador);n++;} if(n==0)"Ya estás desnudo."; "Te quitas todas las prendas que llevas y las dejas en el suelo."; ]; Verb 'ayuda' * -> ayuda; Verb 'zeux' * -> zeux; verb "desnudate" "desnudarte" "desnudarse" * -> Desnudarse; Verb 'Xyzzy' * -> Xyzzy; Verb 'escapa' 'huye' 'hui' 'vola' 'vuela' * -> Escapar;