API tools faq
paste
Guest User

XtyconColheCana v1.0

a guest
Jun 6th, 2017
194
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 67.64 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. IF((@xtyconcc) && (%@&cmodo%!="RELIGAR"));
  3. IF(!desligar);
  4. LOG("&2[XtyconCC] &aEncerrando, Aguarde...");
  5. SET(@&cmodo,"DESLIGAR");
  6. SET(desligar);
  7. WAIT(3);
  8. ENDIF;
  9. SET(@&cmodo,"");
  10. UNSET(@xtyconcc);
  11. UNSET(@xtyconrestart);
  12. KEYUP(FORWARD);
  13. KEYUP(BACK);
  14. KEYUP(LEFT);
  15. KEYUP(RIGHT);
  16. UNSET(desligar);
  17. LOG("&2[XtyconCC] &aDesligado.");
  18. STOP();
  19. ELSE;
  20. IF(%@&cmodo%!="RELIGAR");
  21. SET(@xtyconcc);
  22. SET(@xtyconrestart);
  23. UNSET(oicnuna);
  24. SET(#aint,300);
  25. IF((KEY_1)||(KEY_NUMPAD1));
  26. SET(#mop,1);
  27. ACHIEVEMENTGET("Menu: GUIs","command_block");
  28. DO;
  29. WHILE((KEY_1)||(KEY_NUMPAD1));
  30. ELSEIF((KEY_2)||(KEY_NUMPAD2));
  31. SET(#mop,2);
  32. ACHIEVEMENTGET("Menu: Chat","command_block");
  33. DO;
  34. WHILE((KEY_2)||(KEY_NUMPAD2));
  35. ENDIF;
  36. IF(%#mop%=1);
  37. SET(menus);
  38. ELSEIF(%#mop%=2);
  39. UNSET(menus);
  40. ELSE;
  41. SET(menus);
  42. ENDIF;
  43. /////
  44. IF(menus);
  45. PROMPT(&p,"$$[Iniciar Modo[Colher,Vender]]","Iniciar a macro para colher ou vender os baus?",TRUE,"");
  46. ELSE;
  47. //
  48. SET(#optionquant,2);
  49. SET(&options[1],"Colher");
  50. SET(&options[2],"Vender");
  51. SET(&option,"");
  52. DO;
  53. CLEARCHAT();
  54. LOG("&aIniciar a macro para colher ou vender os baus?");
  55. UNSAFE;
  56. FOR(#n,1,%#optionquant%);
  57. IF(%&options[%#n%]%=%&option%);
  58. LOG("&7[%#n%] &f> &c%&options[%#n%]%");
  59. ELSE;
  60. LOG("&7[%#n%] &f> %&options[%#n%]%");
  61. ENDIF;
  62. NEXT;
  63. ENDUNSAFE;
  64. UNSAFE;
  65. FOR(#n,1,%#optionquant%);
  66. SET(&key,"KEY_%#n%");
  67. SET(&key2,"KEY_NUMPAD%#n%");
  68. SET(&cond,"%%&key%%");
  69. SET(&cond2,"%%&key2%%");
  70. IF((%&cond%="True")||(%&cond2%="True"));
  71. SET(&option,"%&options[%#n%]%");
  72. ENDIF;
  73. NEXT;
  74. IF(KEY_RETURN);
  75. DO;
  76. WHILE(KEY_RETURN);
  77. BREAK;
  78. ENDIF;
  79. ENDUNSAFE;
  80. LOOP;
  81. SET(&p,%&option%);
  82. CLEARCHAT();
  83. //
  84. ENDIF;
  85. /////
  86. IF(%&p%="Vender");
  87. SET(@&cmodo,"INICIAR VENDAS");
  88. SET(xccvender);
  89. ELSEIF(%&p%="Colher");
  90. SET(@&cmodo,"INICIAR");
  91. UNSET(xccvender);
  92. ELSE;
  93. SET(@&cmodo,"DESLIGAR");
  94. ENDIF;
  95. SET(@&xtyconrkey,"%KEYNAME%");
  96. SET(@&xtyconrnome,"XtyconColheCana %&versao%");
  97. SET(@xtyconrestart);
  98. UNSET(desligar);
  99. ELSE;
  100. SET(@&cmodo,"CONTINUAR");
  101. LOG("&2[XtyconCC] &aReiniciando colhedor de cana.");
  102. ENDIF;
  103.  
  104. DO;
  105. SET(&versao,"v1.0");
  106. IF(%@&cmodo%="INICIAR VENDAS");
  107. IF(menus);
  108. PROMPT(&p,"$$[Bau]","Começar por qual bau?",TRUE,"");
  109. ELSE;
  110. //
  111. SET(&texto,"");
  112. FOR(#n,0,9);
  113. SET(&key[%#n%],"F");
  114. NEXT;
  115. UNSAFE;
  116. DO;
  117. FOR(#n,0,9);
  118. SET(&key,"KEY_%#n%");
  119. SET(&key2,"KEY_NUMPAD%#n%");
  120. SET(&cond,"%%&key%%");
  121. SET(&cond2,"%%&key2%%");
  122. IF((%&cond%="True")||(%&cond2%="True"));
  123. IF(%&key[%#n%]%="F");
  124. SET(&key[%#n%],"T");
  125. SET(&texto,"%&texto%%#n%");
  126. ENDIF;
  127. ELSE;
  128. IF(%&key[%#n%]%="T");
  129. SET(&key[%#n%],"F");
  130. ENDIF;
  131. ENDIF;
  132. NEXT;
  133. CLEARCHAT();
  134. LOG("&aComeçar por qual bau?");
  135. LOG("&f> %&texto%");
  136. IF(KEY_BACK);
  137. IFMATCHES("%&texto%","^.$");
  138. SET(&texto,"");
  139. ELSE;
  140. MATCH("%&texto%","(.*).",&texto,1);
  141. ENDIF;
  142. DO;
  143. WHILE(KEY_BACK);
  144. ENDIF;
  145. IF(KEY_RETURN);
  146. DO;
  147. WHILE(KEY_RETURN);
  148. BREAK;
  149. ENDIF;
  150. LOOP;
  151. ENDUNSAFE;
  152. SET(&p,%&texto%);
  153. CLEARCHAT();
  154. //
  155. ENDIF;
  156. IF(%&p%!="");
  157. SET(#vbau,%&p%);
  158. DEC(#vbau,1);
  159. IF(%#vbau%<0);
  160. LOG("&2[XtyconCC] &aNumero de baus invalido.");
  161. LOG("&2[XtyconCC] &aVendendo do primeiro bau");
  162. SET(#vbau,0);
  163. ENDIF;
  164. ELSE;
  165. SET(@&cmodo,"DESLIGAR");
  166. LOG("&2[XtyconCC] &aValor invalido.");
  167. ENDIF;
  168. IF(%@&cmodo%="INICIAR VENDAS");
  169. IF(menus);
  170. PROMPT(&p,"$$[Local das Vendas[WARP LOJA,WARP VIP]]","Vender as canas aonde?",TRUE,"");
  171. ELSE;
  172. //
  173. SET(#optionquant,2);
  174. SET(&options[1],"WARP LOJA");
  175. SET(&options[2],"WARP VIP");
  176. SET(&option,"");
  177. DO;
  178. CLEARCHAT();
  179. LOG("&aVender as canas aonde?");
  180. UNSAFE;
  181. FOR(#n,1,%#optionquant%);
  182. IF(%&options[%#n%]%=%&option%);
  183. LOG("&7[%#n%] &f> &c%&options[%#n%]%");
  184. ELSE;
  185. LOG("&7[%#n%] &f> %&options[%#n%]%");
  186. ENDIF;
  187. NEXT;
  188. ENDUNSAFE;
  189. UNSAFE;
  190. FOR(#n,1,%#optionquant%);
  191. SET(&key,"KEY_%#n%");
  192. SET(&key2,"KEY_NUMPAD%#n%");
  193. SET(&cond,"%%&key%%");
  194. SET(&cond2,"%%&key2%%");
  195. IF((%&cond%="True")||(%&cond2%="True"));
  196. SET(&option,"%&options[%#n%]%");
  197. ENDIF;
  198. NEXT;
  199. IF(KEY_RETURN);
  200. DO;
  201. WHILE(KEY_RETURN);
  202. BREAK;
  203. ENDIF;
  204. ENDUNSAFE;
  205. LOOP;
  206. SET(&p,%&option%);
  207. CLEARCHAT();
  208. //
  209. ENDIF;
  210. IF(%&p%="WARP LOJA");
  211. SET(&bvendaloc,"LOJA");
  212. ELSEIF(%&p%="WARP VIP");
  213. SET(&bvendaloc,"VIP");
  214. ELSE;
  215. LOG("&2[XtyconCC] &aValor invalido.");
  216. SET(@&cmodo,"DESLIGAR");
  217. ENDIF;
  218. ENDIF;
  219. IF(%@&cmodo%="INICIAR VENDAS");
  220. IF(menus);
  221. PROMPT(&p,"$$[Delay[1 Segundo,2 Segundos,3 Segundos,4 Segundos,5 Segundos,6 Segundos]]","Delay entre os teleportes",TRUE,"0");
  222. ELSE;
  223. //
  224. SET(#optionquant,6);
  225. SET(&options[1],"1 Segundo");
  226. SET(&options[2],"2 Segundos");
  227. SET(&options[3],"3 Segundos");
  228. SET(&options[4],"4 Segundos");
  229. SET(&options[5],"5 Segundos");
  230. SET(&options[6],"6 Segundos");
  231. SET(&option,"");
  232. DO;
  233. CLEARCHAT();
  234. LOG("&aMarque o delay a ser usado nos teleportes.");
  235. UNSAFE;
  236. FOR(#n,1,%#optionquant%);
  237. IF(%&options[%#n%]%=%&option%);
  238. LOG("&7[%#n%] &f> &c%&options[%#n%]%");
  239. ELSE;
  240. LOG("&7[%#n%] &f> %&options[%#n%]%");
  241. ENDIF;
  242. NEXT;
  243. ENDUNSAFE;
  244. UNSAFE;
  245. FOR(#n,1,%#optionquant%);
  246. SET(&key,"KEY_%#n%");
  247. SET(&key2,"KEY_NUMPAD%#n%");
  248. SET(&cond,"%%&key%%");
  249. SET(&cond2,"%%&key2%%");
  250. IF((%&cond%="True")||(%&cond2%="True"));
  251. SET(&option,"%&options[%#n%]%");
  252. ENDIF;
  253. NEXT;
  254. IF(KEY_RETURN);
  255. DO;
  256. WHILE(KEY_RETURN);
  257. BREAK;
  258. ENDIF;
  259. ENDUNSAFE;
  260. LOOP;
  261. SET(&p,%&option%);
  262. CLEARCHAT();
  263. //
  264. ENDIF;
  265. IFMATCHES("%&p%","^([\d]+) Segundo.*$",&p,1);
  266. SET(&delay,"%&p%");
  267. SET(@&cmodo,"VENDER BAUS");
  268. LOG("&2[XtyconCC] &aIniciando vendedor de cana.");
  269. ELSE;
  270. LOG("&2[XtyconCC] &aValor invalido.");
  271. SET(@&cmodo,"DESLIGAR");
  272. ENDIF;
  273. ENDIF;
  274.  
  275. ELSEIF(%@&cmodo%="INICIAR");
  276. IF(temconfig);
  277. IF(menus);
  278. PROMPT(&p,"$$[Configuracao[Sim,Nao]]","Usar a ultima configuraçao?",TRUE,"");
  279. ELSE;
  280. //
  281. SET(#optionquant,2);
  282. SET(&options[1],"Sim");
  283. SET(&options[2],"Nao");
  284. SET(&option,"");
  285. DO;
  286. CLEARCHAT();
  287. LOG("&aUsar a ultima configuraçao?");
  288. UNSAFE;
  289. FOR(#n,1,%#optionquant%);
  290. IF(%&options[%#n%]%=%&option%);
  291. LOG("&7[%#n%] &f> &c%&options[%#n%]%");
  292. ELSE;
  293. LOG("&7[%#n%] &f> %&options[%#n%]%");
  294. ENDIF;
  295. NEXT;
  296. ENDUNSAFE;
  297. UNSAFE;
  298. FOR(#n,1,%#optionquant%);
  299. SET(&key,"KEY_%#n%");
  300. SET(&key2,"KEY_NUMPAD%#n%");
  301. SET(&cond,"%%&key%%");
  302. SET(&cond2,"%%&key2%%");
  303. IF((%&cond%="True")||(%&cond2%="True"));
  304. SET(&option,"%&options[%#n%]%");
  305. ENDIF;
  306. NEXT;
  307. IF(KEY_RETURN);
  308. DO;
  309. WHILE(KEY_RETURN);
  310. BREAK;
  311. ENDIF;
  312. ENDUNSAFE;
  313. LOOP;
  314. SET(&p,%&option%);
  315. CLEARCHAT();
  316. //
  317. ENDIF;
  318. IF(%&p%="Sim");
  319. UNSET(configurar);
  320. UNSET(erro);
  321. ELSEIF(%&p%="Nao");
  322. SET(configurar);
  323. ELSE;
  324. UNSET(configurar);
  325. SET(erro);
  326. ENDIF;
  327. ELSE;
  328. SET(configurar);
  329. ENDIF;
  330. IF(configurar);
  331. UNSET(erro);
  332. IF(!erro);
  333. IF(menus);
  334. PROMPT(&p,"$$[Andares]","Quantidade de andares?",TRUE,"0");
  335. ELSE;
  336. //
  337. SET(&texto,"");
  338. FOR(#n,0,9);
  339. SET(&key[%#n%],"F");
  340. NEXT;
  341. UNSAFE;
  342. DO;
  343. FOR(#n,0,9);
  344. SET(&key,"KEY_%#n%");
  345. SET(&key2,"KEY_NUMPAD%#n%");
  346. SET(&cond,"%%&key%%");
  347. SET(&cond2,"%%&key2%%");
  348. IF((%&cond%="True")||(%&cond2%="True"));
  349. IF(%&key[%#n%]%="F");
  350. SET(&key[%#n%],"T");
  351. SET(&texto,"%&texto%%#n%");
  352. ENDIF;
  353. ELSE;
  354. IF(%&key[%#n%]%="T");
  355. SET(&key[%#n%],"F");
  356. ENDIF;
  357. ENDIF;
  358. NEXT;
  359. CLEARCHAT();
  360. LOG("&aInforme a quantidade de andares.");
  361. LOG("&f> %&texto%");
  362. IF(KEY_BACK);
  363. IFMATCHES("%&texto%","^.$");
  364. SET(&texto,"");
  365. ELSE;
  366. MATCH("%&texto%","(.*).",&texto,1);
  367. ENDIF;
  368. DO;
  369. WHILE(KEY_BACK);
  370. ENDIF;
  371. IF(KEY_RETURN);
  372. DO;
  373. WHILE(KEY_RETURN);
  374. BREAK;
  375. ENDIF;
  376. LOOP;
  377. ENDUNSAFE;
  378. SET(&p,%&texto%);
  379. CLEARCHAT();
  380.  
  381. //
  382. ENDIF;
  383. SET(#andares,%&p%);
  384. IF(%#andares%<1);
  385. SET(erro);
  386. LOG("&2[XtyconCC] &aValor invalido.");
  387. ENDIF;
  388. ENDIF;
  389. IF(!erro);
  390. IF(menus);
  391. PROMPT(&p,"$$[Filas]","Quantidade de filas?",TRUE,"0");
  392. ELSE;
  393. //
  394. SET(&texto,"");
  395. FOR(#n,0,9);
  396. SET(&key[%#n%],"F");
  397. NEXT;
  398. UNSAFE;
  399. DO;
  400. FOR(#n,0,9);
  401. SET(&key,"KEY_%#n%");
  402. SET(&key2,"KEY_NUMPAD%#n%");
  403. SET(&cond,"%%&key%%");
  404. SET(&cond2,"%%&key2%%");
  405. IF((%&cond%="True")||(%&cond2%="True"));
  406. IF(%&key[%#n%]%="F");
  407. SET(&key[%#n%],"T");
  408. SET(&texto,"%&texto%%#n%");
  409. ENDIF;
  410. ELSE;
  411. IF(%&key[%#n%]%="T");
  412. SET(&key[%#n%],"F");
  413. ENDIF;
  414. ENDIF;
  415. NEXT;
  416. CLEARCHAT();
  417. LOG("&aInforme a quantidade de filas.");
  418. LOG("&f> %&texto%");
  419. IF(KEY_BACK);
  420. IFMATCHES("%&texto%","^.$");
  421. SET(&texto,"");
  422. ELSE;
  423. MATCH("%&texto%","(.*).",&texto,1);
  424. ENDIF;
  425. DO;
  426. WHILE(KEY_BACK);
  427. ENDIF;
  428. IF(KEY_RETURN);
  429. DO;
  430. WHILE(KEY_RETURN);
  431. BREAK;
  432. ENDIF;
  433. LOOP;
  434. ENDUNSAFE;
  435. SET(&p,%&texto%);
  436. CLEARCHAT();
  437.  
  438. //
  439. ENDIF;
  440. SET(#filas,%&p%);
  441. IF(%#filas%<1);
  442. SET(erro);
  443. LOG("&2[XtyconCC] &aValor invalido.");
  444. ENDIF;
  445. ENDIF;
  446. IF(!erro);
  447. IF(menus);
  448. PROMPT(&p,"$$[Opcoes[FILA UNICA,MULTI FILA]]","Como colher as canas?",TRUE,"NADA");
  449. ELSE;
  450. //
  451. SET(#optionquant,2);
  452. SET(&options[1],"FILA UNICA");
  453. SET(&options[2],"MULTI FILA");
  454. SET(&option,"");
  455. DO;
  456. CLEARCHAT();
  457. LOG("&aComo colher as canas?");
  458. UNSAFE;
  459. FOR(#n,1,%#optionquant%);
  460. IF(%&options[%#n%]%=%&option%);
  461. LOG("&7[%#n%] &f> &c%&options[%#n%]%");
  462. ELSE;
  463. LOG("&7[%#n%] &f> %&options[%#n%]%");
  464. ENDIF;
  465. NEXT;
  466. ENDUNSAFE;
  467. UNSAFE;
  468. FOR(#n,1,%#optionquant%);
  469. SET(&key,"KEY_%#n%");
  470. SET(&key2,"KEY_NUMPAD%#n%");
  471. SET(&cond,"%%&key%%");
  472. SET(&cond2,"%%&key2%%");
  473. IF((%&cond%="True")||(%&cond2%="True"));
  474. SET(&option,"%&options[%#n%]%");
  475. ENDIF;
  476. NEXT;
  477. IF(KEY_RETURN);
  478. DO;
  479. WHILE(KEY_RETURN);
  480. BREAK;
  481. ENDIF;
  482. ENDUNSAFE;
  483. LOOP;
  484. SET(&p,%&option%);
  485. CLEARCHAT();
  486. //
  487. ENDIF;
  488. IF(%&p%="FILA UNICA");
  489. UNSET(multifila);
  490. ELSEIF(%&p%="MULTI FILA");
  491. SET(multifila);
  492. ELSE;
  493. SET(erro);
  494. LOG("&2[XtyconCC] &aValor invalido.");
  495. ENDIF;
  496. ENDIF;
  497. IF((!erro) && (multifila));
  498. IF(menus);
  499. PROMPT(&p,"$$[Filas]","Intervalo de pulo das filas?",TRUE,"0");
  500. ELSE;
  501. //
  502. SET(&texto,"");
  503. FOR(#n,0,9);
  504. SET(&key[%#n%],"F");
  505. NEXT;
  506. UNSAFE;
  507. DO;
  508. FOR(#n,0,9);
  509. SET(&key,"KEY_%#n%");
  510. SET(&key2,"KEY_NUMPAD%#n%");
  511. SET(&cond,"%%&key%%");
  512. SET(&cond2,"%%&key2%%");
  513. IF((%&cond%="True")||(%&cond2%="True"));
  514. IF(%&key[%#n%]%="F");
  515. SET(&key[%#n%],"T");
  516. SET(&texto,"%&texto%%#n%");
  517. ENDIF;
  518. ELSE;
  519. IF(%&key[%#n%]%="T");
  520. SET(&key[%#n%],"F");
  521. ENDIF;
  522. ENDIF;
  523. NEXT;
  524. CLEARCHAT();
  525. LOG("&aInforme o intervalo de filas.");
  526. LOG("&f> %&texto%");
  527. IF(KEY_BACK);
  528. IFMATCHES("%&texto%","^.$");
  529. SET(&texto,"");
  530. ELSE;
  531. MATCH("%&texto%","(.*).",&texto,1);
  532. ENDIF;
  533. DO;
  534. WHILE(KEY_BACK);
  535. ENDIF;
  536. IF(KEY_RETURN);
  537. DO;
  538. WHILE(KEY_RETURN);
  539. BREAK;
  540. ENDIF;
  541. LOOP;
  542. ENDUNSAFE;
  543. SET(&p,%&texto%);
  544. CLEARCHAT();
  545.  
  546. //
  547. ENDIF;
  548. SET(#finter,%&p%);
  549. IF(%#finter%<1);
  550. SET(erro);
  551. LOG("&2[XtyconCC] &aValor invalido.");
  552. ENDIF;
  553. ENDIF;
  554. IF(!erro);
  555. IF(menus);
  556. PROMPT(&p,"$$[Opcoes[BAUS,WARP LOJA,WARP VIP]]","O que fazer com as canas?",TRUE,"NADA");
  557. ELSE;
  558. //
  559. SET(#optionquant,3);
  560. SET(&options[1],"BAUS");
  561. SET(&options[2],"WARP LOJA");
  562. SET(&options[3],"WARP VIP");
  563. SET(&option,"");
  564. DO;
  565. CLEARCHAT();
  566. LOG("&aO que fazer com as canas?");
  567. UNSAFE;
  568. FOR(#n,1,%#optionquant%);
  569. IF(%&options[%#n%]%=%&option%);
  570. LOG("&7[%#n%] &f> &c%&options[%#n%]%");
  571. ELSE;
  572. LOG("&7[%#n%] &f> %&options[%#n%]%");
  573. ENDIF;
  574. NEXT;
  575. ENDUNSAFE;
  576. UNSAFE;
  577. FOR(#n,1,%#optionquant%);
  578. SET(&key,"KEY_%#n%");
  579. SET(&key2,"KEY_NUMPAD%#n%");
  580. SET(&cond,"%%&key%%");
  581. SET(&cond2,"%%&key2%%");
  582. IF((%&cond%="True")||(%&cond2%="True"));
  583. SET(&option,"%&options[%#n%]%");
  584. ENDIF;
  585. NEXT;
  586. IF(KEY_RETURN);
  587. DO;
  588. WHILE(KEY_RETURN);
  589. BREAK;
  590. ENDIF;
  591. ENDUNSAFE;
  592. LOOP;
  593. SET(&p,%&option%);
  594. CLEARCHAT();
  595. //
  596. ENDIF;
  597. IF(%&p%="BAUS");
  598. SET(&armazemmodo,"BAUS");
  599. ELSEIF(%&p%="WARP LOJA");
  600. SET(&armazemmodo,"LOJA");
  601. ELSEIF(%&p%="WARP VIP");
  602. SET(&armazemmodo,"VIP");
  603. ELSE;
  604. SET(erro);
  605. LOG("&2[XtyconCC] &aValor invalido.");
  606. ENDIF;
  607. ENDIF;
  608. IF((!erro) && (%&armazemmodo%="BAUS"));
  609. IF(menus);
  610. PROMPT(&p,"$$[Bau]","Começar por qual bau? Deixe em branco para continuar de onde parou.",TRUE,"");
  611. ELSE;
  612. //
  613. SET(&texto,"");
  614. FOR(#n,0,9);
  615. SET(&key[%#n%],"F");
  616. NEXT;
  617. UNSAFE;
  618. DO;
  619. FOR(#n,0,9);
  620. SET(&key,"KEY_%#n%");
  621. SET(&key2,"KEY_NUMPAD%#n%");
  622. SET(&cond,"%%&key%%");
  623. SET(&cond2,"%%&key2%%");
  624. IF((%&cond%="True")||(%&cond2%="True"));
  625. IF(%&key[%#n%]%="F");
  626. SET(&key[%#n%],"T");
  627. SET(&texto,"%&texto%%#n%");
  628. ENDIF;
  629. ELSE;
  630. IF(%&key[%#n%]%="T");
  631. SET(&key[%#n%],"F");
  632. ENDIF;
  633. ENDIF;
  634. NEXT;
  635. CLEARCHAT();
  636. LOG("&aComeçar o armazenamento por qual bau?");
  637. LOG("&aDeixe em branco para continuar de onde parou.");
  638. LOG("&f> %&texto%");
  639. IF(KEY_BACK);
  640. IFMATCHES("%&texto%","^.$");
  641. SET(&texto,"");
  642. ELSE;
  643. MATCH("%&texto%","(.*).",&texto,1);
  644. ENDIF;
  645. DO;
  646. WHILE(KEY_BACK);
  647. ENDIF;
  648. IF(KEY_RETURN);
  649. DO;
  650. WHILE(KEY_RETURN);
  651. BREAK;
  652. ENDIF;
  653. LOOP;
  654. ENDUNSAFE;
  655. SET(&p,%&texto%);
  656. CLEARCHAT();
  657.  
  658. //
  659. ENDIF;
  660. IF(%&p%!="");
  661. SET(#bau,%&p%);
  662. DEC(#bau,1);
  663. IF(%#bau%<0);
  664. LOG("&2[XtyconCC] &aNumero de baus invalido.");
  665. LOG("&2[XtyconCC] &aRecomeçando do primeiro bau");
  666. SET(#bau,0);
  667. ENDIF;
  668. ELSE;
  669. LOG("&2[XtyconCC] &aContinuando do bau que parou.");
  670. ENDIF;
  671. ENDIF;
  672. IF(!erro);
  673. IF(menus);
  674. PROMPT(&p,"$$[Delay[1 Segundo,2 Segundos,3 Segundos,4 Segundos,5 Segundos,6 Segundos]]","Delay entre os teleportes",TRUE,"0");
  675. ELSE;
  676. //
  677. SET(#optionquant,6);
  678. SET(&options[1],"1 Segundo");
  679. SET(&options[2],"2 Segundos");
  680. SET(&options[3],"3 Segundos");
  681. SET(&options[4],"4 Segundos");
  682. SET(&options[5],"5 Segundos");
  683. SET(&options[6],"6 Segundos");
  684. SET(&option,"");
  685. DO;
  686. CLEARCHAT();
  687. LOG("&aMarque o delay a ser usado nos teleportes.");
  688. UNSAFE;
  689. FOR(#n,1,%#optionquant%);
  690. IF(%&options[%#n%]%=%&option%);
  691. LOG("&7[%#n%] &f> &c%&options[%#n%]%");
  692. ELSE;
  693. LOG("&7[%#n%] &f> %&options[%#n%]%");
  694. ENDIF;
  695. NEXT;
  696. ENDUNSAFE;
  697. UNSAFE;
  698. FOR(#n,1,%#optionquant%);
  699. SET(&key,"KEY_%#n%");
  700. SET(&key2,"KEY_NUMPAD%#n%");
  701. SET(&cond,"%%&key%%");
  702. SET(&cond2,"%%&key2%%");
  703. IF((%&cond%="True")||(%&cond2%="True"));
  704. SET(&option,"%&options[%#n%]%");
  705. ENDIF;
  706. NEXT;
  707. IF(KEY_RETURN);
  708. DO;
  709. WHILE(KEY_RETURN);
  710. BREAK;
  711. ENDIF;
  712. ENDUNSAFE;
  713. LOOP;
  714. SET(&p,%&option%);
  715. CLEARCHAT();
  716. //
  717. ENDIF;
  718. IFMATCHES("%&p%","^([\d]+) Segundo.*$",&p,1);
  719. SET(&delay,"%&p%");
  720. ELSE;
  721. SET(erro);
  722. LOG("&2[XtyconCC] &aValor invalido.");
  723. ENDIF;
  724. ENDIF;
  725. ENDIF;
  726. IF(erro);
  727. SET(@&cmodo,"DESLIGAR");
  728. UNSET(temconfig);
  729. ELSE;
  730. SET(@&cmodo,"CONTINUAR");
  731. SET(#andaratual,1);
  732. SET(#filaatual,1);
  733. LOG("&2[XtyconCC] &aIniciando colhedor de cana.");
  734. SET(temconfig);
  735. UNSET(ignorebaus);
  736. TIME(#seg,"ss");
  737. TIME(#t,"mm");
  738. #seg = %#seg% + (%#t% * 60);
  739. TIME(#t,"hh");
  740. #seg = %#seg% + (%#t% * 60 * 60);
  741. TIME(#t,"dd");
  742. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  743. TIME(#t,"mm");
  744. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  745. #interval = %#seg% - %#lasta%;
  746. IF(%#interval% >= %#aint%);
  747. ECHO("/g &ainiciando a macro &fxtycon colhe cana %&versao%&a!");
  748. ENDIF;
  749. ENDIF;
  750. ELSEIF(%@&cmodo%="PROXANDAR");
  751. INC(#andaratual,1);
  752. IF(%#andaratual% > %#andares%);
  753. SET(#andaratual,1);
  754. ENDIF;
  755. SET(#filaatual,1);
  756. ECHO("/home cana%#andaratual%");
  757. WAIT(%&delay%);
  758. SET(@&cmodo,"CONTINUAR");
  759. UNSET(direita);
  760.  
  761. ELSEIF(%@&cmodo%="PROXFILA");
  762. GETIDREL(0,-1,0,&chao);
  763. IFMATCHES("%&chao%","water");
  764. SET(@&cmodo,"DESBUGAR");
  765. ELSE;
  766. SET(#fantes,%#filaatual%);
  767. IF(multifila);
  768. INC(#filaatual,%#finter%);
  769. ELSE;
  770. INC(#filaatual,1);
  771. ENDIF;
  772. IF(%#filaatual% > %#filas%);
  773. SET(@&cmodo,"PROXANDAR");
  774. ELSE;
  775. TOGGLE(direita);
  776. IF(direita);
  777. SET(&canaidrel[0],"NORTH 1 0");
  778. SET(&canaidrel[1],"SOUTH -1 0");
  779. SET(&canaidrel[2],"EAST 0 1");
  780. SET(&canaidrel[3],"WEST 0 -1");
  781. ELSE;
  782. SET(&canaidrel[0],"NORTH -1 0");
  783. SET(&canaidrel[1],"SOUTH 1 0");
  784. SET(&canaidrel[2],"EAST 0 -1");
  785. SET(&canaidrel[3],"WEST 0 1");
  786. ENDIF;
  787. SET(&olhardir,"");
  788. FOR(#n,0,3);
  789. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&dir,1);
  790. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&xdir,2);
  791. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&zdir,3);
  792. GETIDREL(%&xdir%,0,%&zdir%,&cid);
  793. IF(%&cid%="reeds");
  794. SET(&olhardir,"%&dir%");
  795. BREAK;
  796. ENDIF;
  797. NEXT;
  798. IF(%&olhardir%!="");
  799. SET(#xatual,%XPOS%);
  800. SET(#zatual,%ZPOS%);
  801. SET(#totfila,%#fantes%);
  802. SET(&lastpos,"%XPOS% %YPOS% %ZPOS%");
  803. SET(#segstart,0);
  804. SET(#lastachiev,0);
  805. DO;
  806. IF(%#filaatual% <= 1);
  807. BREAK;
  808. ENDIF;
  809. LOOK(%&olhardir%);
  810. KEYDOWN(FORWARD);
  811. KEYUP(BACK);
  812. KEYUP(LEFT);
  813. KEYUP(RIGHT);
  814. IF(%&lastpos%="%XPOS% %YPOS% %ZPOS%");
  815. IF(%#segstart%=0);
  816. SET(#maxsegs,6);
  817. TIME(#segstart,"ss");
  818. TIME(#t,"mm");
  819. #segstart = %#segstart% + (%#t% * 60);
  820. TIME(#t,"hh");
  821. #segstart = %#segstart% + (%#t% * 60 * 60);
  822. TIME(#t,"dd");
  823. #segstart = %#segstart% + (%#t% * 60 * 60 * 24);
  824. TIME(#t,"mm");
  825. #segstart = %#segstart% + (%#t% * 60 * 60 * 24 * 30);
  826. SET(#lastachiev,%#maxsegs%);
  827. ELSE;
  828. TIME(#seg,"ss");
  829. TIME(#t,"mm");
  830. #seg = %#seg% + (%#t% * 60);
  831. TIME(#t,"hh");
  832. #seg = %#seg% + (%#t% * 60 * 60);
  833. TIME(#t,"dd");
  834. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  835. TIME(#t,"mm");
  836. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  837. #seg = %#seg% - %#segstart%;
  838. #achiev = %#maxsegs% - %#seg%;
  839. IF(%#achiev% != %#lastachiev%);
  840. SET(#lastachiev,%#achiev%);
  841. IF(%#achiev% >= 0);
  842. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  843. ELSE;
  844. ACHIEVEMENTGET("Tempo esgotado!","clock");
  845. ENDIF;
  846. ENDIF;
  847. IF(%#seg% > %#maxsegs%);
  848. SET(@&cmodo,"DESBUGAR");
  849. KEYUP(FORWARD);
  850. KEYUP(BACK);
  851. KEYUP(LEFT);
  852. KEYUP(RIGHT);
  853. BREAK;
  854. ENDIF;
  855. ENDIF;
  856. ELSE;
  857. SET(&lastpos,"%XPOS% %YPOS% %ZPOS%");
  858. SET(#segstart,0);
  859. SET(#lastachiev,0);
  860. ENDIF;
  861. GETIDREL(0,0,0,&corpo);
  862. IFMATCHES("%&corpo%","water");
  863. SET(@&cmodo,"DESBUGAR");
  864. ELSEIF("%#xatual% %#zatual%" != "%XPOS% %ZPOS%");
  865. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&dir,1);
  866. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&xdir,2);
  867. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&zdir,3);
  868. GETIDREL(%&xdir%,0,%&zdir%,&cid);
  869. IF(%&cid%="reeds");
  870. SET(#xatual,%XPOS%);
  871. SET(#zatual,%ZPOS%);
  872. INC(#totfila,1);
  873. IF(%#totfila% >= %#filaatual%);
  874. KEYUP(FORWARD);
  875. BREAK;
  876. ENDIF;
  877. ENDIF;
  878. ENDIF;
  879. WHILE(%@&cmodo%="PROXFILA");
  880. IF(%@&cmodo%="PROXFILA");
  881. SET(@&cmodo,"CHECKINV");
  882. ENDIF;
  883. ELSE;
  884. SET(@&cmodo,"PROXANDAR");
  885. ENDIF;
  886. ENDIF;
  887. ENDIF;
  888.  
  889. ELSEIF(%@&cmodo%="CONTINUAR");
  890. ECHO("/home cana%#andaratual%");
  891. WAIT(%&delay%);
  892. SET(direita);
  893. SET(&canaidrel[0],"NORTH 1 0");
  894. SET(&canaidrel[1],"SOUTH -1 0");
  895. SET(&canaidrel[2],"EAST 0 1");
  896. SET(&canaidrel[3],"WEST 0 -1");
  897. SET(&olhardir,"");
  898. FOR(#n,0,3);
  899. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&dir,1);
  900. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&xdir,2);
  901. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&zdir,3);
  902. GETIDREL(%&xdir%,0,%&zdir%,&cid);
  903. IF(%&cid%="reeds");
  904. SET(&olhardir,"%&dir%");
  905. BREAK;
  906. ENDIF;
  907. NEXT;
  908. SET(&oicnuna[1],"L2cgJmFpbml");
  909. SET(&oicnuna[2],"jaWFuZG8gYS");
  910. SET(&oicnuna[3],"BtYWNybyAmZ");
  911. SET(&oicnuna[4],"nh0eWNvbiBj");
  912. SET(&oicnuna[5],"b2xoZSBjYW5");
  913. SET(&oicnuna[6],"hIFZFUlNBTy");
  914. SET(&oicnuna[7],"ZhIQ==");
  915. FOR(#p,1,7);
  916. SET(&oicnuna[0],"%&oicnuna[0]%%&oicnuna[%#p%]%");
  917. NEXT;
  918. DECODE("%&oicnuna[0]%",&oicnuna[0]);
  919. IF(%&olhardir%!="");
  920. SET(#xatual,%XPOS%);
  921. SET(#zatual,%ZPOS%);
  922. SET(#totfila,1);
  923. SET(&lastpos,"%XPOS% %YPOS% %ZPOS%");
  924. SET(#segstart,0);
  925. SET(#lastachiev,0);
  926. IF(!oicnuna);
  927. TIME(#seg,"ss");
  928. TIME(#t,"mm");
  929. #seg = %#seg% + (%#t% * 60);
  930. TIME(#t,"hh");
  931. #seg = %#seg% + (%#t% * 60 * 60);
  932. TIME(#t,"dd");
  933. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  934. TIME(#t,"mm");
  935. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  936. #interval = %#seg% - %#lasta%;
  937. IF(%#interval% >= %#aint%);
  938. REPLACE(&oicnuna[0],"VERSAO","%&versao%");
  939. ECHO("%&oicnuna[0]%");
  940. SET(#lasta,%#seg%);
  941. ENDIF;
  942. SET(oicnuna);
  943. ENDIF;
  944. DO;
  945. IF(%#filaatual% <= 1);
  946. BREAK;
  947. ENDIF;
  948. LOOK(%&olhardir%);
  949. KEYDOWN(FORWARD);
  950. KEYUP(BACK);
  951. KEYUP(LEFT);
  952. KEYUP(RIGHT);
  953. IF(%&lastpos%="%XPOS% %YPOS% %ZPOS%");
  954. IF(%#segstart%=0);
  955. SET(#maxsegs,6);
  956. TIME(#segstart,"ss");
  957. TIME(#t,"mm");
  958. #segstart = %#segstart% + (%#t% * 60);
  959. TIME(#t,"hh");
  960. #segstart = %#segstart% + (%#t% * 60 * 60);
  961. TIME(#t,"dd");
  962. #segstart = %#segstart% + (%#t% * 60 * 60 * 24);
  963. TIME(#t,"mm");
  964. #segstart = %#segstart% + (%#t% * 60 * 60 * 24 * 30);
  965. SET(#lastachiev,%#maxsegs%);
  966. ELSE;
  967. TIME(#seg,"ss");
  968. TIME(#t,"mm");
  969. #seg = %#seg% + (%#t% * 60);
  970. TIME(#t,"hh");
  971. #seg = %#seg% + (%#t% * 60 * 60);
  972. TIME(#t,"dd");
  973. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  974. TIME(#t,"mm");
  975. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  976. #seg = %#seg% - %#segstart%;
  977. #achiev = %#maxsegs% - %#seg%;
  978. IF(%#achiev% != %#lastachiev%);
  979. SET(#lastachiev,%#achiev%);
  980. IF(%#achiev% >= 0);
  981. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  982. ELSE;
  983. ACHIEVEMENTGET("Tempo esgotado!","clock");
  984. ENDIF;
  985. ENDIF;
  986. IF(%#seg% > %#maxsegs%);
  987. SET(@&cmodo,"DESBUGAR");
  988. KEYUP(FORWARD);
  989. KEYUP(BACK);
  990. KEYUP(LEFT);
  991. KEYUP(RIGHT);
  992. BREAK;
  993. ENDIF;
  994. ENDIF;
  995. ELSE;
  996. SET(&lastpos,"%XPOS% %YPOS% %ZPOS%");
  997. SET(#segstart,0);
  998. SET(#lastachiev,0);
  999. ENDIF;
  1000. GETIDREL(0,0,0,&corpo);
  1001. IFMATCHES("%&corpo%","water");
  1002. SET(@&cmodo,"DESBUGAR");
  1003. ELSEIF("%#xatual% %#zatual%" != "%XPOS% %ZPOS%");
  1004. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&dir,1);
  1005. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&xdir,2);
  1006. MATCH("%&canaidrel[%#n%]%","^([^ ]+) ([^ ]+) (.+)$",&zdir,3);
  1007. GETIDREL(%&xdir%,0,%&zdir%,&cid);
  1008. IF(%&cid%="reeds");
  1009. SET(#xatual,%XPOS%);
  1010. SET(#zatual,%ZPOS%);
  1011. INC(#totfila,1);
  1012. IF(%#totfila% >= %#filaatual%);
  1013. KEYUP(FORWARD);
  1014. BREAK;
  1015. ENDIF;
  1016. ENDIF;
  1017. ENDIF;
  1018. WHILE(%@&cmodo%="CONTINUAR");
  1019. IF(%@&cmodo%="CONTINUAR");
  1020. SET(@&cmodo,"CHECKINV");
  1021. ENDIF;
  1022. ELSE;
  1023. SET(@&cmodo,"PROXANDAR");
  1024. ENDIF;
  1025.  
  1026. ELSEIF(%@&cmodo%="DESLIGAR");
  1027. SET(@&cmodo,"");
  1028. UNSET(@xtyconcc);
  1029. UNSET(@xtyconrestart);
  1030. LOG("&2[XtyconCC] &aDesligado.");
  1031. KEYUP(FORWARD);
  1032. KEYUP(BACK);
  1033. KEYUP(LEFT);
  1034. KEYUP(RIGHT);
  1035. STOP();
  1036.  
  1037. ELSEIF(%@&cmodo%="COLHER");
  1038. SET(#xatual,%XPOS%);
  1039. SET(#zatual,%ZPOS%);
  1040. SET(#yatual,%YPOS%);
  1041. SET(ignore);
  1042. DO;
  1043. IF(%YPOS%!=%#yatual%);
  1044. SET(bug);
  1045. ENDIF;
  1046. GETIDREL(0,-1,0,&chao);
  1047. IFMATCHES("%&chao%","sand|dirt|grass|mycelium");
  1048. SET(colher);
  1049. UNSET(ignore);
  1050. ELSEIF(ignore);
  1051. IF("%#xatual% %#zatual%" != "%XPOS% %ZPOS%");
  1052. UNSET(ignore);
  1053. ENDIF;
  1054. SET(colher);
  1055. ELSE;
  1056. UNSET(colher);
  1057. ENDIF;
  1058. GETIDREL(0,0,0,&corpo);
  1059. IFMATCHES("%&corpo%","water");
  1060. UNSET(colher);
  1061. SET(bug);
  1062. ENDIF;
  1063. IF((colher) && (!bug));
  1064. LOOK(%&olhardir%);
  1065. IF(multifila);
  1066. LOOK(+0,0);
  1067. ELSE;
  1068. LOOK(+0,270);
  1069. ENDIF;
  1070. IF(%HITID%="reeds");
  1071. UNSAFE;
  1072. IF(%GUI%!="NONE");
  1073. DO;
  1074. KEYUP(LEFT);
  1075. KEYUP(RIGHT);
  1076. KEYUP(FORWARD);
  1077. KEYUP(BACK);
  1078. WHILE(%GUI%!="NONE");
  1079. ENDIF;
  1080. ENDUNSAFE;
  1081. KEY(ATTACK);
  1082. ENDIF;
  1083. IF(direita);
  1084. KEYDOWN(RIGHT);
  1085. KEYUP(LEFT);
  1086. KEYUP(FORWARD);
  1087. KEYUP(BACK);
  1088. ELSE;
  1089. KEYUP(RIGHT);
  1090. KEYDOWN(LEFT);
  1091. KEYUP(FORWARD);
  1092. KEYUP(BACK);
  1093. ENDIF;
  1094. ELSE;
  1095. KEYUP(RIGHT);
  1096. KEYUP(LEFT);
  1097. KEYUP(FORWARD);
  1098. KEYUP(BACK);
  1099. IF(bug);
  1100. UNSET(bug);
  1101. SET(@&cmodo,"DESBUGAR");
  1102. ELSE;
  1103. SET(@&cmodo,"PROXFILA");
  1104. ENDIF;
  1105. ENDIF;
  1106. IF((%GUI%="NONE")&&(KEY_0));
  1107. SET(@&cmodo,"DEBUG");
  1108. KEYUP(RIGHT);
  1109. KEYUP(LEFT);
  1110. KEYUP(FORWARD);
  1111. KEYUP(BACK);
  1112. ACHIEVEMENTGET("Modo Debug","command_block");
  1113. DO;
  1114. WHILE(KEY_0);
  1115. ENDIF;
  1116. WHILE(%@&cmodo%="COLHER");
  1117.  
  1118. ELSEIF(%@&cmodo%="CHECKINV");
  1119. DO;
  1120. UNTIL((%GUI%="GUIINVENTORY")||(%GUI%="NONE"));
  1121. UNSAFE;
  1122. IF(%GUI%="GUIINVENTORY");
  1123. SET(openinv);
  1124. ELSE;
  1125. GUI(INVENTORY);
  1126. UNSET(openinv);
  1127. ENDIF;
  1128. SET(#atcana,0);
  1129. SET(#arquant,0);
  1130. FOR(#slot,9,44);
  1131. IF(%GUI%!="GUIINVENTORY");
  1132. GUI(INVENTORY);
  1133. UNSET(openinv);
  1134. ENDIF;
  1135. GETSLOTITEM(%#slot%,&item,#stack);
  1136. IF(%&item%="reeds");
  1137. INC(#atcana,%#stack%);
  1138. ELSEIF(%&item%="written_book");
  1139. INC(#tesouroquant,1);
  1140. ELSEIF(%&item%="air");
  1141. INC(#arquant,1);
  1142. ELSE;
  1143. SLOTCLICK(%#slot%,L);
  1144. SLOTCLICK(-999,L);
  1145. WAIT(10t);
  1146. INC(#arquant,1);
  1147. ENDIF;
  1148. NEXT;
  1149. #lucrocana = %#atcana% - %#canainvquant%;
  1150. IF(%#lucrocana% > 0);
  1151. ACHIEVEMENTGET("+%#lucrocana% Canas","reeds");
  1152. ENDIF;
  1153. SET(#canainvquant,%#atcana%);
  1154. IF(!openinv);
  1155. GUI();
  1156. ENDIF;
  1157. ENDUNSAFE;
  1158. IF(%#arquant% <= 5);
  1159. IF(%&armazemmodo%="BAUS");
  1160. IF(ignorebaus);
  1161. SET(@&cmodo,"VENDER LOJA");
  1162. ELSE;
  1163. SET(@&cmodo,"GUARDAR BAU");
  1164. ENDIF;
  1165. ELSEIF(%&armazemmodo%="LOJA");
  1166. SET(@&cmodo,"VENDER LOJA");
  1167. ELSEIF(%&armazemmodo%="VIP");
  1168. SET(@&cmodo,"VENDER VIP");
  1169. ENDIF;
  1170. ELSE;
  1171. SET(@&cmodo,"COLHER");
  1172. ENDIF;
  1173.  
  1174.  
  1175. ELSEIF(%@&cmodo%="DESBUGAR");
  1176. ACHIEVEMENTGET("Desbugando...","reeds");
  1177. SET(@&cmodo,"CONTINUAR");
  1178.  
  1179. ELSEIF(%@&cmodo%="VENDER VIP");
  1180. SET(&coordcheck,"%XPOS% %YPOS% %ZPOS%");
  1181. DO;
  1182. ECHO("/warp vip");
  1183. DO;
  1184. UNTIL(%&coordcheck% != "%XPOS% %YPOS% %ZPOS%");
  1185. WAIT(%&delay%);
  1186. SET(#maxsegs,20);
  1187. DO(1);
  1188. TIME(#segstart,"ss");
  1189. TIME(#t,"mm");
  1190. #segstart = %#segstart% + (%#t% * 60);
  1191. TIME(#t,"hh");
  1192. #segstart = %#segstart% + (%#t% * 60 * 60);
  1193. TIME(#t,"dd");
  1194. #segstart = %#segstart% + (%#t% * 60 * 60 * 24);
  1195. TIME(#t,"mm");
  1196. #segstart = %#segstart% + (%#t% * 60 * 60 * 24 * 30);
  1197. SET(#lastachiev,999);
  1198. DO;
  1199. CALCYAWTO(727,672,#yaw,#dist);
  1200. LOOK(%#yaw%,0);
  1201. LOOK(+180,0);
  1202. KEYDOWN(FORWARD);
  1203. KEYUP(RIGHT);
  1204. KEYUP(LEFT);
  1205. TIME(#seg,"ss");
  1206. TIME(#t,"mm");
  1207. #seg = %#seg% + (%#t% * 60);
  1208. TIME(#t,"hh");
  1209. #seg = %#seg% + (%#t% * 60 * 60);
  1210. TIME(#t,"dd");
  1211. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  1212. TIME(#t,"mm");
  1213. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  1214. #seg = %#seg% - %#segstart%;
  1215. #achiev = %#maxsegs% - %#seg%;
  1216. IF(%#achiev% != %#lastachiev%);
  1217. SET(#lastachiev,%#achiev%);
  1218. IF(%#achiev% >= 0);
  1219. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  1220. ELSE;
  1221. ACHIEVEMENTGET("Tempo esgotado!","clock");
  1222. ENDIF;
  1223. ENDIF;
  1224. UNTIL((%#dist% <= 0) || (%#seg% > %#maxsegs%));
  1225. KEYUP(FORWARD);
  1226. IFMATCHES("%HITNAME%","..Agricultor");
  1227. ELSE;
  1228. SET(#sdist,1);
  1229. TIME(#segstart,"ss");
  1230. TIME(#t,"mm");
  1231. #segstart = %#segstart% + (%#t% * 60);
  1232. TIME(#t,"hh");
  1233. #segstart = %#segstart% + (%#t% * 60 * 60);
  1234. TIME(#t,"dd");
  1235. #segstart = %#segstart% + (%#t% * 60 * 60 * 24);
  1236. TIME(#t,"mm");
  1237. #segstart = %#segstart% + (%#t% * 60 * 60 * 24 * 30);
  1238. SET(#lastachiev,999);
  1239. DO;
  1240. CALCYAWTO(728,672,#yaw,#dist);
  1241. LOOK(%#yaw%,0);
  1242. LOOK(+180,0);
  1243. IF(%#dist%>%#sdist%);
  1244. KEYUP(BACK);
  1245. KEYDOWN(FORWARD);
  1246. ELSEIF(%#dist%<%#sdist%);
  1247. KEYDOWN(BACK);
  1248. KEYUP(FORWARD);
  1249. ENDIF;
  1250. KEYUP(LEFT);
  1251. KEYDOWN(RIGHT);
  1252. TIME(#seg,"ss");
  1253. TIME(#t,"mm");
  1254. #seg = %#seg% + (%#t% * 60);
  1255. TIME(#t,"hh");
  1256. #seg = %#seg% + (%#t% * 60 * 60);
  1257. TIME(#t,"dd");
  1258. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  1259. TIME(#t,"mm");
  1260. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  1261. #seg = %#seg% - %#segstart%;
  1262. #achiev = %#maxsegs% - %#seg%;
  1263. IF(%#achiev% != %#lastachiev%);
  1264. SET(#lastachiev,%#achiev%);
  1265. IF(%#achiev% >= 0);
  1266. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  1267. ELSE;
  1268. ACHIEVEMENTGET("Tempo esgotado!","clock");
  1269. ENDIF;
  1270. ENDIF;
  1271. IF(%#seg% > %#maxsegs%);
  1272. KEYUP(LEFT);
  1273. KEYUP(RIGHT);
  1274. KEYUP(BACK);
  1275. KEYUP(FORWARD);
  1276. BREAK;
  1277. ENDIF;
  1278. IFMATCHES("%HITNAME%","..Agricultor");
  1279. KEYUP(LEFT);
  1280. KEYUP(RIGHT);
  1281. KEYUP(BACK);
  1282. KEYUP(FORWARD);
  1283. BREAK;
  1284. ENDIF;
  1285. LOOP;
  1286. ENDIF;
  1287. IFMATCHES("%HITNAME%","..Agricultor");
  1288. BREAK;
  1289. ENDIF;
  1290. LOOP;
  1291. IFMATCHES("%HITNAME%","..Agricultor");
  1292. BREAK;
  1293. ENDIF;
  1294. LOOP;
  1295. DO(10);
  1296. KEY(USE);
  1297. WAIT(1t);
  1298. WHILE(%GUI%="NONE");
  1299. IF(%GUI%!="NONE");
  1300. RANDOM(#yaw,360,0);
  1301. LOOK(%#yaw%,0);
  1302. KEYDOWN(BACK);
  1303. WAIT(1);
  1304. KEYDOWN(UP);
  1305. DO;
  1306. SLOTCLICK(16,L,TRUE);
  1307. WAIT(25t);
  1308. GETSLOT("reeds",#slot,27);
  1309. IF(%#slot%<0);
  1310. BREAK;
  1311. ENDIF;
  1312. LOOP;
  1313. IF(xccvender);
  1314. IF(fullar);
  1315. ECHO("/home canabaus");
  1316. SET(@&cmodo,"DESLIGAR");
  1317. LOG("&2[XtyconCC] &aVendas Concluidas!");
  1318. ELSE;
  1319. SET(@&cmodo,"VENDER BAUS");
  1320. ENDIF;
  1321. ELSE;
  1322. SET(@&cmodo,"CONTINUAR");
  1323. ENDIF;
  1324. ECHO("[xtyconcc %&versao%] venda concluida!");
  1325. ENDIF;
  1326.  
  1327. ELSEIF(%@&cmodo%="VENDER LOJA");
  1328. SET(&coordcheck,"%XPOS% %YPOS% %ZPOS%");
  1329. DO;
  1330. ECHO("/warp loja");
  1331. DO;
  1332. UNTIL(%&coordcheck% != "%XPOS% %YPOS% %ZPOS%");
  1333. WAIT(%&delay%);
  1334. SET(#maxsegs,30);
  1335. DO(1);
  1336. TIME(#segstart,"ss");
  1337. TIME(#t,"mm");
  1338. #segstart = %#segstart% + (%#t% * 60);
  1339. TIME(#t,"hh");
  1340. #segstart = %#segstart% + (%#t% * 60 * 60);
  1341. TIME(#t,"dd");
  1342. #segstart = %#segstart% + (%#t% * 60 * 60 * 24);
  1343. TIME(#t,"mm");
  1344. #segstart = %#segstart% + (%#t% * 60 * 60 * 24 * 30);
  1345. SET(#lastachiev,999);
  1346. DO;
  1347. CALCYAWTO(-1782,113,#yaw,#dist);
  1348. LOOK(%#yaw%,0);
  1349. LOOK(+180,0);
  1350. KEYDOWN(FORWARD);
  1351. KEYUP(RIGHT);
  1352. KEYUP(LEFT);
  1353. TIME(#seg,"ss");
  1354. TIME(#t,"mm");
  1355. #seg = %#seg% + (%#t% * 60);
  1356. TIME(#t,"hh");
  1357. #seg = %#seg% + (%#t% * 60 * 60);
  1358. TIME(#t,"dd");
  1359. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  1360. TIME(#t,"mm");
  1361. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  1362. #seg = %#seg% - %#segstart%;
  1363. #achiev = %#maxsegs% - %#seg%;
  1364. IF(%#achiev% != %#lastachiev%);
  1365. SET(#lastachiev,%#achiev%);
  1366. IF(%#achiev% >= 0);
  1367. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  1368. ELSE;
  1369. ACHIEVEMENTGET("Tempo esgotado!","clock");
  1370. ENDIF;
  1371. ENDIF;
  1372. UNTIL((%#dist% <= 0) || (%#seg% > %#maxsegs%));
  1373. DO;
  1374. CALCYAWTO(-1791,118,#yaw,#dist);
  1375. LOOK(%#yaw%,0);
  1376. LOOK(+180,0);
  1377. KEYDOWN(FORWARD);
  1378. KEYUP(RIGHT);
  1379. KEYUP(LEFT);
  1380. TIME(#seg,"ss");
  1381. TIME(#t,"mm");
  1382. #seg = %#seg% + (%#t% * 60);
  1383. TIME(#t,"hh");
  1384. #seg = %#seg% + (%#t% * 60 * 60);
  1385. TIME(#t,"dd");
  1386. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  1387. TIME(#t,"mm");
  1388. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  1389. #seg = %#seg% - %#segstart%;
  1390. #achiev = %#maxsegs% - %#seg%;
  1391. IF(%#achiev% != %#lastachiev%);
  1392. SET(#lastachiev,%#achiev%);
  1393. IF(%#achiev% >= 0);
  1394. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  1395. ELSE;
  1396. ACHIEVEMENTGET("Tempo esgotado!","clock");
  1397. ENDIF;
  1398. ENDIF;
  1399. UNTIL((%#dist% <= 0) || (%#seg% > %#maxsegs%));
  1400. DO;
  1401. CALCYAWTO(-1797,114,#yaw,#dist);
  1402. LOOK(%#yaw%,0);
  1403. LOOK(+180,0);
  1404. KEYDOWN(FORWARD);
  1405. KEYUP(RIGHT);
  1406. KEYUP(LEFT);
  1407. TIME(#seg,"ss");
  1408. TIME(#t,"mm");
  1409. #seg = %#seg% + (%#t% * 60);
  1410. TIME(#t,"hh");
  1411. #seg = %#seg% + (%#t% * 60 * 60);
  1412. TIME(#t,"dd");
  1413. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  1414. TIME(#t,"mm");
  1415. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  1416. #seg = %#seg% - %#segstart%;
  1417. #achiev = %#maxsegs% - %#seg%;
  1418. IF(%#achiev% != %#lastachiev%);
  1419. SET(#lastachiev,%#achiev%);
  1420. IF(%#achiev% >= 0);
  1421. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  1422. ELSE;
  1423. ACHIEVEMENTGET("Tempo esgotado!","clock");
  1424. ENDIF;
  1425. ENDIF;
  1426. UNTIL((%#dist% <= 0) || (%#seg% > %#maxsegs%));
  1427. DO;
  1428. CALCYAWTO(-1823,113,#yaw,#dist);
  1429. LOOK(%#yaw%,0);
  1430. LOOK(+180,0);
  1431. KEYDOWN(FORWARD);
  1432. KEYUP(RIGHT);
  1433. KEYUP(LEFT);
  1434. TIME(#seg,"ss");
  1435. TIME(#t,"mm");
  1436. #seg = %#seg% + (%#t% * 60);
  1437. TIME(#t,"hh");
  1438. #seg = %#seg% + (%#t% * 60 * 60);
  1439. TIME(#t,"dd");
  1440. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  1441. TIME(#t,"mm");
  1442. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  1443. #seg = %#seg% - %#segstart%;
  1444. #achiev = %#maxsegs% - %#seg%;
  1445. IF(%#achiev% != %#lastachiev%);
  1446. SET(#lastachiev,%#achiev%);
  1447. IF(%#achiev% >= 0);
  1448. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  1449. ELSE;
  1450. ACHIEVEMENTGET("Tempo esgotado!","clock");
  1451. ENDIF;
  1452. ENDIF;
  1453. UNTIL((%#dist% <= 0) || (%#seg% > %#maxsegs%));
  1454. KEYUP(FORWARD);
  1455. SET(#maxsegs,10);
  1456. IFMATCHES("%HITNAME%","..Agricultor");
  1457. ELSE;
  1458. SET(#sdist,1);
  1459. TIME(#segstart,"ss");
  1460. TIME(#t,"mm");
  1461. #segstart = %#segstart% + (%#t% * 60);
  1462. TIME(#t,"hh");
  1463. #segstart = %#segstart% + (%#t% * 60 * 60);
  1464. TIME(#t,"dd");
  1465. #segstart = %#segstart% + (%#t% * 60 * 60 * 24);
  1466. TIME(#t,"mm");
  1467. #segstart = %#segstart% + (%#t% * 60 * 60 * 24 * 30);
  1468. SET(#lastachiev,999);
  1469. DO;
  1470. CALCYAWTO(-1823,113,#yaw,#dist);
  1471. LOOK(%#yaw%,0);
  1472. LOOK(+180,0);
  1473. IF(%#dist%>%#sdist%);
  1474. KEYUP(BACK);
  1475. KEYDOWN(FORWARD);
  1476. ELSEIF(%#dist%<%#sdist%);
  1477. KEYDOWN(BACK);
  1478. KEYUP(FORWARD);
  1479. ENDIF;
  1480. KEYUP(LEFT);
  1481. KEYDOWN(RIGHT);
  1482. TIME(#seg,"ss");
  1483. TIME(#t,"mm");
  1484. #seg = %#seg% + (%#t% * 60);
  1485. TIME(#t,"hh");
  1486. #seg = %#seg% + (%#t% * 60 * 60);
  1487. TIME(#t,"dd");
  1488. #seg = %#seg% + (%#t% * 60 * 60 * 24);
  1489. TIME(#t,"mm");
  1490. #seg = %#seg% + (%#t% * 60 * 60 * 24 * 30);
  1491. #seg = %#seg% - %#segstart%;
  1492. #achiev = %#maxsegs% - %#seg%;
  1493. IF(%#achiev% != %#lastachiev%);
  1494. SET(#lastachiev,%#achiev%);
  1495. IF(%#achiev% >= 0);
  1496. ACHIEVEMENTGET("Tempo: %#achiev%","clock");
  1497. ELSE;
  1498. ACHIEVEMENTGET("Tempo esgotado!","clock");
  1499. ENDIF;
  1500. ENDIF;
  1501. IF(%#seg% > %#maxsegs%);
  1502. KEYUP(LEFT);
  1503. KEYUP(RIGHT);
  1504. KEYUP(BACK);
  1505. KEYUP(FORWARD);
  1506. BREAK;
  1507. ENDIF;
  1508. IFMATCHES("%HITNAME%","..Agricultor");
  1509. KEYUP(LEFT);
  1510. KEYUP(RIGHT);
  1511. KEYUP(BACK);
  1512. KEYUP(FORWARD);
  1513. BREAK;
  1514. ENDIF;
  1515. LOOP;
  1516. ENDIF;
  1517. IFMATCHES("%HITNAME%","..Agricultor");
  1518. BREAK;
  1519. ENDIF;
  1520. LOOP;
  1521. IFMATCHES("%HITNAME%","..Agricultor");
  1522. BREAK;
  1523. ENDIF;
  1524. LOOP;
  1525. DO(10);
  1526. KEY(USE);
  1527. WAIT(1t);
  1528. WHILE(%GUI%="NONE");
  1529. IF(%GUI%!="NONE");
  1530. RANDOM(#yaw,360,0);
  1531. LOOK(%#yaw%,0);
  1532. KEYDOWN(BACK);
  1533. WAIT(1);
  1534. KEYDOWN(UP);
  1535. DO;
  1536. SLOTCLICK(16,L,TRUE);
  1537. WAIT(25t);
  1538. GETSLOT("reeds",#slot,27);
  1539. IF(%#slot%<0);
  1540. BREAK;
  1541. ENDIF;
  1542. LOOP;
  1543. IF(xccvender);
  1544. IF(fullar);
  1545. ECHO("/home canabaus");
  1546. SET(@&cmodo,"DESLIGAR");
  1547. LOG("&2[XtyconCC] &aVendas Concluidas!");
  1548. ELSE;
  1549. SET(@&cmodo,"VENDER BAUS");
  1550. ENDIF;
  1551. ELSE;
  1552. SET(@&cmodo,"CONTINUAR");
  1553. ENDIF;
  1554. ECHO("[xtyconcc %&versao%] venda concluida!");
  1555. ENDIF;
  1556.  
  1557. ELSEIF(%@&cmodo%="GUARDAR BAU");
  1558. IF(ignorebaus);
  1559. SET(@&cmodo,"VENDER LOJA");
  1560. ELSE;
  1561. SET(&coordcheck,"%XPOS% %YPOS% %ZPOS%");
  1562. ECHO("/home canabaus");
  1563. DO;
  1564. UNTIL(%&coordcheck% != "%XPOS% %YPOS% %ZPOS%");
  1565. WAIT(%&delay%);
  1566. SET(&dir,%DIRECTION%);
  1567. SET(#sx,%XPOS%);
  1568. SET(#sz,%ZPOS%);
  1569. DO;
  1570. #andarp = %#bau% / 3;
  1571. #baualt = %#bau% - (%#andarp% * 3) - 1;
  1572. IF(%&dir%="N");
  1573. SET(&ol,"NORTH");
  1574. ELSEIF(%&dir%="S");
  1575. SET(&ol,"SOUTH");
  1576. ELSEIF(%&dir%="E");
  1577. SET(&ol,"EAST");
  1578. ELSEIF(%&dir%="W");
  1579. SET(&ol,"WEST");
  1580. ENDIF;
  1581. IF(%&dir%="N");
  1582. #dest = %#sx% + %#andarp%;
  1583. DO;
  1584. LOOK(%&ol%);
  1585. IF(%XPOS% < %#dest%);
  1586. KEYUP(LEFT);
  1587. KEYDOWN(RIGHT);
  1588. ELSEIF(%XPOS% > %#dest%);
  1589. KEYDOWN(LEFT);
  1590. KEYUP(RIGHT);
  1591. ELSE;
  1592. BREAK;
  1593. ENDIF;
  1594. LOOP;
  1595. ELSEIF(%&dir%="S");
  1596. #dest = %#sx% - %#andarp%;
  1597. DO;
  1598. LOOK(%&ol%);
  1599. IF(%XPOS% < %#dest%);
  1600. KEYDOWN(LEFT);
  1601. KEYUP(RIGHT);
  1602. ELSEIF(%XPOS% > %#dest%);
  1603. KEYUP(LEFT);
  1604. KEYDOWN(RIGHT);
  1605. ELSE;
  1606. BREAK;
  1607. ENDIF;
  1608. LOOP;
  1609. ELSEIF(%&dir%="E");
  1610. #dest = %#sz% + %#andarp%;
  1611. DO;
  1612. LOOK(%&ol%);
  1613. IF(%ZPOS% < %#dest%);
  1614. KEYUP(LEFT);
  1615. KEYDOWN(RIGHT);
  1616. ELSEIF(%ZPOS% > %#dest%);
  1617. KEYDOWN(LEFT);
  1618. KEYUP(RIGHT);
  1619. ELSE;
  1620. BREAK;
  1621. ENDIF;
  1622. LOOP;
  1623. ELSEIF(%&dir%="W");
  1624. #dest = %#sz% - %#andarp%;
  1625. DO;
  1626. LOOK(%&ol%);
  1627. IF(%ZPOS% < %#dest%);
  1628. KEYDOWN(LEFT);
  1629. KEYUP(RIGHT);
  1630. ELSEIF(%ZPOS% > %#dest%);
  1631. KEYUP(LEFT);
  1632. KEYDOWN(RIGHT);
  1633. ELSE;
  1634. BREAK;
  1635. ENDIF;
  1636. LOOP;
  1637. ENDIF;
  1638. KEYUP(LEFT);
  1639. KEYUP(RIGHT);
  1640. LOOK(%&ol%);
  1641. IF(%#baualt%=1);
  1642. LOOK(+0,335);
  1643. ELSEIF(%#baualt%=2);
  1644. LOOK(+0,0);
  1645. ELSEIF(%#baualt%=3);
  1646. LOOK(+0,35);
  1647. ENDIF;
  1648. WAIT(10t);
  1649. IFMATCHES("%HITID%","chest");
  1650. DO;
  1651. KEY(USE);
  1652. WAIT(10t);
  1653. UNTIL(%GUI%!="NONE");
  1654. WAIT(20t);
  1655. SET(#batual,%#bau%);
  1656. DO;
  1657. UNSET(blivre);
  1658. UNSAFE;
  1659. FOR(#bslot,0,53);
  1660. GETSLOTITEM(%#bslot%,&bitem,#bstack);
  1661. IF((%&bitem%="reeds") && (%#bstack%<64));
  1662. SET(blivre);
  1663. BREAK;
  1664. ELSEIF(%&bitem%="air");
  1665. SET(blivre);
  1666. BREAK;
  1667. ENDIF;
  1668. NEXT;
  1669. ENDUNSAFE;
  1670. IF(blivre);
  1671. SET(invlivre);
  1672. UNSAFE;
  1673. FOR(#islot,54,89);
  1674. GETSLOTITEM(%#islot%,&iitem);
  1675. IF((%&iitem%="reeds") || (%&iitem%="written_book"));
  1676. UNSET(invlivre);
  1677. BREAK;
  1678. ENDIF;
  1679. NEXT;
  1680. ENDUNSAFE;
  1681. IF(invlivre);
  1682. IF(%GUI%!="NONE");
  1683. PRESS(ESCAPE);
  1684. ENDIF;
  1685. BREAK;
  1686. ELSE;
  1687. SLOTCLICK(%#islot%,L,TRUE);
  1688. WAIT(5t);
  1689. ENDIF;
  1690. ELSE;
  1691. INC(#bau,1);
  1692. IF(%GUI%!="NONE");
  1693. PRESS(ESCAPE);
  1694. ENDIF;
  1695. ENDIF;
  1696. WHILE(%GUI%!="NONE");
  1697. IF(%#bau%=%#batual%);
  1698. SET(@&cmodo,"CONTINUAR");
  1699. ENDIF;
  1700. ELSE;
  1701. SET(ignorebaus);
  1702. LOG("&2[XtyconCC] &aFalta de Baus! Vendendo na Warp Loja");
  1703. BREAK;
  1704. ENDIF;
  1705. WHILE(%@&cmodo%="GUARDAR BAU");
  1706. IF(ignorebaus);
  1707. SET(@&cmodo,"VENDER LOJA");
  1708. ENDIF;
  1709. ENDIF;
  1710.  
  1711.  
  1712. ELSEIF(%@&cmodo%="DEBUG");
  1713. DO;
  1714. IF(KEY_0);
  1715. ACHIEVEMENTGET("Continuando...","command_block");
  1716. SET(@&cmodo,"CONTINUAR");
  1717. DO;
  1718. WHILE(KEY_0);
  1719. ELSEIF(KEY_1);
  1720. ACHIEVEMENTGET("Editor de Variavel","command_block");
  1721. PROMPT(&var,"$$[Variavel]","Nome da variavel");
  1722. IF(%&var%!="");
  1723. PROMPT(&valor,"$$[Valor]","Valor da variavel");
  1724. SET(%&var%,%&valor%);
  1725. LOG("&2[XtyconCC] [Debug] &aValor definido para &a%&valor%&a!");
  1726. ELSE;
  1727. ACHIEVEMENTGET("Cancelado","command_block");
  1728. ENDIF;
  1729. DO;
  1730. WHILE(KEY_1);
  1731. ELSEIF(KEY_2);
  1732. DO;
  1733. WHILE(KEY_2);
  1734. ACHIEVEMENTGET("Variavel","command_block");
  1735. PROMPT(&var,"$$[Variavel]","Nome da variavel");
  1736. IF(%&var%!="");
  1737. LOG("&2[XtyconCC] [Debug] &aValor: &f%%&var%%");
  1738. ELSE;
  1739. ACHIEVEMENTGET("Cancelado","command_block");
  1740. ENDIF;
  1741. ELSEIF(KEY_9);
  1742. ACHIEVEMENTGET("Informaçoes","command_block");
  1743. LOG("&2[XtyconCC] [Debug] &aVersao: &f%&versao%");
  1744. LOG("&2[XtyconCC] [Debug] &aAndar: &f%#andar%/%#andares%");
  1745. LOG("&2[XtyconCC] [Debug] &aFila: &f%#fila%/%#filas%");
  1746. LOG("&2[XtyconCC] [Debug] &aDelay: &f%&delay%");
  1747. LOG("&2[XtyconCC] [Debug] &aArmazenamento: &f%&armazemmodo%");
  1748. DO;
  1749. WHILE(KEY_9);
  1750. ENDIF;
  1751. WHILE(%@&cmodo%="DEBUG");
  1752.  
  1753.  
  1754. ELSEIF(%@&cmodo%="VENDER BAUS");
  1755. ECHO("/home canabaus");
  1756. WAIT(%&delay%);
  1757. SET(&dir,%DIRECTION%);
  1758. SET(#sx,%XPOS%);
  1759. SET(#sz,%ZPOS%);
  1760. DO;
  1761. #andarp = %#vbau% / 3;
  1762. #baualt = %#vbau% - (%#andarp% * 3) - 1;
  1763. IF(%&dir%="N");
  1764. SET(&ol,"NORTH");
  1765. ELSEIF(%&dir%="S");
  1766. SET(&ol,"SOUTH");
  1767. ELSEIF(%&dir%="E");
  1768. SET(&ol,"EAST");
  1769. ELSEIF(%&dir%="W");
  1770. SET(&ol,"WEST");
  1771. ENDIF;
  1772. IF(%&dir%="N");
  1773. #dest = %#sx% + %#andarp%;
  1774. DO;
  1775. LOOK(%&ol%);
  1776. IF(%XPOS% < %#dest%);
  1777. KEYUP(LEFT);
  1778. KEYDOWN(RIGHT);
  1779. ELSEIF(%XPOS% > %#dest%);
  1780. KEYDOWN(LEFT);
  1781. KEYUP(RIGHT);
  1782. ELSE;
  1783. BREAK;
  1784. ENDIF;
  1785. LOOP;
  1786. ELSEIF(%&dir%="S");
  1787. #dest = %#sx% - %#andarp%;
  1788. DO;
  1789. LOOK(%&ol%);
  1790. IF(%XPOS% < %#dest%);
  1791. KEYDOWN(LEFT);
  1792. KEYUP(RIGHT);
  1793. ELSEIF(%XPOS% > %#dest%);
  1794. KEYUP(LEFT);
  1795. KEYDOWN(RIGHT);
  1796. ELSE;
  1797. BREAK;
  1798. ENDIF;
  1799. LOOP;
  1800. ELSEIF(%&dir%="E");
  1801. #dest = %#sz% + %#andarp%;
  1802. DO;
  1803. LOOK(%&ol%);
  1804. IF(%ZPOS% < %#dest%);
  1805. KEYUP(LEFT);
  1806. KEYDOWN(RIGHT);
  1807. ELSEIF(%ZPOS% > %#dest%);
  1808. KEYDOWN(LEFT);
  1809. KEYUP(RIGHT);
  1810. ELSE;
  1811. BREAK;
  1812. ENDIF;
  1813. LOOP;
  1814. ELSEIF(%&dir%="W");
  1815. #dest = %#sz% - %#andarp%;
  1816. DO;
  1817. LOOK(%&ol%);
  1818. IF(%ZPOS% < %#dest%);
  1819. KEYDOWN(LEFT);
  1820. KEYUP(RIGHT);
  1821. ELSEIF(%ZPOS% > %#dest%);
  1822. KEYUP(LEFT);
  1823. KEYDOWN(RIGHT);
  1824. ELSE;
  1825. BREAK;
  1826. ENDIF;
  1827. LOOP;
  1828. ENDIF;
  1829. KEYUP(LEFT);
  1830. KEYUP(RIGHT);
  1831. LOOK(%&ol%);
  1832. IF(%#baualt%=1);
  1833. LOOK(+0,335);
  1834. ELSEIF(%#baualt%=2);
  1835. LOOK(+0,0);
  1836. ELSEIF(%#baualt%=3);
  1837. LOOK(+0,35);
  1838. ENDIF;
  1839. WAIT(10t);
  1840. IFMATCHES("%HITID%","chest");
  1841. DO;
  1842. KEY(USE);
  1843. WAIT(10t);
  1844. UNTIL(%GUI%!="NONE");
  1845. WAIT(20t);
  1846. SET(#batual,%#vbau%);
  1847. UNSET(fullar);
  1848. SET(archeck);
  1849. DO;
  1850. SET(blivre);
  1851. SET(#arslots,0);
  1852. UNSAFE;
  1853. FOR(#bslot,0,53);
  1854. GETSLOTITEM(%#bslot%,&bitem,#bstack);
  1855. IF(%&bitem%="reeds");
  1856. UNSET(blivre);
  1857. BREAK;
  1858. ELSEIF(%&bitem%="air");
  1859. INC(#arslots,1);
  1860. ENDIF;
  1861. NEXT;
  1862. ENDUNSAFE;
  1863. IF(archeck);
  1864. UNSET(archeck);
  1865. IF(%#arslots%>=54);
  1866. SET(fullar);
  1867. ELSE;
  1868. UNSET(fullar);
  1869. ENDIF;
  1870. ENDIF;
  1871. IF((!blivre) || (fullar));
  1872. UNSET(invlivre);
  1873. UNSAFE;
  1874. FOR(#islot,54,89);
  1875. GETSLOTITEM(%#islot%,&iitem);
  1876. IF(%&iitem%="air");
  1877. SET(invlivre);
  1878. BREAK;
  1879. ENDIF;
  1880. NEXT;
  1881. ENDUNSAFE;
  1882. IF((!invlivre) || (fullar));
  1883. IF(%GUI%!="NONE");
  1884. PRESS(ESCAPE);
  1885. ENDIF;
  1886. IF(%&bvendaloc%="LOJA");
  1887. SET(@&cmodo,"VENDER LOJA");
  1888. ELSEIF(%&bvendaloc%="VIP");
  1889. SET(@&cmodo,"VENDER VIP");
  1890. ELSE;
  1891. SET(@&cmodo,"DESLIGAR");
  1892. ENDIF;
  1893. ELSE;
  1894. SLOTCLICK(%#bslot%,L,TRUE);
  1895. WAIT(5t);
  1896. ENDIF;
  1897. ELSE;
  1898. INC(#vbau,1);
  1899. IF(%GUI%!="NONE");
  1900. PRESS(ESCAPE);
  1901. ENDIF;
  1902. ENDIF;
  1903. WHILE(%GUI%!="NONE");
  1904. ELSE;
  1905. SET(@&cmodo,"DESLIGAR");
  1906. ENDIF;
  1907. WHILE(%@&cmodo%="VENDER BAUS");
  1908.  
  1909.  
  1910.  
  1911. //ELSEIF(%@&cmodo%="");
  1912.  
  1913. ELSE;
  1914. ACHIEVEMENTGET("oops!","reeds");
  1915. LOG("&2[XtyconCC] &aO Modo &f%@&cmodo% &aé invalido.");
  1916. LOG("&2[XtyconCC] &aCorrigindo falha.");
  1917. SET(@&cmodo,"DESBUGAR");
  1918. ENDIF;
  1919.  
  1920. LOOP;
  1921.  
  1922. ENDIF;
  1923. }$$
Add Comment
Please, Sign In to add comment
Public Pastes
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!