Yoko

# Версия YokoInjection: 505.18 VeNdOr
# Версия клиента: 2.0.3
# Автор: GAUHAR

#########################################################################
# ПЕРЕМЕННЫЕ которые можно настроить под себя или оставить как есть.    #
#-----------------------------------------------------------------------#
   VAR iX = UO.GetX()+1   # Если перемещать предметы на землю(пол),
   VAR iY = UO.GetY()+1   # то это координаты куда именно перемещать
   VAR iZ = UO.GetZ()     # относительно персонажа.
   VAR QuantityForLargeHeaps = 100   # По сколько предметов перебрасывать
         # неподъемные кучи. Если перебрасывать в пак персонажа, то лучше
         # установить меньшее число, так при загрузке в пак стоит контроль
         # на перевес, и будет взято максимально возможное количество
         # кратное переменной QuantityForLargeHeaps. Максимальный вес
         # расчитывается по формуле UO.Str*42/10.
#-----------------------------------------------------------------------#
#########################################################################

#########################################################################
# ЗАГРУЗКА-РАЗГРУЗКА из контейнера в контейнер                          #
#                                                                       #
# ОПИСАНИЕ процедуру PEREBROS_target():                                 #
# Не всегда нужная но достаточно полезная. Предназначена облегчить      #
# работу крафтера, если у такового возникла необходимость перебросить   #
# кучу предметов одного типа и цвета из одного контейнера в другой.     #
# Может брать 1 предмет из неподъемной кучи.                            #
#                                                                       #
# ЧТО И КАК РАБОТАЕТ:                                                   #
# Если НАДО БРАТЬ (перебрасывать) из бекпака персонажа, то прицелом     #
# щелкаем по перонажу или его бекпаку.                                  #
# Если НАДО БРАТЬ из кучи находящейся на земле(полу), то делаем щелчок  #
# прицелом по земле(полу) или нажимаем [ESC]. Куча или нестакующиеся    #
# предметы должны находится в радиусе 2 клеток от персонажа, иначе их   #
# нельзя достать из-за большого растояния.                              #
# Если НАДО ПОЛОЖИТЬ (перебросить) в бекпак персонажа, то прицелом      #
# щелкаем по персонажу или его бекпку.                                  #
# Если НАДО ПОЛОЖИТЬ (перебросить) на землю(пол), то делаем щелчок      #
# прицелом по земле(полу) или нажимаем [ESC]. Предметы будут выложены   #
# на одну клетку юго-восточней персонажа (можно настраить под себя      #
# изменив переменные: iX, iY, iZ).                                      #
# Иначе делай выбор контейнера откуда брать (он будет открыт, если до   #
# этого был закрыт) и контейнера в который перекладывать.               #
# Указав ЧТО ПЕРЕКЛАДЫВАТЬ, перекладываються предметы только указанного #
# типа и цвета.                                                         #
# КОЛИЧЕСТВО предметов для переброски вводится в окне клиента. Для этого#
# персонаж должен произнести фразу, например: 123 шт                    #
# тогда будет переброшено 123 предмета указанного типа и цвета.         #
#     0 шт - перебрасываем все предметы указанного типа и цвета,        #
#     ЧИСЛО шт - определенное количество предметов.                     #
#                                                                       #
# ПРИМЕЧАНИЕ:                                                           #
# 1. Не стоит бросать на пол в одну точку большое количество не         #
# стакующиеся предметов, иначе вы увидите:                              #
#     Too many items here!                                              #
#     The ground collapses!                                             #
# Короче предметы провалятся под пол и их нельзя будет достать.         #
# 2. Если из неподъемной кучи пытаться перебросить 1 предмет в такую же #
# неподъемную кучу, то будет переброшено 2 предмета.                    #
# 3. Если прицел для указания контейнера был сброшен клавишей [ESC], то #
# в качестве контейнера будет выбрана земля(пол).                       #
# 4. Если тип предмета будет равен 0x0000 (вы указали на землю(пол) или #
# нажали клавишу [ESC]), или равен типу человека, то скрипт прервет     #
# свою работу.                                                          #
# 5. Указывая количество, не забудьте про слово ШТ.                     #
#-----------------------------------------------------------------------#
sub PEREBROS_target()
   VAR TypeItem, ColorItem, CHARname, stroka, chislo
   UO.Click('self')
   PrintInColor("Выбери ОТКУДА брать.",'0x003F')
   UO.DeleteJournal()
   UO.AddObject('CONTAINER_sender')
   while UO.Targeting() and not UO.InJournal("see the target")
      wait(300)
   wend
   if UO.GetSerial('CONTAINER_sender') == '0x00000000' then
      UO.AddObject('CONTAINER_sender','0x00000001')
    else
      if UO.GetSerial('CONTAINER_sender') == UO.GetSerial('self') then
         UO.AddObject('CONTAINER_sender','backpack')
      endif
      OpenContainer('CONTAINER_sender')
   endif
   PrintInColor("Выбери КУДА класть.",'0x003F')
   UO.AddObject('CONTAINER_recipient')
   while UO.Targeting()
      wait(300)
   wend
   if UO.GetSerial('CONTAINER_recipient') == '0x00000000' then
      UO.AddObject('CONTAINER_recipient','0x00000001')
    else
      if UO.GetSerial('CONTAINER_recipient') == UO.GetSerial('self') then
         UO.AddObject('CONTAINER_recipient','backpack')
      endif
   endif
   PrintInColor("Выбери ЧТО перекладывать",'0x003F')
   UO.AddType('ITEM_for_moving')
   while UO.Targeting()
      wait(300)
   wend
   if UO.GetGraphic('ITEM_for_moving') == '0x0000' or UO.GetGraphic('ITEM_for_moving') == '0x0190' or UO.GetGraphic('ITEM_for_moving') == '0x0191' then
      PrintInColor("ПРЕДМЕТ НЕ УКАЗАН.",'0x002b')
      PrintInColor("SCRIPT TERMINATE!",'0x0026')
      return
   endif
   TypeItem = UO.GetGraphic('lasttarget')
   ColorItem = UO.GetColor('lasttarget')
   PrintInColor("Тип предмета: " + TypeItem,'0x0053')
   PrintInColor("Цвет предмета: " + ColorItem,'0x0053')
   wait(2000)
   PrintInColor("СКОЛЬКО ПЕРЕКЛАДЫВАТЬ?",'0x003F')
   wait(2000)
   PrintInColor("Введи в консоли число и слово 'шт'.",'0x003F')
   wait(2000)
   PrintInColor("0 шт - Переложить все предметы.",'0x003F')
   wait(2000)
   PrintInColor("ЧИСЛО шт - Определенное кол-во.",'0x003F')
   wait(2000)
   PrintInColor("И ЖМИ [ENTER]",'0x003F')
   UO.DeleteJournal()
   while not UO.InJournal("шт|ШТ")
      wait(200)
   wend
   stroka = UO.Journal(UO.InJournal("шт|ШТ") - 1)
   chislo = val(mid(stroka,len(UO.GetName())+2,len(stroka)-len(UO.GetName())-1))
   PEREBROS(chislo,'ITEM_for_moving',ColorItem,'CONTAINER_sender','CONTAINER_recipient')
