//===== 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;
 
}