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;
end;
}
Viewed 1654 times, submitted by Envolvents.