viewing paste Unknown #9501 | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
//==========================================
//= 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);
 
mes "[Evento Año Nuevo]";
mes "Hola como estas";
mes "¿Quieres embarcarte en una aventura de año nuevo?";
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.";
mes "[Evento Año Nuevo]";
mes "Este hat da habilidades sorprendentes, y unicas";
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";
}
        case 2:
        mes "[Evento Año Nuevo]";
                mes "Otro Dia sera";
                close;
        }
                case 2:
                        mes "[Evento Año Nuevo]";
                        mes "Otro Dia sera";
                        close;
        }
}
Viewed 558 times, submitted by Dynasty.