viewing paste Unknown #9526 | 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 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162
//===== 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?";
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.";
mes .@name$;
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 .@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";
}
        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);
 
}
Viewed 708 times, submitted by Dynasty.