1. ;*************************************************

  2. ;Macro ARTESANO by OverQueen

  3. ;*************************************************

  4. set #SYSMSGCOL 10

  5. event sysmessage Macro para subir artesanía by OverQueen

  6. 

  7. ;*************************************************

  8. ;            CONFIGURACIONES (EDITAR)

  9. ;*************************************************

  10. set %cofre YOSMYMD; donde tienes lingotes y herramientas de artesano

  11. set %resortes TCG

  12. set %herramientas GTL

  13. set %hierro RMK

  14. set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD

  15. 

  16. inicio:

  17. gosub comer

  18. gosub hierro

  19. gosub herramientas

  20. gosub resortes

  21. gosub limpiar

  22. goto inicio

  23. 

  24. 

  25. ;*************************************************

  26. ;                     COMER

  27. ;*************************************************

  28. sub comer

  29. findItem %comida C_ , #BACKPACKID

  30. if #findcnt > 0

  31. {

  32. set #LOBJECTID #FINDID

  33. event macro 17

  34. }

  35. return

  36. 

  37. ;*************************************************

  38. ;                  REPONER HIERRO

  39. ;*************************************************

  40. sub hierro

  41. finditem %hierro C_ , #BACKPACKID

  42. if #FINDSTACK = 0

  43. {

  44. finditem %hierro C_

  45. exevent drag #FINDID 50

  46. exevent dropc #BACKPACKID

  47. wait 20

  48. }

  49. return

  50. 

  51. ;*************************************************

  52. ;               COGER HERRAMIENTAS

  53. ;*************************************************

  54. sub herramientas

  55. finditem %herramientas C_ , #BACKPACKID

  56. if #FINDSTACK = 0

  57. {

  58. finditem %herramientas C_

  59. exevent drag #FINDID 1

  60. exevent dropc #BACKPACKID

  61. wait 20

  62. }

  63. return

  64. 

  65. ;*************************************************

  66. ;                HACER RESORTES

  67. ;*************************************************

  68. sub resortes

  69. finditem %herramientas C_ , #BACKPACKID

  70. set #LOBJECTID #FINDID

  71. event macro 17

  72. wait 10

  73. click 65 150

  74. wait 10

  75. click 270 230

  76. wait 5s

  77. if Pones_ in #SYSMSG

  78. {

  79. finditem %hierro C_ , #BACKPACKID

  80. set #LOBJECTID #FINDID

  81. event macro 17

  82. wait 10

  83. click 69 423

  84. finditem %resortes C_ , #BACKPACKID

  85. set #LTARGETID #FINDID

  86. set #LTARGETKIND 1

  87. wait 10

  88. event macro 22

  89. wait 10

  90. goto inicio

  91. }

  92. 

  93. ;*************************************************

  94. ;           FUNDIR RESORTES SOBRANTES

  95. ;*************************************************

  96. sub limpiar

  97. finditem TCG C_ , #BACKPACKID

  98. if #FINDSTACK > 0

  99. {

  100. finditem RMK C_ , #BACKPACKID

  101. set #LOBJECTID #FINDID

  102. event macro 17

  103. wait 10

  104. click 69 423

  105. finditem TCG C_ , #BACKPACKID

  106. set #LTARGETID #FINDID

  107. set #LTARGETKIND 1

  108. wait 10

  109. event macro 22

  110. wait 10

  111. gosub limpiar

  112. }

  113. if #FINDSTACK = 0

  114. goto inicio: