' "Nearco" ' Created with QDK Lite 4.0 - UNREGISTERED VERSION define game asl-version <390> gametype singleplayer start game author game copyright game info startscript { foreground displaytext wait foreground clear give give give } onload { clear background foreground exec } verb msg verb msg verb msg error error error error error error error error error error error error error error error error define variable type numeric value <0> display nozero end define end define define options debug off panes on end define define synonyms ex;examina;examinar = examine abrir;abre = open coger;coge = take Dejar;deja = drop end define define room alias look <|nLa arena del suelo quema tus sandalias. A lo lejos, puedes percibir el efecto óptico que se produce cuando el aire caliente asciende desde las dunas. El Sol, abrasador, quema tu piel sin piedad.> indescription north if got then goto else goto south do east do west do northwest do northeast do southwest do southeast do description do define object alias look take prefix displaytype article gender use msg use on msg use on msg use on msg use on msg use on { msg hide hide show give } drop everywhere action { picture msg <|nEs un hueso quemado por el Sol. Posiblemente su propietario fuese un caballo. Aunque después de mirarlo detenidamente, te inclinas por la opción de que fuese de un camello, aunque pensándolo bien, puede que sea humano.> } end define define object alias look take prefix displaytype article gender use on msg use on msg use on msg use on { msg playwav hide show give } use on msg drop everywhere action { picture msg <|nEs una piedra cristalina. Bastante pura. Pudiera ser cuarzo, pero tiene bastantes impurezas recubriéndola, por lo que no es demasiado transparente.> } end define define object alias look take prefix displaytype article gender use exec use on msg use on msg use on msg use on msg use on msg use on { msg hide hide show give } drop everywhere action { picture msg <|nEs el casco griego que te ha acompañado en mil y una batallas. Brilla relucientemente cuando le dan los rayos del Sol, produciendo reflejos en todas direcciones. En la parte del mentón, lleva una correa para sujetarlo firmemente a la cabeza, de modo que no se desplace con tus movimientos, durante los combates.> } end define define object alias look take prefix displaytype article gender use on msg use on msg use on msg use on msg use on msg drop everywhere action { picture msg <|nEs una espada muy afilada. En el mango lleva una inscripción. Su traducción aproximada podría ser: "Cuanto más te hundas, más muerte traerás".> } end define define object alias look take msg prefix displaytype article gender use msg properties end define define object alias look prefix displaytype article gender use msg use on msg use on msg use on msg use on msg use on msg use on <> action { picture msg <|nEs un trapo rojo que te regaló la última bella esclava con la que te regocijaste en las frías noches de invierno. Ahora, lo utilizas en ocasiones, a modo de turbante, para proteger tu cuello y parte de la espalda, del fuego abrasador de los rayos solares.> } end define define object alias look take prefix displaytype article gender hidden use msg use msg drop everywhere properties end define define object alias look take prefix displaytype article gender hidden use on msg use on msg use on msg use on msg use on msg use on msg drop everywhere action { picture msg <|nEs el trozo de piedra que has frotado y lijado repetidas veces contra la roca. Ha resultado ser un trozo de cuarzo, que has tallado en forma de prisma, y ahora es totalmente transparente y deja pasar la luz a través de él, debido a que era de una gran pureza cristalina.> } end define define object alias look prefix displaytype article gender hidden use { msg playwav hide show give } use msg use on msg drop nowhere properties end define define object alias look take prefix displaytype article gender hidden drop everywhere action { picture msg <|nEs un hueso con un pañuelo enrollado. La antorcha está encendida.> } end define end define define room alias indescription south { background foreground clear goto } description { background clear foreground msg } end define define room alias look indescription south west end define define room alias look indescription north east end define define room alias look indescription north east end define define room alias look indescription east west end define define room alias look indescription east west end define define room alias look indescription north west script playwav end define define room alias look indescription south east end define define room alias look indescription north west end define define room alias look indescription south east end define define room alias look indescription north west script playwav end define define room alias look indescription north east end define define room alias look indescription south west end define define room alias look indescription north east end define define room alias look indescription south west end define define room alias look indescription north east end define define room alias look <¿Es que esta cueva no tiene fin?. Tranqui. Acabas de empezar. Búscate un papel bien largo y un buen bolígrafo cargado de tinta.> indescription south west end define define room alias look indescription south east end define define room alias look indescription north west end define define room alias look indescription south east script playwav end define define room alias look indescription east west end define define room alias look indescription south west end define define room alias look indescription north east script if flag then flag off else msg <¡¡¡ Caray !!!.|nLo intuía. Algo nuevo.|nEn esta habitación hay una especie de pedestal de piedra. El pedestal se eleva desde el suelo hasta una altura cercana a tu pecho. (Si la que juega la aventura es una chica, léase: a tu "bonito pecho"). En lo alto del pedestal hay una ranura. Parece una máquina de Coca-Cola persa, pero evidentemente no lo es.> define object alias look take msg prefix displaytype article gender use msg use msg use { if flag and flag then { msg playwav msg show hide } else { msg playwav flag on hide } } properties end define define object alias alt look take msg <¿Para qué quieres arrastrar el cuerpo de un persa muerto?.> prefix displaytype article gender hidden properties end define define object alias look prefix displaytype article gender hidden drop nowhere action { msg <|nEs el arco que llevaba el persa que te atacó y se abrió la cabeza persiguiéndote. Aunque no es de muy buena calidad, (la madera no es de Tesalónica y las cuerdas no son de Corinto), parece que cumple su función de disparar flechas.> picture } end define define object alias look take prefix displaytype article gender hidden use { msg show give hide show } drop everywhere container open { msg show give } action { picture msg <|nEs un cofre de madera antiguo. Se puede abrir fácilmente quitando el pasador que cierra la tapa.> } action exec action exec end define define object alias look prefix displaytype article gender hidden action { msg wait foreground msg <"La piel de la res (oveja, ternero o cabra), se sumerge en una solución de cal y semen de oveja, para poder rasparla y quitar el vellón adecuadamente. A continuación se raspa hasta que quede igualada por ambas caras. Finalmente y con la ayuda de polvos de piedra pómez se desgasta hasta que queda lista para su uso. Cuando la piel es extraída de un animal viejo, el resultado es un pergamino de buena calidad pero más basto. Si por el contrario el animal es joven, se obtiene un pergamino mucho más fino llamado vitela."|n> foreground msg <¿Me pregunto quien será el encargado de extraer el semen de oveja para fabricar los pergaminos?. En cualquier caso, dudo que en lo sucesivo, nuca más toque ninguno con mis manos. Puajjj.|n|nEste lo toco porque es cibernético y está fabricado de bytes. Pero no vuelvo a tocar un pergamino en mi vida!!!.> wait msg } end define define object alias look take prefix displaytype article gender hidden use msg drop everywhere action { picture msg <|nEs un cofre de madera antiguo. Se puede abrir fácilmente quitando el pasador que cierra la tapa.> } end define end define define room alias look indescription north west script playwav end define define room alias look indescription north south end define define room alias look indescription east up { goto playwav } end define define room alias look indescription north msg east west script { if here then { flag on msg <|n¡¡ Leñes !!!|nAquí hay un persa con muy malas pulgas. Está armado con un arco y varias flechas.|n> pause <4000> msg playwav pause <6000> goto msg pause <5000> playwav goto msg move pause <5000> set numeric show give } else msg } define object alias look speak exec prefix displaytype article gender action { msg hide show } end define define object alias look speak { msg foreground msg <"Me alegro mucho de haber trabajado con usted en esta aventura. Para mi, ha sido un verdadero orgullo. Pero me tengo que marchar ya. Mi mujer me está esperando para la cena. Hoy es nuestro aniversario. Esto, que, quería decirle que si tiene ocasión que hable con los del CAAD, para que me nominen como mejor actor secundario por mi excelente interpretación de la caida y muerte en la cueva. Creo que pisarme al dedo gordo le ha dado mucha más credibilidad a la escena. Bueno, suerte con el resto de la aventura y hasta la vista."> foreground msg hide } prefix displaytype article gender hidden properties end define end define define room alias look indescription south script if here then msg else msg define object alias look take prefix displaytype article gender drop everywhere action { picture msg <|nEs la mitad de grande que un óbolo de Tarsos. Lleva unos relieves grabados en el anverso y en el reverso de la moneda. Está hecha de cobre.> } end define end define define room alias look indescription east west script if property then msg else msg <¡¡¡ Cuidado !!!|nTu cuerpo se tensa.|nParece que has escuchado pasos que provienen de la habitación situada al oeste.> end define define room alias look indescription south west end define define room alias look indescription south east end define define room alias look indescription south west end define define room alias look indescription north east script playwav end define define room alias look indescription east west define object alias look take speak prefix displaytype article gender use on msg use on msg use on msg use on msg <¿Disparar una pluma con un arco?. Siempre he pensado que la pluma va al final de la flecha para estabilizarla.> use on msg use on msg use on msg use on msg use on msg use on msg use on msg use on msg use on msg use on msg use on use on anything msg <¿Para qué? ¿Crees que haciéndole cosquillas conseguirías algo?.> drop everywhere action { picture msg <|nEs una preciosa pluma de oca y parece que se puede utilizar para escribir con ella.> } end define end define define room alias look indescription north west end define define room alias look indescription north east end define define room alias look indescription east west end define define room alias look indescription east west script playwav end define define room alias look indescription north west end define define room alias look indescription south east end define define room alias look indescription north west end define define room alias look <¡¡¡Cuidado!!!.|nHas pisado mal una de las piedras del suelo, y has estado a punto de hacerte un esguince.> indescription south east end define define room alias look indescription south west end define define room alias look indescription north east end define define room alias look indescription east west end define define room alias look indescription south west end define define room alias look indescription north east end define define room alias look indescription south west end define define room alias look indescription north east end define define room alias look indescription west up { goto playwav } end define define room alias look indescription south east end define define room alias look indescription east west end define define room alias look indescription north west end define define room alias look indescription south down { goto playwav } end define define room alias look indescription north east end define define room alias look indescription south west end define define room alias look <¡¡ Hombre !!|nAlgo nuevo.|nEn esta habitación hay una especie de pedestal de piedra. El pedestal se eleva desde el suelo hasta una altura cercana a tu pecho. (Si la que juega la aventura es una chica, léase: a tu "bonito pecho"). En lo alto del pedestal hay una ranura. Parece otra máquina de Coca-Cola persa.> indescription north east define object alias look take msg prefix displaytype article gender use msg use { if flag and flag then { msg playwav msg move show hide } else { msg playwav flag on hide } } use msg properties end define end define define room alias look indescription north west script if property then else msg end define define room alias look indescription north east end define define room alias look indescription south west end define define room alias look indescription end define define room alias look indescription south east end define define room alias look indescription east west end define define room alias look indescription south west script playwav end define define room alias look indescription south east end define define room alias look indescription south east msg script { if here then { msg playwav } else msg } description do define object alias look prefix displaytype article gender use msg use { msg dec hide show hide show create exit west msg } use msg use msg properties end define define object alias look prefix displaytype article gender use { msg dec hide show hide show msg create exit west } use msg use msg use msg properties end define define object alias look take msg <¿Para qué quieres arrastrar el cuerpo de un persa muerto?.> prefix displaytype article gender hidden properties end define define object alias look take msg <¿Para qué quieres arrastrar el cuerpo de un persa muerto?.> prefix displaytype article gender hidden properties end define end define define room alias look indescription west script if here then msg else msg define object alias look take prefix displaytype article gender action { picture msg <|nEs la mitad de grande que un óbolo de Tarsos. Lleva unos relieves grabados en el anverso y en el reverso de la moneda. Está hecha de plata.> } end define end define define room alias look indescription north east script playwav end define define room alias look indescription west northeast end define define room alias look indescription northwest southwest end define define room alias look indescription east northwest end define define room alias look indescription west northwest end define define room alias look indescription east northwest down { goto playwav } end define define room alias look indescription script { msg playwav goto } end define define room alias look indescription south northeast end define define room alias look indescription northeast southeast define object alias look take prefix displaytype article gender use anything msg use on anything msg drop everywhere properties end define end define define room alias look indescription southwest southeast end define define room alias look indescription north southeast end define define room alias look indescription northeast southeast end define define room alias look indescription east northwest end define define room alias look indescription west northwest end define define room alias look indescription north northeast end define define room alias look indescription northwest southwest end define define room alias look <¡¡Caramba !!!.|nAlgo distinto.|nEn esta habitación hay una especie de pedestal de piedra. El pedestal se eleva desde el suelo hasta una altura cercana a tu pecho. En lo alto del pedestal hay una ranura. Tiene la forma de un paralelepípedo. (Con perdón).> indescription northeast southwest define object alias look take msg prefix displaytype article gender use { if flag and flag then { msg playwav msg move show hide } else { msg playwav flag on hide } } use msg use msg properties end define end define define room alias look indescription south northeast end define define room alias look <¿A qué mente enferma se le podría haber ocurrido crear un laberinto tan complicado como este?|n|nP.D.: El autor silba y mira para el techo disimulando.> indescription northeast southeast end define define room alias look indescription southwest southeast end define define room alias look indescription north northwest end define define room alias look indescription south southeast end define define room alias look indescription east southwest end define define room alias look indescription west northwest end define define room alias look indescription northwest script if here then msg else msg define object alias look speak prefix displaytype article gender use { msg create exit southwest hide show show } use { msg create exit southwest hide show dec } use msg use msg properties end define define object alias look take msg <¿Para que quieres llevar a cuestas un persa muerto?> speak prefix displaytype article gender hidden use msg use msg properties end define define object alias look take msg speak prefix displaytype article gender hidden use msg use msg properties end define end define define room alias look indescription northwest southwest end define define room alias look indescription southwest southeast end define define room alias look indescription south northwest end define define room alias look <¿Alguien tiene un GPS para dejarte?. Creo que te has perdido.> indescription north east end define define room alias look indescription west southeast end define define room alias look indescription north southeast script playwav end define define room alias look indescription northeast southeast end define define room alias look indescription northwest northeast end define define room alias look indescription northeast southeast define object alias alt look take msg prefix displaytype article gender use msg use msg use msg use msg use msg use { msg hide show give } use msg <¿Manchar una moneda tan bonita?. Ni loco.> use msg <¿Manchar una moneda tan bonita?. Ni loco.> use msg <¿Manchar una moneda tan bonita?. Ni loco.> use msg use msg properties end define define object alias look take prefix displaytype article gender hidden drop everywhere action { picture msg <|nTiene unas extrañas inscripciones. Parece que está escrito en alguna antigua y arcana clave, posiblemente ahora perdida en la noche de los tiempos.> hide show } end define end define define room alias look indescription north northwest end define define room alias look indescription south east end define define room alias look <¿Qué tendrán los persas escondido dentro de esta cueva?.> indescription east west end define define room alias look indescription south west end define define room alias look indescription east southeast end define define room alias look indescription west southwest end define define room alias look indescription southwest southeast end define define room alias look <¿Alquien entre el público tiene pastillas para el mareo?. Estoy empezando a cansarme de dar tanta vuelta.> indescription south southwest script playwav end define define room alias look indescription east script if here then msg else msg define object alias look take prefix displaytype article gender action { picture msg <|nEs la mitad de grande que un óbolo de Tarsos. Lleva unos relieves grabados en el anverso y en el reverso de la moneda. Está hecha de oro.> } end define end define define room alias look indescription south west msg northeast end define define room alias look indescription north southwest end define define room alias look indescription south northeast end define define room alias look indescription north up { goto playwav } end define define room alias look indescription south east end define define room alias look indescription west down { goto playwav } end define define room alias look indescription south east end define define room alias look indescription south west end define define room alias look indescription south southeast end define define room alias look indescription end define define room alias look indescription south east end define define room alias look indescription south west end define define room alias look indescription south southeast end define define room alias look indescription end define define room alias look indescription south southwest end define define room alias look indescription end define define room alias look indescription southwest southeast end define define room alias look indescription end define define room alias look indescription south southeast end define define room alias look indescription end define define room alias look indescription south east end define define room alias look indescription south east west end define define room alias look indescription south west script if here then msg else msg define object alias look prefix displaytype article gender use msg use msg use msg use msg action choose end define define object alias look prefix displaytype article gender hidden use msg use msg use msg use msg use msg <Únicamente consigues ahumar la piedra.> properties end define end define define room alias look indescription north south end define define room alias look indescription end define define room alias look indescription north south end define define room alias look indescription north south end define define room alias look indescription north south end define define room alias look indescription northwest southwest southeast end define define room alias look indescription north south end define define room alias look indescription north south end define define room alias look indescription north south end define define room alias look indescription northwest northeast end define define room alias look indescription north south end define define room alias look indescription east northeast southwest end define define room alias look indescription east west end define define room alias look indescription west northwest southeast end define define room alias look indescription north south end define define room alias look indescription northwest southeast end define define room alias look indescription north south end define define room alias look indescription north south end define define room alias look indescription north south script if here then msg else msg define object alias look prefix displaytype article gender use msg use msg use msg use msg action choose end define define object alias look prefix displaytype article gender hidden use msg use msg use msg use msg <Únicamente consigues ahumar la piedra.> properties end define define object alias look prefix displaytype article gender hidden action choose end define end define define room alias look indescription north east end define define room alias look indescription east west end define define room alias look indescription north east west end define define room alias look indescription north east west end define define room alias look indescription north west northeast end define define room alias look indescription end define define room alias look indescription north east northwest end define define room alias look indescription north east west end define define room alias look indescription north west end define define room alias look indescription end define define room alias look indescription north northeast end define define room alias look indescription end define define room alias look indescription end define define room alias look indescription end define define room alias look indescription north northwest end define define room alias look indescription end define define room alias look indescription north northwest end define define room alias look indescription north east end define define room alias look indescription north west script if here then msg else msg define object alias look suffix displaytype article gender use msg use msg use msg use msg action choose end define define object alias prefix displaytype article gender hidden use msg use msg use msg use msg <Únicamente consigues ahumar la piedra.> properties end define end define define room alias look indescription script { background foreground playwav clear msg <#quest.lookdesc#> playerwin } end define define procedure msg end define define procedure picture msg <|nEn esa dirección está el abrasador desierto. Podrías cruzarlo, pero Alejandro te ha encomendado una misión.> end define define procedure picture msg <|nEn esa dirección está el abrasador desierto. Podrías cruzarlo, pero Alejandro te ha encomendado una misión.> end define define text Tu siguiente paso es reunirte con el dios RAR. Él te hará una pregunta, y si la aciertas podrás continuar jugando a las aventuras de... NEARCO. ¡¡¡ Enhorabuena por haber llegado hasta aquí. !!! end define define text |bTu nombre es Nearco. Tu señor, Alejandro Magno te ha enviado a estas tierras para buscar un valioso tesoro guardado con sumo celo por el gran rey persa Darío III Codomano.|xb end define define text end define define selection info <¿Quieres empujar el cilindro de piedra que sobresale de la pared?> choice { msg playwav create exit north hide show hide show hide } choice msg end define define selection info <¿Quieres empujar el cilindro de piedra que sobresale de la pared?> choice { msg playwav create exit east hide hide } choice background end define define selection info <¿Quieres empujar el cilindro de piedra que sobresale de la pared?> choice { msg playwav create exit west hide show } choice msg end define define selection info <¿Quieres empujar el círculo de piedra que hay en la pared?> choice { msg goto } choice msg end define