sábado, 21 de novembro de 2015

Plantação de fungo 166 andares - 600 baús


Macro:


Sethomes necessárias:
->/sethome fungotemp
->/sethome fungof1, fungof2,fungof3,...,fungof166
->/sethome fungobaus1, fungobaus2, ..., fungobaus25



Código macro:




$${
    if(@neth3);
        keyup(forward);
        unset(@neth3);
        }$$
        /sethome fungotemp
        $${
        #snposx1=%XPOS%; #snposx2=%ZPOS%;
        log("&d» &6Plantação Automática &c[OFF]"); 
        stop();
        else;  
        set(@neth3);
        #delay=8;#nbau=1;
        log("&d» &6Plantação Automática &a[ON]");
        PROMPT(&return,$$?,"Continuar de onde estava quando desligou? (S ou N)");  
        ifmatches(%&return%,^[S|s]);
   set(return);   
   log("&d» &6Continuando a partir de onde foi desligado!");
   else; 
   PROMPT(#ch,$$?,"Começar por qual conjunto de baús? (Parou no %#ch%)");                if(%#ch%=0);unset(@neth3);stop();endif;
            if(%#ch%>24);
    log(&d» &cOps! &6O limite é 25 &3:/);
    log("&d» &6Plantação Automática &c[OFF]");
    unset(@neth3);
    stop();
   endif;                                                     
   unset(return);
   #fxv=166;
   #hfl=1;
   PROMPT(#flror,$$?,"Começar por qual andar?");                 if(%#flror%=0);unset(@neth3);stop();endif;
            if(%#flror%>%#fxv%);
    log(&d» &cOps! &6Andar escolhido para começar é maior que o número de andares que você escolheu! Preste mais atenção nas perguntas &3:/);
    log("&d» &6Plantação Automática &c[OFF]");
    unset(@neth3);
    stop();
   endif;                                                     
   log("&d» &6As sethomes devem ser no estilo: &3/home fungof1 /home fungof2&6 ...");
   log("&d» &6As sethomes dos baús devem ser no estilo &3/home fungobaus1 /home fungobaus2&6...");
   log("&d» &6Se quiser parar só por um tempo, segure a &3tecla P&6 até parar!");
   set(first);
        endif;         
   
  do;                
   for(#hfl,%#flror%,%#fxv%); 
    wait(1);
    if(return);
     #hfltemp=%#hfl%;#hfl=8000;                     
     }$$
     /home fungotemp
     $${
     do;until((%XPOS%=%#snposx1%)&&(%ZPOS%=%#snposx2%));wait(1);
     unset(return);
     else;
     if(%#hfl%=1);}$$/home fungof1$${endif;if(%#hfl%=2);}$$/home fungof2$${endif;if(%#hfl%=3);}$$/home fungof3$${endif;}$$
     $${if(%#hfl%=4);}$$/home fungof4$${endif;if(%#hfl%=5);}$$/home fungof5$${endif;if(%#hfl%=6);}$$/home fungof6$${endif;}$$
     $${if(%#hfl%=7);}$$/home fungof7$${endif;if(%#hfl%=8);}$$/home fungof8$${endif;if(%#hfl%=9);}$$/home fungof9$${endif;if(%#hfl%=10);}$$/home fungof10$${endif;}$$
     $${if(%#hfl%=11);}$$/home fungof11$${endif;if(%#hfl%=12);}$$/home fungof12$${endif;if(%#hfl%=13);}$$/home fungof13$${endif;}$$
     $${if(%#hfl%=14);}$$/home fungof14$${endif;if(%#hfl%=15);}$$/home fungof15$${endif;if(%#hfl%=16);}$$/home fungof16$${endif;}$$
     $${if(%#hfl%=17);}$$/home fungof17$${endif;if(%#hfl%=18);}$$/home fungof18$${endif;if(%#hfl%=19);}$$/home fungof19$${endif;if(%#hfl%=20);}$$/home fungof20$${endif;}$$
     $${if(%#hfl%=21);}$$/home fungof21$${endif;if(%#hfl%=22);}$$/home fungof22$${endif;if(%#hfl%=23);}$$/home fungof23$${endif;}$$
     $${if(%#hfl%=24);}$$/home fungof24$${endif;if(%#hfl%=25);}$$/home fungof25$${endif;if(%#hfl%=26);}$$/home fungof26$${endif;}$$
     $${if(%#hfl%=27);}$$/home fungof27$${endif;if(%#hfl%=28);}$$/home fungof28$${endif;if(%#hfl%=29);}$$/home fungof29$${endif;if(%#hfl%=30);}$$/home fungof30$${endif;}$$
     $${if(%#hfl%=31);}$$/home fungof31$${endif;if(%#hfl%=32);}$$/home fungof32$${endif;if(%#hfl%=33);}$$/home fungof33$${endif;}$$
     $${if(%#hfl%=34);}$$/home fungof34$${endif;if(%#hfl%=35);}$$/home fungof35$${endif;if(%#hfl%=36);}$$/home fungof36$${endif;}$$
     $${if(%#hfl%=37);}$$/home fungof37$${endif;if(%#hfl%=38);}$$/home fungof38$${endif;if(%#hfl%=39);}$$/home fungof39$${endif;if(%#hfl%=40);}$$/home fungof40$${endif;}$$
     $${if(%#hfl%=41);}$$/home fungof41$${endif;if(%#hfl%=42);}$$/home fungof42$${endif;if(%#hfl%=43);}$$/home fungof43$${endif;}$$
     $${if(%#hfl%=44);}$$/home fungof44$${endif;if(%#hfl%=45);}$$/home fungof45$${endif;if(%#hfl%=46);}$$/home fungof46$${endif;}$$
     $${if(%#hfl%=47);}$$/home fungof47$${endif;if(%#hfl%=48);}$$/home fungof48$${endif;if(%#hfl%=49);}$$/home fungof49$${endif;if(%#hfl%=50);}$$/home fungof50$${endif;}$$
     $${if(%#hfl%=51);}$$/home fungof51$${endif;if(%#hfl%=52);}$$/home fungof52$${endif;if(%#hfl%=53);}$$/home fungof53$${endif;}$$
     $${if(%#hfl%=54);}$$/home fungof54$${endif;if(%#hfl%=55);}$$/home fungof55$${endif;if(%#hfl%=56);}$$/home fungof56$${endif;}$$
     $${if(%#hfl%=57);}$$/home fungof57$${endif;if(%#hfl%=58);}$$/home fungof58$${endif;if(%#hfl%=59);}$$/home fungof59$${endif;if(%#hfl%=60);}$$/home fungof60$${endif;}$$
     $${if(%#hfl%=61);}$$/home fungof61$${endif;if(%#hfl%=62);}$$/home fungof62$${endif;if(%#hfl%=63);}$$/home fungof63$${endif;}$$
     $${if(%#hfl%=64);}$$/home fungof64$${endif;if(%#hfl%=65);}$$/home fungof65$${endif;if(%#hfl%=66);}$$/home fungof66$${endif;}$$
     $${if(%#hfl%=67);}$$/home fungof67$${endif;if(%#hfl%=68);}$$/home fungof68$${endif;if(%#hfl%=69);}$$/home fungof69$${endif;if(%#hfl%=70);}$$/home fungof70$${endif;}$$
     $${if(%#hfl%=71);}$$/home fungof71$${endif;if(%#hfl%=72);}$$/home fungof72$${endif;if(%#hfl%=73);}$$/home fungof73$${endif;}$$
     $${if(%#hfl%=74);}$$/home fungof74$${endif;if(%#hfl%=75);}$$/home fungof75$${endif;if(%#hfl%=76);}$$/home fungof76$${endif;}$$
     $${if(%#hfl%=77);}$$/home fungof77$${endif;if(%#hfl%=78);}$$/home fungof78$${endif;if(%#hfl%=79);}$$/home fungof79$${endif;if(%#hfl%=80);}$$/home fungof80$${endif;}$$
     $${if(%#hfl%=81);}$$/home fungof81$${endif;if(%#hfl%=82);}$$/home fungof82$${endif;if(%#hfl%=83);}$$/home fungof83$${endif;}$$
     $${if(%#hfl%=84);}$$/home fungof84$${endif;if(%#hfl%=85);}$$/home fungof85$${endif;if(%#hfl%=86);}$$/home fungof86$${endif;}$$
     $${if(%#hfl%=87);}$$/home fungof87$${endif;if(%#hfl%=88);}$$/home fungof88$${endif;if(%#hfl%=89);}$$/home fungof89$${endif;if(%#hfl%=90);}$$/home fungof90$${endif;}$$
     $${if(%#hfl%=91);}$$/home fungof91$${endif;if(%#hfl%=92);}$$/home fungof92$${endif;if(%#hfl%=93);}$$/home fungof93$${endif;}$$
     $${if(%#hfl%=94);}$$/home fungof94$${endif;if(%#hfl%=95);}$$/home fungof95$${endif;if(%#hfl%=96);}$$/home fungof96$${endif;}$$
     $${if(%#hfl%=97);}$$/home fungof97$${endif;if(%#hfl%=98);}$$/home fungof98$${endif;if(%#hfl%=99);}$$/home fungof99$${endif;if(%#hfl%=100);}$$/home fungof100$${endif;}$$
     $${if(%#hfl%=101);}$$/home fungof101$${endif;if(%#hfl%=102);}$$/home fungof102$${endif;if(%#hfl%=103);}$$/home fungof103$${endif;}$$
     $${if(%#hfl%=104);}$$/home fungof104$${endif;if(%#hfl%=105);}$$/home fungof105$${endif;if(%#hfl%=106);}$$/home fungof106$${endif;}$$
     $${if(%#hfl%=107);}$$/home fungof107$${endif;if(%#hfl%=108);}$$/home fungof108$${endif;if(%#hfl%=109);}$$/home fungof109$${endif;if(%#hfl%=110);}$$/home fungof110$${endif;}$$
     $${if(%#hfl%=111);}$$/home fungof111$${endif;if(%#hfl%=112);}$$/home fungof112$${endif;if(%#hfl%=113);}$$/home fungof113$${endif;}$$
     $${if(%#hfl%=114);}$$/home fungof114$${endif;if(%#hfl%=115);}$$/home fungof115$${endif;if(%#hfl%=116);}$$/home fungof116$${endif;}$$
     $${if(%#hfl%=117);}$$/home fungof117$${endif;if(%#hfl%=118);}$$/home fungof118$${endif;if(%#hfl%=119);}$$/home fungof119$${endif;if(%#hfl%=120);}$$/home fungof120$${endif;}$$
     $${if(%#hfl%=131);}$$/home fungof131$${endif;if(%#hfl%=132);}$$/home fungof132$${endif;if(%#hfl%=133);}$$/home fungof133$${endif;}$$
     $${if(%#hfl%=134);}$$/home fungof134$${endif;if(%#hfl%=135);}$$/home fungof135$${endif;if(%#hfl%=136);}$$/home fungof136$${endif;}$$
     $${if(%#hfl%=137);}$$/home fungof137$${endif;if(%#hfl%=138);}$$/home fungof138$${endif;if(%#hfl%=139);}$$/home fungof139$${endif;if(%#hfl%=130);}$$/home fungof130$${endif;}$$
     $${if(%#hfl%=141);}$$/home fungof141$${endif;if(%#hfl%=142);}$$/home fungof142$${endif;if(%#hfl%=143);}$$/home fungof143$${endif;}$$
     $${if(%#hfl%=144);}$$/home fungof144$${endif;if(%#hfl%=145);}$$/home fungof145$${endif;if(%#hfl%=146);}$$/home fungof146$${endif;}$$
     $${if(%#hfl%=147);}$$/home fungof147$${endif;if(%#hfl%=148);}$$/home fungof148$${endif;if(%#hfl%=149);}$$/home fungof149$${endif;if(%#hfl%=140);}$$/home fungof140$${endif;}$$
     $${if(%#hfl%=151);}$$/home fungof151$${endif;if(%#hfl%=152);}$$/home fungof152$${endif;if(%#hfl%=153);}$$/home fungof153$${endif;}$$
     $${if(%#hfl%=154);}$$/home fungof154$${endif;if(%#hfl%=155);}$$/home fungof155$${endif;if(%#hfl%=156);}$$/home fungof156$${endif;}$$
     $${if(%#hfl%=157);}$$/home fungof157$${endif;if(%#hfl%=158);}$$/home fungof158$${endif;if(%#hfl%=159);}$$/home fungof159$${endif;if(%#hfl%=150);}$$/home fungof150$${endif;}$$
     $${if(%#hfl%=161);}$$/home fungof161$${endif;if(%#hfl%=162);}$$/home fungof162$${endif;if(%#hfl%=163);}$$/home fungof163$${endif;}$$
     $${if(%#hfl%=164);}$$/home fungof164$${endif;if(%#hfl%=165);}$$/home fungof165$${endif;if(%#hfl%=166);}$$/home fungof166$${endif;}$$
     $${if(%#hfl%=167);}$$/home fungof166$${endif;
     wait(8);  
     set(first);
    endif;
   
    keydown(jump);wait(100ms);keyup(jump);wait(1);
    &dir=%DIRECTION%;
    ifmatches(%&dir%,N);&dir=NORTH;endif;
    ifmatches(%&dir%,S);&dir=SOUTH;endif;
    ifmatches(%&dir%,E);&dir=EAST;endif;
    ifmatches(%&dir%,W);&dir=WEST;endif;

    gui();
    for(#in,1,9);
     getslotitem(%#in%,&idk,#stack);
     ifmatches(%&idk%,shovel|pickaxe|axe);
     #slotl=%#in%;
     endif;
    next;
   
    look(%&dir%);
    look(,+89);
    key(attack);                   
    unset(nextfloor);
   
    do;            
     #stack=0;
     keyup(forward);
     gui(inventory);
     wait(450ms);
     getslot(372,#fghot);
     getslotitem(35,&id,#stack);
     if(%#fghot%<36);
      slotclick(%#fghot%,l,true);
     endif;
     wait(450ms);
     gui();
    
     if(%#stack%>0);
      #nposx1=%XPOS%; #nposx2=%ZPOS%;
      }$$
      /sethome fungotemp
      $${
      if(%#ch%=1);}$$/home fungobaus1$${endif;if(%#ch%=2);}$$/home fungobaus2$${endif;if(%#ch%=3);}$$/home fungobaus3$${endif;if(%#ch%=4);}$$/home fungobaus4$${endif; 
                        if(%#ch%=5);}$$/home fungobaus5$${endif;if(%#ch%=6);}$$/home fungobaus6$${endif;if(%#ch%=7);}$$/home fungobaus6$${endif;if(%#ch%=8);}$$/home fungobaus8$${endif; 
      if(%#ch%=9);}$$/home fungobaus9$${endif;if(%#ch%=10);}$$/home fungobaus10$${endif;if(%#ch%=11);}$$/home fungobaus11$${endif;if(%#ch%=12);}$$/home fungobaus12$${endif; 
      if(%#ch%=13);}$$/home fungobaus13$${endif;if(%#ch%=14);}$$/home fungobaus14$${endif;if(%#ch%=15);}$$/home fungobaus15$${endif;if(%#ch%=16);}$$/home fungobaus16$${endif;
      if(%#ch%=17);}$$/home fungobaus17$${endif;if(%#ch%=18);}$$/home fungobaus18$${endif;if(%#ch%=19);}$$/home fungobaus19$${endif;if(%#ch%=20);}$$/home fungobaus20$${endif;
      if(%#ch%=21);}$$/home fungobaus21$${endif;if(%#ch%=22);}$$/home fungobaus22$${endif;if(%#ch%=23);}$$/home fungobaus23$${endif;if(%#ch%=24);}$$/home fungobaus24$${endif;      
      if(%#ch%=25);}$$/home fungobaus25$${endif;
      do;until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
      keydown(jump);wait(100ms);keyup(jump);wait(1); 
      &dir=%DIRECTION%;
      ifmatches(%&dir%,N);&dir=NORTH;endif;
      ifmatches(%&dir%,S);&dir=SOUTH;endif;
      ifmatches(%&dir%,E);&dir=EAST;endif;
      ifmatches(%&dir%,W);&dir=WEST;endif;
      do;
       look(%&dir%);
       if(%#nbau%=1);look(+251,+32);endif;
       if(%#nbau%=2);look(+251,+11);endif;
       if(%#nbau%=3);look(+251,+338);endif;
       if(%#nbau%=4);look(+251,+315);endif;
       if(%#nbau%=5);look(+313,+29);endif;
       if(%#nbau%=6);look(+307,+6);endif;
       if(%#nbau%=7);look(+308,+345);endif;
       if(%#nbau%=8);look(+310,+320);endif;
       if(%#nbau%=9);look(+350,+23);endif;
       if(%#nbau%=10);look(+335,+6);endif;
       if(%#nbau%=11);look(+351,+342);endif;
       if(%#nbau%=12);look(+352,+326);endif;
       if(%#nbau%=13);look(+388,+21);endif;
       if(%#nbau%=14);look(+387,+5);endif;
       if(%#nbau%=15);look(+389,+346);endif;
       if(%#nbau%=16);look(+389,+331);endif;
       if(%#nbau%=17);look(+422,+19);endif;
       if(%#nbau%=18);look(+426,+4);endif;
       if(%#nbau%=19);look(+426,+348);endif;
       if(%#nbau%=20);look(+425,+329);endif;
       if(%#nbau%=21);look(+455,+26);endif;
       if(%#nbau%=22);look(+454,+7);endif;
       if(%#nbau%=23);look(+457,+347);endif;
       if(%#nbau%=24);look(+359,+329);endif;
  
       wait(1);
       key(use);
       wait(4);
       for(#i,54,87);
        getslotitem(%#i%,&ide,#stacke);
       ifmatches(%&ide%,nether_wart);
        slotclick(%#i%,l,true);
        wait(30ms);
       endif;                        
       next;
       wait(250ms);
       getslotitem(53,&id,#stack);
       wait(250ms);
       if(%#stack%!=0);
        #nbau=%#nbau%+1;
        if(%#nbau%=25);
         unset(@neth3);
         log("&d» &6Baús cheios?");
         if(%#ch%<25);
          #ch=%#ch%+1;
          log("&d» &6Próximo conjunto de baús! (%#ch%)");
          #nbau=1;
          if(%#ch%=1);}$$/home fungobaus1$${endif;if(%#ch%=2);}$$/home fungobaus2$${endif;if(%#ch%=3);}$$/home fungobaus3$${endif;if(%#ch%=4);}$$/home fungobaus4$${endif; 
          if(%#ch%=5);}$$/home fungobaus5$${endif;if(%#ch%=6);}$$/home fungobaus6$${endif;if(%#ch%=7);}$$/home fungobaus6$${endif;if(%#ch%=8);}$$/home fungobaus8$${endif; 
          if(%#ch%=9);}$$/home fungobaus9$${endif;if(%#ch%=10);}$$/home fungobaus10$${endif;if(%#ch%=11);}$$/home fungobaus11$${endif;if(%#ch%=12);}$$/home fungobaus12$${endif; 
          if(%#ch%=13);}$$/home fungobaus13$${endif;if(%#ch%=14);}$$/home fungobaus14$${endif;if(%#ch%=15);}$$/home fungobaus15$${endif;if(%#ch%=16);}$$/home fungobaus16$${endif;
          if(%#ch%=17);}$$/home fungobaus17$${endif;if(%#ch%=18);}$$/home fungobaus18$${endif;if(%#ch%=19);}$$/home fungobaus19$${endif;if(%#ch%=20);}$$/home fungobaus20$${endif;
          if(%#ch%=21);}$$/home fungobaus21$${endif;if(%#ch%=22);}$$/home fungobaus22$${endif;if(%#ch%=23);}$$/home fungobaus23$${endif;if(%#ch%=24);}$$/home fungobaus24$${endif;      
          if(%#ch%=25);}$$/home fungobaus25$${endif;                  
          do;until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3);
          keydown(jump);wait(100ms);keyup(jump);wait(1); 
          &dir=%DIRECTION%;
          ifmatches(%&dir%,N);&dir=NORTH;endif;
          ifmatches(%&dir%,S);&dir=SOUTH;endif;
          ifmatches(%&dir%,E);&dir=EAST;endif;
          ifmatches(%&dir%,W);&dir=WEST;endif;
          else;
          log("&d» &6Limite de baús!"); 
          log("&d» &6Plantação Automática &c[OFF]"); 
          stop();
         endif;
        endif;
       endif;
       gui();
      until(%#stack%=0); 
      }$$
      /home fungotemp
      $${
      wait(%#delay%);
      keydown(jump);wait(100ms);keyup(jump);wait(1);     
      else;
      gui();
     endif; 
                                                   
     do;
      &dir=%DIRECTION%;
      ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
      ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
      ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
      ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;
    
      ifmatches(%GUI%,chat|inventory);
       keyup(forward);
       log(&d» &6Chat ou inventório detectado. &3Macro pausado!);
       do;
        ifmatches(%GUI%,CHAT|INVENTORY);
         else;
         #g=0;
        endif;
       until(%#g%=0);
       #g=1;
       log(&d» &6Chat ou inventório fechado. &3Continuando!);
      endif;                             
     
      if(KEY_P);
       keyup(forward);
       wait(200ms);
       #nposx1=%XPOS%;#nposx2=%ZPOS%;
       }$$
       /sethome fungotemp
       $${
       log(&d» &6Plantação automática &3interrompida&6!);
       log(&d» &6Para continuar, segure a &3tecla P &6por 3 segundos!);
       do;
        if(KEY_P);
         wait(3);
         if(KEY_P);
          wait(200ms);
          if(KEY_P);
           set(resume);
          endif;
         endif;
        endif;
       until(resume);
       unset(resume);
       }$$
       /home fungotemp
       $${
       log("&d» &6Plantação automática &3retomada&6!");
       log("&d» &6Não mexa o mouse, oki? &3:)");
       do;until((%XPOS%=%#nposx1%)&&(%ZPOS%=%#nposx2%));
       wait(2);
      endif;     
     
      &dir=%DIRECTION%;
      ifmatches(%&dir%,N);&dir=NORTH;endif;
      ifmatches(%&dir%,S);&dir=SOUTH;endif;
      ifmatches(%&dir%,E);&dir=EAST;endif;
      ifmatches(%&dir%,W);&dir=WEST;endif;
     
      look(%&dir%);
      look(,+89);
      #nposx1=%XPOS%; #nposx2=%ZPOS%;
      do;
       keydown(forward);
       pick(nether_wart);
       key(use);
       getidrel(%&x%,+0,%&z%,&blockd);
       getidrel(%&x%,+1,%&z%,&blocku);
       ifmatches(%&blockd%,soul_sand);#cond1=0;else;#cond1=1;endif;
       ifmatches(%&blocku%,nether_wart);#cond2=0;else;#cond2=1;endif;
       ifmatches(%&blocku%,air);#cond3=0;else;#cond3=1;endif;
      until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%)|(%#cond1%=1)|(%#cond2%=1)&&(%#cond3%=1));
      slot(%#slotl%);
      if(%HITDATA%>2);key(attack);endif;
      ifmatches(%&blockd%,soul_sand);#cond1=0;else;#cond1=1;endif;
      ifmatches(%&blocku%,nether_wart);#cond2=0;else;#cond2=1;endif;
      ifmatches(%&blocku%,air);#cond3=0;else;#cond3=1;endif;
     until((%#cond1%=1)|((%#cond2%=1)&&(%#cond3%=1)));
   
     key(use);
     keyup(forward);
                          
     if(first);
      getidrel(%&x1%,+0,%&z1%,&block1);getidrel(%&x2%,+0,%&z2%,&block2);
      getidrel(%&x1%,+1,%&z1%,&block3);getidrel(%&x2%,+1,%&z2%,&block4);                        
      ifmatches(%&block1%,soul_sand);&sn=-;endif;ifmatches(%&block3%,soul_sand);&sn=-;endif;
      ifmatches(%&block2%,soul_sand);&sn=+;endif;ifmatches(%&block4%,soul_sand);&sn=+;endif;
      &dirc=%DIRECTION%;                     
      ifmatches(%&sn%,[\+]);&sn1=+;&sn2=-;endif;
      ifmatches(%&sn%,[\-]);&sn1=-;&sn2=+;endif;
      unset(first);
     endif;
               
     &dir=%DIRECTION%;                                              
     ifmatches(%&dirc%,N);ifmatches(%&dir%,N);&sn=%&sn1%;endif;ifmatches(%&dir%,S);&sn=%&sn2%;endif;endif;
     ifmatches(%&dirc%,S);ifmatches(%&dir%,N);&sn=%&sn2%;endif;ifmatches(%&dir%,S);&sn=%&sn1%;endif;endif;
     ifmatches(%&dirc%,W);ifmatches(%&dir%,W);&sn=%&sn1%;endif;ifmatches(%&dir%,E);&sn=%&sn2%;endif;endif;
     ifmatches(%&dirc%,E);ifmatches(%&dir%,W);&sn=%&sn2%;endif;ifmatches(%&dir%,E);&sn=%&sn1%;endif;endif;  
    
     look(%&sn%90,);
     wait(100ms);
    
     &dir=%DIRECTION%;
     ifmatches(%&dir%,N);&dir=NORTH;&z=-1;&x=+0;&z1=+0;&z2=+0;&x1=-1;&x2=+1;endif;
     ifmatches(%&dir%,S);&dir=SOUTH;&z=+1;&x=+0;&z1=+0;&z2=+0;&x1=+1;&x2=-1;endif;
     ifmatches(%&dir%,E);&dir=EAST;&z=+0;&x=+1;&x1=+0;&x2=+0;&z1=-1;&z2=+1;endif;
     ifmatches(%&dir%,W);&dir=WEST;&z=+0;&x=-1;&x1=+0;&x2=+0;&z1=+1;&z2=-1;endif;
    
     getidrel(%&x%,+0,%&z%,&block1);
     getidrel(%&x%,+1,%&z%,&block3);
                                       
     #rf=0;
     ifmatches(%&block3%,air);else;inc(#rf,1);endif;
     ifmatches(%&block3%,nether_wart);else;inc(#rf,1);endif;
     ifmatches(%&block1%,soul_sand);else;#rf=2;endif;
     endif;
                                                                                                                   
     if(%#rf%=2);                         
      else;                                  
      #nposx1 = %XPOS%; #nposx2 = %ZPOS%;
      do;
       keydown(forward);
       pick(nether_wart);
       key(use);
      until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));
      keyup(forward);
      key(attack);
      look(%&sn%90,);
     endif;
    until(%#rf%=2);      
    keyup(FORWARD);
   next;
   #flror=1;  
  loop;
endif;
}$$




Um comentário:

  1. Precisamos que você ponha o código do macro aqui nesta postagem, não exclua o post, só acrescente o código e as informações pertinentes a ele. Obrigado. ;)

    ResponderExcluir