set %loot AUD_XVH_AZF_OZF_POF_HJG_SJG_IJG_UJG_CUD_MMF
set %hotkeyLoot space

while #true
{
onhotkey %hotkeyLoot
{
gosub loot
wait 5
}
}

sub loot
set %oB #scnt + 5
set %lootOverTime #scnt + 15
finditem YFM G_3
if #findcnt >= 1
{
set %body #findid
set #lobjectid %body
event macro 17 0
event exmsg %body 3 0 opening
if for_looting in #sysmsg
{
  ignoreitem %body 1
  return
}
while #contkind <> ASEB && #contsize <> 144_212 && %ob > #scnt
wait 1
wait 10
  if %ob <= #scnt
  {
   ignoreitem %body 1
   event sysmessage Body not opened
   return
  }
repeat
  {
   finditem %loot C_ , %body
   if #findcnt >= 1
   {
    exevent drag #findid #findstack
    exevent dropc #backpackid
    wait 35
   }
   finditem %loot C_ , %body
  }
until #findcnt = 0 || %lootOverTime < #scnt
ignoreitem %body 1
event exmsg %body 3 0 looted
}
else
event sysmessage No body found.
return