sub CheckNPC() 
VAR a, x, y, vendor1, vendor2, vendor3, select = 1, done = 0, find = 0, name 
uo.set('finddistance', '5') 
uo.ignore('self', 'on') 
DIM Chars[2] 
Chars[0] = '0x0190' #тип игрока мужского пола# 
Chars[1] = '0x0191' #тип игрока женского пола# 
repeat 
  for a = 0 to 1        
    uo.findtype(Chars[a], '-1', '1')  
    if uo.findcount() > 0 then 
      if uo.getnotoriety('finditem') < 5 then 
        if uo.getz('finditem') == uo.getz('self') then 
          if select = 1 then 
            vendor1 = uo.getserial('finditem') 
            find = 1 
          else 
            wait(50) 
          endif 
          if select = 2 then 
            vendor2 = uo.getserial('finditem') 
            find = 2 
          else 
            wait(50) 
          endif 
          if select = 3 then 
            vendor3 = uo.getserial('finditem') 
            find = 3 
          else 
            wait(50) 
          endif 
          select = select + 1 
          if select > 3 then 
            done = 1 
          else 
            wait(50) 
          endif 
        else 
          wait(50) 
        endif 
      else 
        uo.exec('exec RegTeleport') 
        return 
      endif 
    else 
      wait(50) 
    endif 
  next 
until done == 1 or uo.findcount() == 0 
if find > 0 then 
  x = uo.getx('vendor1') 
  y = uo.gety('vendor1') 
  go(x,y) 
  name = uo.getname('vendor1') 
  uo.say(name+' buy') 
  wait(500) 
  checklag() 
  uo.buy('regi') 
  wait(500) 
  uo.say('bye') 
  if uo.weight > 600 then 
    uo.exec('exec GoHome') 
    return 
  else 
    wait(50) 
  endif 
  if find == 2 then 
    x = uo.getx('vendor2') 
    y = uo.gety('vendor2') 
    go(x,y) 
    name = uo.getname('vendor2') 
    uo.say(name+' buy') 
    wait(500) 
    checklag() 
    uo.buy('regi') 
    wait(500) 
    uo.say('bye') 
    if uo.weight > 600 then 
      uo.exec('exec GoHome') 
      return 
    else 
      wait(50) 
    endif 
    if find == 3 then 
      x = uo.getx('vendor3') 
      y = uo.gety('vendor3') 
      go(x,y) 
      name = uo.getname('vendor3') 
      uo.say(name+' buy') 
      wait(500) 
      checklag() 
      uo.buy('regi') 
      wait(500) 
      uo.say('bye') 
      if uo.weight > 600 then 
        uo.exec('exec GoHome') 
        return 
      else 
        wait(50) 
      endif 
    else 
      wait(50) 
    endif 
  else 
    wait(50) 
  endif 
endif 
uo.exec('exec RegTeleport') 
end sub