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
endif
clearignorelist
ignoreobject 'self'
for 0 to 'BodyTypes'
  while @findtype BodyTypes[] 'any' ground 0 10
    if infriendlist 'found' and hits 'found'  < maxhits 'found'
      if inregion 'guards''self' 3 and murderer 'found' or criminal 'found'
        ignoreobject 'found'
        headmsg 'guardie'
        break
      endif
      if poisoned 'found'
        cast 'cure' 'found'
      elseif yellowhits 'found'
        cast "Cleansing Winds" 'found'
      elseif diffhits 'found' > 10
        miniheal 'found'
      endif
    endif
    ignoreobject 'found'
  endwhile
endfor