tengo una macro de lotear bastante bien echa si pudieseis añadir que loteara todo tipo de diamantes y piedras se agradeceria mas que nada no se como saber cual es el codigo de cada cosa si tbn me lo podeis explicar aqui va la macro, se que ai que poner gosub guardar pero luego el codigo no me lo se plis ayuda
event SysMessage Bienvenido a la macro de Autoloot by SkuzKabel
initevents
event macro 8 7
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 UZF C_ , %id_tmp %BackID
gosub guardar NWL C_ , %id_tmp %BackID
gosub guardar EWJ C_ , %id_tmp %BackID
gosub guardar YWL 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
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
exevent dropc %destino
}
return
Citar
