!Creada por Óscar Salmerón Mateu. (Lorka).
Constant Historia "Ligue en Ciutat la NIT.";
Constant Titular "^(c) 2002 Lorka^";
Constant admitir_comando_salidas;
Constant hay_Curiosidades;

Include "EParser";
[ Curiosidades ;print "Bueno, para empezar deciros que esta es mi primera aventura y que aunque está floja en algunos aspectos y esta escrita más 
	desordenada que mi cuarto(y sin una nota), estoy muy orgulloso de ella. Le doy gracias al CAAD y a Zak por introducirme sin saberlo en el mundillo y a todos aquellos que revelan los codigos
	fuente de sus aventeuras pues son una gran fuente de aperndizaje.^^Ahora sí! las curiosidades:^Pues para empezar sabed que hay 4 maneras distintas de 
	acabar la aventura de una manera correcta (y otras cuantas de quedar en el intento).^¿vísteis bien las potadas? ¿encontrasteis el Supermirafiori? 
	¿Hos bebisteis los dos cubatas y no notasteis nada aparente? ¿visteis a la morenita tímida y discreta? ¿habeis escuchado la música de las diferentes salas? ¿Probasteis Xyzzy? ¿No? Pues 
	hacedlo y buscad bien en los Pasillos de la discoteca.^Aparte de eso decir que no he puntuado las acciones porque hay varias maneras de finalizar y 
	que ¡Gracias por jugar mi aventura!^^";
];

Include "Acciones";
Include "Gramatica";
Include "Cortos";
Include "fhablaoo";

Object	Corto_Inicial1
 class	cortometraje
 with	descripcion

	"~Casa del Capi Manchego~^^"
	"Sábado 02:29 A.M.^^"
	"~Resident Evil 2~^^^"
	"~ENEMIGO FINAL.~^^^"
	"~Tienes pocos segundos para reaccionar...~^^"
	"~ESTA VEZ VAS ACABAR CON EL MEGA-ZOMBIE!!!~^^"
	"~RRATATTATTTATÁ!!!!~^"
	"~SCRINCH!~^"
	"~TRASH!~^"
	"~CRASH!~^"
	"~PLASCA!~^"
	"                                ~...~                                 ^^"
	"~Joder! Mierda! Me han vuelto a matar!!~^^^"
	"~BASTA!~^"
	"~MIERDA!~^"
	"~NO PUEDO MÁS!~^"
	"~YA NO PUEDO MÁS!~"
	"~AHORA MISMO COJO UNA SUDADERA Y ME VOY A PILLAR UN..."
;

Object	Entrada "Entrada de la NIT"
with	descripcion [; if (Entrada has visitado) {
	"Estas en la puerta de la Ciutat la NIT, macrodiscoteca
	donde se amontonan por trillones quillacas güenorras y maquinerillos 
	torrados. Estás rodeados por montones de estos que se mueven arriba y
	abajo. Adentro está el hall de la discoteca. Al norte hay un callejón. Al sur están los aparcamientos.";
}
else "Después de larga, larga abstinencia y demasiada Playstation.TM, por fin decides poner fin a tu cruz...
	recoges tu sudadera preferida y te plantas a los 20 min. en el lugar en cuestion. Estas en la puerta de la Ciutat la NIT, macrodiscoteca
	donde se amontonan por trillones quillacas güenorras y maquinerillos 
	torrados. Estás rodeados por montones de estos que se mueven arriba y
	abajo. Adentro está el hall de la discoteca. Al norte hay un callejón. Al sur están los aparcamientos.";
],
	irrelevante 'auricular' 'auriculares' 'entrada' 'suelo' 'paredes' 'techo' 'pared',

	no_puedes_ir "No te vas a ir a casa sin mojar! Lo tienes decidido. Así que adentro!",
	al_s Aparcamientos,
	al_n Callejon,
	arriba "Te crees Supermán?",
	abajo "No has traido la pala.",
	adentro [;
if (camiseta has puesto) {
print "El segurata te mira de arriba a abajo frunciendo ceño... pero finalmete te deja pasar.";
return hall;}
else "SEGURATA: ~¿A donde vas chaval? Aquí no entras con esa ropa.~^El segurata te coge con un brazo
	 del cuello y mientras te mantiene suspendido medio metro en el aire te deja de nuevo de patitas en la calle.";
],

  has	luz;

Object	gente "Gente" Entrada
with	nombre 'gente' 'tios' 'tias' 'quillacos' 'quillacas' 'maquitrus' 'guenorras' 'maquinerillos' 'torrados' 'churris',
	descripcion "Mogollón de gente. Todos tienen pinta de buscar fiesta.",

  has	escenario;

Object	porta "Puerta" Entrada
with	nombre 'puerta',
	descripcion "Es la entrada de la discoteca, para entrar pon ~Entrar~.",
  has	escenario;

Personaje segurata "Segurata" Entrada
with	nombre 'segurata' 'gorila' 'King' 'orangutan' 'portero',
	adjetivos 'Kong',
	descripcion "Una impresionante mole de musculos de 2 por 2 metros vestido con 
	un traje negro y uno de eso auriculares de segurata en la oreja. Tiene cara de orangutan y 
	de pocos amigos.",
	Inicial "Puedes ver un segurata que más bien parece King Kong.",

enunciado [linea;
switch (linea) {
		0:  "~Buenas noches, señor segurata.~";
		1:  "~Yo no soy ningún pardillo!~";
		2:  "~¿Te puedo decir que me follé ayer a tu madre?~";
		3:  "~¡Bonito traje!~";
		4:  "~He visto una tia con un pedo que te cagas inconsciente en los lavabos.~";
	}
],

respuesta [linea;
switch (linea) {
		0: self.QuipOff (0);
		   self.QuipOn (1);
		   if (RetreteF has visitado) { 
			self.quipon (4);
			"~Buenas noches pardillo.~";
			}
			else "~Buenas noches pardillo.~";
		1: self.QuipOff (1);
		   self.Quipon (0);
		  "~Cállate, pardillo pestoso.~";
		2: Banderafin=1;
	"No debiste decir eso.^Mister King Kong (enfurecido) te agarra, hace un par de nudos de marinero contigo y te deja
	 en el contenedor de basura más cercano.^Al cabo de unas horas un par de basureros sub-saharagüis salvan tu vida acercandote
	 a urgencias.^Aunque ponga que has muerto la verdad es que sólo estás en coma.";
		3: if (segurata hasnt general) {
		"~Gracias. A mi también me lo parece.~";
	}
	else "~Grrrrrr!!~";
		4: Banderafin=2;
	"Por fin has echo algo digno de un corazón noble. Entre tú y el segurata os encargais de sacar a la pobre chica del retrete y tú la acompañas
	 al hospital. Esta siente tal agradecimiento por ti que os haceis muy amigos, tanto, que os acabais casando, felices, comiendo
	perdices y todo lo demás. No era el final que te esperabas pero...";   
		
}
],
 InicializarQuips [;
	self.QuipsOn (3, 0,2,3);
],

