//===== Scripts ================================== 
//= Daily Prize, OnPCLoginEvent
//===== By: ================================================== 
//= Quest Repetible By iSnow and Akihiko.
//===== Current Version: ===================================== 
//= 1.00
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= New Year Event
//===== Comments: ============================================
//===== Additional Comments: =================================
//= 1.00 Full Work
//============================================================
prontera,155,176,3	script	Evento Año Nuevo	714,{
//Id Quest del caso 1========
set .@item,4138;
set .@item1,1045;
set .@item2,934;
set .@item3,4004;
set .@item4,512;
// numero de items
set .@itemN,1;
set .@itemN1,50;
set .@itemN2,50;
set .@itemN3,1;
set .@itemN4,10;
//
set .@id,5490;
if(#newyear2 >= 1){
	mes "[Evento Año Nuevo]";
	mes "Ya has obtenido el premio de año nuevo!";
	close;
}
set .@name$,"[Evento Año Nuevo]";
mes .@name$;
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 .@name$;
mes " Soy el dueño de un hat misteriosos de PK mode y tambien el mago de la experiencia.";
next;
mes .@name$;
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?";
next;
switch(select("Si claro que necesito?:No me intereza")){

case 1:
mes .@name$;
	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 curacion y sanacion 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 .@name$;
	mes "Estos son los items que quiero que me traigas:";
	mes ""+getitemname(.@item)+" ^0080FF["+.@itemN+"]^000000";
	mes ""+getitemname(.@item1)+" ^0080FF["+.@itemN1+"]^000000";
	mes ""+getitemname(.@item2)+" ^0080FF"[+.@itemN2+"]^000000";
	mes ""+getitemname(.@item3)+" ^0080FF"[+.@itemN3+"]^000000";
	mes ""+getitemname(.@item4)+" ^0080FF"[+.@itemN4+"]^000000 Apple para la exp";
	mes "100.000 zeny";
	next;
switch(select("Estoy preparado:Me arrepenti")){

		case 1:
		mes .@name$;
			mes "Eso abria que verlo";
if((countitem(.@item) >= .@itemN) && (countitem(.@item1) >= .@itemN1) && (countitem(.@item2) >= .@itemN2) && (countitem(.@item3) >= .@itemN4) && (countitem(.@item4) >= .@itemN5) && (zeny >= 100000)){
	next;
	mes .@name$;
	mes "Ok tienes todo";
	next;
		mes .@name$;
			mes "quieres hacerlo?";
				next;
				switch(select("Si quiero:No Quiero")){
			case 1:
				mes "Aqui tienes";
				mes "Disfrutalo y Feliz Año nuevo!";
				set ronda,0;
				delitem .@item,.@itemN;
				delitem .@item1,.@itemN1;
				delitem .@item2,.@itemN2;
				delitem .@item3,.@itemN3;
				delitem .@item4,.@itemN4;
				atcommand "@joblevel,3"+ strcharinfo(0);
				atcommand "@baselevel,3"+ strcharinfo(0);
				set #newyear,1;
				getitem .@id,1;
				close;

			case 2:
				mes .@name$;
					mes "Bueno, puedes volver cuando quieras";
					close;
				}
	}else{
	mes .@name$;
	mes "No tienes lo que necesito para hacer las helm";
	next;
		mes .@name$;
		mes "Intentas Estafarme?! Toma tu castigo...";
			mes "^0000FF"+countitem(.@item)+"^000000 de "+.@itemN+" "+getitemname(.@item)+"";
			mes "^0000FF"+countitem(.@item1)+"^000000 de "+.@itemN1+" "+getitemname(.@item1)+"";
			mes "^0000FF"+countitem(.@item2)+"^000000 de "+.@itemN2+" "+getitemname(.@item2)+"";
			mes "^0000FF"+countitem(.@item3)+"^000000 de "+.@itemN3+" "+getitemname(.@item3)+"";
			mes "^0000FF"+countitem(.@item4)+"^000000 de "+.@itemN4+" "+getitemname(.@item4)+"";
			atcommand "@nuke " + strcharinfo(0);
			mes "";
		close;
	}
case 2:
mes .@name$;
mes "Otro Dia sera";
close;
}
	case 2:
	mes .@name$;
		mes "Otro Dia sera";
		close;
	}
		case 2:
		mes .@name$;
			mes "Otro Dia sera";
			close;
	}
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;

}