macro loot

[Draven]

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

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 PNL C_ , %id_tmp %BackID
gosub guardar QZF C_ , %id_tmp %BackID
gosub guardar XYF C_ , %id_tmp %BackID
gosub guardar SEE C_ , %id_tmp %BackID
gosub guardar LZF C_ , %id_tmp %BackID
gosub guardar IUF C_ , %id_tmp %BackID
gosub guardar OZF C_ , %id_tmp %BackID
gosub guardar HUF C_ , %id_tmp %BackID
gosub guardar DAG C_ , %id_tmp %BackID
gosub guardar XVH C_ , %id_tmp %BackID
gosub guardar RWF C_ , %id_tmp %BackID
gosub guardar NWL C_ , %id_tmp %BackID
gosub guardar VLK C_ , %id_tmp %BackID
gosub guardar QFF C_ , %id_tmp %BackID
gosub guardar EAG 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

[Nilaween]

Yo tengo esta: después de abrir un cuerpo darle a control Q y loteará los ítems cuya ID estén en la variable %loot.


set %loot POF_YFM_PNL_QZF_XYF_SEE_LZF , _IUF_OZF_HUF_DAG_XVH_RWF_NWL_VLK_QFF_EAG

a:
onHotKey Q ctrl
goto Q
goto a

Q:
finditem %loot C_ , #CONTID
for #FINDINDEX 1 #FINDCNT
{
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc #BACKPACKID
wait 7
}

[Rules]

Una macro que se equipe un arma poniendo su ID y que corte los cuerpos a su alrededor y lotee no estaria mal. Seria en plan darle a la tecla ESCAPE y que la macro se pusiera un arma, cortase un cuerpo del suelo y lotease todo.

[Nilaween]

El problema que tienen estas macros es que los drags frecuentemente petan el client, sobretodo si se usa razor o assistUO.

[BlooD_Aeris]

Yo tengo esta: después de abrir un cuerpo darle a control Q y loteará los ítems cuya ID estén en la variable %loot.


set %loot POF_YFM_PNL_QZF_XYF_SEE_LZF , _IUF_OZF_HUF_DAG_XVH_RWF_NWL_VLK_QFF_EAG

a:
onHotKey Q ctrl
goto Q
goto a

Q:
finditem %loot C_ , #CONTID
for #FINDINDEX 1 #FINDCNT
{
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc #BACKPACKID
wait 7
}

Y no hay ninguna que sea simplemente al pasarle por encima al cuerpo que lo pille todo??

De todas maneras,buena aportacion por parte de ambos

[enDings]

Blood aeris eso igual se podría intentar seria algo así...

set %loot POF_YFM_PNL_QZF_XYF_SEE_LZF , _IUF_OZF_HUF_DAG_XVH_RWF_NWL_VLK_QFF_EAG
set %IDdeloscadaveres ; no se ahora mismo cuales son...


loop:
finditem %IDdeloscadaveres G_1
if #FINDCNT => 1
{
set #LOBJECTID #FINDID
set %cuerpo #FINDID
event macro 17
goto Q
}
goto loop

Q:
finditem %loot C_ , %cuerpo
if #FINDKIND = -1
{
ignoreitem %cuerpo
goto loop
}
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc #BACKPACKID
wait 7
goto Q