//===== Akito Script =========================================
//= prologo 1
//===== By: ================================================== 
//= Akito && Dynasty
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= rAthena SVN 3422+(Requires jA Script System)
//===== Description: ========================================= 
//===== Additional Comments: ================================= 
//============================================================
//======Changeslog============================================
//= 1.0 Work complete
//============================================================
moonhaven,206,239,3	Script	Kara	811,{
set .@name$,"^DA00FF[Kara]^000000";
set .@questpro1,1017;
set .@map$,"prontera";
set .@x,271;
set .@y,354;
set .@hunting, checkquest(.@questpro1,HUNTING);
if(prologe >= 1){
		mes .@name$;
		mes "Ya has terminado esta quest";
		close;
}else if(prologe == 1) && (.@hunting == 2) {
	if (SkillPoint) {
		mes .@name$;
		mes "Por favor usa todos tus puntos de skill antes de proceder";
		close;
	}
	if (BaseLevel < 10) || (JobLevel < 10){
		mes .@name$;
		mes "Aun no estas preparado tienes que ser level 10/10";
		close;
	}
	cutin "valkria2",1;
	mes .@name$;
	mes "He,he,he, por alguna razon me siento feliz.";
	next;
	mes .@name$;
	mes "Ahora puedes conseguir poder!";
	next;
	mes .@name$;
	mes "Que te gustaria ser?";
			next;
			cutin "",255;
			switch(select("Swordman:Thief:Archer:Acolyte:Mage:Merchant:Ninja:Taekwon:Gunslinger:Super novice")){
		case 1:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,1;//Swordman
				set .@item,1101;
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 2:
				es .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,6;//Thief
				set .@item,1207; 
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 3:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,3;//Archer
				set .@item,1701; 
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 4:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,4;//Acolite
				set .@item,1601; 
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 5:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,2;//Mage
				set .@item,1601; 
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 6:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,5;//Merchant
				set .@item,1301; 
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 7:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,25;//Ninja
				set .@item,1207; 
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 8:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,4046;//Taekwado
				set .@item,501; 
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 9:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,24;//Gunslinger
				set .@item,13111; 
				set .@item2,13200;
				set .@item3,500;
				callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item,.@item2,.@item3;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
		case 10:
				mes .@name$;
				mes "Estas seguro de que quieres ser un Swordman?";
				nextl
				switch(select("Si:No")){
				case 1:
				set .@id,23;//Super novice
				set .@item,1249; 
				callfunc "jobchange2",.@id,.@map$,.@x,@y,.@name$,.@item;
				end;
				case 2:
				mes .@name$;
				mes "Ok, vuelve cuando estes seguro";
				close;
				}
			}
}else if (.@hunting == 0 || .@hunting == 1) {
			mes .@name$;
			mes "Aun no has terminado la quest!";
			close;
	}else if(prologe) && (.@hunting == -1){
		end;
	}
}
//============================================================================
moonhaven,179,61,3	Script	Inicio	811,{
set .@name$,"^000000[Kara]^000000";
set .@questpro1,1017;
set .@map$,"prontera";
set .@x,271;
set .@y,354;
set .@hunting, checkquest(.@questpro1,HUNTING);
if(!prologe) && (.@hunting == -1){
specialeffect2 113;
specialeffect2 114;
cutin "valkria",1;
mes .@name$;
mes "Hola... yo soy Kara una valkiria.";
next;
mes .@name$;
mes "¿Que donde estamos?.";
next;
mes .@name$;
mes "Estamos en las puertas de Vanalheim, el mundo de la creacion.";
next;
mes .@name$;
mes "Si, tu estas muerto. hace ya unos meses...";
next;
cutin "valkria5",1;
mes .@name$;
mes "H-ah, ah! ¿que como moriste?. Los draconianos atacaron tu villa, aunque eso pasa todos los dias.";
next;
cutin "valkria3",1;
mes .@name$;
mes "Ha! no sabes ¿quienes son los draconianos?. ellos viene de otro mundo, el mundo de una civilizacion aparentemente destruida.";
next;
mes .@name$;
mes "Ellos declararon la guerra a Asgard! tienen mucho poder... Aunque de eso hacen ya 7 años!. ";
next;
cutin "valkria4",1;
mes .@name$;
mes "Eso me hace recordar, cuando lo conoci por primera vez, Al ^005EFFheroe^000000.";
next;
cutin "valkria",1;
mes .@name$;
mes "Te preguntas ¿quien es el heroe? es el hombre del que me enamore!.";
next;
mes .@name$;
mes "El perdio su vida, su esposa y su 2 hijos... Hace 7 años, su pueblo fue atacado por los dragones y solo cenizas y escombros quedaron.";
next;
mes .@name$;
mes "El me pidio que lo devolviera a midgard... No queria que mas personas sufriezen como el.";
next;
mes .@name$;
mes "¿Quieres volver a midgard? hmm... Te podria devolver la vida... Pero... Con una condicion, quiero que luches junto el ^005EFFHeroe^000000. ¿Es un trato?.";
next;
cutin "",255;
switch(select("Si")){
	case 1:
cutin "valkria",1;
mes .@name$;
mes "Antes de todo ¿quieres mi ayuda? o ¿puedes hacerlo solo?.";
next;
cutin "",255;
			switch(select("Ayudame:Salir")){
					case 1:
					cutin "valkria2",1;
						mes .@name$;
						mes "Oh! Maravillozo!esta decidido, puedo ayudarte! te dare poder para pelear, pero antes tengo que provar tu fuerza!";
						next;
						mes .@name$;
						mes "Ve y mata a 10 porings y a 10 drops!";
						set prologe,1;
						getitem 30208,1;
						setquest .@questpro1;
						specialeffect2 253;
						next;
						cutin "",255;
						mes .@name$;
						mes "Cuanto completes la prueba buscarme en la sima de la montaña y te dare algo de poder!";
						close;

					case 2:
						mes .@name$;
						mes "Ok vuelve cuando quieras hacerte fuerte";
						close;
			}
		}
	}else if(prologe >= 2){
		mes .@name$;
		mes "Ya has terminado esta quest";
		close;
	}else if(prologe == 1) && (.@hunting < 2){
		cutin "valkria",1;
		mes .@name$;
		mes "Cuado termines la quest encuentrame en la sima de la montaña";
		next;
		mes .@name$;
		mes "Te estare esparando";
		cutin "",255;
		close;
	}else if(prologe == 1) && (.@hunting == 2){
		cutin "valkria",1;
		mes .@name$;
		mes "Ha... ¿ya terminaste? Bueno. ¿Quieres saber donde tienes que ir?.";
		F_Navi("[Kara]");
		next;
		switch(select("[ si ]:[ no ]")) {
		case 1:
			mes "[Kara]";
			mes "Has clik "+F_Navi("Aqui","moonhaven,202,240")+"...";
			viewpoint 1,202,240,0,0x0A82FF;
			close;
		case 2:
			mes "[Kara]";
			mes "Entonces ve!";
			close;
		}
	}
}

