API tools faq
paste
Guest User

XtyconColheCana v1.1

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