antes [;
	Empujar: if (segurata hasnt general) {
		give segurata general;
		"~No te pases niñato o a la próxima recibes! Es un aviso.~";
}
else	Banderafin=1;
	"~Te lo advertí!!~^Mister King Kong te agarra, hace un par de nudos de marinero contigo y te deja
	 en el contenedor de basura más cercano.^Al cabo de unas horas un par de basureros sub-saharagüis salvan tu vida acercandote
	 a urgencias.^Aunque ponga que has muerto la verdad es que sólo estás en coma.";
],


vida [;

	Atacar, Besar: Banderafin=1;
	"No debiste hacer eso.^Mister King Kong te agarra, hace un par de nudos de marinero contigo y te deja
	 en el contenedor de basura más cercano.^Al cabo de unas horas un par de basureros sub-saharagüis salvan tu vida acercandote
	 a urgencias.^Aunque ponga que has muerto la verdad es que sólo estás en coma.";
	Hablar, Responder: "El rostro del segurata perdura inmutable. Como si nunca hubieses existido.";
],

  has	animado;

Object Aparcamientos "Aparcamientos"
with	descripcion "Un inmenso aparcamiento de coches, lleno de coches. Sus dueños deben estar dentro.",
	irrelevante 'pegatina' 'suelo',

	no_puedes_ir "No te vas a ir a casa sin mojar! Lo tienes decidido.",
	al_n Entrada,
	arriba "Te crees Supermán?",
	abajo "No has traido la pala.",

  has	luz;

Object	coches "Coches" Aparcamientos
with	nombre 'coches' 'bugas' 'carros',
	descripcion [; if (cochecuba in Aparcamientos) {
	give cochecuba ~oculto;
	"Coches de todos los tipos y colores. Los dueños deben de estar todos dentro. Eh! hay un Seat 131 ~Supermirafiori~, y de
	 color naranja, seguro que es el de cubanito...";
}
else "Coches de todos los tipos y colores. Los dueños deben de estar todos dentro.";
],

has	nombreplural escenario;

Object	coche "Coche" Aparcamientos
with	nombre 'coche' 'buga' 'carro',
	descripcion "¿Cual? Hay mogollón. Porque no pruebas mirar ~coches~ ",

  has	escenario;

Object	Callejon "Callejón"
with	descripcion "Estas en un callejón oscuro sucio y solitario donde se acumulan 
	basuras, meados y potadas de diferentes colores.",
	irrelevante 'espaguetis' 'espagueti' 'salsa' 'basura' 'meados' 'basuras' 'basura' 'canuto' 'porro' 'curasao' 'suelo' 'paredes' 'pared',

	no_puedes_ir "Solo hay una salida del callejón, al sur.",
	al_s Entrada,
	arriba "Te crees Supermán?",
	abajo "No has traido la pala.",

  has	luz;

Personaje	quinqui "Quinqui" Callejon
with	nombre 'quillo' 'quillaco' 'quinqui' 'porrero',
	inicial	"Puedes ver un quinqui en una esquina intentando liarse un canuto.",
	descripcion "Es un quillaco con una camiseta negra de rejilla que se está 
		liando un canuto. Esa camiseta...",
	antes [; Atacar: remove self;
			 move quinquicao to Callejon;
			 give camiseta ~escenario;
		"Aprovechas el momento en que el quinqui le estaba dando el pellizco al porro para incharlo 
		a chuscos.^Te lias a patadas y el pobre chaval se queda incosciente tirado entre dos potadas.";

	Empujar: "Empujar? ... A lo mejor tendría que usar una técnica más agresiva para que me dejara la camiseta.";
],
	vida [;
	responder, hablar: "Ahhhyyyy!! Paaallo! Éjame en paz!";
	besar:"~AAAAHI!! BUJARRAS!!! ÁJAME EN PAZ!!! VETE A BORRAR CEEEROS!!!~";
],

InicializarQuips [;
],

  has	animado;

Object	camiseta "Camiseta de rejilla. Diesel.TM" Callejon
with	nombre 'camiseta' 'rejilla' 'camisa',
	descripcion "Es una camiseta negra de rejilla a la última moda fiestera, pone
	 ~Diesel.TM~",
antes [;
	Desvestir: "Mejor me la dejo puesta.";
	coger: if (camiseta has escenario) {
		"No creo que el quinqui te la vaya a dar así como así.";}
		else rfalse;
],
despues [;
	Vestir: if (sudadera has puesta) {
	give sudadera ~puesta;
"Te quitas tu sudadera de los Wu-Tang y te pones la camiseta de rejilla sobre tu pecho desnudo... ( no coments ).";
}
else "Te pones la camiseta de rejilla sobre tu pecho desnudo... ( no coments ).";
	Dejar: "No sabes realmente porqué (a lo mejor es para tapar algún bug pero... ¿quien sabe?) pero le vuelves a poner la camiseta al quinqui.";
],

  has	femenino escenario prenda;

Object potadaazul "potada azul" Callejon
with nombre 'azul' 'potada' 'potadas' 'vomito' 'vomitos',
descripcion "Curasao?",
antes [;
	Tocar: "No crei que se te ocurriría algo tan repulsivo pero bueno, vale, la tocas. ¡Que asco!";
	Probar: "No estás seguro de meter la lengua ahí.";
],


has femenino escenario;

Object potadaroja "potada roja" Callejon
with nombre 'roja' 'potada''potadas' 'vomito' 'vomitos',
descripcion "Parecen espaguetis con mucha salsa.",
antes [;
	Tocar: "No crei que se te ocurriría algo tan repulsivo pero bueno, vale, la tocas. ¡Que asco!";
	Probar: "No estás seguro de meter la lengua ahí.";
],

has femenino escenario;

Object potadaamarilla "potada amarilla" Callejon
with nombre 'amarilla' 'potada''potadas' 'vomito' 'vomitos',
descripcion "Puaggh!",
antes [;
	Tocar: "No crei que se te ocurriría algo tan repulsivo pero bueno, vale, la tocas. ¡Que asco!";
	Probar: "No estás seguro de meter la lengua ahí.";
],

has femenino escenario;