function	script	jobchange2	{
	set .@name$,getarg(4);
set .@map$,"prontera";
set .@x,271;
set .@y,354;
if (checkfalcon() || checkcart() || checkriding() || ismounting()) {
		mes .@name$;
		mes "Please remove your "+((checkfalcon())?"falcon":"")+((checkcart())?"cart":"")+((checkriding())?"Peco":"")+((ismounting())?"mount":"")+" before proceeding.";
		close;
	}
	if (SkillPoint) {
		mes .@name$;
		mes "Por favor usa todos tus puntos de skill antes de proceder";
		close;
	}
	if (Class > 4049) {
		mes .@name$;
		mes "No mas jobs disponibles para ti";
		close;
	}
	if (BaseLevel < 45){
		mes .@name$;
		mes "Aun no eres lvl 45";
		close;
	}
if (getarg(0)==45){
	set prologe,1;
	completequest .@questpro1;
	specialeffect2 140;
	sleep2 500;
	specialeffect2 143;
	sleep2 300;
	specialeffect2 144;
		getitem getarg(5),1;
		dispbottom "¡Bien, ahora te enviare al midgard!. ¡Hasta la proxima vida!.";
		set zeny,zeny+50000;
		sleep2 200;	
        specialeffect2 501;
		sleep2 300;
        specialeffect2 488;
		sleep2 100;
        specialeffect2 847;
		sleep2 500;
		jobchange getarg(0);
		sleep2 500;
     	specialeffect2 338;
		sleep2 1;
    	specialeffect2 183;
		sleep2 500;
		specialeffect2 581;
		set Porings,0;
		set Drops,0;
		savepoint .@map$,.@x,.@y;
		warp .@map$,.@x,.@y;
		end;
	}
}

