API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 21st, 2019
65
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.46 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. if(fungo);
  3. log("");
  4. log(&7[!] Desligando &bAuto_Farm_Fungo &7[!]);
  5. log("");
  6. unset(fungo);stop();
  7. else;
  8. set(fungo);
  9. log("");
  10. log(&7[!] Ligando &bAuto_Farm_Fungo &7[!]);
  11. log("");
  12. wait(50ms);#fungo=372;#nbf=1;
  13. prompt(#sell,$$?,"Deseja vender os fungos? R: 1=Sim 2=Nao");
  14. wait(50ms);
  15. if(%#sell%=1);&v=allow;endif;
  16. if(%#sell%=2);&v=deny;
  17. log("");
  18. log("&7[!] Os fungos serao guardados na home &6baus &7{!]);
  19. endif;
  20. log("");
  21. log(&7[!] &fmacro.config: &bsell=&6%&v% &7[!]);
  22. log("");
  23. wait(1);
  24. prompt(#and,$$?,"Quantos andares sua farm possui?");wait(50ms);
  25. log("");
  26. log(&7[!] &fmacro.config: &bandares=&6%#and% &7[!]);
  27. log("");
  28. wait(1);
  29. prompt(#cmcc,$$?,"Deseja começar em qual andar?");
  30. #cmc=%#cmcc%;
  31. wait(50ms);
  32. log("");
  33. log(&7[!] &fmacro.config: &bcomeço=&6%#cmc% &7[!]);
  34. log("");
  35. wait(1);
  36. echo(/home fungo%#cmc%);echo(/desbugar);
  37. wait(1);echo(/g auto-fungo by:mateeus_);
  38. look(north);look(+0,+90);
  39. do;
  40. do;
  41. #ida=0;
  42. slot(9);look(0,90);
  43. wait(50ms);
  44. if(%HITDATA%>=3);
  45. key(attack);
  46. wait(50ms);
  47. endif;
  48. pick(%#fungo%);
  49. wait(10ms);key(use);
  50. getidrel(0,0,-1,#blc);
  51. if(%#blc%=88);
  52. #zp=%ZPOS%-1;
  53. do;
  54. keydown(forward);
  55. until(%ZPOS%=%#zp%);
  56. keyup(forward);
  57. else;
  58. wait(1);
  59. gui(inventory);wait(1);
  60. getslotitem(33,#hh,#hhh);
  61. gui();
  62. if(%#hh%>0);
  63. echo(/sethome stop);
  64. log("");
  65. log(&7[!] Inventário cheio [!]);
  66. log("");
  67. if(%#sell%=1)
  68. log(&7[!] Indo para &6Lojavip &7[!]);
  69. wait(1);
  70. echo(/warp lojavip);
  71. wait(5);echo(/desbugar);wait(1);echo(/desbugar);
  72. look(WEST);walkto(-288,52,-1002);wait(100ms);
  73. look(NORTH);walkto(-286,52,-1024);wait(100ms);
  74. look(EAST);wait(100ms);key(attack);wait(500ms);
  75. key(attack);wait(1);echo(/home stop);wait(3);echo(/desbugar);#ida=1;
  76. endif;
  77. if(%#sell%=2);
  78. echo(/home baus);
  79. wait(1);echo(/desbugar);
  80.  
  81. &dir=%DIRECTION%;
  82. ifmatches(%&dir&,N);&dir=NORTH;endif;
  83. ifmatches(%&dir%,S);&dir=SOUTH;endif;
  84. ifmatches(%&dir%,E);&dir=EAST;endif;
  85. ifmatches(%&dir%,W);&dir=WEST;endif;
  86.  
  87. wait(1);
  88. do;
  89. look(%&dir%);
  90. if(%#nbf%=1);look(-123,-26);endif;
  91. if(%#nbf%=2);look(-90,-31);endif;
  92. if(%#nbf%=3);look(-58,-25);endif;
  93. if(%#nbf%=4);look(-123,0);endif;
  94. if(%#nbf%=5);look(-90,0);endif;
  95. if(%#nbf%=6);look(-57,0);endif;
  96. if(%#nbf%=7);look(-123,+29);endif;
  97. if(%#nbf%=8);look(-90,+33);endif;
  98. if(%#nbf%=9);look(-58,+29);endif;
  99. if(%#nbf%=10);look(-33,-24);endif;
  100. if(%#nbf%=11);look(0,-30);endif;
  101. if(%#nbf%=12);look(+31,-27);endif;
  102. if(%#nbf%=13);look(-33,0);endif;
  103. if(%#nbf%=14);look(%&cbl%);endif;
  104. if(%#nbf%=15);look(+31,0);endif;
  105. if(%#nbf%=16);look(-33,+28);endif;
  106. if(%#nbf%=17);look(-1,+33);endif;
  107. if(%#nbf%=18);look(+32,+29);endif;
  108. if(%#nbf%=19);look(+57,-27);endif;
  109. if(%#nbf%=20);look(+89,-32);endif;
  110. if(%#nbf%=21);look(+122,-26);endif;
  111. if(%#nbf%=22);look(+57,0);endif;
  112. if(%#nbf%=23);look(+90,0);endif;
  113. if(%#nbf%=24);look(+122,0);endif;
  114. if(%#nbf%=25);look(+57,+28);endif;
  115. if(%#nbf%=26);look(+89,+32);endif;
  116. if(%#nbp%=27);look(+122,+28);endif;
  117. do;ifmatches(%GUI%,GUICHEST);break;endif;key(use);wait(250ms);loop;
  118. wait(2);#c=0;
  119. for(#count,0,53);
  120. getslotitem(%#count%,#cc,#ccc);
  121. if(%#cc%=0);inc(#c,1);endif;
  122. next;
  123. if(%#c%=0);inc(#nbf);
  124. else;
  125. #f=0;
  126. for(#up,54,89);
  127. getslotitem(%#up%,#uu,#uuu);
  128. if(%#uu%=%#fungo%);
  129. inc(#f,1);
  130. endif;
  131. next;
  132. #all=0;
  133. if(%#c%<%#f%);inc(#nbf,1);else;#all=1;endif;
  134. for(#uup,54,89);
  135. getslotitem(%#uup%,#pp,#ppp);
  136. if(%#pp%=%#fungo%);
  137. slotclick(%#uup%,l,true);
  138. endif;
  139. wait(60ms);
  140. next;
  141. endif;
  142. until(%#all%=1);
  143. echo(/home stop);wait(3);echo(/desbugar);#ida=1;
  144. endif;
  145. else;
  146. #ida=1;
  147. endif;
  148. endif;
  149. until(%#ida%=1);
  150. #xp=%XPOS%+1;
  151. getidrel(+1,0,0,#drt);
  152. if(%#drt%=88);
  153. do;
  154. keydown(right);
  155. until(%XPOS%=%#xp%);wait(100ms);
  156. keyup(right);wait(500ms);
  157. do;
  158. #volta=0;
  159. slot(9);look(0,90);
  160. wait(50ms);
  161. if(%HITDATA%>=3);
  162. key(attack);
  163. wait(50ms);
  164. endif;
  165. pick(%#fungo%);
  166. wait(10ms);key(use);
  167. getidrel(0,0,+1,#blc);
  168. if(%#blc%=88);
  169. #zp=%ZPOS%+1;
  170. do;
  171. keydown(back);
  172. until(%ZPOS%=%#zp%);
  173. keyup(back);
  174. else;
  175. wait(1);#inv=0;
  176. gui(inventory);wait(1);
  177. getslotitem(33,#nn,#nnn);
  178. gui();
  179. if(%#nn%>0);
  180. echo(/sethome stop);
  181. log("");
  182. log(&7[!] Inventário cheio [!]);
  183. log("");
  184. if(%#sell%=1)
  185. log(&7[!] Indo para &6Lojavip &7[!]);
  186. wait(1);
  187. echo(/warp lojavip);
  188. wait(5);echo(/desbugar);wait(1);echo(/desbugar);
  189. look(WEST);walkto(-288,52,-1002);wait(100ms);
  190. look(NORTH);walkto(-286,52,-1024);wait(100ms);
  191. look(EAST);wait(100ms);key(attack);wait(500ms);
  192. key(attack);wait(1);echo(/home stop);wait(3);echo(/desbugar);#volta=1;
  193. endif;
  194. if(%#sell%=2);
  195. echo(/home baus);
  196. wait(1);echo(/desbugar);
  197.  
  198. &dir=%DIRECTION%;
  199. ifmatches(%&dir&,N);&dir=NORTH;endif;
  200. ifmatches(%&dir%,S);&dir=SOUTH;endif;
  201. ifmatches(%&dir%,E);&dir=EAST;endif;
  202. ifmatches(%&dir%,W);&dir=WEST;endif;
  203.  
  204. wait(1);
  205. do;
  206. look(%&dir%);
  207. if(%#nbf%=1);look(-123,-26);endif;
  208. if(%#nbf%=2);look(-90,-31);endif;
  209. if(%#nbf%=3);look(-58,-25);endif;
  210. if(%#nbf%=4);look(-123,0);endif;
  211. if(%#nbf%=5);look(-90,0);endif;
  212. if(%#nbf%=6);look(-57,0);endif;
  213. if(%#nbf%=7);look(-123,+29);endif;
  214. if(%#nbf%=8);look(-90,+33);endif;
  215. if(%#nbf%=9);look(-58,+29);endif;
  216. if(%#nbf%=10);look(-33,-24);endif;
  217. if(%#nbf%=11);look(0,-30);endif;
  218. if(%#nbf%=12);look(+31,-27);endif;
  219. if(%#nbf%=13);look(-33,0);endif;
  220. if(%#nbf%=14);look(%&cbl%);endif;
  221. if(%#nbf%=15);look(+31,0);endif;
  222. if(%#nbf%=16);look(-33,+28);endif;
  223. if(%#nbf%=17);look(-1,+33);endif;
  224. if(%#nbf%=18);look(+32,+29);endif;
  225. if(%#nbf%=19);look(+57,-27);endif;
  226. if(%#nbf%=20);look(+89,-32);endif;
  227. if(%#nbf%=21);look(+122,-26);endif;
  228. if(%#nbf%=22);look(+57,0);endif;
  229. if(%#nbf%=23);look(+90,0);endif;
  230. if(%#nbf%=24);look(+122,0);endif;
  231. if(%#nbf%=25);look(+57,+28);endif;
  232. if(%#nbf%=26);look(+89,+32);endif;
  233. if(%#nbp%=27);look(+122,+28);endif;
  234. do;ifmatches(%GUI%,GUICHEST);break;endif;key(use);wait(250ms);loop;
  235. wait(2);#c=0;
  236. for(#count,0,53);
  237. getslotitem(%#count%,#cc,#ccc);
  238. if(%#cc%=0);inc(#c,1);endif;
  239. next;
  240. if(%#c%=0);inc(#nbf,1);
  241. else;
  242. #f=0;
  243. for(#up,54,89);
  244. getslotitem(%#up%,#uu,#uuu);
  245. if(%#uu%=%#fungo%);
  246. inc(#f,1);
  247. endif;
  248. next;
  249. #all=0;
  250. if(%#c%<%#f%);inc(#nbf,1);else;#all=1;endif;
  251. for(#uup,54,89);
  252. getslotitem(%#uup%,#pp,#ppp);
  253. if(%#pp%=%#fungo%);
  254. slotclick(%#uup%,l,true);
  255. endif;
  256. wait(60ms);
  257. next;
  258. endif;
  259. until(%#all%=1);
  260. echo(/home stop);wait(3);echo(/desbugar);#volta=1;
  261. endif;
  262. else;
  263. #volta=1;
  264. endif;
  265. endif;
  266. until(%#volta%=1);
  267. #xp=%XPOS%+1;
  268. getidrel(+1,0,0,#drt);
  269. if(%#drt%=88);
  270. do;
  271. keydown(right);
  272. until(%XPOS%=%#xp%);wait(100ms);
  273. keyup(right);wait(500ms);
  274. endif;
  275. else;
  276. inc(#cmc,1);
  277. echo(/home fungo%#cmc%);wait(3);echo(/desbugar);
  278. endif;
  279. if(%#cmc%=%#and%+1);
  280. #cmc=%#cmcc%;
  281. endif;
  282. loop;
  283. endif;
  284. }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!