//===== Akito Script =========================================
//= Capitulo 1
//===== By: ================================================== 
//= Akito && Dynasty
//===== Current Version: ===================================== 
//=
//===== Compatible With: ===================================== 
//= rAthena SVN 3422+(Requires jA Script System)
//===== Description: ========================================= 
// Capitulo 1
//===== Additional Comments: ================================= 
//============================================================
//======Changeslog============================================
//============================================================
prt_in,173,101,2	script	Windhouse	416,{
set .@name$,"[Windhouse]";
set .@questcap,1018;
set .@quest2,1019;
set .@quest, checkquest(.@quest2);
set .@llegar, checkquest(.@questcap);
if (.@llegar == -1){
			mes .@name$;
			mes "Estoy ocupado ahora";
			close;
		} else  if (.@llegar == 0){

	}else if (.@quest == 0) || (.@quest == 1){
		mes .@name$;
			mes "ve a prt_sew4 y habla con el sospechosos";
			close;
		} else if (.@quest == 2) && (capitulo1 != 1){
	mes .@name$;
	mes "Oh! bienvenido!";
	next;
	mes .@name$;
	mes "bueno bueno dejame ver esas muestras...";
	next;
	mes .@name$;
	mes "magnifico, esto es suficiente para sacar mi concluciones";
	next;
	mes .@name$;
	mes " y encontraste a alguien sopechoso?";
	next;
	switch(select("No")){
		case 1:
			mes .@name$;
			mes "bueno, bueno es igual, solo son rumeros despues de todo. ya que estas aqui podrias entregarle esto a al lider de los caballeros de prontera";
			next;
			mes .@name$;
			mes "te dije que te  recompensaria no? tomas estos 1Mz, y ya sabes si encuentras mas de mis ocumentos  pasate por aqui!";
			specialeffect2 221;
			sleep2 100;
			specialeffect2 223;
			sleep2 100;
			specialeffect2 310;
			sleep2 100;
			specialeffect2 311;
			set zeny,zeny+1000000;
			getitem 30202,1;// Papel del capitulo 2
			set capitulo1,1;
			set hablacap,0;
			close;
			/*windhouse: te dije que te  recompensaria no? tomas estos 500k, y ya sabes si encuentras mas de mis ocumentos pasate por aqui!
			fin de quest!
			(eso es la siguiente quest)*/
	}
}else if (hablacap == 1){
mes .@name$;
	mes "Hola de nuevo.. ¿crees que puedas ayudarme?";
	next;
	switch(select("Si:No")){
		case 1:
			goto buenas;
			end;
		case 2:
			goto buenas;
			end;
	}
}else if (hablacap < 1) && (capitulo1 != 1){
buenas:
	mes .@name$;
	mes "Benas tardes, en que puedo ayudarle?";
	next;
	mes .@name$;
	mes "Busca la historiador mas famoso del mundo? ha, ha ,ha";
	next;
	mes .@name$;
	mes " Lo tiene en frente, y ¿ Usted es? un gusto conoserle "+strcharinfo(0)+"";
	next;
	mes .@name$;
	mes "Welcome, " + (Sex?"Mr.":"Mrs.") + " " + strcharinfo(0);
	next;
	mes .@name$;
	mes "para que me necesita " + (Sex?"un fiero guerrero":"una fiera guerra") + " como usted?";
	next;
		switch(select("Mostrar papel")){
		case 1:
			mes .@name$;
			mes  "Oh! no puedo crerlo es la primera pagina de mi gran recopilacion de historias pasadas y presentes! lo habia perdido en alguna parte... espera... tu por casulidad  ¿hablaste con la Valkiria Kara? ";
			next;
		switch(select("si")){
		case 1:
			mes .@name$;
			mes "Maravillozo!, Explendido!, Inigualable! tu eres como yo y como el ^005EFFHeroe^000000! ¿tu tambien has muerto no? y esa atolondrada valkiria te a obligadoa ayudar a su amor platonico....";
			next;
			mes .@name$;
			mes "ha ha ha ha ha. puedo imaginarlo claro en mi mente.";
			next;
			mes .@name$;
			mes "emh em, bueno volviendo a lo que realmente importa quieres saber que dice este papel? ha ha ha si, esta escrito en otra lengua de un pais lejano. bueno lo leere para ti";
			next;
	again:
			cutin "sipnosis",1;
			next;
			cutin "",255;
			switch(select("leer otra ves:he entendido")){
			case 1:
				goto again;
				end;//si elijes la primera opcion se vuelve a abrir la imagen  luego te vuelve a preguntar los mismo...
			case 2:
				mes .@name$;
				mes "...";
				next;
				mes .@name$;
				mes "...";
				next;
				mes .@name$;
				mes "...";
				next;
				mes .@name$;
				mes "bueno pareces un buen tipo asi que quiero que em hagas un favor.";
				next;
				mes .@name$;
				mes "¿podrias ir a las cloacas de pornera por mi y consegirme muestras de organismos?  y me refiero a los insectos que alli viven. bueno lo que realmente quiero es que busques a lguien sospechozo... ";
				next;
				mes .@name$;
				mes "segun mis contacto por las cloacas se han visto draconianos... y como eres un guerrero me gustaria que fuers a investigar y tambien me traigas unas muestras de alli. ¿que dices? ¿me ayudaras?";
				next;
			switch(select("si:no")){
				case 1:
					completequest 1018;
					sleep2 200;
					mes .@name$;
					mes "Muchas gracias! bueno lo dejo en tus manos cuanto engas todo pasate por aqui! te recompesare!";
					setquest 1019;
					set hablacap,2;
					specialeffect2 253;
					close;
				case 2:
					mes .@name$;
					mes "bueno quizas estas ocupado ahora, si puedes pasate por aqui de nuevo ";
					set hablacap,1;
					close;
					}
				}
			}
		}
	}else{
			mes .@name$;
			mes "Ya hiciste la quest porfavor continua con el capitulo 2";
			close;
			}
}
-	script	capitulo 1	-1,{
OnPCLoadMapEvent:
	getmapxy(.@map$,.@x,.@y,0);
		set .@questcap,1018;
		set .@hunting, checkquest(.@questcap);
	if(strcharinfo(3) == .@map$) || (.@map$ == "prontera"){
	if(.@hunting == -1) {
			set capitulo,1;
			setquest 1018;
			set prologo,0;
			cutin "valkria",1;
			mes "[Anunciador]";
			mes "Prologo Quest Terminada";
			next;
			mes "[Anunciador]";
			mes "Capitulo 1 Quest Empezada";
			next;
			mes "[Anunciador]";
			mes "Ve y habla con el historiado windhose en la biblioteca de prontera";
			cutin "",255;
			close;
		}else if (.@hunting > -1){
			end;
			}
	end;
	}
}

