sub checkmon()
uo.ignorereset()
uo.ignore('self')
uo.exec('set finddistance 0')
uo.findtype('-1', '-1', '1')
while uo.findcount() > 0
  if uo.getnotoriety('finditem') > 0 then
    uo.msg('Stop')
    uo.msg('Iecaei noeo!') # АХТУНГ??!!
    uo.usetype('0x13AF')
    uo.usetype('0x1B76')
    uo.attack('finditem')
    while uo.gethp('finditem') > 0
      if uo.life < 50 then 
        uo.usetype('0x0F0C')
      endif
      wait(1000)
    wend 
    loot()
    wait(1000)
  else
    uo.ignore('finditem')
  endif
  uo.findtype('-1', '-1', '1')
wend
uo.ignorereset()
end sub

sub loot() 
VAR Corpse = UO.GetSerial( 'lastcorpse' ) , s, exit 
UO.waittargetobject('lastcorpse') 
UO.Usetype ('0x13F6') 
wait(500) 
DIM loot[3] 
loot[0] = 0x0EED 
loot[1] = 0x14EB 
loot[2] = 0x1078 
UO.SetReceivingContainer('backpack') 
for s = 0 to 2 
  repeat 
    exit = 0 
    UO.FindType(Loot[s],-1,'lastcorpse') 
    if UO.GetQuantity('finditem') > 0 then 
      UO.Grab('0', 'finditem') 
      wait(3000) 
    else 
       exit = 1 
    endif 
  until exit ==1 
Next 
UO.UnSetReceivingContainer() 
uo.usetype ('0x13F6') 
end sub