This one is pretty easy. Just open up all bags/containers you want to hunt through and run the script. It will open all MIBs and if the script finds an ASOS, it will be dragged to your backpack.
set #LPC 100
repeat
finditem HTD *
if #FINDKIND <> -1
{
event property #FINDID
if message in #PROPERTY
{
set #LOBJECTID #FINDID
event macro 17 0
wait 20
}
ignoreitem #FINDID
}
until #FINDKIND = -1
ignoreitem reset
set %complete #FALSe
repeat
finditem UVH *
if #FINDKIND <> -1
{
event property #FINDID
if ancient in #PROPERTY
{
set %bottle #FINDID
finditem %bottle G_18
if #FINDID <> %bottle
{
exevent drag %bottle
wait 10
exevent dropc #BACKPACKID
wait 20
}
ignoreitem %bottle
}
else
{
ignoreitem #FINDID
}
}
else
{
set %complete #TRUE
}
until %complete = #TRUE
display ok Complete
stop