sub att_cat()

UO.Set('finddistance','15') 
   while UO.GetHP('self') < 500 
      UO.FindType('0x00C9','-1', 'ground')
         if UO.FindCount() > 0 then 
            UO.DeleteJournal()
            UO.Attack('finditem') 
            repeat 
            wait(500) 
            until UO.InJournal('Body of') 
         else 
            wait(100) 
         endif 
   wend 
end sub