-	script	capitulo 2	-1,{
OnPCLoadMapEvent:
	getmapxy(.@map$,.@x,.@y,0);
		set .@questcap,1020;
		set .@hunting, checkquest(.@questcap);
		set .@questcap2,1021;
		set .@capitulo2, checkquest(.@questcap2);
	if(strcharinfo(3) == .@map$) || (.@map$ == "prontera"){
	if(.@hunting == 2) && (.@capitulo2 == -1){
			set capitulo,1;
			setquest 1021;
			set prologo,0;
			cutin "valkria",1;
			mes "[Anunciador]";
			mes "Quest Capitulo 1 Terminada";
			next;
			mes "[Anunciador]";
			mes "Capitulo 2 Quest Empezada";
			next;
			mes "[Anunciador]";
			mes "Ve y habla con el historiado windhose en la biblioteca de prontera";
			cutin "",255;
			close;
		}else if (.@hunting > -1){
			end;
			}
	end;
	}
}
prontera	mapflag	loadevent
//==============================
//==============================
//			  Quest
//==============================
//==============================
-	script	Dacul	-1,{
OnNPCKillEvent:
	getmapxy(.@map$,.@x,.@y,0);
		set .@questcap,1019;
		set .@hunting, checkquest(.@questcap,HUNTING);
	if(strcharinfo(3) == .@map$) || (.@map$ == "prt_sewb4"){
	if(.@hunting == -1){
			end;
		}else if (.@hunting == 2){
			dispbottom "bueno parece que ya termine con todos... tengo que encontrar a ese tal Dacul Snerf";
			end;
		}
	}
end;
}
prt_sewb4,97,92,5	script	Dacul Snerf	546,{
	set .@questcap,1019;
	set .@hunting, checkquest(.@questcap,HUNTING);
	set .@name$,"[Dacul Snerf]";
if (.@hunting == 0) || (.@hunting == 1){
		mes .@name$;
			mes "...";
			close;
		}else if (.@hunting == 2){
		mes .@name$;
		mes "Por favor no me ataque. yo no quiero pelear... ";
		next;
		mes .@name$;
		mes "Mira te dare buena informacion si me dejas en paz...";
		next;
		switch(select("Si")){
		case 1:
		mes .@name$;
		mes "Muchas gracias. bueno e puedo decir que hay alguno draconiaos que estms en contra de la conquista y la guerra... o fui uno de los pocos que escapo con vida  nuestro fallesido mundo draconia...";
		next;
		mes .@name$;
		mes "Luego de eso los lideres de lso clanes draconianos se unieron en una aliana y hemos ido de mundo en mundo buscando un hoga donde vivir.";
		next;
		mes .@name$;
		mes "bueno mi historia parece aburrida asi que ire al grano.";
		next;
		mes .@name$;
		mes "Creemos que la forma mas facil de terminar esa guerra es destruir a los 10 clanes de la llama negra.";
		next;
		mes .@name$;
		mes "mira guarda esto es un sello de nuestra organizacion si te encuentras con uno de nososros muestrales este emblema y te ayudaran.";
		specialeffect2 221;
		sleep2 100;
		specialeffect2 223;
		sleep2 100;
		specialeffect2 311;
		completequest 1019;
		getitem 30300,1; //item custom: emblema de lo dragones de la luz).
		next;
		mes .@name$;
		mes "Y no le cuentes nadie que esto aqui porfavor. buen adios";
		setquest 1020;
		specialeffect2 253;
		close;
		}
	}
}
/*es un npc

que no va a estar en hiding

solo estara parado en la pueta del cuvet 4

y si le hablas sin terminar la quest solo te pone  3 puntos
La quest consta de matar 15 male thief bug, 15 female,  15 Crampe
pero si matas todos los ichos

el e habla auomaticamene
*/