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