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

  2. ;Macro ALQUIMIA (Veneno Menor) by OverQueen

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

  4. set #SYSMSGCOL 10

  5. event sysmessage Macro para subir alquimia by OverQueen

  6. 

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

  8. ;            CONFIGURACIONES (EDITAR)

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

  10. set %contenedor1 SFFXUOD ; regs, barriles, bolsas de morteros y botellas vacías

  11. set %contenedor2 UKTUNND ; bariles llenos

  12. set %comida RGG_NRD_QSD_ZBG_WLI_QRD_END_FUD_YLI_WLI_HGI_KGI_EGI_QLI_KLI_MLI_KRD_HQD_AQD_MQE_VQE_TQE_JQE_IQE_GQE_SPE_ZPE_OQE_BDF_KPE_RQE_YSD_SQD_YWI_AXI_PQD_QQD

  13. set %regs WZF

  14. set %botellas WUF

  15. set %barril QMJ

  16. set %morteros RQF

  17. 

  18. Inicio:

  19. gosub comer

  20. gosub cogerBa

  21. gosub cogerBo

  22. gosub cogerM

  23. gosub cogerR

  24. gosub pociones

  25. gosub llenar

  26. goto inicio

  27. 

  28. ;*************************************************

  29. ;                    COMER

  30. ;*************************************************

  31. sub comer

  32. set #LOBJECTID #FINDID

  33. findItem %comida C_ , #BACKPACKID

  34. set #LOBJECTID #FINDID

  35. wait 10

  36. event macro 17

  37. return

  38. 

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

  40. ;                 COGER BARRILES

  41. ;*************************************************

  42. sub cogerBa

  43. finditem %barril C_ , #BACKPACKID

  44. iF #FINDCNT = 0

  45. {

  46. finditem %barril C_ , %contenedor1

  47. exevent drag #FINDID

  48. wait 10

  49. exevent dropc #BACKPACKID

  50. wait 10

  51. }

  52. return

  53. 

  54. ;*************************************************

  55. ;                  COGER BOTELLAS

  56. ;*************************************************

  57. sub cogerBo

  58. finditem %botellas C_ , #BACKPACKID

  59. if #FINDCNT = 0

  60. {

  61. finditem %botellas C_ , %contenedor1

  62. exevent drag #FINDID 1

  63. exevent dropc #BACKPACKID

  64. wait 5

  65. }

  66. return

  67. 

  68. ;*************************************************

  69. ;                 COGER MORTEROS

  70. ;*************************************************

  71. sub cogerM

  72. finditem %morteros C_ , #BACKPACKID

  73. iF #FINDCNT = 0

  74. {

  75. finditem %morteros C_ , %contenedor1

  76. exevent drag #FINDID

  77. exevent dropc #BACKPACKID

  78. wait 5

  79. }

  80. return

  81. 

  82. ;*************************************************

  83. ;                   COGER REGS

  84. ;*************************************************

  85. sub cogerR

  86. finditem %regs C_ , #BACKPACKID

  87. if #FINDSTACK < 5

  88. {

  89. finditem %regs C_ , %contenedor1

  90. exevent drag #FINDID 50

  91. exevent dropc #BACKPACKID

  92. wait 5

  93. }

  94. return

  95. 

  96. ;*************************************************

  97. ;                  HACER POCIONES

  98. ;*************************************************

  99. sub pociones

  100. finditem %morteros C_ , #BACKPACKID

  101. set #LOBJECTID #FINDID

  102. event macro 17 0

  103. click 64 210

  104. wait 5

  105. click 269 109

  106. wait 4s

  107. return

  108. 

  109. ;*************************************************

  110. ;                  LLENAR BARRIL

  111. ;*************************************************

  112. sub llenar

  113. 

  114. FINDITEM %barril , _ , %botellas C_ , #BACKPACKID

  115. for #FINDINDEX 1 #FINDCNT

  116. {

  117. if #FINDTYPE = %barril

  118. set #LOBJECTID #FINDID

  119. if #FINDTYPE = %botellas

  120. set #LTARGETID #FINDID

  121. }

  122. event macro 17

  123. set #LTARGETKIND 1

  124. target

  125. event macro 22 0

  126. wait 20

  127. scanjournal

  128. if lleno in #JOURNAL

  129. {

  130. finditem %barril C_ , #BACKPACKID

  131. exevent drag #FINDID

  132. exevent dropc %contenedor2

  133. wait 20

  134. }

  135. return