viewing paste Unknown #9969 | 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
//armamento:
 
//El npc te pedira que hagas las armas y tus municiones
 
prontera,100,100,3      script  Armamento       689,{
set .@name$,"^2AF7EA ~ claus ^000000";
setarray .@item[0],501,10,501,10,501,10,501,10,501,10;
setarray .@text$[0],"","","","","";
setarray .@item2[0],501,10,501,10;
setarray .@text2$[0],"","";
mes .@name$;
if (armas >= 1) && (municiones >= 1){
mes "Felicidades!, ahora ve a donde wein para que te de otra misiones";
setquest 1052;
set armas,0;
set municiones,0;
 
}
 
/*if (isquest_begin(1052) == 2){//Si ya la termino
        mes "Habla con wein para que pases a la proxima mision";
        close;
}
 
if(isquest_begin(1050) == 0){// Si no la a comenzado
        mes "Que haces aqui?";
        mes "No tengo tiempo para lidiar con personal no autorizado";
        close;
}
if(isquest_begin(1051) == 1){
        goto next2;
}*/
        mes "Parece que wein te envio aqui para la prueba de armamento";
        next;
        mes .@name$;
        mes "Lo primero que debes de hacer es tu nueva arma y luego tus municiones";
        next;
        mes .@name$;
        mes "para hacer tu nueva arma necesitas estas cosas";
        set .@r,0;
        for(set .@i,0; .@i < getarraysize (.@item); set .@i,.@i+2){
                do {set .@r,.@r+1;}
                        while (.@i <= getarraysize (.@item));
        mes "Traeme unos "+.@item2[.@r]+" "+getitemname(.@item[.@i])+" "+.@text$[.@i]+" ";
        break;
        }
        next;
        mes .@name$;
        mes "Para hacer tus municiones necesitas estas cosas";
        set .@r,0;
        for(set .@i,0; .@i < getarraysize (.@item2); set .@i,.@i+2){
                do {set .@r,.@r+1;}
                        while (.@i <= getarraysize (.@item2));
        mes "Traeme unos "+.@item2[.@r]+" "+getitemname(.@item2[.@i])+" "+.@text2$[.@i]+" ";
        break;
        }
        completequest 1050;
        setquest 1051;
        close;
       
next2:
        mes .@name$;
        mes "Que quieres hacer primero las armas o las municiones?";
                switch(select("~ Las armas primero:~ Las municiones primero")){
                case 1:
                        mes .@name$;
                        mes "Vamos haber si tienes todo lo que te pedi..";
                        next;
                        mes .@name$;
                        set .@r,0;
                        for(set .@i,0; .@i < getarraysize (.@item); set .@i,.@i+2){
                                do {set .@r,.@r+1;}
                                        while (.@i <= getarraysize (.@item));
                                                if (countitem(.@item[.@i]) < .@item[.@r]){
                                                        set .@r,0;
                                                        for(set .@i,0; .@i < getarraysize (.@item); set .@i,.@i+2){
                                                                do {set .@r,.@r+1;}
                                                                        while (.@i <= getarraysize (.@item));
                                                                                mes " "+getitemname(.@item[.@i])+" ["+counitem(.@item[.@i])+"] / ["+.@item[.@r]+"]";
                                                                                        if(.@i == getarraysize (.@item){close;}
                        }
                }
        }
                                mes "";
                                mes "";
                                next;
                                mes "";
                                mes "";
                                next;
                                mes "";
                                set armas,1;
                                close;
                               
                        case 2:
                                mes .@name$;
                                        mes "Vamos haber si tienes todo lo que te pedi..";
                                        next;
                                        mes .@name$
                        for(set .@i,0; .@i < getarraysize (.@item2); set .@i,.@i+2){
                                do {set .@r,.@r+1;}
                                        while (.@i <= getarraysize (.@item2))
                                                if (countitem(.@item2[.@i]) < .@item2[.@r]){
                                                        set .@r,0;
                                                        for(set .@i,0; .@i < getarraysize (.@item2); set .@i,.@i+2){
                                                                do {set .@r,.@r+1;}
                                                                        while (.@i <= getarraysize (.@item2))
                                                                                mes " "+getitemname(.@item2[.@i])+" ["+counitem(.@item2[.@i])+"] / ["+.@item2[.@r]+"]";
                                                                                        if(.@i == getarraysize (.@item2){close;}
                        }
                }
        }
                                mes "";
                                mes "";
                                next;
                                mes "";
                                mes "";
                                next;
                                mes "";
                                set municiones,1;
                }
}
Viewed 577 times, submitted by Dynasty.