;************************************************* ;Macro ARTESANO by OverQueen ;************************************************* set #SYSMSGCOL 10 event sysmessage Macro para subir artesanĂa by OverQueen ;************************************************* ; CONFIGURACIONES (EDITAR) ;************************************************* set %cofre YOSMYMD; donde tienes lingotes y herramientas de artesano set %resortes TCG set %herramientas GTL set %hierro RMK set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD inicio: gosub comer gosub hierro gosub herramientas gosub resortes gosub limpiar goto inicio ;************************************************* ; COMER ;************************************************* sub comer findItem %comida C_ , #BACKPACKID if #findcnt > 0 { set #LOBJECTID #FINDID event macro 17 } return ;************************************************* ; REPONER HIERRO ;************************************************* sub hierro finditem %hierro C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %hierro C_ exevent drag #FINDID 50 exevent dropc #BACKPACKID wait 20 } return ;************************************************* ; COGER HERRAMIENTAS ;************************************************* sub herramientas finditem %herramientas C_ , #BACKPACKID if #FINDSTACK = 0 { finditem %herramientas C_ exevent drag #FINDID 1 exevent dropc #BACKPACKID wait 20 } return ;************************************************* ; HACER RESORTES ;************************************************* sub resortes finditem %herramientas C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 wait 10 click 65 150 wait 10 click 270 230 wait 5s if Pones_ in #SYSMSG { finditem %hierro C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 wait 10 click 69 423 finditem %resortes C_ , #BACKPACKID set #LTARGETID #FINDID set #LTARGETKIND 1 wait 10 event macro 22 wait 10 goto inicio } ;************************************************* ; FUNDIR RESORTES SOBRANTES ;************************************************* sub limpiar finditem TCG C_ , #BACKPACKID if #FINDSTACK > 0 { finditem RMK C_ , #BACKPACKID set #LOBJECTID #FINDID event macro 17 wait 10 click 69 423 finditem TCG C_ , #BACKPACKID set #LTARGETID #FINDID set #LTARGETKIND 1 wait 10 event macro 22 wait 10 gosub limpiar } if #FINDSTACK = 0 goto inicio: