set %corpse YFM
;iron
;set %rez MPH_LHR_SMH_GHR_XGR_JHR
;silver
;set %rez MPH_LHR_JHR_SMH_XGR
;sangvine
set %rez XGR_ZRF_LSF_KHR_BHR_RMH_EHR_LHR_AHR_MPH_JHR_DHR_GHR_YGR_JOH

set #LPC 100

main:
onhotkey C ALT
{
gosub loot
}
goto main




sub loot
finditem %corpse G_2
if #FINDCNT = 0           ; neni
{
event sysmessage nejsou corpsy pobliz
break
}
if #FINDCNT > 0       ; jsou corpsy
{
set #LTARGETID #FINDID
set #LTargetKind 1


finditem %rez C_ , #BACKPACKID    ;najdi nuz b atoh
 if #FINDCNT > 0
 {
 set #LOBJECTID #FINDID
 event macro 17 0
 }

 if #FINDCNT < 1                  ;neni nuz
 {

   finditem %rez C_ , #CHARID      ;najdi nuz postava
   if #FINDCNT < 1                  ;neni nuz
    {
     event sysmessage nemas cim by jsi to rozrezal
      break
    }
    if #FINDCNT > 0 ; je nuz
     {
      set #LOBJECTID #FINDID
      }

      }
 event macro 17 0
  target

   event Macro 22

  }
  return