function	script	jobchange3	{
set .@name$,getarg(4);
set .@map$,"prontera";
set .@x,156;
set .@y,191;
if (checkfalcon() || checkcart() || checkriding() || ismounting()) {
	mes .@name$;
		mes "Please remove your "+((checkfalcon())?"falcon":"")+((checkcart())?"cart":"")+((checkriding())?"Peco":"")+((ismounting())?"mount":"")+" before proceeding.";
		close;
	}
	if (Class > 4049) {
		mes .@name$;
		mes "No hay mas profeciones disponibles.";
		close;
	}
		set prologe,1;
		completequest 1017;
		specialeffect2 140;
		sleep2 100;
		specialeffect2 143;
		sleep2 200;
		specialeffect2 144;
		cutin "valkria2",1;
		mes .@name$;
		getitem getarg(5),1;
		getitem getarg(6),getarg(7);
		dispbottom "¡Bien, ahora te enviare al midgard!. ¡Hasta la proxima vida!.";
		set zeny,zeny+50000;
		sleep2 200;	
        specialeffect2 501;
		sleep2 300;
        specialeffect2 488;
		sleep2 100;
        specialeffect2 847;
		sleep2 500;
		jobchange getarg(0);
		sleep2 500;
     	specialeffect2 338;
		sleep2 1;
    	specialeffect2 183;
		sleep2 500;
		specialeffect2 581;
	sleep2 500;
		savepoint .@map$,.@x,.@y;
		warp .@map$,.@x,.@y;
		end;
}

-	script	prologoeffects	-1,{
OnNPCKillEvent:
		getmapxy(.@map$,.@x,.@y,0);
	if(strcharinfo(3) != .@map$) && (.@map$ != "moonhaven"){
	end;
	}
		if(Porings == 10) && (Drops == 10){
			set Porings,11; // Evita que pase de la cantidad maxima.
			set Drops,11; // Evita que pase de la cantidad maxima.
				dispbottom "----------------------------------------------------------------------";
				dispbottom "							has completado la quest";
				dispbottom "----------------------------------------------------------------------";
			message strcharinfo(0),"Has matado a todos los Porings.";
			end;
		}
	if(killedrid == 1002) && (prologe >= 1) && (Porings < 10) {
		specialeffect2 50;
		set Porings,Porings+1;
		message strcharinfo(0),"Porings [ "+Porings+" / 10 ]";
		end;
	}
	else 
	if(killedrid == 1113) && (rologe >= 1) && (Drops < 10) {
		specialeffect2 50; //Cambia el efecto al que quieras.
		set Drops,Drops+1;
		message strcharinfo(0),"Drops [ "+Drops+" / 10 ]";
		end;
		}
end;
}

moonhaven,211,229,4	shop	Pociones	112,501:-1


moonhaven,208,229,3	script	Alan#Inicio	48,{
	mes "Alan";
	callfunc "habla";
}

moonhaven,186,269,5	Script	Aldio#Inicio	84,{
	mes "Aldo";
	callfunc "habla";
}

moonhaven,181,222,3	Script	Fabiano#Inicio	86,{
	mes "Fabian";
	callfunc "habla";
}

function	script	habla	{
set .@rand,rand(1,10);
	if (.@rand == 1){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
	if (.@rand == 2){mes "Buena suerte " + (Sex?"señor":"señorita") + " sigue subiendo, kara te espera"; close;}
	if (.@rand == 3){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
	if (.@rand == 4){mes "Buena suerte " + (Sex?"caballero":"dama") + " sigue subiendo!"; close;}
	if (.@rand == 5){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
	if (.@rand == 6){mes "Buena suerte " + (Sex?"señor":"señorita") + " sigue subiendo!"; close;}
	if (.@rand == 7){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
	if (.@rand == 8){mes "Buena suerte " + (Sex?"señor":"señorita") + " sigue subiendo, en contraras la paz al subir"; close;}
	if (.@rand == 9){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
	if (.@rand == 10){mes "Buena suerte " + (Sex?"amigo":"amiga") + " sigue subiendo!"; close;}
}
//==========================================================||
//							Spawn							||
//==========================================================||
moonhaven,0,0,0,0	monster	Poring	1002,40,0,0,0
moonhaven,0,0,0,0	monster	Poporing	1031,10,0,0,0
moonhaven,0,0,0,0	monster	Drops	1113,40,0,0,0
moonhaven,0,0,0,0	monster	Poring	1002,40,0,0,0
moonhaven,0,0,0,0	monster	Drops	1113,40,0,0,0

c_tower1,0,0,0,0	monster	Bathory	1102,200,500,0,0

//==========================================================||
//							Spawn							||
//==========================================================||