Código:
;*************************************************************************************************
;Macro MINAR (Separar y fundir ores) by OverQueen
;*************************************************************************************************
set #SYSMSGCOL 10
event sysmessage Macro para subir minar by OverQueen
;*************************************************************************************************
; CONFIGURACIONES (EDITAR)
;*************************************************************************************************
set %contenedor1 WQZGNOD; de donde coge los ores
set %contenedor2 OGHTIQD; donde deja los lingotes
set %ores DWJ_XXX_XXX; mineral que hasta el momento soy capaz de extraer (hierro, bronce)
set %lingotes RMK_NMK; lingotes respectivos (hierro-oxidado-viejo, cobre)
Inicio:
;*************************************************************************************************
; COGER ORES
;*************************************************************************************************
finditem %ores C_ , #BACKPACKID
if #findStack < 49
{
finditem %ores C_ , %contenedor1
exevent drag #FINDID 1
wait 5
exevent dropc #BACKPACKID
wait 5
until %ores = 50
}
;*************************************************************************************************
; FUNDIR ORES
;*************************************************************************************************
finditem %ores C_ , #BACKPACKID
if #findStack = 50
{
set #LOBJECTID #FINDID
event macro 17 0
until %ores = 0
}
;*************************************************************************************************
; GUARDAR LINGOTES
;*************************************************************************************************
finditem %lingotes C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
wait 5
exevent dropc %contenedor2
wait 5
GoTo Inicio