veterinary macro

easyuo macro

set %corpse YFM
set %bandages ZLF
set %animaltype JG ; get animal type by dragging bar and check #CONTTYPE
start:
gosub kill
gosub res

goto start

sub scan
    finditem %animaltype G_ , 2
    if #FINDCNT > 0
    {
    for #FINDINDEX 1 #FINDCNT
      {
      event sysmessage #FINDID
      event property #FINDID
      event sysmessage #property
      wait 20
      }
    }
return

sub kill
    killer:
    finditem %animaltype G_ , 2
    if #FINDCNT > 0
    {
    ;event sysmessage #FINDID
    set %live #FINDID
    set #LTARGETID #FINDID
    event macro 27
    wait 2s
    goto killer
    }
return

sub res
    finditem %bandages C_ , #BACKPACKID
    if #FINDCNT < 1
    {
    halt
    }
    set %bandies #FINDID
  if G in #charstatus
     {
     event macro 6
     }
  resup:
  finditem %corpse G_3
  if #FINDCNT > 0
    {
    set %dead #FINDID
    set #lobjectid %bandies
    event macro 17 0
    target 2s
    set #ltargetid %dead
    event macro 22 0
    wait 5s
    goto resup
    }
return