viewing paste Itens Stuff BG | Athena

Posted on the
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
// Itens Stuff BG
// Npc que troca emblemas por Itens
// Autor: Envolvents (Wellington Ferraz)
// v0.1
 
// Map,WhereX,WhereY,Posiçao<TAB>script<TAB>Nome do NPC<TAB>Sprite do NPC,{
prontera,150,150,3      script  Itens Stuff BG  77,{
 
        setarray @id_stuff[0],                  671,5340;               // ID dos Itens da Stuff
        setarray @stuff_qtd[0],                 1,1;                    // Quantidade de item que será entregue
        setarray @id_emblemas[0],               607,608;                // ID dos Emblemas
        setarray @qtd_emblemas[0],              1,1;                    // Qtd de emblemas para trocar
        set @min_emblem, 0;                                             // Contagem mínima de emblemas para ver a lista de itens
       
        set .title$,"[Itens BG Stuff]"; // Titulo do NPC
 
        mes .title$;
        mes "No momento vejo que voce possui:";
        mes " ";
        for( set .@i, 0; .@i < getarraysize(@id_emblemas); set .@i, .@i + 1 ) {
        mes ""+@qtd_emblemas[.@i]+" unidade de "+getitemname(@id_emblemas[.@i])+"";
        }
        if( @id_emblemas < @min_emblem ) {
                mes "É preciso ter pelomenos "+@min_emblem+" ou mais emblemas para trocar comigo";
                close;
        }
        if (select("Trocar meus Emblemas!","Cancela") == 2)
                close;
 
        next;
        mes .title$;
        mes " ";
        for( set .@i, 0; .@i < getarraysize(@id_stuff); set .@i, .@i + 1 ) {
                mes "["+@stuff_qtd[.@i]+"] "+getitemname(@id_stuff[.@i])+" = "+@qtd_emblemas[.@i]+" Emblema";
                if( .@i < 1 )
                        set .@menu$, getitemname(@id_stuff[.@i]);
                else
                        set .@menu$, .@menu$+":"+getitemname(@id_stuff[.@i]);
        }
 
        next;
        select(.@menu$);
        set @setvar, @menu - 1;
 
        mes .title$;
        if( @qtd_emblemas[@setvar] > @id_emblemas ) {
                mes "Você não tem Emblemas de Guerra suficiente para trocar por "+@stuff_qtd[@setvar]+"x '"+getitemname(@id_stuff[@setvar])+"' :/";
                close;
        }
        mes "Deseja trocar "+@stuff_qtd[@setvar]+"x '"+getitemname(@id_stuff[@setvar])+"' por "+@qtd_emblemas[@setvar]+" Emblemas de Guerra?";
        if(select("Não:Sim") == 1 ) {
                mes "A troca foi cancelada";
                close;
        }
        delitem @id_emblemas[@setvar], @qtd_emblemas[@setvar];
        getitem @id_stuff[@setvar], @stuff_qtd[@setvar];
        mes "Troca realizada com sucesso!";
        close;
 
OnInit:
        waitingroom "Itens Stuff BG",0;
}
Viewed 1291 times, submitted by Envolvents.