endsub
#-----------------------------------------------------------------------#
#########################################################################

#########################################################################
# ОПИСАНИЕ процедуры PEREBROS:                                          #
# Процедура применяется в скриптах, в которых есть необходимость часто  #
# делать добор каких либо предметов (например: брать слитки металла для #
# ковки, или выгрузить сделанного в отдельный контейнер(мешок)).        #
# Может брать 1 предмет из неподъемной кучи.                            #
#-----------------------------------------------------------------------#
SUB PEREBROS(kolvo,typ,tsvet,konteiner_sklad,konteiner_priemnik)
   # PEREBROSKA_v1(1,'0x0000','0x0000','0x00000000','0x00000000')
   # PEREBROSKA_v1(Количество,Тип,Цвет,ОткудаБерем,КудаКладем)
   # Если использовать в своем скрипте, то устанавливайте максимальный
   # вес загрузки меньше, чем в формуле UO.Str*42/10
#   VAR iX = UO.GetX()+1, iY = UO.GetY()+1, iZ = UO.GetZ()
   VAR k             # k - счетчит количества перебросов в бекпак
   VAR changekolvo   # Дублирует переменную kolvo
   VAR NewWeight = 0, ChangeWeight = 0, InitialWeight =  UO.Weight
   VAR MaxWeight = UO.Str*42/10      # Максимальный вес загрузки.
#   VAR QuantityForLargeHeaps = 100   # По сколько предметов перебрасываем
                                     # неподъемные кучи.
   VAR TotalQuantityInContainer = 0  # Всего предметов данного типа в контейнере
# Бывает так, что в бекпаке вес больше, чем в формуле UO.Str*42/10, и
# поэтому не осуществляется переброска из бекпака в выбранный контейнер,
# чтобы такого не было максимальный вес переустанавливаем на текущий +1.
   if konteiner_sklad == UO.GetSerial('backpack') then
      MaxWeight = UO.Weight + 1
   endif
   UO.Set('grabdelay','200')
# Подсчитаем общее кол-во предметов данного типа и цвета в контейнере.
   UO.FindType(typ,tsvet,konteiner_sklad)
   while UO.FindCount() <> 0
      TotalQuantityInContainer = TotalQuantityInContainer + UO.GetQuantity('finditem')
      UO.Ignore('finditem')
      UO.FindType(typ,tsvet,konteiner_sklad)
   wend
   UO.Exec('ignorereset')
   PrintInColor("Найдено: " + str(TotalQuantityInContainer),'0x0053')
   wait(2000)
# Если ничего не найдено выходим из процедуры.
   if TotalQuantityInContainer == 0 then
      return
    else
      if TotalQuantityInContainer < kolvo or kolvo == 0 then
         kolvo = TotalQuantityInContainer
      endif
   endif
# Нашли то, что искали. ДЕЛАЕМ ПЕРЕБРОС.
   UO.FindType(typ,tsvet,konteiner_sklad)
   if UO.FindCount() == TotalQuantityInContainer then
