;*************************************************
;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