API tools faq
paste
Advertisement
Guest User

Untitled

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