Composite Bow - Armor Ignore

////////////////////////////
//Title: Composite Bow Armor Ignore
//Author: Maelune
//Version: 1.0
//Purpose: Auto select nearest enemy and focus that one enemy until it is
//         either dead, or has moved too far away to hit.
//
//Requirements: A composite bow
//              Combat skills maxed
//
//Instructions: Copy this entire text into a UOSteam Macro! Replace the serial
//              ID of the bow where prompted (first nested if statement)
//              with that of your own bow.
//
//Notes: This macro will focus one enemy down at a time. It will not attempt
//to change targets until your target is dead, or has gotten further than
//10 tiles away (the maximum range of a composite bow)
////////////////////////////
if not @findobject 'bow'
  @setalias 'bow' 0x41e8b69f //Replace me with your bow's serial!
endif
while @findobject 'bow' 'any' 'backpack'
  clearhands right
  pause 300
  equipitem bow 1
endwhile
clearignorelist
while @getenemy 'murderer' 'enemy' 'gray' 'criminal' 'closest'
  //***Prevents you from attacking gray pets directly***///
  if @property 'Loyalty' 'enemy' == "Wonderfully Happy" or @property 'Loyalty' 'enemy' == "Extremely Happy"
    ignoreobject 'enemy'
    pause 150
    @getenemy 'murderer' 'enemy' 'gray' 'criminal' 'closest'
  endif
  if @property 'Loyalty' 'enemy' == "Very Happy" or @property 'Loyalty' 'enemy' == "Happy"
    ignoreobject 'enemy'
    pause 150
    @getenemy 'murderer' 'enemy' 'gray' 'criminal' 'closest'
  endif
  /////********************************************//////
  if not @findobject 'enemy'
    stop
  elseif @findobject 'enemy' and @inrange 'enemy' 10
    if hits 'enemy' == maxhits 'enemy'
      virtue 'honor'
      waitfortarget 5000
      target! 'enemy'
      pause 300
    endif
  endif
  @setability 'primary' 'on'
  attack! 'enemy'
  while @findtype 0xeed '0' 'backpack' or @findtype 0xeed '0' 'ground'
    useobject 'found'
    ignoreobject 'found'
  endwhile
  while @findobject 'enemy' 'any' 'ground' 'any' 10
    if dead 'self'
      stop
    endif
    if @findobject bow 'any' 'backpack'
      clearhands right
      equipitem bow 1
    endif
    //Change this serial ID to whatever your bow is!
    if @findobject 'enemy' and @inrange 'enemy' 10
      if hits 'enemy' == maxhits 'enemy'
        virtue 'honor'
        waitfortarget 5000
        target! 'enemy'
        pause 300
      endif
    endif
    //@setability 'secondary' 'on'
    //clearability
    @setability 'primary' 'on'
    attack! 'enemy'
    if not timerexists 'castconcentrate'
      createtimer 'castconcentrate'
      settimer 'castconcentrate' 100000
    endif
    //if not timerexists 'castcursew'
    //  createtimer 'castcursew'
    //  settimer 'castcursew' 30000
    //endif
    //if timer 'castcursew' > 30000 and timer 'casttime' > 1490
    //  cast "Curse Weapon"
    //  settimer 'casttime' 0
    //  settimer 'castcursew' 0
    //endif
    if not buffexists "Consecrate Weapon"
      if timer 'castconcentrate' > 9000
        cast 'Consecrate Weapon'
        settimer 'castconcentrate' 0
      endif
    endif
    if not buffexists "Divine Fury"
      cast "Divine Fury"
      pause 500
    endif
    if not buffexists "Bless"
      cast "Bless"
      waitfortarget 3000
      target! 'self'
      pause 150
    endif
    if @findtype 0xfc7 1126 'backpack'
      if counttype 0xf8c 0 'backpack' > 3
        if not timerexists 'Fire Horn Timer'
          createtimer 'Fire Horn Timer'
          settimer 'Fire Horn Timer' 5000
        elseif timer 'Fire Horn Timer' > 5000 and @inrange 'enemy' 2
          useobject 'found'
          waitfortarget 3000
          target! 'enemy'
          settimer 'Fire Horn Timer' 0
        endif
      endif
    endif
    //if not buffexists 'enemy of one'
    //  cast 'enemy of one'
    //  pause 1500
    //endif
    if @injournal 'you defend with Shield of Spikes!'
      replygump 0x4239a64f 1004
      clearjournal
    endif
    //if weight >= 400 or contents 'backpack' > 160
    //  waitforcontext 0x507b956d 2 15000
    //  while @findtype 0xeed '0' 'backpack'
    //    useobject! 'found'
    //    ignoreobject 'found'
    //  endwhile
    //endif
  endwhile
endwhile