Code: Select all
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