Auto-Tamer

////////////////////////////
//Title: Macro for taming the closest animal
//Author: Maelune
//
//Requirements: Taming!
//A pet leash!
//
//Instructions: Stand near a thing you want to tame and start up this macro.
//Do not have loop checked. If it is a hostile mob, you may need
//to slowly walk away to avoid it hitting you with physical dmg
//and thus hitting itself with reflecting damage and interrupting
//the taming process.
//
//Notes: Still in beta, if something doesn't seem to be working,
//contact author!
////////////////////////////
clearjournal
@unsetalias 'tamable'
if not findalias 'tamable'
  @getenemy 'murderer' 'enemy' 'gray' 'criminal' 'closest'
  @setalias 'tamable' 'enemy'
endif
while findalias 'tamable'
  while not @injournal 'start to tame' or @injournal 'to continue taming'
    useskill 'animal taming'
    waitfortarget 5000
    target! 'tamable'
    warmode 'on'
    warmode 'off'
    warmode 'on'
    if property 'Loyalty' 'tamable' == "Wonderfully Happy"
      pause 150
      msg 'All stop'
      pause 500
      usetype 0x1374 'any' 'backpack'
      waitfortarget 5000
      target! 'tamable'
      pause 250
      clearjournal
    elseif not @findobject 'tamable'
      unsetalias 'tamable'
      clearjournal
      stop
    endif
  endwhile
  //clearjournal
  //endwhile
  if property 'Loyalty' 'tamable' == "Wonderfully Happy"
    pause 150
    msg 'All stop'
    pause 500
    usetype 0x1374 'any' 'backpack'
    waitfortarget 5000
    target! 'tamable'
    pause 250
    @unsetalias 'tamable'
  endif
  if not @findobject 'tamable'
    @unsetalias 'tamable'
  endif
endwhile
clearjournal
stop