Object potadaverde "potada verde" Callejon
with	nombre 'verde' 'potada''potadas' 'vomito' 'vomitos',
	descripcion [; if (potadaverde hasnt general) {
			move rula to Callejon;
			give potadaverde general;
			"De lo más asqueroso que has visto. Hay algo en esta potada... sí, es una rula.";
}
else "Es la potada de la rula. Parece verde cilantro.";
],
antes [;
	Tocar: "No crei que se te ocurriría algo tan repulsivo pero bueno, vale, la tocas. ¡Que asco!";
	Probar: "No estás seguro de meter la lengua ahí.";
],

has femenino escenario;


Object Hall "Hall de la discoteca"
with	descripcion [;
if (hall has visitado) {
"Aqui es donde se pagan las entradas. Hay un mostrador y una chorba rubia detrás que no está mal. Arriba están los Pasillos de la discoteca.";
}
else	move ticket to jugador;
	give dinero general;
	"Aqui es donde se pagan las entradas. Hay un mostrador 
	y una chorba rubia detrás que no está mal. Le das el dinero de la entrada y te 
	debuelve un TICKET de consumición.  Arriba están los Pasillos de la discoteca.";
],
	irrelevante 'mostrador' 'entradas' 'suelo' 'paredes' 'techo' 'pared' 'escaleras',

	afuera Entrada,
	arriba Pasillo,

  has	luz;

Personaje chorba "Chorba rubia" Hall
with	nombre 'chorba' 'rubia' 'churri' 'guarra',
	descripcion "No es que sea guapa del todo pero tiene una pinta de guarra
	 y una cara de hacer unas mamadas que...",

antes[;
	Probar, Tocar:  if (chorba hasnt general)
	{
	give chorba general;
	"Sin verla venir te mete una ostia que das tres vueltas en el sitio. 
	Te duele la cara una mala cosa. Está claro que es una tia peligrosa y 
	más vale no acercarse.";
	}
	"No, que muerde!!";
],

vida [;
responder, hablar: "Pasa de ti como de comer mierda";
atacar, besar: if (chorba hasnt general)
	{
	give chorba general;
	"Sin verla venir te mete una ostia que das tres vueltas en el sitio. 
	Te duele la cara una mala cosa. Está claro que es una tia peligrosa y 
	más vale no acercarse.";
	}
	"No, que muerde!!";
],

InicializarQuips [;
],

  has	oculto femenino animado;

