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.