Set %Loot POF_
Set %Attackables ;
Set %Knife TSF
Finditem %Knife C_ , #BACKPACKID
If #FINDKIND = -1
{
  Display Ok No knife found in backpack!
  Halt
}

Start:
GoSub Attack
GoSub FindCorpse
GoSub Loot
Return

; attack hind/deer/creature whatever
Sub Attack
FindItem %Attackables G_20
If #FINDKIND <> -1
{
  For %n 1 #FINDCNT
  {
    Set #FINDINDEX %n
    Set #LTARGETID #FINDID
    Event Macro 27
  }
}
Return
; finds corpses
Sub FindCorpse
FindItem YFM_KNF_WNF_YNF_YFM_LNF_IIF G_1
If #FINDKIND <> -1
{
  For %m 1 #FINDCNT
  {
    Set #FINDINDEX %m
    Set #LTARGETID #FINDID
    Set #LTARGETKIND 1
    GoSub Cut
    Event Macro 22
    Repeat
    Until #TARGCURS = 0
    GoSub Cut
    Event Macro 22
    Repeat
    Until #TARGCURS = 0
  }
}
Return
; uses knife
Sub Cut
Set #LOBJECTID %Knife
Event Macro 17
Target 1s
Repeat
Until #TARGCURS = 1
Return
; loot from floor
Sub Loot
FindItem %Loot G_2
If #FINDKIND <> -1
{
  For %l 1 #FINDCNT
  {
    Set #FINDINDEX %l
    ExEvent Drag #FINDID #FINDSTACK
    Wait 5
    ExEvent Dropc #BACKPACKID
    Wait 5
  }
}
Return