Start:
Gosub relax
Gosub Restock
Gosub Feed
Gosub Recallin1      ; elder 1
Gosub Kill
Gosub Recallin2      ; elder 2
Gosub Kill
Gosub Recallout2
Gosub Healpet
Gosub relax2
Gosub Restock
Gosub Recallin3      ; linch 1
Gosub Kill
Gosub Recallin4      ; linch 2
Gosub Kill
Gosub Recallin5      ; linch 3
Gosub Kill
Gosub Recallout
Gosub Restock
Gosub relax3
Gosub Restock
Gosub Feed
Gosub Recallin1      ; elder 1
Gosub Kill
Gosub Recallin2      ; elder 2
Gosub Kill
Gosub Recallout2
Gosub Healpet
Gosub relax2
Gosub Restock
Gosub Recallin3      ; linch 1
Gosub Kill
Gosub Recallin4      ; linch 2
Gosub Kill
Gosub Recallin5      ; linch 3
Gosub Kill
Gosub Recallout2
Gosub Restock

Sub Restock
wait 1s
Key F6 ; bank/restock key
wait 15s
return

Sub Feed
Key F4 ; dismout and feed nm 2 times macro
wait 15s
return

Sub Recallin1
msg $
msg all come $
msg all follow me $
Key F2 ; Recall in1 & dismount
wait 2s
return

Sub Recallin2
msg $
msg all come $
msg all follow me $
Key F3 ; Recall in2 & dismount
wait 2s
return

Sub Recallin3
msg $
msg all come $
msg all follow me $
Key F8 ; Recall in1 & dismount
wait 2s
return

Sub Recallin4
msg $
msg all come $
msg all follow me $
Key F9 ; Recall in1 & dismount
wait 2s
return

Sub Recallin5
msg $
msg all come $
msg all follow me $
Key F11 ; Recall in1 & dismount
wait 2s
return

Sub Kill
Finditem I_MD_WD G_5
If #FINDKIND = 1
   {
   set #ltargetid #Findid
   msg   $
   msg all kill $               ; ymf corpse type
   msg all kill$
   wait 10
   event macro 22 0
   wait 10
   Gosub check
   Gosub loot
   }
   return

Sub Check
    Set %Test 1
    while %Test < 3
          {
          Finditem I_MD_WD G_6
          if #FINDKIND = -1
             {
             set %Test %Test + 1
             }
          Finditem HS_IS G_6
          if #findrep = 6
             {
             Key F1
             wait 2s
             Key F1
             wait 2s
             Key F1
             wait 2s
             Goto Start
             }
          }
          return

Sub loot
set %eldercorpseid YFM          ; YFM
Finditem %eldercorpseid G_5
if #findkind = 1
  {
  set %findx #findx
  set %findy #findy
  wait 20
  move %findx %findy 0
  }
  wait 10
  set !monsterc #FINDID
  set #lobjectid #findid
  wait 10
  event macro 17 0
  wait 20

set %eldercorpseid #CONTID
finditem POF_BFF_CFF_IFF C_ , #contid
  if #FINDKIND = 0 ;<> -1
  {
    for %n 1 #FINDCNT
    {
      set %backpackid #backpackid
      set #contid %backpackid
      exevent Drag #FINDID #FINDSTACK
      wait 2
      exevent Dropc %backpackid
      wait 40

      set #SCNT 20
      set %Action Idle

    }
  }

set %eldercorpseid #CONTID
finditem POF_BFF_CFF_IFF C_ , #contid
  if #FINDKIND = 0 ;<> -1
  {
    for %n 1 #FINDCNT
    {
      set %backpackid #backpackid
      set #contid %backpackid
      exevent Drag #FINDID #FINDSTACK
      wait 2
      exevent Dropc %backpackid
      wait 40

      set #SCNT 20
      set %Action Idle

    }
  }
  return


Sub Recallout
  msg $
  msg all follow me $
  Key F1 ; recall out & mount
  wait 2s
  return

Sub Recallout2
  msg $
  msg all follow me $
  msg all follow me $
  Key F10 ; recall out & mount
  wait 2s
  return

Sub Healpet
  wait 5s
  Key F7 ; cast gheal, heal pet
  wait 2s
  return

Sub relax
Key F1
wait 2s
Set %hmm 1
    while %hmm < 90
          {
          Finditem FDS_SXHZ G_4
          if #FINDKIND = -1
             {
             msg $
             msg all come $
             msg all follow me $
             }
          set %hmm %hmm + 1
          wait 1s
          }
    Return

Sub relax2
Set %hmm 1
    while %hmm < 30
          {
          Finditem FDS_SXHZ G_4
          if #FINDKIND = -1
             {
             msg $
             msg all come $
             msg all follow me $
             }
          set %hmm %hmm + 1
          wait 1s
          }
    Return

Sub relax3
Key F10
wait 2s
Set %hmm 1
    while %hmm < 90
          {
          Finditem FDS_SXHZ G_4
          if #FINDKIND = -1
             {
             msg $
             msg all come $
             msg all follow me $
             }
          set %hmm %hmm + 1
          wait 1s
          }
    Return