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

  2. ;Macro SASTRE (Bandanas) by OverQueen

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

  4. set #SYSMSGCOL 10

  5. event sysmessage Macro para subir sastre by OverQueen

  6. 

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

  8. ;            CONFIGURACIONES (EDITAR)

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

  10. set %rollo ZZF

  11. set %tela RTI

  12. set %kit HAG

  13. set %bandana TDI

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

  15. set %bandanas 50 ;Cuando llegue a esta cantidad, se venderán.

  16. 

  17. Inicio:

  18. gosub comer

  19. gosub tela

  20. gosub kits

  21. gosub bandanas

  22. gosub vender

  23. goto inicio:

  24. 

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

  26. ;                    COMER

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

  28. sub comer

  29. set #LOBJECTID #FINDID

  30. finditem %comida C_ , #BACKPACKID

  31. set #LOBJECTID #FINDID

  32. wait 10

  33. event macro 17

  34. return

  35. 

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

  37. ;            REPONER TELA + ABRIR ROLLOS

  38. ;*************************************************

  39. sub tela

  40. finditem %tela C_ , #BACKPACKID

  41. wait 10

  42. if #FINDSTACK =< 2

  43. {

  44. msg buy$

  45. click 396 259

  46. wait 5

  47. click 598 536

  48. wait 5

  49. msg adios$

  50. }

  51. finditem %rollo C_ , #BACKPACKID

  52. wait 10

  53. set #LOBJECTID #FINDID

  54. event macro 17 0

  55. wait 5

  56. return

  57. 

  58. ;*************************************************

  59. ;                  REPONER KITS

  60. ;*************************************************

  61. sub kits

  62. finditem %kit C_ , #BACKPACKID

  63. if #FINDSTACK = 0

  64. {

  65. msg buy$

  66. click 398 138

  67. wait 5

  68. click 398 138

  69. wait 5

  70. click 598 536

  71. wait 5

  72. msg adios$

  73. }

  74. return

  75. 

  76. ;*************************************************

  77. ;                 HACER BANDANAS

  78. ;*************************************************

  79. sub bandanas

  80. FINDITEM %kit , _ , %tela C_ , #BACKPACKID

  81. for #FINDINDEX 1 #FINDCNT

  82. {

  83. if #FINDTYPE = %kit

  84. set #LOBJECTID #FINDID

  85. if #FINDTYPE = %tela

  86. set #LTARGETID #FINDID

  87. }

  88. event macro 17

  89. set #LTARGETKIND 1

  90. target

  91. event macro 22 0

  92. wait 5

  93. click 65 230

  94. wait 5

  95. click 270 110

  96. wait 3s

  97. return

  98. 

  99. ;*************************************************

  100. ;                 VENDER BANDANAS

  101. ;*************************************************

  102. sub vender

  103. finditem %bandana C_ , #BACKPACKID

  104. if #FINDCNT >= %bandanas

  105. {

  106. wait 2s

  107. msg sell$

  108. click 330 580

  109. wait 15

  110. click 375 151

  111. wait 15

  112. click 600 530

  113. wait 20

  114. msg adios$

  115. }

  116. return