set %chestid 0
set %bagid #backpackid
set %lootChest 1
set %corpses 0
set %loot AUD

loop:


    finditem IIF G_2
    if #findkind <> -1
    {
       set %chestid #findid
    }
chestit:
finditem %loot C_ , %chestid
if #FINDKIND <> -1
{
   for %N 1 #FINDCNT
   {
       gosub looting
   }
}
corpse:
    finditem YFM G_2
    if #findkind <> -1
    {
       gosub opencorpose
    }

    finditem %loot C_ , %corpses
if #FINDKIND <> -1
{
  gosub looting
}

finditem %loot G_2
if #findkind <> -1
{
   gosub looting
}
goto loop

sub opencorpose
    nextcpos 20 498
    set #lobjectid #findid
    event macro 17 0
    ignoreitem #findid
    set %corpses #findid
    wait 1s
return

sub looting

for %N 1 #FINDCNT
{
set #FINDINDEX %N

  exevent drag #findid #findstack
  wait 3
  exevent dropc %bagid
  ;exevent dropc XXWYNCF
 wait 2

}
return