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";
completequest 1051;
setquest 1052;
set armas,0;
set municiones,0;
close;
 
}
 
/*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 1239 times, submitted by Dynasty.