Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $${
- IF(@reparco);
- LOG("&6[Il-RepArco] &cDesligada");
- ACHIEVEMENTGET(by Infiel);
- UNSET(@reparco);
- STOP;
- ELSE;
- LOG("&6[Il-RepArco] &aLigada");
- ACHIEVEMENTGET(by Infiel);
- SET(@reparco);
- PROMPT(#totaldehomesbaus,$$?,"Quantas homes?(fileiras)");
- IF(%#totaldehomesbaus%="");
- LOG("&6[Il-RepArco] &cNada no campo de resposta");
- LOG("&6[Il-RepArco] &cDesligada");
- ACHIEVEMENTGET(by Infiel);
- UNSET(@reparco);
- STOP;
- ENDIF;
- SET(#olharbau,"1");
- SET(#homebaus,"1");
- SET(&repararouprocurar,"");
- SET(#slotrep,"0");
- SET(#acabouorep,"0");
- SET(#comproulinhas,"0");
- SET(#unbug,"0");
- SET(#comprarlinha,"0");
- SET(#homerep,"0");
- SET(#liberarhome,"0");
- DO;
- IF(%#comprarlinha%=0);
- GUI(INVENTORY);
- ECHO("/home clinhas");
- WAIT(1);
- ECHO("/menuloja off");
- GUI(INVENTORY);
- SLOTCLICK(9,l,true);
- SLOTCLICK(10,l,true);
- SLOTCLICK(11,l,true);
- KEYDOWN(SNEAK);
- DO;
- GETSLOTITEM(38,&id,#stack);
- IF(%#stack%>=1);
- SET(#comproulinhas,"1");
- ELSE;
- KEY(USE);
- WAIT(200MS);
- ENDIF;
- UNTIL(%#comproulinhas%=1);
- KEYUP(SNEAK);
- SET(#comproulinhas,"0");
- SLOTCLICK(36,l,true);
- SLOTCLICK(37,l,true);
- SLOTCLICK(38,l,true);
- SET(#comprarlinha,"1");
- ENDIF;
- IF(%#olharbau%>=7);
- SET(#olharbau,"1");
- INC(#homebaus);
- SET(#liberarhome,"0");
- ENDIF;
- IF(%#homebaus%>%#totaldehomesbaus%);
- LOG("&6[Il-RepArco] &cAcabou as fileiras de baus.");
- LOG("&6[Il-RepArco] &cDesligada");
- ACHIEVEMENTGET(by Infiel);
- UNSET(@reparco);
- STOP;
- ENDIF;
- IF(%#liberarhome%=0);
- ECHO("/home fileira%#homebaus%");
- SET(#liberarhome,"1");
- ENDIF;
- DO;
- IF(%#olharbau%=1);
- LOOK(NORTH);
- LOOK(,55);
- ELSEIF(%#olharbau%=2);
- LOOK(NORTH);
- LOOK(,40);
- ELSEIF(%#olharbau%=3);
- LOOK(NORTH);
- LOOK(,5);
- ELSEIF(%#olharbau%=4);
- LOOK(NORTH);
- LOOK(,-30);
- ELSEIF(%#olharbau%=5);
- LOOK(NORTH);
- LOOK(,-50);
- ELSEIF(%#olharbau%=6);
- LOOK(NORTH);
- LOOK(,-60);
- ENDIF;
- KEY(USE);
- WAIT(500MS);
- UNTIL(%GUI%="GUICHEST");
- FOR(#i,0,53);
- GETSLOTITEM(%#i%,&id,#stack);
- IF(%&id%="bow");
- SLOTCLICK(%#i%,l,true);
- ELSE;
- ENDIF;
- NEXT;
- GETSLOTITEM(57,&id,#stack);
- IF(%#stack%>=1);
- SET(&repararouprocurar,"reparar");
- SET(#liberarhome,"0");
- ELSE;
- GUI;
- INC(#olharbau);
- SET(&repararouprocurar,"");
- ENDIF;
- IF(%&repararouprocurar%="reparar");
- DO;
- DO(1);
- GUI(INVENTORY);
- FOR(#i,9,35);
- GETSLOTITEM(%#i%,&id,#stack);
- IF(%&id%="bow");
- SLOTCLICK(%#i%,l,true);
- ELSE;
- ENDIF;
- NEXT;
- LOOP;
- GETSLOTITEM(36,&id,#stack);
- IF(%#stack%<=0);
- SET(#acabouorep,"1");
- ELSE;
- IF(%#homerep%=0);
- GUI;
- ECHO("/home rep");
- WAIT(1);
- SET(#homerep,1);
- ENDIF;
- DO;
- INC(#slotrep);
- LOOK(SOUTH);
- LOOK(,90);
- SLOT(%#slotrep%);
- IF(%ITEM%!="bow");
- INC(#slotrep);
- ENDIF;
- SLOT(%#slotrep%);
- DO;
- KEY(USE);
- WAIT(1.0);
- INC(#unbug);
- UNTIL((%DURABILITY%>=380)||(%#unbug%=>100)||(%DURABILITY%=0));
- SET(#unbug,"0");
- UNTIL(%#slotrep%>=10);
- SET(#slotrep,"0");
- LOOK(NORTH);
- LOOK(,0);
- GUI(INVENTORY);
- FOR(#i,36,45);
- GETSLOTITEM(%#i%,&id);
- IF(%&id%="air");
- ELSE;
- SLOTCLICK(%#i%,l,false);
- WAIT(200MS);
- SLOTCLICK(-999);
- ENDIF;
- NEXT;
- ENDIF;
- UNTIL(%#acabouorep%=1);
- SET(#acabouorep,"0");
- SET(#homerep,0);
- SET(#comprarlinha,"0");
- ENDIF;
- LOOP;
- ENDIF;
- }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement