##########
#Проверка на реги, ножницы и пушку, если нет добираем
# из сундука (считаем что регов 4 вида).
#Если вещи в сундуке закончились то выход.
##########
sub blok1()
var syndyk='000000'; ИД сундука
var kolvo=100; по сколько брать регов
dim items[6]
 items[0]='0000'; Тип пушки
 items[1]='0000'; Тип ножниц
 items[2]='0000'; Тип 1 рега
 items[3]='0000'; ... 2 рега
 items[4]='0000'; ... 3 рега
 items[5]='0000'; ... 4 рега
var i
uo.useobject(syndyk)
wait(500)
for i=0 to 5
 uo.findtype(items[i],'-1','backpack')
 if uo.findcount() then
   wait(100)
  else
   uo.findtype(items[i],'-1',syndyk)
   if uo.findcount() then
     uo.moveitem('finditem',kolvo,'backpack') 
     wait(700)
    else
     uo.closeuo()
   endif 
 endif
next
endsub 
 

########
#Чар портится по рунбуке(и далее только рунбука)
# в место где гуляют животные, если животных нет, то чар
# встает в хайд и ждет респа животинки. Как животинка
# появилась узнаем ее ИД и далее следущий блок.
#Для простоты считаем что тип у животин один.
#Рунбук надо настраивать под свой шард!!!(ДРВ изначально)
########
sub blok2()
var animal='0000'; Тип животного
var book='0000000'; ИД рунбуки
var n=1; Номер руны в буке где животные
var givka
var oldX=UO.GetX() 
var oldY=UO.GetY() 
   uo.set('finddistance','14')
   NoTarget() 
   UO.UseObject(book) 
   FastLootCheck() 
   CheckLag() 
   UO.LClick(135, n*15+55) 
   Repeat 
     wait(500) 
   Until oldX<>UO.GetX() OR oldY<>UO.GetY()
   uo.findtype(animal,'-1','ground')
   while not uo.findcount()
    wait(1000)
    ToHide() 
    uo.findtype(animal,'-1','ground')
   wend
   givka=uo.getserial('finditem')
endsub

Sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(600) 
   if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      CheckLag() 
   endif 
end sub 

Sub NoTarget() 
   if UO.Waiting() then 
      UO.CancelTarget() 
   endif 
end sub 

Sub CheckLag() 
   uo.DeleteJournal() 
   uo.Click('backpack') 
   repeat 
      wait(50) 
   until uo.InJournal('backpack') or UO.Dead() 
end Sub 

Sub ToHide() 
   while not UO.Hidden() 
      CheckLag() 
      uo.WarMode(0) 
      uo.UseSkill('Hiding') 
      repeat 
         wait(200) 
      until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preocopured') or UO.Dead() 
   wend 
end Sub 

uo.useobject(syndyk) 
wait(500) 
for i=0 to 1 
 uo.findtype(items[i],'-1','backpack')  // Нашли в паке
 if uo.findcount() then  // Проверка на кол-во в паке
   wait(100)  // Если нашли тогда ждём и выходим к след.регу
  else 
   uo.moveitem(items[i],'1','backpack')  // Если нет, тогда двигаем рег в пак. Вопрос-какой рег и откуда?! Надо бы строкой выше найти этот рег предварительно в сундуке.
   wait(700) 
 endif 
next