[Pedido] Macro de escavação

Discussão em 'Botecolandia' iniciado por rafavterra, 20 Novembro 2015.

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

    rafavterra Excelente
    VIP

    Afiliado:
    14 Junho 2013
    Mensagens:
    1,142
    Curtidas Recebidas:
    345
    Curtiu:
    208
    Sexo:
    Masculino
    Localização:
    Santa Catarina
    Cubos:
    1,492.29
    Nick:
    rafavterra
    Clan:
    APs / NxI / EcT
  2. rafavterra

    rafavterra Excelente
    VIP

    Afiliado:
    14 Junho 2013
    Mensagens:
    1,142
    Curtidas Recebidas:
    345
    Curtiu:
    208
    Sexo:
    Masculino
    Localização:
    Santa Catarina
    Cubos:
    1,492.29
    Nick:
    rafavterra
    Clan:
    APs / NxI / EcT
  3. atzmd

    atzmd Razoavel
    Banido

    Afiliado:
    8 Outubro 2014
    Mensagens:
    970
    Curtidas Recebidas:
    91
    Curtiu:
    205
    Sexo:
    Masculino
    Localização:
    Support Team
    Cubos:
    1,048.00
    Nick:
    vinil
    Clan:
    FUN
    Skype:
    naolheintereça
    Tambem quero um macro pra escavar
     
  4. XablauXablante

    XablauXablante Excelente
    VIP

    Afiliado:
    22 Julho 2014
    Mensagens:
    3,953
    Curtidas Recebidas:
    328
    Curtiu:
    459
    Sexo:
    Masculino
    Localização:
    log(%XPOS%,%...
    Cubos:
    1,060.00
    Nick:
    Nickloko
    Clan:
    EMP
    Skype:
    Digo não '-'
    Ta ai,ve se não ta bugado.

    Código:
    $${
    if(cav1);
     
        log( );
        log("&6&l[MACRO] &d&lCava-Cava 2.0&4&l (OFF)");
        log( );
        unset(mrb);
        unset(cav1);
        unset(cav2);
        unset(@cav);
        unset(nperg);
        stop();
     
    else;
     
        log( );
        log("&6&l[MACRO] &d&lCava-Cava 2.0&2&l (ON)");
        log( );
        ACHIEVEMENTGET("by MrBlueees",351:4);
        set(cav1);
        set(cav2);
     
    endif;
     
    #bau=1;
     
    IFMATCHES(%DIRECTION%,N);&near=NORTH;ENDIF;
    IFMATCHES(%DIRECTION%,S);&near=SOUTH;ENDIF;
    IFMATCHES(%DIRECTION%,W);&near=WEST;ENDIF;
    IFMATCHES(%DIRECTION%,E);&near=EAST;ENDIF;
     
    if(%#bloco%=nothing);set(nperg);&cont=n;endif;
    if(%#pa%=nothing);set(nperg);&cont=n;endif;
    if(%#dur%=nothing);set(nperg);&cont=n;endif;
    if(%#del%=nothing);set(nperg);&cont=n;endif;
    if(%#hit%=nothing);set(nperg);&cont=n;endif;
     
    if(nperg);
    else;
    PROMPT(&cont,$$?,"Deseja continuar com a última configuraçao? (s/n)");
    endif;
     
    IFBEGINSWITH(%&cont%,n);
    IFENDSWITH(%&cont%,n);
     
    PROMPT(#bloco,$$i,Que bloco usará para cavar?);
     
    PROMPT(#pa,$$i,Que tipo de pá irá ser usada?);
     
    if(%#pa%=277);#rep=264;endif;
    if(%#pa%=256);#rep=265;endif;
    if(%#pa%=284);#rep=266;endif;
    if(%#pa%=269);#rep=125;endif;
    if(%#pa%=273);#rep=4;endif;
     
    PROMPT(#dur,$$?,Em qual durabilidade você quer reparar sua pá?);
    #dur=%#dur%;
    PROMPT(#del,$$?,Qual delay para verificar o inventário? Recomendado: 300 - 400);
     
    PROMPT(#hit,$$?,"Quantos hits para quebrar o bloco? Exemplos: 1 = pá eficiência 5 || 10 ou mais = pá de pedra");
     
    if(%#bloco%=nothing);log("&cResposta inválida, configure novamente.");
        unset(mrb);
        unset(cav1);
        unset(cav2);
        unset(@cav);
        unset(nperg);
        stop();
    endif;
    if(%#pa%=nothing);log("&cResposta inválida, configure novamente.");
        unset(mrb);
        unset(cav1);
        unset(cav2);
        unset(@cav);
        unset(nperg);
        stop();
    endif;
    if(%#dur%=nothing);log("&cResposta inválida, configure novamente.");
        unset(mrb);
        unset(cav1);
        unset(cav2);
        unset(@cav);
        unset(nperg);
        stop();
    endif;
    if(%#del%=nothing);log("&cResposta inválida, configure novamente.");
        unset(mrb);
        unset(cav1);
        unset(cav2);
        unset(@cav);
        unset(nperg);
        stop();
    endif;
    if(%#hit%=nothing);log("&cResposta inválida, configure novamente.");
        unset(mrb);
        unset(cav1);
        unset(cav2);
        unset(@cav);
        unset(nperg);
        stop();
    endif;
     
    ENDIF;
    ENDIF;
     
     
    set(mrb);
    set(@cav);
    if(mrb);
    look(%&near%);
    look(,30);
     
    do;
     
        do(%#del%);
     
            pick(%#bloco%);
            key(use);
            wait(1ms);   
            pick(%#pa%);
     
                if(%DURABILITY%<%#dur%);
     
                    look(%&near%);
                    look(,90);
                    key(use);
                    wait(2);
     
                endif;
     
            look(%&near%);
            look(,30);
            do(%#hit%);
            key(attack);
            loop;
     
        loop;
     
     
        if(cav2);
     
            gui(inventory);
            wait(10ms);
            getslotitem(35,#id,#stack);
     
            if(%#stack%=0);
                gui();
            else;
            wait(1);
            do;
    //=================BAUS=================//
    }$$
     
    $${if(%#bau%=1);}$$
    /home esc1
    $${endif;}$$
     
    $${if(%#bau%=2);}$$
    /home esc2
    $${endif;}$$
     
    $${if(%#bau%=3);}$$
    /home esc3
    $${endif;}$$
     
    $${if(%#bau%=4);}$$
    /home esc4
    $${endif;}$$
     
    $${if(%#bau%=5);}$$
    /home esc5
    $${endif;}$$
     
    $${if(%#bau%=6);}$$
    /home esc6
    $${endif;}$$
     
    $${if(%#bau%=7);}$$
    /home esc7
    $${endif;}$$
     
    $${if(%#bau%=8);}$$
    /home esc8
    $${endif;}$$
     
    $${if(%#bau%=9);}$$
    /home esc9
    $${endif;}$$
     
    $${if(%#bau%=10);}$$
    /home esc10
    $${endif;}$$
     
    $${if(%#bau%=11);}$$
    /home esc11
    $${endif;}$$
     
    $${if(%#bau%=12);}$$
    /home esc12
    $${endif;}$$
     
    $${if(%#bau%=13);}$$
    /home esc13
    $${endif;}$$
     
    $${if(%#bau%=14);}$$
    /home esc14
    $${endif;}$$
     
    $${if(%#bau%=15);}$$
    /home esc15
    $${endif;}$$
     
    $${if(%#bau%=16);}$$
    /home esc16
    $${endif;}$$
     
    $${if(%#bau%=17);}$$
    /home esc17
    $${endif;}$$
     
    $${if(%#bau%=18);}$$
    /home esc18
    $${endif;}$$
     
    $${if(%#bau%=19);}$$
    /home esc19
    $${endif;}$$
     
    $${if(%#bau%=20);}$$
    /home esc20
    $${endif;}$$
     
    $${if(%#bau%=21);}$$
    /home esc21
    $${endif;}$$
     
    $${if(%#bau%=22);}$$
    /home esc22
    $${endif;}$$
     
    $${if(%#bau%=23);}$$
    /home esc23
    $${endif;}$$
     
    $${if(%#bau%=24);}$$
    /home esc24
    $${endif;}$$
     
    $${if(%#bau%=25);}$$
    /home esc25
    $${endif;}$$
     
    $${if(%#bau%=26);}$$
    /home esc26
    $${endif;}$$
     
    $${if(%#bau%=27);}$$
    /home esc27
    $${endif;}$$
     
    $${if(%#bau%=28);}$$
    /home esc28
    $${endif;}$$
     
    $${if(%#bau%=29);}$$
    /home esc29
    $${endif;}$$
     
    $${if(%#bau%=30);}$$
    /home esc30
    $${endif;}$$
     
    $${if(%#bau%=31);}$$
    /home esc31
    $${endif;}$$
     
    $${if(%#bau%=32);}$$
    /home esc32
    $${endif;}$$
     
    $${if(%#bau%=33);}$$
    /home esc33
    $${endif;}$$
     
    $${if(%#bau%=34);}$$
    /home esc34
    $${endif;}$$
     
    $${if(%#bau%=35);}$$
    /home esc35
    $${endif;}$$
     
    $${if(%#bau%=36);}$$
    /home esc36
    $${endif;}$$
     
    $${if(%#bau%=37);}$$
    /home esc37
    $${endif;}$$
     
    $${if(%#bau%=38);}$$
    /home esc38
    $${endif;}$$
     
    $${if(%#bau%=39);}$$
    /home esc39
    $${endif;}$$
     
    $${if(%#bau%=40);}$$
    /home esc40
    $${endif;}$$
     
    $${if(%#bau%=41);}$$
    /home esc41
    $${endif;}$$
     
    $${if(%#bau%=42);}$$
    /home esc42
    $${endif;}$$
     
    $${if(%#bau%=43);}$$
    /home esc43
    $${endif;}$$
     
    $${if(%#bau%=44);}$$
    /home esc44
    $${endif;}$$
     
    $${if(%#bau%=45);}$$
    /home esc45
    $${endif;}$$
     
    $${if(%#bau%=46);}$$
    /home esc46
    $${endif;}$$
     
    $${if(%#bau%=47);}$$
    /home esc47
    $${endif;}$$
     
    $${if(%#bau%=48);}$$
    /home esc48
    $${endif;}$$
     
    $${if(%#bau%=49);}$$
    /home esc49
    $${endif;}$$
     
    $${if(%#bau%=50);}$$
    /home esc50
    $${endif;}$$
     
    $${if(%#bau%=51);}$$
    /home esc51
    $${endif;}$$
     
    $${if(%#bau%=52);}$$
    /home esc52
    $${endif;}$$
     
    $${if(%#bau%=53);}$$
    /home esc53
    $${endif;}$$
     
    $${if(%#bau%=54);}$$
    /home esc54
    $${endif;}$$
     
    $${if(%#bau%=55);}$$
    /home esc55
    $${endif;}$$
     
    $${if(%#bau%=56);}$$
    /home esc56
    $${endif;}$$
     
    $${if(%#bau%=57);}$$
    /home esc57
    $${endif;}$$
     
    $${if(%#bau%=58);}$$
    /home esc58
    $${endif;}$$
     
    $${if(%#bau%=59);}$$
    /home esc59
    $${endif;}$$
     
    $${if(%#bau%=60);}$$
    /home esc60
    $${endif;}$$
     
    $${if(%#bau%=61);}$$
    /home esc61
    $${endif;}$$
     
    $${if(%#bau%=62);}$$
    /home esc62
    $${endif;}$$
     
    $${if(%#bau%=63);}$$
    /home esc63
    $${endif;}$$
     
    $${if(%#bau%=64);}$$
    /home esc64
    $${endif;}$$
     
    $${if(%#bau%=65);}$$
    /home esc65
    $${endif;}$$
     
    $${if(%#bau%=66);}$$
    /home esc66
    $${endif;}$$
     
    $${if(%#bau%=67);}$$
    /home esc67
    $${endif;}$$
     
    $${if(%#bau%=68);}$$
    /home esc68
    $${endif;}$$
     
    $${if(%#bau%=69);}$$
    /home esc69
    $${endif;}$$
     
    $${if(%#bau%=70);}$$
    /home esc70
    $${endif;}$$
     
     
     
    $${
    //======================================//
        wait(5);
        key(use);
        wait(1);
     
        for(#slotn,54,89);
     
            getslotitem(%#slotn%,#id,#stack);
     
            if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));
            else;
                slotclick(%#slotn%,l,true);
                wait(30ms);
            endif;
     
        next;
     
        wait(500ms);
        getslotitem(53,#id,#stack);
        wait(500ms);
     
        if(%#stack%!=0);
     
            inc(#bau);
        
        else;
     
        endif;
     
        if(%#bau%=71);
     
            unset(cav2);
            log("&cBaús cheios! Voltando a escavar somente.");
            gui();
     
        else;
     
            gui();
     
        endif;
     
        until(%#stack%=0);
     
        endif;
     
            }$$/home macroesc$${
            wait(4);
     
        gui(inventory);
        wait(600ms);
        
     
        for(#slot,9,35);
     
            GETSLOTITEM(%#slot%,#id,#stack);
     
            if((%#id%=%#pa%) || (%#id%=%#bloco%) || (%#id%=%#rep%));
     
                slotclick(%#slot%,l,true);wait(30ms);
            else;
            endif;
        next;
     
        gui();
        
    endif;
    loop;
    endif;
     
    }$$
    
     
  5. atzmd

    atzmd Razoavel
    Banido

    Afiliado:
    8 Outubro 2014
    Mensagens:
    970
    Curtidas Recebidas:
    91
    Curtiu:
    205
    Sexo:
    Masculino
    Localização:
    Support Team
    Cubos:
    1,048.00
    Nick:
    vinil
    Clan:
    FUN
    Skype:
    naolheintereça
    Quantos baus esse macro usa ?
     
  6. wLuan

    wLuan Craftlandiano
    VIP

    Afiliado:
    5 Agosto 2014
    Mensagens:
    2,758
    Curtidas Recebidas:
    711
    Curtiu:
    216
    Sexo:
    Masculino
    Ocupação:
    TRABALHO
    Localização:
    LOCALIZANDO...
    Cubos:
    93.04
    Nick:
    wLuan/LUANZAO
    Clan:
    EcT
    Já tem macros com está função !
     
Status do Tópico:
Não esta aberto para novas mensagens.