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

  2. ;Macro ESCRIBA (In Por Ylem) by OverQueen

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

  4. ; PREPARACIÓN: 3 cofres a la vista y abiertos (1 - regs y lotes) (2 - plumas sueltas o en bolsas) (3 - pergaminos hechos)

  5. ; MATERIAL para subir a gm: 4.000 lotes (16.000 pergas) + 16.000 regs + 350 plumas

  6. ; MATERIAL por hora de macreo: 350 pergas + 350 regs + 10 plumas

  7. ; SUGERENCIA: Puede que al iniciar la macro tengas que darle doble clic al lote de pergaminos

  8. set #SYSMSGCOL 10

  9. event sysmessage Macro para subir escriba by OverQueen

  10. 

  11. ;*************************************************

  12. ;            CONFIGURACIONES (EDITAR)

  13. ;*************************************************

  14. set %regs SZF ; Sulphurous Ash

  15. set %pergamino MMF ; ID del pergamino en blanco

  16. set %lote MMF ; ID del lote de pergaminos en blanco

  17. set %pluma CXF_PBG ; ID de la pluma

  18. set %pergaminoX CYL ; ID del pergamino de flecha mágica

  19. set %contenedor1 JBUKCQD ; ID contenedor con regs y lotes de pergas

  20. set %contenedor2 EIGZHND ; ID contenedor con plumas

  21. set %contenedor3 OGHTIQD ; ID contenedor con pergas In Por Ylem

  22. 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

  23. 

  24. Inicio:

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

  26. ;                    COMER

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

  28. set #LOBJECTID #FINDID

  29. findItem %comida C_ , #BACKPACKID

  30. set #LOBJECTID #FINDID

  31. wait 10

  32. event macro 17

  33. 

  34. ;*************************************************

  35. ;                   COGER REGS

  36. ;*************************************************

  37. finditem %regs C_ , #BACKPACKID

  38. if #FINDSTACK < 5

  39. {

  40. finditem %regs C_ , %contenedor1

  41. exevent drag #FINDID 100

  42. wait 10

  43. exevent dropc #BACKPACKID

  44. wait 15

  45. }

  46. 

  47. ;*************************************************

  48. ;                  COGER PERGAS

  49. ;*************************************************

  50. finditem %pergamino C_ , #BACKPACKID

  51. IF #findStack <= 1

  52. {

  53. finditem %lote C_ , %contenedor1

  54. exevent drag #FINDID 4

  55. wait 7

  56. exevent dropc #BACKPACKID

  57. wait 10

  58. set #LOBJECTID #FINDID

  59. wait 10

  60. event macro 17

  61. wait 20

  62. }

  63. 

  64. ;*************************************************

  65. ;                  COGER PLUMAS

  66. ;*************************************************

  67. finditem %pluma C_ , #BACKPACKID

  68. if #FINDCNT = 0

  69. {

  70. finditem %pluma C_

  71. set #LOBJECTID #FINDID

  72. wait 10

  73. exevent drag #FINDID

  74. wait 5

  75. exevent dropc #FINDSTACK

  76. wait 20

  77. event macro 17 0

  78. wait 10

  79. }

  80. wait 10s

  81. ;*************************************************

  82. ;                  HACER PERGAS (x4)

  83. ;*************************************************

  84. finditem %pergamino c_ , #BACKPACKID

  85. set #LOBJECTID #FINDID

  86. event macro 17 0

  87. click 65 130

  88. wait 5

  89. click 274 190

  90. wait 5s

  91. click 274 190

  92. wait 5s

  93. click 274 190

  94. wait 5s

  95. click 274 190

  96. wait 5s

  97. 

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

  99. ;                  DEJAR PERGAS

  100. ;*************************************************

  101. finditem %pergaminoX C_ , #BACKPACKID

  102. if #FINDSTACK >= 1

  103. {

  104. finditem %pergaminoX C_ , #BACKPACKID

  105. exevent drag #FINDID #FINDSTACK

  106. wait 10

  107. exevent dropc %contenedor3

  108. wait 20

  109. }

  110. 

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

  112. ;                   SEGURIDAD

  113. ;*************************************************

  114. if #weight >= 350

  115. {

  116. set #SYSMSGCOL 10

  117. event sysmessage Algo falla... macro detenida por seguridad

  118. halt

  119. }

  120. 

  121. ;*************************************************

  122. ;                    MEDITAR

  123. ;*************************************************

  124. sub meditar:

  125. event macro 13 46

  126. if pierdes in #journal

  127. {

  128. gosub meditar

  129. }

  130. if trance in #journal

  131. repeat

  132. {

  133. wait 40

  134. event macro 13 46

  135. }

  136. until #mana = #int

  137. GoTo Inicio