//==========================================
//= Quest Repetible By iSnow and Akihiko.
//==========================================
prontera,155,176,3	script	Evento Año Nuevo	714,{
OnInit:
	setarray .@m0$[0], "H","A","P","P","Y"," ","N","E","W"," ","Y","E","A","R";
	setarray .@m1$[0], "F","E","L","I","Z"," ","A","Ñ","O"," ","N","U","E","V","O";
	do {
		if (.@i == 2) set .@i, 0;
		for (set .@c, 0; .@c < getarraysize(getd(".@m" + .@i + "$")); set .@c, .@c + 1) {
			set .@f$, .@f$ + getd(".@m" + .@i + "$[" + .@c + "]");
			waitingroom .@f$,0;
			sleep 350;
			delwaitingroom;
		}
		for (set .@c, 0; .@c < 6; set .@c, .@c + 1) {
			waitingroom "",0;
			sleep 250;
			delwaitingroom;
			waitingroom .@f$,0;
			sleep 250;
			delwaitingroom;
		}
		waitingroom .@f$,0;
		sleep 3000;
		set .@f$, "";
		delwaitingroom;
		set .@i, .@i + 1;
	} while(1);
end;

mes "[Evento Año Nuevo]";
mes "Hola como estas";
mes "¿Quieres embarcarte en una aventura de año nuevo?";
next;
switch(select("¡Claro que si!:No me da miedo")){
case 1:
mes "[Evento Año Nuevo]";
mes " Soy el dueño de un hat misteriosos de PK mode y tambien el mago de la experiencia.";
next;
mes "[Evento Año Nuevo]";
mes "Este hat da habilidades sorprendentes, y unicas";
next;
mes "Pero para conseguirlo tienes que pasar por diferentes obstaculos";
mes "Entonces quieres saber que items necesito para crearlos?";
switch(select("Si claro que necesito?:No me intereza")){

case 1:
	mes "[Evento Año Nuevo]";
	mes "El hat que yo creo es el siguiente";
	mes "^FF0000Anubis Hat^000000";
	mes "Sus poderes son los siguientes:";
	mes "Reducir el daño de MVPs en un 10%. Aumentar la eficacia de los elementos de curación y sanación en un 10%.";
	mes "Mas un bono de experiencia de 3 lvls";
	mes "Este hat fue usado por un dios de PK Mode RO, Llamado Darkos";
	next;
	mes "[Evento Año Nuevo]";
	mes "Estos son los items que quiero que me traigas:";
	mes " ["+getitemname(4138)+"]["+countitem(4138)+"]/^0080FF1^000000"; 
	mes " ["+getitemname(1045)+"]["+countitem(1045)+"]/^0080FF50^000000";
	mes " ["+getitemname(934)+"]["+countitem(934)+"]/^0080FF50^000000 ";
	mes " ["+getitemname(4004)+"]["+countitem(4004)+"]/^0080FF1^000000";
	mes " ["+getitemname(512)+"]["+countitem(512)+"]/^0080FF10^000000 Apple para la exp";
	mes "100.000 zeny";
	next;
switch(select("Estoy preparado:Me arrepenti")){

		case 1:
			mes "[Evento Año Nuevo]";
			mes "Eso abria que verlo";
			next;
			mes "[Evento Año Nuevo]";
			if (countitem(4138) < 1) || (countitem(1045) <50) || (countitem(934) <50) || (countitem(4004) <1) || (countitem(512) <10) || (Zeny <100000) {
							mes "Intentas Estafarme?! Toma tu castigo...";
							atcommand "@nuke " + strcharinfo(0);
							end;
						}
			delitem 4138, 1;
			delitem 741, 50;
			delitem 934, 50;
			delitem 4004, 1;
			delitem 512, 10;
			set Zeny, Zeny-100000;
			getitem 5490, 1;
			mes "Enhorabuena, Conseguiste todos los items. Como recompensa de año nuevo ten tu ^FF0000Anubis Helm^000000, Como te lo prometi";
			set baseexp,baseexp+NextBaseExp;
			set jobexp,jobexp+NextJobexp;
			sleep2 200;
			set baseexp,baseexp+NextBaseExp;
			set jobexp,jobexp+NextJobexp;
			sleep2 200;
			set baseexp,baseexp+NextBaseExp;
			set jobexp,jobexp+NextJobexp;
			close;

case 2:
mes "[Evento Año Nuevo]";
mes "Otro Dia sera";
close;
}
	case 2:
	mes "[Evento Año Nuevo]";
		mes "Otro Dia sera";
		close;
	}
		case 2:
			mes "[Evento Año Nuevo]";
			mes "Otro Dia sera";
			close;
	}
}