ENTREGUE Macro guarda/pega itens predeterminados no bau

Discussão em 'Macro Entregue' iniciado por AmaurikJunior, 25 Janeiro 2016.

Tags:
Status do Tópico:
Não esta aberto para novas mensagens.
  1. AmaurikJunior

    AmaurikJunior Neutro
    VIP

    Afiliado:
    8 Novembro 2013
    Mensagens:
    64
    Curtidas Recebidas:
    14
    Curtiu:
    0
    Sexo:
    Masculino
    Localização:
    Passa Tempo
    Cubos:
    102.00
    Nick:
    Amaurik10
    Skype:
    Amaurik.junior
    Esse macro tem a função de pegar/guardar itens dentro de um bau.
    Você escolhe os itens que ele irá pegar ou guardar.
    Depois se você estiver pegando os itens no bau, ele irá te pergunta se deseja guardar no /bau.
    Ele também tem a função de salvar os dados (itens que determino pela ultima vez) e utilizar ele, isso evita ter que seleciona os itens
    toda vez que usar o macro.
    Pode ser escolhido até 10 itens diferentes para ele pegar/guardar no bau ou /bau
    Código:
    $${
    If(x);unset(x);stop();log("&6&lDesligado");else;set(x);log("&8&lLigando");
    -----
    prompt(#sa,$$?,"Desejar usar ultimos dados de itens?" 1=Sim);
    if(%#sa%=1);
    &item1=%&is1%;
    &item2=%&is2%;
    &item3=%&is3%;
    &item4=%&is4%;
    &item5=%&is5%;
    &item6=%&is6%;
    &item7=%&is7%;
    &item8=%&is8%;
    &item9=%&is9%;
    &item10=%&is10%;
    else;

    prompt(&item1,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item2,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item3,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item4,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item5,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item6,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item7,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item8,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item9,$$i,"Item a ser recolhido");&chest=chest;
    prompt(&item10,$$i,"Item a ser recolhido");&chest=chest;

    prompt(#estado,$$?,"1=Guardar no bau 2=Pegar do bau");
    endif;

    &is1=%&item1%;
    &is2=%&item2%;
    &is3=%&item3%;
    &is4=%&item4%;
    &is5=%&item5%;
    &is6=%&item6%;
    &is7=%&item7%;
    &is8=%&item8%;
    &is9=%&item9%;
    &is10=%&item10%;




    If(%HITID%=%&chest%);log("&3&lAbrindo");wait(500ms);key(use);
    else;Log("&4&lBau não localizado");unset(x);stop();endif;

    wait(1);

    if(%#estado%=2);
    for(#slots,0,53);
    getslotitem(%#slots%,&i,#a,#z);
    wait(10ms);
    If(%&item1%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item2%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item3%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item4%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item5%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item6%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item7%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item8%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item9%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item10%=%&i%);slotclick(%#slots%,l,true);endif;
    wait(10ms);
    next;
    endif;

    if(%#estado%=1);
    for(#sloti,54,89);
    getslotitem(%#sloti%,&i,#a,#z);
    wait(10ms);
    If(%&item1%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item2%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item3%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item4%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item5%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item6%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item7%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item8%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item9%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item10%=%&i%);slotclick(%#slots%,l,true);endif;
    wait(10ms);
    next;
    endif;
    wait(100ms);
    gui();
    if(%#estado%=1);endif;else;
    prompt(#est,$$?,"Deseja guardar no /bau? 1=Sim - 2=Não");
    if(%#est%=2);log("&5&lOk,Finalizado");else;
    }$$
    /chest
    $${
    for(#slotg,54,89);
    getslotitem(%#slotg%,&i,#a,#z);
    wait(10ms);
    If(%&item1%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item2%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item3%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item4%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item5%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item6%=%&i%);slotclick(%#slots%,l,true);endif;
    If(%&item7%=%&i%);slotclick(%#slots%,l,true);endif
    If(%&item8%=%&i%);slotclick(%#slots%,l,true);endif
    If(%&item9%=%&i%);slotclick(%#slots%,l,true);endif
    If(%&item10%=%&i%);slotclick(%#slots%,l,true);endif
    wait(10ms);
    next;
    gui();
    log("&6&lFinalizando");
    endif;
    endif;
    endif;
    endif;
    }$$
    Deixo credito a todos programadores cujo seus códigos/scripts me ajudaram a entender o mod macro
    Macro testado apenas na versão 1.8
     
    Yank_NTC e Badalho curtiram isso.
Status do Tópico:
Não esta aberto para novas mensagens.