Object Pasillo "Pasillos de la discoteca"
with	descripcion [; if (mugre in Pasillo) {
"Estas en los pasillos centrales de la macrodiscoteca, desde aqui es
	 donde se accede a las diferentes anbientes de la discoteca. Las churris van 
	moviendo el culo de una sala a otra del local y tu no sabes ya que culo
	 seguir. Al norte está la sala Tecno, al sur la sala de Salsa, al oeste la
	 sala de Pachanga, al este están los lavabos. Aquí el suelo está lleno de mugre. Hay un cartel frente a ti.";}
	else "Estas en los pasillos centrales de la macrodiscoteca, desde aqui es
	 donde se accede a las diferentes anbientes de la discoteca. Las churris van 
	moviendo el culo de una sala a otra del local y tu no sabes ya que culo
	 seguir. Al norte está la sala Tecno, al sur la sala de Salsa, al oeste la
	 sala de Pachanga, al este están los lavabos. Hay un cartel frente a ti.";
],
  irrelevante 'churris' 'churri' 'culo' 'culos' 'pasillo' 'pasillos' 'paredes' 'techo' 'pared',

	abajo	Hall,
	al_n	Tecno,
	al_s	Salsa,
	al_o	Pachanga,
	al_e	Lavabos,

  has	luz;

Object	genteP "Gente" Pasillo
with	nombre 'gente' 'tios' 'tias' 'churris' 'quillacos' 'quillacas' 'maquitrus' 'guenorras' 'maquinerillos' 'torrados' 'pena',
	descripcion "Mogollón de gente. Todos están de fiesta. Porqué no te metes en un local?",

  has	escenario;

Object cartel "Cartel" Pasillo
with	nombre 'cartel' 'pancarta' 'letrero',
	descripcion "LAS BEBIBAS SE SIRBEN EN LA SALA DE PACHANGA.",

  has	escenario;

Object Tecno "Sala Tecno"
with	descripcion "La sala Tecno está bastante a oscuras, solo iluminada por unos pocos lasers color azul. 
	No está muy lleno pero los de aquí parecen contentos con su música ( o con sus drogas ).",
	irrelevante 'lasers' 'laser' 'suelo' 'paredes' 'techo' 'pared',

	al_s	Pasillo,

antes [; 
	Escuchar: "CHUMBA-CHUMBA-PUMBA";
],

  has	luz;

Object	genteT "Gente" Tecno
with	nombre 'gente' 'tios' 'tias' 'churris' 'quillacos' 'quillacas' 'maquitrus' 'guenorras' 'empastillaos' 'maquinerillos' 'torrados' 'pena',
	descripcion "Cuatro gatos empastillaos.",

  has	escenario;


Object	musicat "Música Tecno" Tecno
with	nombre 'musica',
	descripcion "CHUMBA-CHUMBA-PUMBA",

antes [; 
	Escuchar: "CHUMBA-CHUMBA-PUMBA";
],

  has	escenario;

Personaje peligrosa "Pelirroja" Tecno
with	nombre 'pelirroja' 'peligrosa' 'enpastilla',
	inicial "En el medio de la pista hay una pelirroja (que te cagas) bailando solita y a su rollo.",
	descripcion "Pantalones de cuero extra-ajustados y un simple biquini negro. Se te cae la baba. Aunque parece tan colocada que ni 
	siquiera crees que esté en el local.",

enunciado [linea;
switch (linea) {
		0:  "~Buenassss, peligrosa.~";
		1:  "~Tu rojo pelo es como el fuego del candil de la esperanza...~";
		2:  "~¿Quieres follar conmigo?~";
		3:  "~E aece ke stoi um oco orracho...~";
	}
],

respuesta [linea;
switch (linea) {
		0,1,2:	switch (random (3)) {
			1: if (jugador has general) {
				self.quipon (3);
				"~¿E ío, enes un piti?~";}
				else "~¿E ío, enes un piti?~";
			2: if (jugador has general) {
				self.quipon (3);
			"~Éjame a paz ío!~";}
			else "~Éjame a paz ío!~";
			3: if (jugador has general) {
				self.quipon (3);
			"~...yu ar livin o llelo submarí, yelo submarí...~";}
			else "~...yu ar livin a celebreixons!, selebreixons!...~";
}
			3: Banderafin=2;
			"~Eh! io, u y o nos etedemos!~^Tras descubrir que la pelirroja y tú en estado ebrio os comprendeis de
			puta madre cuando nadie más lo hacía, decidís pasar juntos y borrachos el resto de vuestra vida y sois
			felices para siempre.";
}
],
 InicializarQuips [;
	self.QuipsOn (3, 0,1,2);
],

vida [;
	Dar: if (uno==rula) {
		remove rula;
		"~Acias tio! enía un monazo...~";
}
	if (uno==roncola) {
	move roncola to Limbo;
	"~Acias tio! Etaba seca.~";
}
	if (uno==caramelito) {
	move caramelito to Limbo;
	"~Acias tio! Etaba seca.~";
}
	if (uno==roncolaE) {
	move roncola to Limbo;
	"~Acias tio! Etaba seca.~";
}
	if (uno==caramelitoE) {
	move caramelito to Limbo;
	"~Acias tio! Etaba seca.~";
}

	else "~¿Eso e pa a narí o no?~";

	Besar: "Por como va no me extrañaría que te potara encima al intentarlo. Mejor no.";
],
antes[;
	Probar: "No te apetece eso.";
],

  has animado femenino;

Object Salsa "Sala de Salsa"
with	descripcion [; if (Salsa hasnt visitado) {
	move mulato to Lavabos;
	"La sala de salsa te hace subir la temperatura. Ponen merengues sin parar. Está a plagar
	 y hay cada mulata que te proboca erecciones instantaneas. Por contra tambien hay mulatos. Eh! parece que uno de
	 estos cubanos se va al lavabo, y a dejado su negra suelta. ~¡Esta es la mía!~";
}
	else "La sala de salsa te hace subir la temperatura. Ponen merengues sin parar. Está a plagar
	 y hay cada mulata que te proboca erecciones instantaneas.";
],
	irrelevante 'suelo' 'paredes' 'techo' 'pared',

	al_n Pasillo,

antes[;
	Escuchar: "...mueve tu culo; culo, culo...";
],

  has	luz;

Object	genteS "Gente de Salsa" Salsa
with	nombre 'gente' 'tios' 'tias' 'churris' 'guenorras' 'torrados' 'pena' 'negras' 'negros' 'mulatos' 'mulatas' 'cubano' 'cubanas',
	descripcion "¡Esto parece Cuba tio!.",

  has	escenario;

Object musicaS "Música Salsa" Salsa
with	nombre 'musica',
	descripcion "...mueve tu culo; culo, culo...",

antes[;
	Escuchar: "...mueve tu culo; culo, culo...";
],

  has	escenario;

Personaje	mulata "Mulata" Salsa
with	nombre 'mulata' 'negra' 'cubana',
	Inicial [; if (mulato in Limbo) {
		"Puedes ver a una peazo de mulata que ya no espera a ningún cubano.";
}
	else "Puedes ver una peazo de mulata que espera a su churro que venga del lavabo.";
],
	descripcion "Una peazo de mulata cubana que quita el hipo. Lleva tan poca ropa que Tarzán se queda corto.",

enunciado [linea;
switch (linea) {

		0: "~Estoo...~";
		1: "~Ahora que estamos solitos... no te quieres escapar conmigo un ratito?~";
}
],

respuesta [linea;
switch (linea) {

		0: if (mulato in Limbo) {
		self.quipoff (0);
		self.quipon (1);
		"~Sí, dime guapo...~";}
	else	"~Lo siento niño pero esta noche no. Mi negro va llegar de un momento a otro.~";

		1: Banderafin=2;
		"~¡Poos claaro mi blanquito! Ahora mismo nos vamos tu y yo a mi pisito a pasar un ratito agustito.~^Lo has conseguido
		 has conseguido tirarte a la negra!";
}
],

InicializarQuips [;
	self.QuipsOn (1, 0);
],

antes[;
	Tocar, probar: if (mulato in Limbo) {
		"~Ahi mi blanquito, que gustito...~";}
		else "~Estate quietecito, cariño.~";
],

vida[;
	Besar: if (mulato in Limbo) {
		"~Ahi mi blanquito, que gustito...~";}
		else "~Estate quietecito, cariño.~";
],

  has	femenino animado;


Object	Pachanga "Sala de Pachanga"
with	descripcion "En esta sala es donde hay una barra donde se amontona la gente a pedir bebidas. El local está a petar y parece 
	haber gente de todas las edades. La música es, como indica el nombre, un poco pachanguera.",
	irrelevante  'suelo' 'paredes' 'techo' 'pared' 'bebida' 'bebidas' 'tejanos' 'camperas' 'sombrero' 'camisetita' 'eski' 'acuatico' 'baca',

	al_e Pasillo,
antes [; 
	Escuchar: switch (random (5)) {

			1: "~...y ese TORO enamorado de la Luuuuna...~";
			2: "~...no sufras más, mi pobre corasón...";
			3: "~...Aserejé, ja, de je, de jebere...";
			4: "~...tengo un tractor amarillo, que es lo que se lleba ahooora...";
			5: "~...dale a tu cuerpo alegría MACARENA, que tu cuerpo es pa dal-le alegría y cosa buena...~";}
],

  has	luz;

Object	gentepa "Gente Pachanguera" Pachanga
with	nombre 'gente' 'tios' 'tias' 'churris' 'quillacos' 'quillacas' 'pachangueros' 'pachangueras' 'guenorras' 'torrados' 'pena',
	descripcion [; if (timida in Limbo) {
		move timida to Pachanga;
	"Entre tanta gente te cuesta saber a quién atacar. Finalmente, escondida entre la gente, localizas a una morenita que no está nada mal. Parece tímida y está sola, a un 
	lado de la pista haciendo como que baila.";
}
	else "Es toda una panda de borrachos/as descontrolados/as.";
],

  has	escenario;

Object	musicaP "Musica Pachanga" Pachanga
with	nombre 'musica',
	descripcion [; 
		switch (random (5)) {

			1: "~...y ese TORO enamorado de la Luuuuna...~";
			2: "~...no sufras más, mi pobre corasón...";
			3: "~...Aserejé, ja, de je, de jebere...";
			4: "~...tengo un tractor amarillo, que es lo que se lleba ahooora...";
			5: "~...dale a tu cuerpo alegría MACARENA, que tu cuerpo es pa dal-le alegría y cosa buena...~";}
],

antes [; 
	Escuchar: switch (random (5)) {

			1: "~...y ese TORO enamorado de la Luuuuna...~";
			2: "~...no sufras más, mi pobre corasón...";
			3: "~...Aserejé, ja, de je, de jebere...";
			4: "~...tengo un tractor amarillo, que es lo que se lleba ahooora...";
			5: "~...dale a tu cuerpo alegría MACARENA, que tu cuerpo es pa dal-le alegría y cosa buena...~";}
],

  has	escenario;

Object	barra "Barra de Bar" Pachanga
with	nombre 'barra',
	descripcion "Es una larga barra donde la gente se amontona a pedir bebidas.",

  has	escenario;

Personaje camarera "Camarera" Pachanga
with	nombre 'camarera',
	descripcion "Se trata de una camarera, bastante guapa, vestida al más puro estilo vaquero. 
	Tejanos ajustados, camisa de cuadros-top, camperas y sombrero cow-boy.",

enunciado [linea;
switch (linea) {
	0: "~Hola.~";
	1: "~Ron con Coca-Cola.~";
	2: "~4 roses con naranja.~";
	3:  "~Licor 43 con Lima.~";
	4: "~¿Tu no salías en ~El bar Coyote~? ~";
	5: "~Te tomaría a tí y en tu salsa, ¡Jamona!~";
	}
],
respuesta [linea;
switch (linea) {

	0: Self.quipoff (0);
	   self.quipon (4);
	   self.quipon (5);
	 "~Hola. ¿Quieres tomar algo o no?~";

	1: if (ticket in jugador) {
	move ticket to Limbo;
	move roncola to jugador;
	"Te pone Bacardi con Cola y va que te matas. Le das el ticket de consumición.";}
	else if (roncola in jugador) {
	"Todabía te queda bebida!";}
	else if (caramelito in jugador) {
	"Todabía te queda bebida!";}
	else if (ticket in Limbo && dinero in jugador) {
	move dinero to Limbo;
	move roncola to jugador;
	"Le has pillado el gustillo a beber y te pides un cubalibre (Ron - Cola). Le das el dinero que te quedaba.";}
	else "No tienes dinero.";

	2: if (ticket in jugador) {
	move ticket to Limbo;
	move caramelito to jugador;
	"Te pone un potente 4 roses con naranja. Le das el ticket de consumición.";}
	else if (roncola in jugador) {
	"Todabía te queda bebida!";}
	else if (caramelito in jugador) {
	"Todabía te queda bebida!";}
	else if (ticket in Limbo && dinero in jugador) {
	move dinero to Limbo;
	move caramelito to jugador;
	"Te pone bourbon con naranja. Le das el dinero que te quedaba.";}
	else "No tienes dinero.";

	3: Self.quipoff (3);
	"~Lo siento, no me queda lima.~";

	4: Self.quipoff (4);
	"~No! Era mi prima!~";

	5: Self.quipoff (5);
	self.quipon (0);
	"~¡Piérdete!~";
}	
],
 InicializarQuips [;
	self.QuipsOn (4, 0,1,2,3);
],
	
vida [;
	Atacar, Besar, Tocar, Probar: "~No llego detrás de la barra~";
	Dar: if (uno==folleto) {
	remove folleto;
	move Yoda to jugador;
	"~¿Me das el obsequio que pone aquí?~. Le preguntas a la camarera.^~Claro! aqui tienes~. Le das el folleto y te debuelve un muñequito.";}
	else "~Guardate eso, muñeco.~";
],

  has	femenino animado;



Object Lavabos "Lavabos"
with	descripcion "Es la entrada a los urinarios. Frente a ti hay un lavabo en el que te puedes labar las manos, también hay un espejo.
	 Al norte está el lavabo de tias y al sur el de tios.",
	irrelevante 'grifo' 'cola' 'suelo' 'paredes' 'techo' 'pared',

	al_o Pasillo,
	al_n [; if (RetreteF has visitado) { 
	"De golpe se ha formado una cola de la ostia en el lavabo de tias. No puedes entrar.";
}
else return WCF;
],
	al_s "Hay una cola del copón. Te vas a tener que aguantar.",

 has	luz;

Object	genteL "Gente de los Lavabos" Lavabos
with	nombre 'gente' 'tios' 'tias' 'churris' 'quillacos' 'quillacas' 'guenorras' 'torrados' 'pena' 'meones' 'meonas',
	descripcion "Mogollón de gente haciendo cola para entrar a mear.",

  has	escenario;

Object	espejo "Espejo" Lavabos
with	nombre 'espejo' 'mirall',
	descripcion [; if (jugador hasnt general) {
	"Tan buen aspecto como siemp... digooo, ahora que te fijas, la camiseta te va un pelín estrecha y se te salen un poco las
	 chichas...";}
	else "~Tus ojillos delatan cierto grado de ebriadez en tu cuerpo...~";
],

  has	escenario;

Object	lavabo "Lavabo" Lavabos
with	nombre 'lavabo',
	descripcion "Un lavabo con grifo, normal y corriente.",

  has	escenario;

Object WCF "W.C. Mujeres"
with	descripcion "Estas en el lavabo de tias. Está bastante limpio y lleno de reservados. ¡Parece que no hay nadie!
	 Imposible pero cierto. No hay nadie.",
	irrelevante 'lavabo' 'lavabos' 'suelo' 'paredes' 'techo' 'pared',

	al_s Lavabos,
	adentro RetreteF,

has	luz;

Object	reservados "Retretes" WCF
with	nombre 'reservados' 'retretes' 'cagaderos',
	descripcion "Son los retretes. Si quieres puedes entrar.",

  has	nombreplural escenario;

Object RetreteF "Dentro del retrete del WC de Mujeres"
with	descripcion [; 
	if (RetreteF has visitado) {
	"Bién, estas de nuevo en el retrete. A tu lado tienes a la indefensa chica, borracha como una cuba y más buena que el pan.";
}
else "Entras en uno de los reservados. Eh! aquí hay una tia borracha tirada en el suelo ¡Y está megabuena!";
],
	irrelevante 'taza' 'suelo' 'puerta' 'cabeza' 'pelo' 'piernas' 'pierna' 'brazos' 'suelo' 'paredes' 'techo' 'pared' 'brazo' 'labios' 'ojos' 'nariz' 'cejas' 'pestañas' 'parpados' 'pies' 'pie' 'ropa' 'minifalda' 'camisa' 'ropas',

	afuera WCF,

  has	luz;

Personaje borracha "Borracha" RetreteF
with	nombre 'borracha' 'tia' 'mazizorra' 'maziza' 'rubia' 'cuerpo',
	descripcion "Es una rubia mazizorra borracha como una cuba. Viste una minifalda y una camisa blanca, pero tal y como está recostada parece no 
	servirle de mucho. Se le ve TODO. Impulsos obsceno empiezan a rondar por tu cabeza.",
 antes [;
	Tocar, Probar:"Ni en tus sueños habias imaginado una tia así para ti solo. No estas seguro de que esto este bien pero...
	 te estas poniendo morao!";
	Empujar: "La zarandeas una y otra vez pero no parece reaccionar.";
],

vida[;
	Hablar, Responder: "Por mucho que le hablar no parece escucharte. Está fatal.";
	DespertarOtro: "La zarandeas una y otra vez pero no parece reaccionar.";
	Atacar: "~Estaré quemao, pero no soy ningún sádico.~";
	Besar: "Ni en tus sueños habias imaginado una tia así para ti solo. No estas seguro de que esto este bien pero...
	 te estas poniendo morao!";
],

 InicializarQuips [;
],

  has	femenino animado escenario;

Object tetas "Tetas" RetreteF
with	nombre 'teta' 'tetas' 'peras' 'melones' 'sandias' 'seno' 'senos',
	descripcion "El par de tetas más perfecto que has visto.",

antes [;
	Tocar:"Magreas ese par de melones una y otra vez y casi tienes un orgasmo. No estas seguro de que esto este bien pero...
	 te estas poniendo morao! ";
	Besar, Probar: "Tu lengua repasa sus peñones una y otra vez... parece que gime. No aguantas más!";
],
  has	nombreplural escenario;

Object	cono "Coño" RetreteF
with nombre 'cono' 'coño' 'freson',
	descripcion "Apetecible como un fresón.",

antes [; 
	Tocar: "Tocar sus partes más intimas y te pones cardíaco. Tu paquete cada vez está más abultado.";
	Besar, probar: "Exquisito como un fresón. A la chica parece que le gusta y gime.";
],

  has	escenario;

Object culo "Culo" RetreteF
with	nombre 'culo' 'trasero' 'pompis',
	descripcion "Parece durito y suabe. Te dan ganas de incarle el diente.",

antes[;
	Tocar: "Efectivamente era durito y suave.";
	Besar, Probar: "No aguantas y le empiezas a mordisquearlo y a pasarle la lengua.¡Esta no sale de aquí viva!.";
],

  has	escenario;

Object Limbo "Limbo"
with descripcion "DANGER! DANGER! Violación del Nivel 3. Activando secuencia de autodestrucción en 15 seg.",

  has luz;

Object	quinquicao "Quinqui" Limbo
with	nombre 'quillo' 'quillaco' 'quinqui' 'porrero',
	inicial	[; if (camiseta in callejon) {
"Puedes ver un quinqui inconsciente y con su camiseta puesta.";}
else "Puedes ver un quinqui inconsciente y despechugado.";
],

descripcion [; if (camiseta in callejon) {
	"El quinqui está inconsciente tumbado en el suelo y con su camiseta puesta, está sacando 
	espumilla por la boca... A lo mejor te has pasado un poco. A su izquierda tiene una potada
	 azul y a la derecha una verde.";
	}
	else "El quinqui está inconsciente tumbado en el suelo y semidesnudo, está sacando 
	espumilla por la boca... A lo mejor te has pasado un poco. A su izquierda tiene una potada
	 azul y a la derecha una verde.";
],
	antes [; Atacar:"Le das una patadilla en los güevos... El pobre chaval se retuerze.";
],
	vida [;
		Responder, Hablar: "~Aaahhhhh!~";
],
  has	animado;

Object	rula "rula" Limbo
with	nombre 'rula' 'pastilla' 'pirula',
	descripcion "Es una rula, pequeña y redonda, tiene una cara sonriente grabada.",

	antes [; 
comer: "No vas a meterte eso en la boca después de haberlo sacado de una potada.";

	Meter:  if (roncola==otro) {
		remove rula;
		move roncola to Limbo;
		move roncolaE to jugador;
		give timida general;
		"Le echas la rula al cubata. Has creado el Cuba-Libre ~Especial~.";}

		if (caramelito==otro) {
		remove rula;
		move caramelito to Limbo;
		move caramelitoE to jugador;
		give timida general;
		"Le echas la rula al cubata. Has creado el Caramelito ~Especial~.";}
	else "Que es lo que quieres hacer con la rula?";
],

  has	femenino;

Object	ticket "Ticket de consumición" Limbo
with	nombre 'ticket' 'consumicion',
	descripcion "Vale x un cubata. ¡Ciutat la NIT!. Donde follarás sin parar.";

Object	dinero "Algo de dinero" Limbo
with	nombre 'dinero' 'pasta' 'money',
	descripcion [; if (dinero hasnt general) {
		"Es tu dinero, no es mucho, pero lo necesitas para entrar.";
}
else "Te queda lo justo para otra consumición";
];

Object	sudadera "Sudadera de los Wu-Tang" Limbo
with	nombre "sudadera",
	descripcion "Es tu mejor sudadera. Pone ~Wu-Tang-Clan -Dirty Bastard-~",

antes[; 
	Vestir: if (camiseta has puesta) {
	"Ahora llevo puesta la camiseta pija.";
}
	else "Te pones tu inigualable sudadera de los Wu-Tang!";
	Dar: "Nooo! Es mi sudadera preferida.";
],

  has	femenino prenda puesta;

Object	roncola "Cuba-Libre" Limbo
with	nombre 'cubalibre' 'ron' 'cubata' 'Cuba-Libre',
	adjetivos 'con' 'cola',
	Inicial "Puedes ver un Cuba-libre",
	descripcion "Ron Bacardi con Cola-Cola. Eres un clásico.",

antes[;
		Beber: if (dinero in Limbo) {
			give jugador general;
			move roncola to Limbo;
			"Te bebes el Cuba-Libre. No está mal.";
	}
	else 	move roncola to Limbo;
		"Te bebes el Cuba-Libre. Se han pasao de ron.";
	],

  has	recipiente;

Object	caramelito "Caramelito" Limbo
with	nombre 'caramelito' 'bourbon' 'cubata',
	adjetivos 'con' 'naranja',
	Inicial "Puedes ver un cubata de 4 Roses con Naranja.",
	descripcion "4 Roses con naranja. Más conocido como ~Caramelito~ ",

antes[;
		Beber: if (dinero in Limbo) {
			give jugador general;
			move caramelito to Limbo;
			"Te bebes el 4 Roses con Naranja. Está fuerte.";
	}
	else 	move caramelito to Limbo;
		"Te bebes el caramelito. Rico-rico!";
	],

  has	recipiente;

Object	roncolaE "Cuba-Libre ~Especial~"
with	nombre 'cubalibre' 'ron' 'cubata' 'Cuba-Libre',
	adjetivos 'con' 'cola' 'especial',
	descripcion "Es tu Cuba-Libre ~Especial~",

antes[;
		Beber: "Recuerdas muy bien que no debes mezclar drogas y alcohol. No te vas a beber eso!";
	];

Object	caramelitoE "Caramelito ~Especial~" Limbo
with	nombre 'caramelito' 'bourbon' 'cubata',
	adjetivos 'con' 'naranja' 'especial',
	descripcion "Es tu caramelito ~Especial~ ",

antes[;
		Beber: "Recuerdas muy bien que no debes mezclar drogas y alcohol. No te vas a beber eso!";
	];

Personaje	timida "Chica tímida" Limbo
with	nombre 'Raquel' 'timida' 'morenita' 'morena' 'chica',
	adjetivos 'mona' 'morena''timida',
	descripcion "Es una chica morena y bajita de aspecto tímido. Lleva el pelo a media melena y viste unos tejanos y una camisetita con una baca haciendo
	 eskí acuatico dibujada. Podría decirse que es una chica muy mona.",

enunciado [linea;
switch (linea) {
			0: "~¡Hola guapa!~";
			1: "~¿Te gustaría que hablaramos un poquito?~";
			2: "~¿Has venido solita?~";
			3: "~¿Quieres que movamos un poco el esqueleto, nena?~";
			4: "~¿Que dejarías darte un besito?~";
			5: "~Estonces de follar ni hablamos.~";
}
],

respuesta [linea;
switch (linea) {
			0:self.quipon (1);
			"~Ho... hola.~";
			1:self.quipoff (1);
			self.quipon (2);
			self.quipon (3);
			self.quipon (4);
			"~Vale.~ dice. (Bueno, ya has logrado algo por ahora).";
			2:self.quipoff (2);
			"~Sii.~";
			3: self.quipoff (3);
			"~Noo.~";
			4: self.quipoff (4);
			self.quipon (5);
			"~Noo.~";
			5: remove timida;
			"La morenita coge su bolso y sale corriendo como alma que lleba el Diablo. Tal vez fuiste un poco rudo.";
}
],
InicializarQuips [;
	self.QuipsOn (1, 0);
],

vida[;
	Dar: if (uno==roncolaE) {
	Banderafin=2;
	"~¿Seguro que no te apetece un traguito? quizá así te animes un poquito más~. Le dices.^
	En cuanto la timidilla se casca el cubata que le has dado le entra de todo menos timidez. Te agarra, te lleba a su coche en
			 los apacamientos y te hace un ocho. Te ha dado tal rebolcón 
				que tendrás problemas de espalda durante un mes.^Has ganado! Pero espero que sepas que ha sido jugando un poco sucio.";}
		if (uno==caramelitoE) {
	Banderafin=2;
	"~¿Seguro que no te apetece un traguito? quizá así te animes un poquito más~. Le dices.^
	En cuanto la timidilla se casca el cubata que le has dado le entra de todo menos timidez. Te agarra, te lleba a su coche en
			 los apacamientos y te hace un ocho. Te ha dado tal rebolcón 
				que tendrás problemas de espalda durante un mes.^Has ganado! Pero espero que sepas que ha sido jugando un poco sucio.";}
	else "~No, gracias.~";

	Besar: "~Mejor le pregunto antes.~";
],

  has	femenino animado;

Object	cochecuba "Supermirafiori" Limbo
with	nombre 'supermirafiori' '131' 'seat',
	descripcion [; if (cochecuba hasnt general) {
	give cochecuba ~oculto;
	"Es un Seat 131 ~Supermirafiori~ color naranja. Toda una reliquia. Tiene una pegatina detras que pone ~I love Cuba~. ";
}
	else give cochecuba ~oculto;
		"El Seat 131 ~Supermirafiori~ color naranja está ahora listo para el desguace.";
],

	Antes[;
	Atacar: give cochecuba general;
		"Te ensañas con el 131, le destrozas los cristales, le pinchas las ruedas y te meas dentro.";
],

has	oculto estatico;

Personaje	mulato "Cubano"
with	nombre 'cubano' 'mulato' 'negro',
	inicial "Puedes ver un mulato haciendo con para ir a mear.",
	descripcion "Es un mulato cubano más alto que tú, baila mejor y parece que está más bueno que tú. ¡Hay que eliminarlo!.",

enunciado [linea;
switch	(linea) {

		0: "~Hola negro.~";
		1: "~¿Que te cuentas?~";
		2: "~¿No te gustaría ir a dar una vuelta por ahí?~";
		3: "~¿Tu no tendrás un Seat 131 ~Supermirafiori~ color naranja del año de la cascaja?~";
		4: "~Porque me ha parecido ver a un tio gritando ~FUERA NEGROS!~ y atizando a tu coche.~";
}
],

respuesta [linea;
switch (linea) {
		0: self.quipoff (0);
		self.quipon (1);
		if (cochecuba has general) {
		self.quipon (3);
		"~Hola muchacho.~";}
		else "~Hola muchacho.~";

		1: self.quipoff (1);
			self.quipon (0);
			 switch ( random (3)) {
			1: "~Pos no mucho, como toas las noches, a bebé, a bailá y a follá.~";
			2: move cochecuba to Aparcamientos;
			"~¿Te he explicao que m'he comprao un coche? Un Seat 131 ~Supermirafiori~, casi nuevo, una ganga.~";
			3: "~¿Sabes que tengo un rabo que me lo piso?~";}
		2: self.quipoff (2);
			"~Pos mira, pos ahora mismito no.~";
		3: self.quipoff (1);
			self.quipoff (3);
			self.quipon (4);
			"~Pos sí, por qué?~";
		4:	move mulato to Limbo;
			remove cochecuba;
			"~¡No jodas!~^El tio sale corriendo mientras te da las gracias (pardillo...). Le sigues y
			 ves como le dice algo a su compañera y se va ¡Via libre!";}
],

InicializarQuips [;
	self.QuipsOn (1, 0);
],

vida [;
	Besar: "~No, a mí eso no me va.~";
],

  has animado;

Object	mugre "mugre" Limbo
with	nombre 'mugre' 'mierda' 'basura',
	descripcion [; if (folleto in Limbo) {
		move folleto to Pasillo;
		"Empiezas a rebuscar por el suelo y entre colillas y demás porquerías encuentras un folleto.";}
		else "No ves mas que mugre.";
],

  has	escenario;

Object	folleto "Folleto" Limbo
with	nombre 'folleto' 'papel',
	descripcion " Pone ~Vale por un obsequio. Cangear en la barra. Ciutat la Nit~. Vaya!";

Personaje	Yoda "Muñequito de Yoda" Limbo
with	nombre 'Yoda' 'Yorka' 'maestro' 'muneco' 'munequito',
	descripcion "Es un muñequito del Maestro yedi ~Yoda~, está muy currado. ¡Hasta habla!. Detrás pone ~Maestro Yorka~.",

enunciado [linea;
switch	(linea) {

		0: "~¿Que debo hacer, Maestro?~";
}
],

respuesta [linea;
switch (linea) {

		0: switch (localizacion) {
			Entrada: "~El trayecto más largo empieza con un simple paso.~";
			Hall: "~Tu destino espera arriba.~";
			Aparcamientos: "~¿Sabes lo que estas buscando aquí?~";
			Callejon: "~Utiliza la fuerza Luke.~";
			Pasillo: "~Muevete! Un yedi siempre debe disponer de algún reto!~";
			Tecno: "~Si no puedes con ellos...Únete a ellos!~";
			Salsa: "~Ummm.. El poder del lado oscuro.~";
			Pachanga: "~¿Te has fijado en los presentes? Con la ayuda de los midiclorianos la morenita sucumbirá a la fuerza.~";
			Lavabos: "~El de semblante negro es tu enemigo, atacale donde más le duela...~";
			WCF: "~Monguidooooo!~^Parece que al muñequito le fallan las pilas...~";
			RetreteF: "~Resistete al poder del lado oscuro.~";
}}
],

InicializarQuips [;
	self.QuipsOn (1, 0);
];


[Inicializar o;

  Corto_Inicial1.proyeccion();
  localizacion=Entrada;
  move sudadera to jugador;
  move dinero to jugador;
  modomirar=2;
  objectloop (o ofclass personaje) { o.Inicializarquips(); }
			"Ligue en Ciutat la NIT.~^
	En esta aventura te vas a encarnar en el inigualable Capi Manchego (Rapero por vocación). Que harto
	de viciarse a la Playstation por fin ha decidido lanzarse a conquistar
	alguna guarra con pocas luces y con ganas de guequeleque. Tu aventura
	comienza en el corazón del Parc-Vallés, la macrodiscoteca...
	^****************************¡Ciutat la NIT!*****************************^^Vas a jugar una aventura conversacional. Si 
	no has jugado ninguna antes te recomiendo que teclees ~ayuda~. Si yu! y diviertete.^^Esta es mi primera aventura, si encuentras
	fallos o hay algo que quieras comentarme, por favor avísame a ~Rajatak(arroba)hotmail.com~ Gracias!^^";

];

[RapearSub;

	 "~¡Al fresquito in the nigth!~";
];


[FollarSub;
switch (localizacion)
{
RetreteF:	Banderafin=1;
		"Decididamente no puedes más y te lanzas a acabar la faena. Te bajas los
		 pantalones y ... Tres meses más tarde te mueres de un herpes terminal!
		 SO PERVERTIO!! SERAS GUARRO!!!";
Entrada:	Banderafin=1;
		"En cuanto te lanzas con los pantalones bajados a follarte al segurata, este te
		 da una paliza que te mata.^¿Qué te esperabas?";
Hall:		"Te da verguenza con tanta gente.";
Aparcamientos:  "Aquí no se te levanta.";
Callejon:"Aquí no se te levanta.";
Pasillo:"Aquí no se te levanta.";
Tecno:"Aquí no se te levanta.";
Salsa: if (mulato in Limbo) {
	"Porqué no pruevas a hablar con la mulata?";}
else "Aquí no se te levanta.";
Pachanga:"Aquí no se te levanta.";
Lavabos:"Aquí no se te levanta.";
WCF:"Aquí no se te levanta.";
}
];

[ AyudaSub;
	CLS();
	print "********************************************************************************^
	 A lo largo del juego te vas a encontrar en diferentes lugares, con diferentes 
	 objetos y personas. Para interactuar con tu entorno tienes una serie de comandos
	 llamados ~verbos~ que se usan en imperativo o en infinitivo junto con el objeto que estas utilizando. Estos 
	 son los verbos que puedes usar, aunque quizá algunos no sean útiles para esta aventura(entre parentesis, la abreviatura):^^
	Ir [punto cardinal]: norte(n), sur(s), este(e), oeste(o) y
^adentro(entrar), afuera(salir)  
^noreste(ne), sureste(se), noroeste(no), suroeste(so)^^
	Saca		Pon		Ataca		Arriba		Abajo^
	Entra		Sal		Mata		Excava		Folla^ 
	Ponte		Sacate		Reza		Enfunda		Di~frase~^
	Tira		Empuja		Lanza		Ata		Desata^
	Habla con	Pregunta	Escucha		Enciende	Apaga^
	Mirar		Examina(ex)	Bebe		Huele		Come^
	Grita		Canta		Prueba		Da		Llena^
	Coge		Deja		Espera		Piensa		Muestra^
	Abre		Cierra		Corta		Besa		Lee^
	 ********************************************************************************^
	 Comandos útiles:^
	 Puntuacion     Inventario(i)  Salidas (X) 
	 Pistas -breve ayuda-^
          	Salvar y Recuperar -un juego a disco-^
	 Quit -para salir- (q)
	^ **Con la FLECHA ARRIBA del cursor puedes repetir las últimas órdenes que has realizado.**
	 ********************************************************************************";
	pause();
	<<mirar localizacion>>;
];

Verb 'ayuda' 'help'
    *					-> Ayuda;
[ Pause i width;
    width = 0->33; if (width == 0) width = 80;
    spaces (width - 18);
    font off;print "[ Pulsa Espacio ]"; font on;
    do { @read_char 1 0 0 i; } until (i==32 or 10 or 13);
    CLS();
];


[ XyzzySub;
	if (potadaroja hasnt general) {
	give potadaroja general;
	move mugre to Pasillo;
	"Puzle oculto activado. XD";}
	else "El puzle oculto ya está activado.";
];

[LavarSub;
	if (jugador in Lavabos) {
	"Te lavas las manos.";}
	else "¡Que lave la lavadora!";
];


Verb 'Xyzzy'
    *      -> Xyzzy;

Verb 'folla'
    *    noun  -> follar;

Extend 'canta' replace
    *    noun  -> Rapear;

Extend 'lava' replace
    *      -> Lavar;

[ CLS ;
  @erase_window -1;
];