1. ;*************************************************
  2. ;Macro SASTRE (Bandanas) by OverQueen
  3. ;*************************************************
  4. set #SYSMSGCOL 10
  5. event sysmessage Macro para subir sastre by OverQueen
  6. ;*************************************************
  7. ; CONFIGURACIONES (EDITAR)
  8. ;*************************************************
  9. set %rollo ZZF
  10. set %tela RTI
  11. set %kit HAG
  12. set %bandana TDI
  13. 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
  14. set %bandanas 50 ;Cuando llegue a esta cantidad, se venderĂ¡n.
  15. Inicio:
  16. gosub comer
  17. gosub tela
  18. gosub kits
  19. gosub bandanas
  20. gosub vender
  21. goto inicio:
  22. ;*************************************************
  23. ; COMER
  24. ;*************************************************
  25. sub comer
  26. set #LOBJECTID #FINDID
  27. finditem %comida C_ , #BACKPACKID
  28. set #LOBJECTID #FINDID
  29. wait 10
  30. event macro 17
  31. return
  32. ;*************************************************
  33. ; REPONER TELA + ABRIR ROLLOS
  34. ;*************************************************
  35. sub tela
  36. finditem %tela C_ , #BACKPACKID
  37. wait 10
  38. if #FINDSTACK =< 2
  39. {
  40. msg buy$
  41. click 396 259
  42. wait 5
  43. click 598 536
  44. wait 5
  45. msg adios$
  46. }
  47. finditem %rollo C_ , #BACKPACKID
  48. wait 10
  49. set #LOBJECTID #FINDID
  50. event macro 17 0
  51. wait 5
  52. return
  53. ;*************************************************
  54. ; REPONER KITS
  55. ;*************************************************
  56. sub kits
  57. finditem %kit C_ , #BACKPACKID
  58. if #FINDSTACK = 0
  59. {
  60. msg buy$
  61. click 398 138
  62. wait 5
  63. click 398 138
  64. wait 5
  65. click 598 536
  66. wait 5
  67. msg adios$
  68. }
  69. return
  70. ;*************************************************
  71. ; HACER BANDANAS
  72. ;*************************************************
  73. sub bandanas
  74. FINDITEM %kit , _ , %tela C_ , #BACKPACKID
  75. for #FINDINDEX 1 #FINDCNT
  76. {
  77. if #FINDTYPE = %kit
  78. set #LOBJECTID #FINDID
  79. if #FINDTYPE = %tela
  80. set #LTARGETID #FINDID
  81. }
  82. event macro 17
  83. set #LTARGETKIND 1
  84. target
  85. event macro 22 0
  86. wait 5
  87. click 65 230
  88. wait 5
  89. click 270 110
  90. wait 3s
  91. return
  92. ;*************************************************
  93. ; VENDER BANDANAS
  94. ;*************************************************
  95. sub vender
  96. finditem %bandana C_ , #BACKPACKID
  97. if #FINDCNT >= %bandanas
  98. {
  99. wait 2s
  100. msg sell$
  101. click 330 580
  102. wait 15
  103. click 375 151
  104. wait 15
  105. click 600 530
  106. wait 20
  107. msg adios$
  108. }
  109. return