prontera,141,226,4    script    Maquina de Promoções    2_DROP_MACHINE,{
    mes .npc_n$;
    mes "Apenas "+.itm_a+" "+.itm_n$+" para usar essa maquina!";
    mes "Você gostaria de usar?"; next;
    if(select("^0084ff[ • ]^000000 Sim:^CD3278[ • ]^000000 Não:^0084ff[ • ]^000000 O que posso ganhar?")&2) {
        if(@menu-2) {
            set .@mes$, "Pode ganhar: ";
            for(set(.@a,1);.@a<=.len_i;set(.@a,.@a+1)) {
                set .@itm$, getitemname(.itm_l[(.@a-1)]);
                if(.@a%10&&.@a<=.len_i&&.@a!=.len_i) {
                    set .@mes$, .@mes$+((!((.@a%10)-9)&&.@a<=.len_i)?
                            "and "+.@itm$+".":.@itm$+", ");
                } else {
                    mes .npc_n$;
                    if(.@a<.len_i) {
                        mes .@mes$; set .@mes$, "Você também pode ganhar: "+.@itm$+", "; next;
                        if(select("Seguir:Fechar")&2) close;
                    } else {
                        mes .@mes$+"and "+.@itm$+"."; close;
                    }
                }
            }
        } else close;
    }
    if (countitem(.itm_p) < .itm_a) {
        mes .npc_n$;
        mes "Você não tem "+.itm_a+" "+.itm_n$;
        close;
    }
    mes .npc_n$;
    mes "Aqui está!";
    delitem .itm_p,.itm_a;
    set .@get, .itm_l[rand(.len_i-1)];
    if(compare(.itm_a$,""+.@get)) announce strnpcinfo(0)+": "+strcharinfo(0)+" Obteve ["+getitemname(.@get)+"] da Máquina de Promoções!",bc_all|bc_yellow;
    getitem .@get,1;
    close;

    OnInit:
        set         .npc_n$,    "[^00FF00Maquina de Promoções^000000]"; //Nome NPC.
        setarray    .itm_l ,    "607,502";// Lista de Itens
        set         .itm_a$,    "607,502";//IDs de item nesta cadeia são anunciados.
        set         .len_i ,    getarraysize(.itm_l); //Comprimento da matriz.
        set         .itm_a ,    1; //Custo do NPC.
        set         .itm_p ,    7608; //Item usado como moeda.
        set         .itm_n$,    getitemname(.itm_p); //Nome do item.
}