API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 6th, 2019
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.80 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. //Macro Mega Fazendeiro para 1.8
  3. //Desenvolvido por Nugou
  4. if(cc)
  5. log(&6[Macro]&b Mega Fazendeiro &4[Off]);
  6. unset(cc);
  7. unset(@rec);
  8. unset(@des);
  9. keyup(forward);
  10. keyup(left);
  11. keyup(right);
  12. unset(sai);
  13. if(!vender);
  14. if(pos);
  15. #xtemp[%#plant%]=%XPOS%;#ztemp[%#plant%]=%ZPOS%;
  16. if(%#plant%=1);}$$/sethome fungotemp$${endif;
  17. if(%#plant%=2);}$$/sethome canatemp$${endif;
  18. if(%#plant%=3);}$$/sethome trigotemp$${endif;
  19. if(%#plant%=4);}$$/sethome cenouratemp$${endif;
  20. if(%#plant%=5);}$$/sethome batatatemp$${endif;
  21. set(reload);
  22. log(&6[Macro]&b Posição salva!);
  23. elseif(reload);
  24. log(&6[Macro]&b Posição não reconhecida);
  25. log(&6[Macro]&b Posição não será salva!);
  26. log(&6[Macro]&b Sua home foi atualizada para antiga posição);
  27. endif;
  28. endif;
  29. stop;
  30. else;
  31. unset(sai);
  32. set(cc);
  33. set(@rec);
  34. set(@pergunta);
  35. @&chave[%@#idp%]=%KEYNAME%;
  36. if(!@des);
  37. unset(reset);for(#i,1,5);unset(p%#i%);set(&at[%#i%],&0Rejeitado);next;#plant=0;
  38. do;
  39. unset(pos);
  40. clearchat;
  41. log(&b ==== &6Qual sua plantação? &b====);
  42. log( &61 &b- &7Plant de &3Fungo &6Status: %&at[1]%);
  43. log( &62 &b- &7Plant de &3Cana &6Status: %&at[2]%);
  44. log( &63 &b- &7Plant de &3Trigo &6Status: %&at[3]%);
  45. log( &64 &b- &7Plant de &3Cenoura &6Status: %&at[4]%);
  46. log( &65 &b- &7Plant de &3Batata &6Status: %&at[5]%);
  47. log( &60 &b- &fContinuar);
  48. if(KEY_1);wait(1t);if(!p1);&item="nether_wart";for(#i,1,5);unset(p%#i%);set(&at[%#i%],&0Rejeitado);next;set(&at[1],&aSelecionado);#plant=1;#piso=1;#piso1=0;#blo=0;set(p1);endif;endif;
  49. if(KEY_2);wait(1t);if(!p2);&item="reeds";for(#i,1,5);unset(p%#i%);set(&at[%#i%],&0Rejeitado);next;set(&at[2],&aSelecionado);#plant=2;#piso=0;#piso1=-1;#blo=-1;set(p2);endif;endif;
  50. if(KEY_3);wait(1t);if(!p3);&item="wheat_seeds";for(#i,1,5);unset(p%#i%);set(&at[%#i%],&0Rejeitado);next;set(&at[3],&aSelecionado);#plant=3;#piso=0;#piso1=-1;#blo=-1;set(p3);endif;endif;
  51. if(KEY_4);wait(1t);if(!p4);&item="carrots";for(#i,1,5);unset(p%#i%);set(&at[%#i%],&0Rejeitado);next;set(&at[4],&aSelecionado);#plant=4;#piso=0;#piso1=-1;#blo=-1;set(p4);endif;endif;
  52. if(KEY_5);wait(1t);if(!p5);&item="potatoes";for(#i,1,5);unset(p%#i%);set(&at[%#i%],&0Rejeitado);next;set(&at[5],&aSelecionado);#plant=5;#piso=0;#piso1=-1;#blo=-1;set(p5);endif;endif;
  53. if(KEY_0);break;endif;
  54. loop;
  55. if(%#plant%=0);
  56. log(&6[Macro]&b Você não seleciono nenhuma opção);
  57. log(&6[Macro]&b Mega Fazendeiro &4[Off]);
  58. unset(cc);
  59. stop;
  60. endif;
  61. wait(500ms);
  62. set(&cor[1],&6&l»);set(&cor[2],&0);unset(p1);unset(vender);
  63. do;
  64. clearchat;
  65. log(&b====&6O que fazer?&b====);
  66. log( &61 &b- %&cor[1]%Colher &f--- %&cor[2]%Vender);
  67. log( &60 &b- &fContinuar);
  68. if(KEY_1);wait(1t);if(!p1);set(&cor[1],&6&l»);set(&cor[2],&0);unset(vender);set(p1);else;set(&cor[1],&0);set(&cor[2],&6&l»);unset(p1);set(vender);endif;endif;
  69. if(KEY_0);break;endif;
  70. loop;
  71. wait(500ms);
  72. endif;
  73. if(!vender);
  74. if(!@des);
  75. if(reload);
  76. unset(reset);set(&cor[1],&6&l»);set(&cor[2],&0);set(p1);set(repos);set(reload);
  77. do;
  78. clearchat;
  79. log(&b====&6Continuar de onde paro?&b====);
  80. log( &61 &b- %&cor[1]%Sim &f--- %&cor[2]%Não );
  81. log( &60 &b- &fContinuar);
  82. if(KEY_1);wait(1t);if(!p1);set(&cor[1],&6&l»);set(&cor[2],&0);unset(reset);set(repos);set(p1);set(reload);else;set(&cor[1],&0);set(&cor[2],&6&l»);unset(p1);unset(reload);set(reset);unset(repos);endif;endif;
  83. if(KEY_0);break;endif;
  84. loop;
  85. endif;
  86. if(reset);
  87. prompt(#andar[%#plant%],$$?,Quantos andares?(ate 6));
  88. if(%#andar[%#plant%]%=0);
  89. log(&6[Macro]&b A quantidade de andar é igual a zero !!!);
  90. log(&6[Macro]&b Finalizando macro ....);
  91. unset(cc);
  92. set(reload);
  93. unset(pos);
  94. stop;
  95. endif;
  96. if(%#andar[%#plant%]%>6);
  97. log(&6[Macro]&b A quantidade de andar é maior que 6 !!!);
  98. log(&6[Macro]&b Finalizando macro ....);
  99. unset(cc);
  100. set(reload);
  101. unset(pos);
  102. stop;
  103. endif;
  104. if(%#andar[%#plant%]%>1);
  105. prompt(#nt[%#plant%],$$?,Deseja começar por qual andar?);
  106. else;
  107. #nt[%#plant%]=1;
  108. endif;
  109. if(%#nt[%#plant%]%>%#andar[%#plant%]%);
  110. log(&6[Macro]&b O andar selecionado é maior que a quantidade de andar !!!);
  111. log(&6[Macro]&b Finalizando macro ....);
  112. unset(cc);
  113. set(reload);
  114. unset(pos);
  115. stop;
  116. endif;
  117. if(%#nt[%#plant%]%=0);
  118. log(&6[Macro]&b O andar selecionado é igual a zero !!!);
  119. log(&6[Macro]&b Finalizando macro ....);
  120. unset(cc);
  121. set(reload);
  122. unset(pos);
  123. stop;
  124. endif;
  125. #rod=1;
  126. endif;
  127. set(pos);
  128. #fil=1;
  129. #bau=4;
  130. #temp=0;
  131. &det="air|stone_slab|wooden_slab|sandstone_slab|cobblestone_slab|brick_slab|stone_brick_slab|nether_brick_slab|quartz_slab|reeds|nether_wart|wheat|carrots|potatoes";
  132. &terrain="grass|sand|soul_sand|dirt|farmland";
  133. log(&6[Macro]&b Mega Fazendeiro &2[On]);
  134. for(#i,1,9);
  135. getslotitem(%#i%,&id);
  136. ifmatches(%&id%,pickaxe|axe);
  137. &fer=%&id%;
  138. break;
  139. endif;
  140. next;
  141. endif;
  142. do;
  143. do;
  144. #x=%XPOS%;#z=%ZPOS%;wait(100ms);
  145. if(repos);
  146. do(2);
  147. if(%#plant%=1);}$$/home fungotemp$${endif;
  148. if(%#plant%=2);}$$/home canatemp$${endif;
  149. if(%#plant%=3);}$$/home trigotemp$${endif;
  150. if(%#plant%=4);}$$/home cenouratemp$${endif;
  151. if(%#plant%=5);}$$/home batatatemp$${endif;
  152. wait(10);
  153. until((%XPOS%=%#xtemp[%#plant%]%)&&(%ZPOS%=%#ztemp[%#plant%]%));
  154. wait(500ms);
  155. unset(repos);
  156. else;
  157. if(%#nt[%#plant%]%=1);if(%#plant%=1);}$$/home fungo1$${elseif(%#plant%=2);}$$/home cana1$${elseif(%#plant%=3);}$$/home trigo1$${elseif(%#plant%=4);}$$/home cenoura1$${elseif(%#plant%=5);}$$/home batata1$${endif;endif;
  158. if(%#nt[%#plant%]%=2);if(%#plant%=1);}$$/home fungo2$${elseif(%#plant%=2);}$$/home cana2$${elseif(%#plant%=3);}$$/home trigo2$${elseif(%#plant%=4);}$$/home cenoura2$${elseif(%#plant%=5);}$$/home batata2$${endif;endif;
  159. if(%#nt[%#plant%]%=3);if(%#plant%=1);}$$/home fungo3$${elseif(%#plant%=2);}$$/home cana3$${elseif(%#plant%=3);}$$/home trigo3$${elseif(%#plant%=4);}$$/home cenoura3$${elseif(%#plant%=5);}$$/home batata3$${endif;endif;
  160. if(%#nt[%#plant%]%=4);if(%#plant%=1);}$$/home fungo4$${elseif(%#plant%=2);}$$/home cana4$${elseif(%#plant%=3);}$$/home trigo4$${elseif(%#plant%=4);}$$/home cenoura4$${elseif(%#plant%=5);}$$/home batata4$${endif;endif;
  161. if(%#nt[%#plant%]%=5);if(%#plant%=1);}$$/home fungo5$${elseif(%#plant%=2);}$$/home cana5$${elseif(%#plant%=3);}$$/home trigo5$${elseif(%#plant%=4);}$$/home cenoura5$${elseif(%#plant%=5);}$$/home batata5$${endif;endif;
  162. if(%#nt[%#plant%]%=6);if(%#plant%=1);}$$/home fungo6$${elseif(%#plant%=2);}$$/home cana6$${elseif(%#plant%=3);}$$/home trigo6$${elseif(%#plant%=4);}$$/home cenoura6$${elseif(%#plant%=5);}$$/home batata6$${endif;endif;
  163. do(2);log(&6[Macro]&b Teleportando....);wait(5);until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
  164. wait(1);
  165. #xtemp[%#plant%]=%XPOS%;#ztemp[%#plant%]=%ZPOS%;
  166. if(%#plant%=1);}$$/sethome fungotemp$${endif;
  167. if(%#plant%=2);}$$/sethome canatemp$${endif;
  168. if(%#plant%=3);}$$/sethome trigotemp$${endif;
  169. if(%#plant%=4);}$$/sethome cenouratemp$${endif;
  170. if(%#plant%=5);}$$/sethome batatatemp$${endif;
  171. endif;
  172. #xf=%XPOS%;#zf=%ZPOS%;
  173. if(%#plant%=1);
  174. #temp´=0;
  175. do;
  176. keydown(forward);
  177. inc(#temp);
  178. if(%#temp%=25);
  179. break;
  180. endif;
  181. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  182. #temp=0;
  183. wait(500ms);
  184. keyup(forward);
  185. wait(1);
  186. #xf=%XPOS%;#zf=%ZPOS%;
  187. do;
  188. keydown(back);
  189. keydown(w);
  190. inc(#temp);
  191. if(%#temp%=50);
  192. break;
  193. endif;
  194. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  195. #temp=0;
  196. if(%#plant%=1);wait(10t);else;wait(5t);endif;
  197. keyup(back);
  198. else;
  199. do(3);wait(5t);loop;
  200.  
  201. endif;
  202. wait(1);
  203. if(!reload);
  204. ifmatches(%DIRECTION%,N);&dir=NORTH;#frente_z[1%#plant%]=-1;#frente_x[1%#plant%]=0;#frente_z[2%#plant%]=1;#frente_x[2%#plant%]=0;endif;
  205. ifmatches(%DIRECTION%,S);&dir=SOUTH;#frente_z[1%#plant%]=1;#frente_x[1%#plant%]=0;#frente_z[2%#plant%]=-1;#frente_x[2%#plant%]=0;endif;
  206. ifmatches(%DIRECTION%,W);&dir=WEST;#frente_z[1%#plant%]=0;#frente_x[1%#plant%]=-1;#frente_z[2%#plant%]=0;#frente_x[2%#plant%]=1;endif;
  207. ifmatches(%DIRECTION%,E);&dir=EAST;#frente_z[1%#plant%]=0;#frente_x[1%#plant%]=1;#frente_z[2%#plant%]=0;#frente_x[2%#plant%]=-1;endif;
  208. look(%&dir%);
  209. //condição primaria
  210. //norte
  211. ifmatches(%&dir%,NORTH);
  212. getidrel(+1,%#piso%,0,&bl1);//direita
  213. getidrel(-1,%#piso%,0,&bl2);//esquerda
  214. ifmatches(%&bl1%,%&det%);
  215. &ld[1%#plant%]=left;
  216. &ld[2%#plant%]=right;
  217. endif;
  218. ifmatches(%&bl2%,%&det%);
  219. &ld[1%#plant%]=right;
  220. &ld[2%#plant%]=left;
  221. endif;
  222. &lok[1%#plant%]=NORTH;
  223. &lok[2%#plant%]=SOUTH;
  224. endif;
  225. //sul
  226. ifmatches(%&dir%,SOUTH);
  227. getidrel(-1,%#piso%,0,&bl1);//direita
  228. getidrel(+1,%#piso%,0,&bl2);//esquerda
  229. ifmatches(%&bl1%,%&det%);
  230. &ld[1%#plant%]=left;
  231. &ld[2%#plant%]=right;
  232. endif;
  233. ifmatches(%&bl2%,%&det%);
  234. &ld[1%#plant%]=right;
  235. &ld[2%#plant%]=left;
  236. endif;
  237. &lok[1%#plant%]=SOUTH;
  238. &lok[2%#plant%]=NORTH;
  239. endif;
  240. //leste
  241. ifmatches(%&dir%,WEST);
  242. getidrel(0,%#piso%,-1,&bl1);//direita
  243. getidrel(0,%#piso%,+1,&bl2);//esquerda
  244. ifmatches(%&bl1%,%&det%);
  245. &ld[1%#plant%]=left;
  246. &ld[2%#plant%]=right;
  247. endif;
  248. ifmatches(%&bl2%,%&det%);
  249. &ld[1%#plant%]=right;
  250. &ld[2%#plant%]=left;
  251. endif;
  252. &lok[1%#plant%]=WEST;
  253. &lok[2%#plant%]=EAST;
  254. endif;
  255. //oeste
  256. ifmatches(%&dir%,EAST);
  257. getidrel(0,%#piso%,+1,&bl1);//direita
  258. getidrel(0,%#piso%,-1,&bl2);//esquerda
  259. ifmatches(%&bl1%,%&det%);
  260. &ld[1%#plant%]=left;
  261. &ld[2%#plant%]=right;
  262. endif;
  263. ifmatches(%&bl2%,%&det%);
  264. &ld[1%#plant%]=right;
  265. &ld[2%#plant%]=left;
  266. endif;
  267. &lok[1%#plant%]=EAST;
  268. &lok[2%#plant%]=WEST;
  269. endif;
  270. endif;
  271. ///////////////////////////////////////////////
  272. ///////////////////////////////////////////////
  273. do;
  274. #xq=%XPOS%;#zq=%ZPOS%;
  275. do;
  276. if(%#plant%!=2);look(%&lok[%#rod%%#plant%]%);look(,90);else;look(%&lok[%#rod%%#plant%]%);endif;
  277. ifmatches(%GUI%,CHAT|INVENTORY);
  278. keyup(forward);
  279. log(&6[Macro]&b Chat ou inventario aberto !!!&6 Feche-o para continuar);
  280. do;until(%GUI%="NONE");
  281. endif;
  282. keydown(forward);
  283. if(%#plant%!=2);
  284. if(%#plant%!=1);keydown(w);endif;
  285. if((%#xq%!=%XPOS%)|(%#zq%!=%ZPOS%));#xq=%XPOS%;#zq=%ZPOS%;pick(%&fer%);key(attack);else;pick(%&item%);key(use);endif;
  286. else;
  287. getidrel(0,0,0,&blc);if((%&blc%!="reeds"));look(,90);wait(50ms);pick(%&item%);key(use);wait(10ms);else;if(%HITID%="reeds");key(attack);endif;endif;
  288. endif;
  289. if(KEY_P);
  290. keyup(forward);
  291. wait(1);
  292. if(KEY_P);
  293. unset(pos);set(reload);
  294. keyup(forward);
  295. #xtemp[%#plant%]=%XPOS%;#ztemp[%#plant%]=%ZPOS%;
  296. if(%#plant%=1);}$$/sethome fungotemp$${endif;
  297. if(%#plant%=2);}$$/sethome canatemp$${endif;
  298. if(%#plant%=3);}$$/sethome trigotemp$${endif;
  299. if(%#plant%=4);}$$/sethome cenouratemp$${endif;
  300. if(%#plant%=5);}$$/sethome batatatemp$${endif;
  301. log(&6[Macro]&b Macro Pausado ....);
  302. log(&6[Macro]&b Aperte &6P &bnovamente para voltar a macro....);
  303. wait(2);
  304. do;
  305. if(KEY_P);
  306. wait(1);
  307. if(KEY_P);
  308. if((%XPOS%=%#xtemp[%#plant%]%)&&(%ZPOS%=%#ztemp[%#plant%]%));
  309. log(&6[Macro]&b Voltando a funcionar !!!);
  310. else;
  311. do(2);
  312. log(&6[Macro]&b Teleportando....);
  313. if(%#plant%=1);}$$/home fungotemp$${endif;
  314. if(%#plant%=2);}$$/home canatemp$${endif;
  315. if(%#plant%=3);}$$/home trigotemp$${endif;
  316. if(%#plant%=4);}$$/home cenouratemp$${endif;
  317. if(%#plant%=5);}$$/home batatatemp$${endif;
  318. wait(10);
  319. until((%XPOS%=%#xtemp[%#plant%]%)&&(%ZPOS%=%#ztemp[%#plant%]%));
  320. if(%#plant%=1);
  321. #xf=%XPOS%;#zf=%ZPOS%;
  322. #temp=0;
  323. do;
  324. keydown(forward);
  325. inc(#temp);
  326. if(%#temp%=25);
  327. break;
  328. endif;
  329. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  330. #temp=0;
  331. wait(125ms);
  332. keyup(forward);;
  333. wait(1);
  334. #xf=%XPOS%;#zf=%ZPOS%;
  335. do;
  336. keydown(back);
  337. inc(#temp);
  338. if(%#temp%=25);
  339. break;
  340. endif;
  341. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  342. #temp=0;
  343. if(%#plant%=1);wait(10t);else;wait(1t);endif;
  344. keyup(back);
  345. else;
  346. do(3);wait(5t);loop;
  347. endif;
  348. endif;
  349. wait(1);
  350. set(pos);unset(reload);
  351. break;
  352. endif;
  353. endif;
  354. loop;
  355. endif;
  356. endif;
  357. getidrel(%#frente_x[%#rod%%#plant%]%,%#piso%,%#frente_z[%#rod%%#plant%]%,&block);
  358. getidrel(%#frente_x[%#rod%%#plant%]%,%#piso1%,%#frente_z[%#rod%%#plant%]%,&block1);
  359. while(((%&block%="nether_wart")|(%&block%="reeds")|(%&block%="wheat")|(%&block%="carrots")|(%&block%="potatoes")|(%&block%="air"))&&((%&block1%="dirt")|(%&block1%="farmland")|(%&block1%="grass")|(%&block1%="sand")|(%&block1%="soul_sand")));
  360. if(%#plant%!=2);key(attack);endif;
  361. keyup(forward);
  362. if(%#plant%=1);getidrel(0,0,0,&piso);else;getidrel(0,-1,0,&piso);endif;
  363. ifmatches(%&piso%,%&terrain%);
  364. look(+180,);
  365. ifmatches(%DIRECTION%,N);#ladox[1]=1;#ladox[2]=-1;#ladoz[1]=0;#ladoz[2]=0;endif;
  366. ifmatches(%DIRECTION%,S);#ladox[1]=-1;#ladox[2]=1;#ladoz[1]=0;#ladoz[2]=0;endif;
  367. ifmatches(%DIRECTION%,W);#ladox[1]=0;#ladox[2]=0;#ladoz[1]=-1;#ladoz[2]=1;endif;
  368. ifmatches(%DIRECTION%,E);#ladox[1]=0;#ladox[2]=0;#ladoz[1]=1;#ladoz[2]=-1;endif;
  369. set(mudar);
  370. for(#i,1,2);
  371. getidrel(%#ladox[%#i%]%,%#blo%,0,&block);
  372. ifmatches(%&block%,air);
  373. unset(mudar);
  374. break;
  375. endif;
  376. getidrel(0,%#blo%,%#ladoz[%#i%]%,&block);
  377. ifmatches(%&block%,air);
  378. unset(mudar);
  379. break;
  380. endif;
  381. next;
  382. if(mudar);
  383. unset(mudar);
  384. do;
  385. #x=%XPOS%;#z=%ZPOS%;#temp=0;
  386. do;
  387. inc(#temp);
  388. if(%#temp%=50);
  389. break;
  390. endif;
  391. keydown(%&ld[%#rod%%#plant%]%);
  392. keydown(sneak);
  393. look(,90);
  394. ifmatches(%HITID%,%&terrain%);key(use);endif;
  395. pick(%&item%);
  396. until((%XPOS%=%#x%+1)|(%XPOS%=%#x%-1)|(%ZPOS%=%#z%+1)|(%ZPOS%=%#z%-1));
  397. getidrel(0,%#blo%,0,&block);
  398. if(%#temp%=50);
  399. break;
  400. else;
  401. #temp=0;
  402. endif;
  403. until((%&block%="soul_sand")|(%&block%="farmland")|(%&block%="dirt")|(%&block%="grass")|(%&block%="sand"));
  404. else;
  405. #temp=50;
  406. endif;
  407. if(%#plant%=1);wait(10t);else;wait(5t);endif;
  408. keyup(%&ld[%#rod%%#plant%]%);
  409. keyup(sneak);
  410. wait(125ms);
  411. if(%#plant%=1);}$$/sethome fungotemp$${endif;
  412. if(%#plant%=2);}$$/sethome canatemp$${endif;
  413. if(%#plant%=3);}$$/sethome trigotemp$${endif;
  414. if(%#plant%=4);}$$/sethome cenouratemp$${endif;
  415. if(%#plant%=5);}$$/sethome batatatemp$${endif;
  416. #xtemp[%#plant%]=%XPOS%;#ztemp[%#plant%]=%ZPOS%;
  417. if(%#rod%=1);#rod=2;else;#rod=1;endif;
  418. else;
  419. do(5);
  420. log(&6[Macro]&b Teleportando....);
  421. if(%#plant%=1);}$$/home fungotemp$${endif;
  422. if(%#plant%=2);}$$/home canatemp$${endif;
  423. if(%#plant%=3);}$$/home trigotemp$${endif;
  424. if(%#plant%=4);}$$/home cenouratemp$${endif;
  425. if(%#plant%=5);}$$/home batatatemp$${endif;
  426. wait(10);
  427. until((%XPOS%=%#xtemp[%#plant%]%)&&(%ZPOS%=%#ztemp[%#plant%]%));
  428. wait(1);
  429. if(%#plant%=1);
  430. #temp=0;
  431. do;
  432. keydown(forward);
  433. inc(#temp);
  434. if(%#temp%=25);
  435. break;
  436. endif;
  437. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  438. #temp=0;
  439. wait(500ms);
  440. keyup(forward);
  441. wait(1);
  442. #xf=%XPOS%;#zf=%ZPOS%;
  443. do;
  444. keydown(back);
  445. keydown(sneak);
  446. inc(#temp);
  447. if(%#temp%=50);
  448. break;
  449. endif;
  450. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  451. if(%#plant%=1);wait(10t);else;wait(2t);endif;
  452. keyup(back);
  453. #temp=0;
  454. keyup(sneak);
  455. else;
  456. do(3);wait(5t);loop;
  457. endif;
  458. wait(1);
  459. endif;
  460. do;gui(inventory);wait(1);until(%GUI%="GUIINVENTORY");
  461. #vazio=0;
  462. for(#i,9,44);
  463. getslotitem(%#i%,&id);
  464. ifmatches(%&id%,"air");
  465. inc(#vazio);
  466. endif;
  467. if((%#i%>=9)&&(%#i%<=35));
  468. ifmatches(%&id%,%&item%);
  469. slotclick(%#i%,l,true);
  470. wait(100ms);
  471. endif;
  472. endif;
  473. next;
  474. if(%#plant%=3);
  475. for(#i,36,44);
  476. getslotitem(%#i%,&id);
  477. if(%&id%="wheat");
  478. slotclick(%#i%,l,true);
  479. wait(70ms);
  480. endif;
  481. next;
  482. for(#i,9,35);
  483. getslotitem(%#i%,&id);
  484. if(%&id%="wheat_seeds");
  485. slotclick(%#i%,l,true);
  486. wait(70ms);
  487. endif;
  488. next;
  489. endif;
  490. if(%#vazio%<4);
  491. do;gui();until(%GUI%="NONE");
  492. #x=%XPOS%;#z=%ZPOS%;
  493. #xtemp[%#plant%]=%XPOS%;#ztemp[%#plant%]=%ZPOS%;
  494. if(%#plant%=1);}$$/sethome fungotemp$${endif;
  495. if(%#plant%=2);}$$/sethome canatemp$${endif;
  496. if(%#plant%=3);}$$/sethome trigotemp$${endif;
  497. if(%#plant%=4);}$$/sethome cenouratemp$${endif;
  498. if(%#plant%=5);}$$/sethome batatatemp$${endif;
  499. log(&6[Macro]&b %#vazio% slot disponivel -- Indo guarda);
  500. do;
  501. log(&6[Macro]&b Teleportando....);
  502. if(%#plant%=1);}$$/home fungobau$${endif;
  503. if(%#plant%=2);}$$/home canabau$${endif;
  504. if(%#plant%=3);}$$/home trigobau$${endif;
  505. if(%#plant%=4);}$$/home cenourabau$${endif;
  506. if(%#plant%=5);}$$/home batatabau$${endif;
  507. wait(10);
  508. until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
  509. unset(pos);set(reload);
  510. do(3);wait(5t);loop;
  511. wait(1);
  512. #x = %XPOS%;
  513. #z = %ZPOS%;
  514. wait(1);
  515. do;
  516. #exit = 0;
  517. do;
  518. ifmatches(%DIRECTION%,N);getidrel(0,%#bau%,-2,&vbau);&dir_bau=North;#pos = %XPOS%;#posf = %#x% + (%#fil% - 1);endif;
  519. ifmatches(%DIRECTION%,S);getidrel(0,%#bau%,2,&vbau);&dir_bau=South;#pos = %XPOS%;#posf = %#x% - (%#fil% - 1);endif;
  520. ifmatches(%DIRECTION%,W);getidrel(-2,%#bau%,0,&vbau);&dir_bau=West;#pos = %ZPOS%;#posf = %#z% - (%#fil% - 1);endif;
  521. ifmatches(%DIRECTION%,E);getidrel(2,%#bau%,0,&vbau);&dir_bau=East;#pos = %ZPOS%;#posf = %#z% + (%#fil% - 1);endif;
  522. look(%&dir_bau%);
  523. if(%#bau% = 4);look(,-62);endif;
  524. if(%#bau% = 3);look(,-50);endif;
  525. if(%#bau% = 2);look(,-25);endif;
  526. if(%#bau% = 1);look(,0);endif;
  527. if(%#bau% = 0);look(,35);endif;
  528. if(%#pos% != %#posf%);keydown(right);keydown(w);endif;
  529. until(%#pos% = %#posf%);
  530. wait(100ms);
  531. keyup(right);
  532. keyup(sneak);
  533. wait(1);
  534. if((%&vbau%="chest")|(%&vbau%="trapped_chest"));
  535. do;
  536. if(%HIT%="PLAYER");random(#r,1,10);#xt = %XPOS%;#zt = %ZPOS%;
  537. do;keydown(sneak);keydown(back);until((%XPOS%=%#xt%-1)|(%XPOS%=%#xt%+1)|(%ZPOS%=%#zt%-1)|(%ZPOS%=%#zt%+1));
  538. keyup(back);wait(%#r%);#xt = %XPOS%;#zt = %ZPOS%;
  539. do;keydown(sneak);keydown(forward);until((%XPOS%=%#xt%-1)|(%XPOS%=%#xt%+1)|(%ZPOS%=%#zt%-1)|(%ZPOS%=%#zt%+1));
  540. keyup(forward);
  541. endif;
  542. key(use);
  543. wait(5);
  544. until(%GUI%="GUICHEST");
  545. wait(1);
  546. #sbv = 0;
  547. for(#i,0,53);
  548. getslotitem(%#i%,&id);
  549. if(%&id% = "air");
  550. #sbv = 1;
  551. break;
  552. endif;
  553. next;
  554. if(%#sbv% = 1);
  555. for(#i,54,89);
  556. getslotitem(%#i%,&id);
  557. ifmatches(%&id%,%&item%|wheat|written_book);
  558. slotclick(%#i%,l,true);
  559. wait(150ms);
  560. endif;
  561. next;
  562. #exit = 0;
  563. for(#i,0,53);
  564. getslotitem(%#i%,&id);
  565. if(%&id% = "air");
  566. #exit = 1;
  567. if(%#plant%!=2);
  568. if(%#plant%!=3);
  569. do(3);slotclick(0,l,true);wait(100ms);loop;
  570. else;
  571. for(#i,0,54);
  572. getslotitem(%#i%,&id);
  573. if(%&id%="wheat_seeds");
  574. slotclick(%#i%,l,true);
  575. wait(100ms);
  576. break;
  577. endif;
  578. next;
  579. endif;
  580. endif;
  581. break;
  582. endif;
  583. next;
  584. if(%#exit% = 0);
  585. dec(#bau);
  586. gui();
  587. if(%#bau% = -1);
  588. #bau = 4;
  589. inc(#fil);
  590. endif;
  591. endif;
  592. gui();
  593. else;
  594. dec(#bau);
  595. if(%#bau% = -1);
  596. #bau = 4;
  597. inc(#fil);
  598. endif;
  599. gui();
  600. endif;
  601. else;
  602. log(&6[Macro] &bAcabo os baus!!!);
  603. log(&6[Macro]&b Mega Fazendeiro &4[Off]);
  604. unset(cc);
  605. stop;
  606. endif;
  607. until(%#exit% = 1);
  608. do(2);
  609. log(&6[Macro]&b Teleportando....);
  610. if(%#plant%=1);}$$/home fungotemp$${endif;
  611. if(%#plant%=2);}$$/home canatemp$${endif;
  612. if(%#plant%=3);}$$/home trigotemp$${endif;
  613. if(%#plant%=4);}$$/home cenouratemp$${endif;
  614. if(%#plant%=5);}$$/home batatatemp$${endif;
  615. wait(10);
  616. until((%#xtemp[%#plant%]%=%XPOS%)&&(%#ztemp[%#plant%]%=%ZPOS%));
  617. wait(1);
  618. #xf=%XPOS%;#zf=%ZPOS%;
  619. if(%#plant%=1);
  620. #temp=0;
  621. do;
  622. keydown(forward);
  623. keydown(sneak);
  624. inc(#temp);
  625. if(%#temp%=25);
  626. break;
  627. endif;
  628. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  629. #temp=0;
  630. wait(500ms);
  631. keyup(forward);
  632. keyup(sneak);
  633. wait(1);
  634. #xf=%XPOS%;#zf=%ZPOS%;
  635. do;
  636. keydown(back);
  637. inc(#temp);
  638. if(%#temp%=50);
  639. break;
  640. endif;
  641. until((%XPOS%=%#xf%+1)|(%XPOS%=%#xf%-1)|(%ZPOS%=%#zf%+1)|(%ZPOS%=%#zf%-1));
  642. #temp=0;
  643. keyup(back);
  644. keyup(sneak);
  645. endif;
  646. set(pos);unset(reload);
  647. else;
  648. do;gui();wait(1);until(%GUI%="NONE");
  649. log(&6[Macro]&b %#vazio% slot disponivel -- continuando a colheita);
  650. endif;
  651. until(%#temp%=50);
  652. inc(#nt[%#plant%]);
  653. until(%#nt[%#plant%]%>%#andar[%#plant%]%);
  654. unset(reload);
  655. log(&6[Macro]&b Fim do ultimo andar !!!);
  656. log(&6[Macro]&b Voltando ao primeiro andar !!!);
  657. #nt[%#plant%]=1;
  658. #rod=1;
  659. loop;
  660. else;
  661. if(%#plant%=1);#xplant=722;endif;
  662. if(%#plant%=2);#xplant=725;endif;
  663. if(%#plant%=3);#xplant=721;endif;
  664. if(%#plant%=4);#xplant=718;endif;
  665. if(%#plant%=5);#xplant=717;endif;
  666. #bau =4;
  667. #fil =1;
  668. if(!@des);
  669. set(&cor[1],&6&l»);set(&cor[2],&0);unset(p1);set(wv);
  670. do;
  671. clearchat;
  672. log(&b====&6Vender na?&b====);
  673. log( &61 &b- %&cor[1]%Warp Vip &f--- %&cor[2]%Warp Loja);
  674. log( &60 &b- &fContinuar);
  675. if(KEY_1);wait(1t);if(!p1);set(&cor[1],&6&l»);set(&cor[2],&0);set(wv);set(p1);else;set(&cor[1],&0);set(&cor[2],&6&l»);unset(p1);unset(wv);endif;endif;
  676. if(KEY_0);break;endif;
  677. loop;
  678. wait(500ms);
  679. endif;
  680. do;
  681. #x=%XPOS%;#z=%ZPOS%;
  682. do(2);
  683. log(&6[Macro]&b Teleportando....);
  684. if(%#plant%=1);}$$/home fungobau$${endif;
  685. if(%#plant%=2);}$$/home canabau$${endif;
  686. if(%#plant%=3);}$$/home trigobau$${endif;
  687. if(%#plant%=4);}$$/home cenourabau$${endif;
  688. if(%#plant%=5);}$$/home batatabau$${endif;
  689. wait(10);
  690. until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
  691. do(3);wait(5t);loop;
  692. wait(1);
  693. #x = %XPOS%;
  694. #z = %ZPOS%;
  695. do;
  696. #exit = 0;
  697. do;
  698. ifmatches(%DIRECTION%,N);getidrel(0,%#bau%,-2,&vbau);&dir_bau=North;#pos = %XPOS%;#posf = %#x% + (%#fil% - 1);endif;
  699. ifmatches(%DIRECTION%,S);getidrel(0,%#bau%,2,&vbau);&dir_bau=South;#pos = %XPOS%;#posf = %#x% - (%#fil% - 1);endif;
  700. ifmatches(%DIRECTION%,W);getidrel(-2,%#bau%,0,&vbau);&dir_bau=West;#pos = %ZPOS%;#posf = %#z% - (%#fil% - 1);endif;
  701. ifmatches(%DIRECTION%,E);getidrel(2,%#bau%,0,&vbau);&dir_bau=East;#pos = %ZPOS%;#posf = %#z% + (%#fil% - 1);endif;
  702. look(%&dir_bau%);
  703. if(%#bau% = 4);look(,-62);endif;
  704. if(%#bau% = 3);look(,-50);endif;
  705. if(%#bau% = 2);look(,-25);endif;
  706. if(%#bau% = 1);look(,0);endif;
  707. if(%#bau% = 0);look(,35);endif;
  708. if(%#pos% != %#posf%);keydown(right);keydown(w);endif;
  709. until(%#pos% = %#posf%);
  710. wait(100ms);
  711. keyup(right);
  712. wait(1);
  713. if((%&vbau%="chest")|(%&vbau%="trapped_chest"));
  714. do;
  715. if(%HIT%="PLAYER");random(#r,1,10);#xt = %XPOS%;#zt = %ZPOS%;
  716. do;keydown(sneak);keydown(back);until((%XPOS%=%#xt%-1)|(%XPOS%=%#xt%+1)|(%ZPOS%=%#zt%-1)|(%ZPOS%=%#zt%+1));
  717. keyup(back);wait(%#r%);#xt = %XPOS%;#zt = %ZPOS%;
  718. do;keydown(sneak);keydown(forward);until((%XPOS%=%#xt%-1)|(%XPOS%=%#xt%+1)|(%ZPOS%=%#zt%-1)|(%ZPOS%=%#zt%+1));
  719. keyup(forward);
  720. endif;
  721. key(use);
  722. wait(5);
  723. until(%GUI%="GUICHEST");
  724. wait(1);
  725. #sbv = 0;
  726. if(%#plant%=3);&item=wheat;endif;
  727. for(#i,0,53);
  728. getslotitem(%#i%,&id);
  729. if(%&id%=%&item%);
  730. #sbv = 1;
  731. break;
  732. endif;
  733. next;
  734. if(%#sbv% = 1);
  735. for(#i,0,53);
  736. getslotitem(%#i%,&id);
  737. ifmatches(%&id%,%&item%);
  738. slotclick(%#i%,l,true);
  739. wait(150ms);
  740. endif;
  741. next;
  742. #exit = 1;
  743. for(#i,54,89);
  744. getslotitem(%#i%,&id);
  745. if(%&id% = "air");
  746. #exit = 0;
  747. break;
  748. endif;
  749. next;
  750. if(%#exit% = 0);
  751. dec(#bau);
  752. gui();
  753. if(%#bau% = -1);
  754. #bau = 4;
  755. inc(#fil);
  756. endif;
  757. endif;
  758. gui();
  759. else;
  760. dec(#bau);
  761. if(%#bau% = -1);
  762. #bau = 4;
  763. inc(#fil);
  764. endif;
  765. gui();
  766. endif;
  767. else;
  768. set(sai);
  769. break;
  770. endif;
  771. until(%#exit% = 1);
  772. if(wv);
  773. do;}$$/warp vip$${wait(10);until((%XPOS%=702)&&(%ZPOS%=656));
  774. do;
  775. look(south);
  776. keydown(forward);
  777. if(%ZPOS%>=668);keydown(w);endif;
  778. getidrel(0,0,1,&bl);if(%&bl%!="air");else;endif;
  779. until((%XPOS%=702)&&(%ZPOS%=671));
  780. keyup(sneak);keyup(forward);
  781. do;
  782. keydown(forward);
  783. look(east);
  784. if(%XPOS%>=%#xplant%-3);keydown(w);endif;
  785. getidrel(1,0,0,&bl);if(%&bl%!="air");else;endif;
  786. until((%XPOS%=%#xplant%)&&(%ZPOS%=671));
  787. keyup(sneak);keyup(forward);
  788. do;
  789. look(south);
  790. keydown(forward);
  791. getidrel(0,0,1,&bl);
  792. until(%&bl%!="air");
  793. keyup(forward);
  794. do;
  795. look(south);
  796. look(175,15);
  797. if(%HITID%="wall_sign");
  798. do(3);key(attack);wait(1t);loop;
  799. break;
  800. endif;
  801. if(%HIT%="PLAYER");random(#r,1,10);#x = %XPOS%;#z = %ZPOS%;
  802. do;keydown(sneak);keydown(back);until((%XPOS%=%#x%-1)|(%XPOS%=%#x%+1)|(%ZPOS%=%#z%-1)|(%ZPOS%=%#z%+1));
  803. keyup(back);wait(%#r%);#x = %XPOS%;#z = %ZPOS%;
  804. do;keydown(sneak);keydown(forward);until((%XPOS%=%#x%-1)|(%XPOS%=%#x%+1)|(%ZPOS%=%#z%-1)|(%ZPOS%=%#z%+1));
  805. keyup(forward);
  806. endif;
  807. loop;
  808. else;
  809. do(2);
  810. log(&6[Macro]&b Teleportando....);
  811. if(%#plant%=1);}$$/home venderfungo$${endif;
  812. if(%#plant%=2);}$$/home vendercana$${endif;
  813. if(%#plant%=3);}$$/home vendertrigo$${endif;
  814. if(%#plant%=4);}$$/home vendercenoura$${endif;
  815. if(%#plant%=5);}$$/home venderbatata$${endif;
  816. wait(10);
  817. until((%XPOS%=%#x%)|(%ZPOS%!=%#z%));
  818. do(3);wait(5t);loop;
  819. wait(1);
  820. do;
  821. if(%HIT%="PLAYER");random(#r,1,10);#x = %XPOS%;#z = %ZPOS%;
  822. do;keydown(sneak);keydown(back);until((%XPOS%=%#x%-1)|(%XPOS%=%#x%+1)|(%ZPOS%=%#z%-1)|(%ZPOS%=%#z%+1));
  823. keyup(back);wait(%#r%);#x = %XPOS%;#z = %ZPOS%;
  824. do;keydown(sneak);keydown(forward);until((%XPOS%=%#x%-1)|(%XPOS%=%#x%+1)|(%ZPOS%=%#z%-1)|(%ZPOS%=%#z%+1));
  825. keyup(forward);
  826. endif;
  827. if(%HITID%="wall_sign");
  828. do(3);key(attack);wait(1t);loop;
  829. break;
  830. endif;
  831. loop;
  832. endif;
  833. if(sai);
  834. unset(sai);
  835. log(&6[Macro] &bAcabo os baus!!!);
  836. log(&6[Macro]&b Mega Fazendeiro &4[Off]);
  837. unset(cc);
  838. unset(vender);
  839. unset(@rec);
  840. stop;
  841. endif;
  842. loop;
  843. endif;
  844. endif;
  845. }$$
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!