event SysMessage Bienvenido a la macro de Autoloot by SkuzKabel

initevents
event macro 8 7
wait 1s
set %BackID #contid

set %idtype_gemas VUF_GVF_FVF_UVF_EVF_BVF_RVF_HVF_OVF
set %Recalls WTL

while #true
{
if #CONTTYPE = YFM
{
set %id_tmp #CONTID

gosub guardar POF C_ , %id_tmp %BackID
gosub guardar YFM C_ , %id_tmp %BackID
gosub guardar %idtype_gemas C_ , %id_tmp %BackID
gosub guardar %Recalls C_ , %id_tmp %BackID
gosub guardar RWF C_ , %id_tmp %BackID
gosub guardar LNK C_ , %id_tmp %BackID



}

}

halt


;================================================= ==========
;drag (idtype_objeto, cantidad_a_arrastrar, x, y, contenedor, time_wait)
;ejemplo: gosub drag %idtype_ingot all %aux_x %aux_y C_ , #BACKPACKID 10

sub drag

drag:
if #contname = drag_gump
goto waitfordraggumpx

if #contname = stack_gump
goto waitforstackgumpx

finditem %1 %5

if #findkind = -1
return
Event Drag #FindID
waitforstackgumpx:
set %dragtimeout #scnt + 5
waitforstackgump:
if #scnt >= %dragtimeout
goto drag
if #contname = drag_gump || #findstack < 2
goto waitfordraggumpx
if #contname <> stack_gump && #findstack > 1
goto waitforstackgump
if %2 = all
msg $
else
msg %2 $
goto waitfordraggumpx:

set %dragtimeout #scnt + 5
waitfordraggump:

if #scnt >= %dragtimeout
goto drag

if #contname <> drag_gump
goto waitfordraggump
;click %3 %4 p
exevent Dropc %BackID
click #NEXTCPOSX #NEXTCPOSY
wait %6


if %2 = all
goto drag
else
return
;================================================= ==========


sub guardar

set %tmp %1
set %origen %2
set %destino %3

finditem %tmp %origen

if #findid <> X
{
exevent drag #findid #FINDSTACK
wait 20
exevent dropc %destino
}

return


Debeis de meter las ids que querais.