Release 2; Serial "030105"; constant titular "^(c) 2005 Xp'ktro^Bajo Licencia GNU GPL^"; !Nombre del autor constant historia "^Al Fondo del Pozo^"; !Título constant no_puntuacion; !Para que no exista la puntuación en este juego constant admitir_comando_salidas; !Para responder a 'salidas' Replace DibujarLineaEstado; !Para dibujar la barrita de estado Include "EParser"; !El parser en Español !---------------------MensajesLibreria--------------------- Object MensajesLibreria with antes [; Prompt: print "^->"; rtrue; ! Nuevo prompt Miscelanea: if (ml_n == 10) "ein?"; ]; !--------------------------------------------------------------- Include "Acciones"; !Librería de acciones Include "Puertas"; !Para las puertas Include "Gramatica"; !Verbos y Gramática Include "Cortos"; !Cortometrajes Include "Barra"; !Implementada la barra de estado Include "Facilitar"; !Para facilitarte las cosas attribute inmovil; !Estos son atributos creados por el autor, aunque no tienen una función attribute roto; !en especial, sirven como indicadores attribute descubierto; attribute conluz; !---------------------La Barrita de Estado--------------------- objeto_barra_estado barra_estado with modo BE_COMPUESTO, disposicion 1 1 true BE_AVENTURA 25 1 true BE_TEXTO 66 1 true BE_LOCALIDAD, texto "Sueños de un Aventurero desesperado" ; [ dibujarlineaestado; barra_estado.dibujar(); ]; !---------------------Limbo (para Xp'ktro, Inframundo)--------------------- Habitacion limbo "El Inframundo" with descripcion "Pero que coñas haces aquí????", ; Objeto femur "Fémur" limbo with nombre_m 'hueso' 'femur', nombre_f 'parte' 'pierna', descripcion "Es el único pedazo que quedó del pobre esqueleto, tal vez el tío era futbolista.", genero G_MASCULINO, antes [; Meter, Insertar: if (otro==agujero) { print "Al meter el fémur en el agujero, se siente un estruendo terrible y suena la puerta.^"; ! tate_callao=1; <>; ! tate_callao=0; } "No cabe"; ], has masculino oculto; Objeto cuerda "Cuerda" limbo with nombre 'cuerda' 'soga' 'pequena', descripcion "Una cuerda muy pequeña que viste en el suelo. Si no hubieras mirado hacia el suelo tal vez nunca la habrías encontrado.", antes [; Tirar, Jalar: if (cuerda has descubierto) { give fondopozo conluz; "Al tirar de la cuerda, un rayo de luz desciende."; } "?"; ], has femenino estatico oculto; Objeto fisura "Fisura" limbo with nombre 'fisura' 'abertura', descripcion "Es la fisura en donde esta la cuerda.", has femenino oculto escenario; Objeto tesho "techo con púas" with nombre_m 'techo', nombre_fp 'puas' 'puntas', estado 0, descripcion [; switch(self.estado) { 1,2,3: "^Del techo han salido unas puas y están bajando hacia ti."; 4: "^Al mirarlo, descubres que ya está mas cerca."; 5: "^Es techo esta a menos de ", (numero) (17-self.estado)*5, " metros de ti."; 6: "^El techo esta a punto de pegarse al suelo, tienes que hacer algo...."; } ], cada_turno [; switch(self.estado++) { 1: "^Se escucha un sonido metálico, al mirar arriba, notas que el techo ha cambiado y ahora está mas cerca, notas unas puntas que sobresalen de él."; 2,3: "^El techo se viene acercando al suelo."; 4,5: "^El techo ya esta a menos de ", (numero) (8-self.estado), " metros de ti. Debes salir de aquí!"; 6: banderafin=1; "^En tu último intento, te echas lo más que puedes al suelo, tratando de esquivar el techo, cierras tus ojos fuertemente, y grande es la sorpresa al sentir, que estás un poquito muerto."; } ], has escenario; !---------------------Localizaciones--------------------- Habitacion fondopozo "En el Pozo" with descripcion "Te encuentras en el fondo de lo que al parecer es un pozo. Tiene una forma circular y es mas o menos grande.", antes [; examinar: if (uno==obj_abajo) return PalSuelo(); if (uno==obj_arriba) return PalTecho(); Escalar, Trepar, Subir: "Tratas pero no puedes subir por las paredes, las cuales tienen las piedras bien pegadas."; ], al_n porton, ; Habitacion final "Fin" with descripcion [; yanomas.proyeccion(1); banderafin=3; ], al_s porton, ; !---------------------El Jugador--------------------- objeto cuerpo "cuerpo" fondopozo with nombre_m 'cuerpo' 'pie' 'torso' 'tronco' 'brazo' 'pecho' 'mi' 'yo' 'tobillo' 'cuello' 'propio' 'muslo' 'estomago' 'hombro' 'codo' 'pene' 'genital' 'cono' 'culo' 'trasero' 'ojo' 'ojete' 'pelo' 'cabello' 'pezon', nombre_f 'cabeza' 'espalda' 'persona' 'rodilla' 'cadera' 'panza' 'cara' 'mano' 'pantorrilla' 'muneca' 'vagina' 'teta' 'polla' 'nariz' 'oreja' 'boca' 'barba' 'ceja' 'pestana' 'calva', nombre_mp 'cuerpos' 'pies' 'brazos' 'pechos' 'tobillos' 'muslos' 'hombros' 'codos' 'genitales' 'ojos' 'pelos' 'cabellos' 'pezones', nombre_fp 'piernas' 'cabezas' 'espaldas' 'rodillas' 'caderas' 'manos' 'pantorrillas' 'munecas' 'tetas' 'orejas' 'barbas' 'cejas' 'pestanas', genero G_MASCULINO, descripcion "Pero, quién mejor que tú para describirte a ti mism@@64.", antes [; coger: "¿Para qué quieres cogerte a ti mism@@64?"; abrir,cortar: "Lo intentas pero no dispones del instrumental necesario para destriparte a ti mism@@64."; ], has escenario; !---------------------Conexiones--------------------- Conexion porton "puertón" with nombre 'puerta' 'puerton' 'porton' 'metal', antes [; Examinar, Mirar, Tocar: if (porton hasnt descubierto) { "No veo eso que dices."; } give porton descubierto; "Es una enorme puerta hecha de acero sólido, en la cual notas un agujero con forma medio circular, en la que podría caber algo largo....."; ], has escenario abrible cerrojo cerrojoechado transparente; Objeto agujero "agujero" porton with nombre 'agujero' 'hueco' 'hollo' 'hoyo', descripcion "El agujero es de forma circular y delgado.", has recipiente escenario; !---------------------Objetos--------------------- Objeto grilletes "Grilletes" fondopozo with nombre_m 'grillete' 'grilletes', nombre_f 'esposa' 'esposas', genero G_MASCULINO+G_FEMENINO+G_PLURAL, descripcion "Los grilletes que sujetaron al esqueleto están muy sucios y oxidados, al parecer, el pobre tío estuvo aquí mucho tiempo......", antes [; Quitar, Abrir: if (eskeleto has inmovil) { give eskeleto ~inmovil; "Le quitas los grilletes al esqueleto, deslizándose este hasta llegar al suelo."; } "Ya no necesitas esto."; Coger: "Están pegados a la pared, y tu no tienes fuerza suficiente...."; ], has oculto escenario recipiente; Objeto eskeleto "Esqueleto" fondopozo with inicial [; if (eskeleto has inmovil) { "En la pared, colgando de unos grilletes, hay un esqueleto."; } "El esqueleto yace tirado en el suelo"; ], nombre_m 'esqueleto' 'hueso' 'muerto', nombre_f 'calavera' 'pierna', genero G_MASCULINO+G_FEMENINO, descripcion [; print "El esqueleto (o al menos, lo que era de el), se encuentra incompleto puesto que le falta una pierna"; if (eskeleto has inmovil) { ". Esta colgado de unos grilletes."; } ". Está tirado en el suelo."; ], antes [; coger: "Nunca me llevaría un esqueleto a cuestas......"; Romper, Atacar: if (eskeleto hasnt inmovil) { give eskeleto roto; move eskeleto to limbo; move tesho to fondopozo; move femur to fondopozo; "Al tomar el esqueleto y tirarlo con fuerza hacia el suelo, este se rompe en mil pedazos, quedando solamente su hueso fémur.^Oyes un sonidito, no le tomas importancia."; } "Primero tendrás que quitarle esos grilletes."; ], has inmovil animado; Objeto pared "pared" fondopozo with nombre_f 'pared' 'piedra' 'piedras', nombre_m 'muro', genero G_FEMENINO+G_MASCULINO+G_PLURAL, antes [; Tocar, Mirar, Examinar: return TocarPared(); Coger: "Esta muy fija en su sitio, difícilmente te lo podrías llevar."; ], has femenino oculto estatico; !---------------------Cortos--------------------- Cortometraje inicio with delay 22, descripcion [; self.delay=0; @erase_window -1; "^Sueños de un aventurero desesperado^"; ] [; self.delay=0; box "Capítulo I" "" "~Al Fondo del Pozo~"; ] [; @erase_window -1; "!!?!!";] [; @erase_window -1; "¿Donde estoy?";] [; @erase_window -1; "¿Que sucede?";] [; self.delay=80; "^Te agarras la cabeza tras haber sentido un tremendo dolor, al levantar tu mirada, observas sorprendido una enorme pared de piedra que se alza ante ti.";] [; @erase_window -1; self.delay=25; "miras a tu alrededor......";] [; @erase_window -1; self.delay=30; "¡Estoy en un pozo! -exclamas-";] [; return Erase_Window;] ; Cortometraje yanomas with delay 20, descripcion [; @erase_window -1; self.delay=30; "Tras poner la última pieza en su lugar, se abre la enorme puerta, dando paso a una intensa luz...^";] [; self.delay=30; "Desesperad@@64, y sin pensarlo dos veces, te diriges hacia la luz.....^";] [; self.delay=30; "De un momento a otro.........^";] [; @erase_window -1; self.delay=45; "Tiiiiiiiiiiiiiiiiiiiiiiiiii Tiiiiiiiiiiiiiiii Tiiiiiiiiiiiiiiiiiiiiiiii Tiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (Un sonido??)^";] [; self.delay=45; "De pronto, se escuchan una voces..... haces un esfuerzo por ver y..........^^";] [; self.delay=40; "-Muy buenos días, os habla Jenesis Linuxica^";] [; self.delay=40; "-Y JSJ, en el resumen matinal de noticias del CAAD^";] [; self.delay=45; "-Pasando a otro plano de la noticia, Manowar fue elegido como ~El aventurero más irresistible~ (:D)^";] [; self.delay=50; "-Según lo que planseldon nos informó, la imagen de Manowar le dio la vuelta al mundo al ver que el mayor número de visitas fueron SÓLO para ver su foto (xD)^";] [; self.delay=45; "Maldito televisor con reloj despertador incorporado -pronuncias- ^AAAAAAH (bostezas)^";] [; self.delay=45; "Miras el reloj........ LAS 7:15!!!!!!, ME ATRASEEEEEEEE";] [; @erase_window -1; self.delay=50; "Muy mal sueño, eh? ;) solo deseo que hayas disfrutado esta aventura (por cierto, la primera que sale a la luz de todas las que dejé) y agradecer a:^";] [; self.delay=45; "Dhan, por haberme ayudado en lo del esqueleto.^";] [; self.delay=45; "A dddddd (perdón si no son las 'd' correctas xD) por sus comentarios.^";] [; self.delay=45; "A Jenesis, por haberme dado una buena paliza xD.^";] [; self.delay=50; "Y por último a Zak (algún día descubriréis porque).";] [; @erase_window -1; self.delay=40; "F I N"; ] ; !---------------------INICIALIZAR--------------------- [ Inicializar; inicio.proyeccion(1); modomirar = 2; localizacion =fondopozo; InicializarConexiones(); "La primera aventura de la serie ~Sueños de un aventurero desesperado~ Por Xp'ktro, para ayuda teclea 'ayuda' en cualquier parte del juego.^Para saber más acerca de esta aventura y el autor, teclea ~xpktro~ o ~Xpktro~^^Para saber que es la licencia GNU GPL teclea ~GNU~"; ]; !---------------------Vocabulario!--------------------- [RomperSub; ]; [JalarSub; ]; [EscalarSub; ]; [InsertarSub; ]; [AyudaSub; "La única ayuda que te puedo dar es:^Usa tu imaginación!!!, no puedo creer que no puedas hacer algo tan sencillo"; ]; Verb 'ayuda' 'help' * -> Ayuda; [XpktroSub; "^^Esta es la primera aventura de Xp'ktro (ciertamente es la primera de muchas que no sacó a la luz), la única cosa que tienes que hacer es escapar de este ~pozo~ al cual has caído de una forma misteriosa, solamente eso.^Pienso hacer una saga con estas aventuras a la cual llamaré ~Sueños de un aventurero desesperado~ pero no prefiero apresurarme, primero esta, después saldrán otras y al último haré una aventura en donde estén todas juntas.^^Solo vale esperar.^^^^Xp'ktro, autor. (siempre quise poner eso)"; ]; Verb 'xpktro' 'Xpktro' * -> Xpktro; [GNUSub; "GNU GPL (GNU General Public Licence) es una licencia pública, que dice, que tu puedes usa el código fuente de este programa para hacer otras versiones o como base para crear otra diferente (incluso modificarlo a tu gusto), siempre y cuando pongas en los créditos el nombre del autor original. Sin embargo, las copias que hagan de este programa están bajo responsabilidad del autor. Este programa es completamente seguro."; ]; Verb 'gnu' 'GNU' * -> GNU; !---------------------Mas...--------------------- [PalTecho; if (fondopozo has conluz) { if (tesho in fondopozo) { <>; } "Al mirar arriba, tus pupilas se contraen, pues una luz desciende de arriba."; } else if (tesho in fondopozo) { <>; } "No ves nada mas que oscuridad al mirar arriba, tal vez este pozo no tenga inicio."; ]; [PalSuelo; if (cuerda hasnt descubierto) { move fisura to fondopozo; move cuerda to fondopozo; give cuerda descubierto; "Al ver abajo, notas un color inusual, te acercas un poco y notas que, hay una pequeña cuerda que sale de una fisura."; } "No ves nada mas que el suelo mismo al mirar hacia abajo."; ]; [TocarPared; if (pared hasnt descubierto) { give pared descubierto; give porton descubierto; "Al querer tocar la pared, accidentalmente tropiezas sobre ti mismo y te apoyas en una piedra, la cual se hunde y abre paso a una puerta en dirección norte."; } "La pared está toda hecha de piedras, las cuales están muy fijas."; ];