- ;*************************************************
- ;Macro SASTRE (Bandanas) by OverQueen
- ;*************************************************
- set #SYSMSGCOL 10
- event sysmessage Macro para subir sastre by OverQueen
- ;*************************************************
- ; CONFIGURACIONES (EDITAR)
- ;*************************************************
- set %rollo ZZF
- set %tela RTI
- set %kit HAG
- set %bandana TDI
- 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
- set %bandanas 50 ;Cuando llegue a esta cantidad, se venderĂ¡n.
- Inicio:
- gosub comer
- gosub tela
- gosub kits
- gosub bandanas
- gosub vender
- goto inicio:
- ;*************************************************
- ; COMER
- ;*************************************************
- sub comer
- set #LOBJECTID #FINDID
- finditem %comida C_ , #BACKPACKID
- set #LOBJECTID #FINDID
- wait 10
- event macro 17
- return
- ;*************************************************
- ; REPONER TELA + ABRIR ROLLOS
- ;*************************************************
- sub tela
- finditem %tela C_ , #BACKPACKID
- wait 10
- if #FINDSTACK =< 2
- {
- msg buy$
- click 396 259
- wait 5
- click 598 536
- wait 5
- msg adios$
- }
- finditem %rollo C_ , #BACKPACKID
- wait 10
- set #LOBJECTID #FINDID
- event macro 17 0
- wait 5
- return
- ;*************************************************
- ; REPONER KITS
- ;*************************************************
- sub kits
- finditem %kit C_ , #BACKPACKID
- if #FINDSTACK = 0
- {
- msg buy$
- click 398 138
- wait 5
- click 398 138
- wait 5
- click 598 536
- wait 5
- msg adios$
- }
- return
- ;*************************************************
- ; HACER BANDANAS
- ;*************************************************
- sub bandanas
- FINDITEM %kit , _ , %tela C_ , #BACKPACKID
- for #FINDINDEX 1 #FINDCNT
- {
- if #FINDTYPE = %kit
- set #LOBJECTID #FINDID
- if #FINDTYPE = %tela
- set #LTARGETID #FINDID
- }
- event macro 17
- set #LTARGETKIND 1
- target
- event macro 22 0
- wait 5
- click 65 230
- wait 5
- click 270 110
- wait 3s
- return
- ;*************************************************
- ; VENDER BANDANAS
- ;*************************************************
- sub vender
- finditem %bandana C_ , #BACKPACKID
- if #FINDCNT >= %bandanas
- {
- wait 2s
- msg sell$
- click 330 580
- wait 15
- click 375 151
- wait 15
- click 600 530
- wait 20
- msg adios$
- }
- return