//Sampire Leather Farm
//Author: Madu
if not listexists 'layers'
  @createlist 'layers'
  @pushlist 'layers' 4 // pants
  @pushlist 'layers' 6 // head
  @pushlist 'layers' 7 // gloves
  @pushlist 'layers' 10 // neck
  @pushlist 'layers' 13 // torso
  @pushlist 'layers' 19 // arms
endif
if not @findobject 'Bag of Sending'
  promptalias 'Bag of Sending'
endif
if not @findobject 'Butcher'
  promptalias 'Butcher'
endif
while not dead
  if @weight >= 520 or @counttype 0x26b4 'any' 'backpack' >= 4200
    timermsg 'send' 33
    if @property 'Charges: 0' 'Bag of Sending'
      if usetype! 0x26b8 'any' 'backpack'
        waitfortarget 2000
        target! 'Bag of Sending'
      else
        messagebox 'Powder' 'Powder'
      endif
      pause 1500
    endif
    settimer 'send' 0
    useobject! 'Bag of Sending'
    waitfortarget 2000
    targettype! 0x26b4
  elseif @findtype 0x2006 'any' 'ground' 1 2 and not dead 'self'
    if useobject 'Butcher'
      waitfortarget 5000
      target! 'found'
      ignoreobject 'found'
      pause 1000
    endif
    while @movetype 0x1081 'backpack' 'found'
      pause 1000
    endwhile
    while @movetype 0x9f1 'backpack' 'found'
      pause 1000
    endwhile
  endif
  while not @findobject 'target'
    if hits 'self' < 60 and mana > 20
      cast 'confidence'
    endif
    if dead 'self'
      break
    endif
    for 0 to layers
      if @findlayer 'self' layers[]
        if @property 'durability 0' 'found'
          messagebox 'ARMOR' 'Armadura quebrando!'
        endif
      endif
    endfor
    @canceltarget
    @cancelautotarget
    @getenemy  'enemy' 'criminal' 'gray' 'closest'
    if @inrange 'enemy' 13
      setalias 'target' 'enemy'
      virtue 'honor'
      waitfortarget 10000
      target! 'target'
    endif
  endwhile
  @getenemy  'enemy' 'criminal' 'gray' 'closest'
  if not 'buffexists' 'curse weapon' and hits < 80
    cast 'curse weapon'
  elseif buffexists "Blood Oath"
    while buffexists "Blood Oath"
      warmode 'on'
      warmode 'off'
      cast 'remove curse' 'self'
      while waitingfortarget
      endwhile
    endwhile
  elseif hits < 30 and dead
    chivalryheal
    while waitingfortarget
    endwhile
  elseif not buffexists "Consecrate Weapon"
    cast "Consecrate Weapon"
    //elseif hits < 90 or poisoned
    //  chivalryheal
    //  while waitingfortarget
    //  endwhile
  elseif stam < 80 or not buffexists "Divine Fury"
    cast "Divine Fury"
  elseif not buffexists "Enemy of one"
    //and not @inregion 'Bedlam' 'self'
    cast "Enemy of one"
    //elseif not buffexists 'immolating weapon' and graphic 'target' != 0x138
    //cast 'immolating weapon'
  elseif str < 100 and dead
    cast 'remove curse' 'self'
    while waitingfortarget
    endwhile
  elseif not buffexists 'Confidence'
    cast 'confidence'
  elseif not buffexists 'evasion' and dead
    cast 'evasion'
  endif
  if not buffexists "Blood Oath"
    attack 'enemy'
  else
    warmode 'on'
    warmode 'off'
  endif
  if @injournal 'attacking'
    clearjournal
    messagebox 'Olha' 'Atacando'
  endif
  if not buffexists 'Counter Attack'
    cast 'Counter Attack'
  endif
  if buffexists "Consecrate Weapon"
    if not buffexists 'lightning strike'
      if @graphic 'righthand' == 0x13b0
        if graphic 'target' == 0x137 and @hits 'target' > 40
          @setability 'secondary' 'on'
        else
          @setability 'primary' 'on'
        endif
      else
        @setability 'primary' 'on'
      endif
    endif
    waitforjournal 'mana to perform that attack' 500
    if @injournal 'mana to perform that attack' and mana >= 4
      clearjournal
      // Lightning Strike
      if not buffexists 'lightning strike'
        cast 'lightning strike'
        pause 500
      endif
    endif
  endif
  if @hits 'enemy' < 20
    // Pathfind
    @settimer 'pathfind' 0
    if @findobject 'enemy' and not @inrange 'enemy' 1
      @getenemy 'murderer' 'enemy' 'criminal' 'gray' 'closest'
      if dead
        break
      elseif @timer 'pathfind' >= 5000
        // Diverge
        if direction == 0
          @poplist 'unstuck' 'north'
        elseif direction == 2
          @poplist 'unstuck' 'east'
        elseif direction == 4
          @poplist 'unstuck' 'south'
        elseif direction == 6
          @poplist 'unstuck' 'west'
        endif
        // Unstuck
        if list 'unstuck' != 0
          for 5
            run 'unstuck[0]'
            pause 100
          endfor
          poplist 'unstuck' 'front'
        endif
        break
      elseif @x 'enemy' > x 'self' and @y 'enemy' > y 'self'
        run 'southeast'
      elseif @x 'enemy' < x 'self' and @y 'enemy' > y 'self'
        run 'southwest'
      elseif @x 'enemy' > x 'self' and @y 'enemy' < y 'self'
        run 'northeast'
      elseif @x 'enemy' < x 'self' and @y 'enemy' < y 'self'
        run 'northwest'
      elseif @x 'enemy' > x 'self' and @y 'enemy' == y 'self'
        run 'east'
      elseif @x 'enemy' < x 'self' and @y 'enemy' == y 'self'
        run 'west'
      elseif @x 'enemy' == x 'self' and @y 'enemy' > y 'self'
        run 'south'
      elseif @x 'enemy' == x 'self' and @y 'enemy' < y 'self'
        run 'north'
      endif
      pause 100
    endif
  endif
endwhile
messagebox 'Dead' 'You are dead!'