# Берем не стакующиеся предметы
      while UO.FindCount() <> 0 and kolvo > 0 and MaxWeight > UO.Weight
         PrintInColor("Осталось перебросить: " + str(kolvo),'0x0053')
         CheckLag()
         if UO.GetSerial(konteiner_priemnik) <> '0x00000001' then
            UO.MoveItem('finditem','1',konteiner_priemnik)
          else
            UO.MoveItem('finditem','1','ground',iX,iY,iZ)
         endif
         CheckLag()
         UO.FindType(typ,tsvet,konteiner_sklad)
         kolvo = kolvo - 1
      wend
    else
# Берем стакующиеся предметы
      UO.DeleteJournal()
      changekolvo = kolvo
      while UO.FindCount() <> 0 and changekolvo > 0 and MaxWeight > UO.Weight
         PrintInColor("Перебрасываем: " + str(kolvo),'0x0053')
         CheckLag()
         if UO.GetSerial(konteiner_priemnik) <> '0x00000001' then
            UO.MoveItem('finditem',changekolvo,konteiner_priemnik)
          else
            UO.MoveItem('finditem',changekolvo,'ground',iX,iY,iZ)
         endif
         CheckLag()
         changekolvo = changekolvo - UO.GetQuantity('finditem')
         UO.FindType(typ,tsvet,konteiner_sklad)
         wait(1000)
         # Если куча очень тяжелая то берем ее частями
         if UO.InJournal("That is too heavy") then
            UO.FindType(typ,tsvet,konteiner_sklad)
            k = 0
            while UO.FindCount() <> 0 and kolvo > 0 and MaxWeight > NewWeight
               # Если из очень тяжелой кучи надо взять один предмет.
               if kolvo == 1 then
                  PrintInColor("Перебрасываем: " + str(kolvo),'0x0053')
                  if UO.GetSerial(konteiner_sklad) <> '0x00000001' then
                     OpenContainer(konteiner_sklad)   # Используется как UO.Resend(), но только для контейнера
                   else
                     UO.Resend()
                  endif
                  CheckLag()
                  if UO.GetSerial(konteiner_priemnik) <> '0x00000001' then
                     UO.MoveItem('finditem',2,konteiner_priemnik)
                   else
                     UO.MoveItem('finditem',2,'ground',iX,iY,iZ)
                  endif
                  CheckLag()
                  UO.FindType(typ,tsvet,konteiner_priemnik)
                  if UO.GetSerial(konteiner_sklad) <> '0x00000001' then
                     UO.MoveItem('finditem',1,konteiner_sklad)
                   else
                     UO.MoveItem('finditem',1,'ground',iX,iY,iZ)
                  endif
                  CheckLag()
                  return
               endif
               # Если из очень тяжелой кучи берем всё или часть.
               CheckLag()
               if UO.GetSerial(konteiner_priemnik) <> '0x00000001' then
                  UO.MoveItem('finditem',QuantityForLargeHeaps,konteiner_priemnik)
                else
                  UO.MoveItem('finditem',QuantityForLargeHeaps,'ground',iX,iY,iZ)
               endif
               CheckLag()
               UO.FindType(typ,tsvet,konteiner_sklad)
               kolvo = kolvo - QuantityForLargeHeaps
               if kolvo < QuantityForLargeHeaps then
                  QuantityForLargeHeaps = kolvo
               endif
               # Высчитываем изменение веса после каждого переброса в
               # бекпак, для проверки на превышение максимального веса.
               k = k + 1
               ChangeWeight = (UO.Weight - InitialWeight) / k
               NewWeight = UO.Weight + ChangeWeight
               PrintInColor("Осталось перебросить: " + str(kolvo),'0x0053')
            wend
         endif
      wend
   endif
endsub
#-----------------------------------------------------------------------#
# Дополнительные фукции к процедуре PEREBROS                            #
#-----------------------------------------------------------------------#
SUB PrintInColor(text,color)
   # PrintInColor("здесь текст",'цвет')
   # 0x003F - ярко-зеленый
   # 0x0026 - красный
   # 0x0053 - темно-бирюзавый
   # 0x0035 - желтый
   # 0x008F - оранжевый
   # 0x0003 - синий
   # 0x0440 - по умолчанию
   UO.ConColor(color)
   UO.Print(text)
   UO.ConColor('1088')
endsub
SUB DelJournal(string1)   #(c) Edred
   VAR nom = UO.InJournal(string1)
   if nom > 0 Then
      UO.SetJournalLine(Nom - 1, 'string replaced')
      DelJournal(string1)
   endif
endsub
SUB OpenContainer(cntnr)
   DelJournal('Contains')
   DelJournal('items')
   DelJournal('Bank Box')
   UO.UseObject(cntnr)
   UO.Click(cntnr)
   repeat
      wait(300)
   until UO.InJournal('Contains') or UO.InJournal('items') or UO.InJournal('Bank Box')
endsub
SUB CheckLag()
   DelJournal("backpack")
   UO.Click("backpack")
   repeat
      wait(300)
   until UO.InJournal("backpack")
endsub
#-----------------------------------------------------------------------#
#########################################################################