;*************************************************
;Macro ESCRIBA (In Por Ylem) by OverQueen
;*************************************************
; PREPARACIÓN: 3 cofres a la vista y abiertos (1 - regs y lotes) (2 - plumas sueltas o en bolsas) (3 - pergaminos hechos)
; MATERIAL para subir a gm: 4.000 lotes (16.000 pergas) + 16.000 regs + 350 plumas
; MATERIAL por hora de macreo: 350 pergas + 350 regs + 10 plumas
; SUGERENCIA: Puede que al iniciar la macro tengas que darle doble clic al lote de pergaminos
set #SYSMSGCOL 10
event sysmessage Macro para subir escriba by OverQueen

;*************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************
set %regs SZF ; Sulphurous Ash
set %pergamino MMF ; ID del pergamino en blanco
set %lote MMF ; ID del lote de pergaminos en blanco
set %pluma CXF_PBG ; ID de la pluma
set %pergaminoX CYL ; ID del pergamino de flecha mágica
set %contenedor1 JBUKCQD ; ID contenedor con regs y lotes de pergas
set %contenedor2 EIGZHND ; ID contenedor con plumas
set %contenedor3 OGHTIQD ; ID contenedor con pergas In Por Ylem
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

Inicio:
;*************************************************
;                    COMER
;*************************************************
set #LOBJECTID #FINDID
findItem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
wait 10
event macro 17

;*************************************************
;                   COGER REGS
;*************************************************
finditem %regs C_ , #BACKPACKID
if #FINDSTACK < 5
{
finditem %regs C_ , %contenedor1
exevent drag #FINDID 100
wait 10
exevent dropc #BACKPACKID
wait 15
}

;*************************************************
;                  COGER PERGAS
;*************************************************
finditem %pergamino C_ , #BACKPACKID
IF #findStack <= 1
{
finditem %lote C_ , %contenedor1
exevent drag #FINDID 4
wait 7
exevent dropc #BACKPACKID
wait 10
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 20
}

;*************************************************
;                  COGER PLUMAS
;*************************************************
finditem %pluma C_ , #BACKPACKID
if #FINDCNT = 0
{
finditem %pluma C_
set #LOBJECTID #FINDID
wait 10
exevent drag #FINDID
wait 5
exevent dropc #FINDSTACK
wait 20
event macro 17 0
wait 10
}
wait 10s
;*************************************************
;                  HACER PERGAS (x4)
;*************************************************
finditem %pergamino c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
click 65 130
wait 5
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s
click 274 190
wait 5s

;*************************************************
;                  DEJAR PERGAS
;*************************************************
finditem %pergaminoX C_ , #BACKPACKID
if #FINDSTACK >= 1
{
finditem %pergaminoX C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
wait 10
exevent dropc %contenedor3
wait 20
}

;*************************************************
;                   SEGURIDAD
;*************************************************
if #weight >= 350
{
set #SYSMSGCOL 10
event sysmessage Algo falla... macro detenida por seguridad
halt
}

;*************************************************
;                    MEDITAR
;*************************************************
sub meditar:
event macro 13 46
if pierdes in #journal
{
gosub meditar
}
if trance in #journal
repeat
{
wait 40
event macro 13 46
}
until #mana = #int
GoTo Inicio