if not listexists 'BodyTypes'
  createlist 'BodyTypes'
endif
if list 'BodyTypes' == '0'
  pushlist 'BodyTypes' 0x190
  pushlist 'BodyTypes' 0x191
  pushlist 'BodyTypes' 0x2ec
  pushlist 'BodyTypes' 0x2eb
  pushlist 'BodyTypes' 0x25d
  pushlist 'BodyTypes' 0x25e
  pushlist 'BodyTypes' 0x2ed
  pushlist 'BodyTypes' 0x2e9
  pushlist 'BodyTypes' 0x2e8
  pushlist 'BodyTypes' 0x19
endif
clearignorelist
ignoreobject 'self'
for 0 to 'BodyTypes'
  while @findtype BodyTypes[] 'any' ground 0 10
    if infriendlist 'found'
      if inrange 'found' 11
        if yellowhits 'found'
          cast 'remove curse' 'found'
        else
          if poisoned 'found'
            cast 'Cleanse By Fire' 'found'
          else
            if diffhits 'found' > 10
              if inrange 'found' 2
                cast "Close Wounds" 'found'
              else
                cast "Close Wounds"
                waitfortarget 15000
                while @findobject 'found'
                  if inrange 'found' 2
                    target 'found'
                    break
                  endif
                endwhile
              endif
            endif
          endif
        endif
      endif
    endif
    ignoreobject 'found'
  endwhile
endfor