Yoko

function InJournalBetweenTimes(Str : String; TimeBegin,TimeEnd : TDateTime) : Integer
поиск последней строки в журнале по слову (или по словам) во временном интервале

function WaitJournalLine(StartTime : TDateTime; Str : String; MaxWaitTimeMS : Integer) : Boolean
ожидание появления строки в журнале

t=0
repeat
   wait(100)
   t=t+1
until uo.injournal(str) or t>=maxt

var t
var maxt = ...
uo.deletejournal(str)
t=0
repeat
   wait(100)
   t=t+1
until uo.injournal(str) or t>=maxt
if uo.injournal(str) then
. . .
end if

  if UO.WaitJournalLine(Now, str, maxt) then
  . . .
  end if

  . . .
  while not UO.Dead()
 
    if InJournalBetweenTimes('Des Sanct|Por Ort Grav|Ort Rel|Kal Ort Por|An Ex Por|Corp Por|Vas Ort Flam|Vas Ort Grav|Kal Vas Flam|Ort Sanct|In Vas Por', OldTime, UO.Timer()) then
      if (UO.GetGlobal('Enemy') == JournalSerial()) and (JournalColor() == '0x03B2') then
        CastMagicArrow()
        WaitForCast()
      end if
      OldTime = UO.Timer()
    else
      Wait(300)
    end if

  wend

  . . .

   uo.deletejournal()
   var pos=InJournal('Des Sanct|Por Ort Grav|Ort Rel|Kal Ort Por|An Ex Por|Corp Por|Vas Ort Flam|Vas Ort Grav|Kal Vas Flam|Ort Sanct|In Vas Por')
   while not UO.Dead()
      pos=InJournal('Des Sanct|Por Ort Grav|Ort Rel|Kal Ort Por|An Ex Por|Corp Por|Vas Ort Flam|Vas Ort Grav|Kal Vas Flam|Ort Sanct|In Vas Por')
      if pos then
         if (UO.GetGlobal('Enemy') == uo.JournalSerial(pos-1)) and (uo.JournalColor(pos-1) == '0x03B2') then
            CastMagicArrow()
            WaitForCast()
         end if
         uo.setjournalline(pos-1,'')
      else
         Wait(300)
      end if
   wend

nextcpos 1420 50

• Добавлена поддержка сервера Abyss (вкладка Connection -> Encryption -> пункты Abyss и Asmut)
• Добавлена поддержка четвертого параметра Finddistance в функцию FindType. Использование UO.FindType(Graphic, [Color], [Container], [Finddistance])
• Добавлена функция uo.Flying() для новых клиентов >7.0.0.0, для определения статуса Гаргульи
• Добавлен чекбокс Stamina Patch, для включения/выключения патча на стамину (пробегание через других персонажей)
• Добавлен чекбокс FPS Patch, для ускорения анимации и увеличения ФПС клиента, аналог PvP Hardcore Mod в абиссте. Внимание, тестовая версия, имеет определённые баги!
• Исправлена работа ilaunch при запуске через DualCore Launcher
• Исправлена работа функции uo.Poisoned() для новых клиентов
• Исправлен краш при установке чекбоксов Colored+Icons
• Исправлена отрисовка заголовка окна на Win7 (больше нет необходимости включать классическую тему оформления окон)
• Перенесены чекбоксы Pass hotkeys -> вкладка Hotkeys, Desktop Fix -> вкладка Connection
• Удалены неиспользуемые чекбоксы Flush Log, Target XYZ fix, Permit Vars Loopback, Unset before set
  
  Script.dll:
• Добавлен чекбокс Select last script at run - если галочка установлена в списке запущенных скриптов будет автоматически выбираться последний запущенный скрипт
• Добавлен чекбокс Large Buttons. Если установлен - кнопки запуска, остановки и паузы скриптов будут большого размера. Были пожелания
• Добавлена поддержка многомерных массивов, использование:
  Объявление массива mdim array_name[dim1]...[dimN]
  Передача матрицы array_name в функцию c именем sub_name: sub_name(&mdim array_name)
  Получение матрицы в качестве параметра функции sub sub_name(mdim array_name)
• Добавлена функция SetArrayLength (var_name, length, [copy:1/0])
  Используется для копирования или изменения размеров массивов
  dim new_array = SetArrayLength(old_array, length, 1) - скопирует количество length элементов массива old_array в новый массив new_array. Элементы, которые не влезают в размер length обрезаются
  old_array = SetArrayLength(old_array, length) - изменит длину массива old_array, в случае уменьшения размера лишние элементы будут обрезаны
• Добавлена функция ArrayContains(Array, Value). Проверяет массив Array на наличие элемента Value в нём. В случае нахождения возвращает первую найденную позицию. В случае отсутствия возвращает "-1"
• Добавлена функция GetArrayLength(Array). Возвращает длину массива Array
• Добавлен метод Append в класс file.
  Использование:
  f = file(Path)
  f.append()

• Added "Abyss" server support (Connection tab -> Encryption -> Abyss or Asmut)
• Added support of fourth Finddistance parameter in FindType function. usage: UO.FindType(Graphic, [Color], [Container], [Finddistance])
• Added function uo.Flying() for new clients >7.0.0.0, to identify flying status of Gargoyle
• Added Stamina Patch checkbox to enable/disable patch for stamina (passing through players/monsters)
• Added FPS Patch checkbox, increases animation speed and client FPS, analogue to PvP Hardcode Mod in abysst. Warning: test version, contains several bugs!
• Fixed ilaunch when starting through DualCore Launcher
• Fixed uo.Poisoned() function for new clients
• Fixed crash on "Colored+Icons" checkbox check
• Fixed drawing in title under Windows 7 (no longer requires classic theme in system)
• Moved Pass hotkeys checkboxes to Hotkeys tab, Desktop Fix to Connection tab
• Deleted unused checkboxes: Flush Log, Target XYZ fix, Permit Vars Loopback, Unset before set
  
  Script.dll:
• Added Select last script at run checkbox - if set, last runned script will be selected automatically
• Added Large Buttons checkbox - if set, Run, Stop and Pause buttons will be larger in size (Was requested)
• Added multidimensional array (matrix) support, usage:
  Array initialization: mdim array_Name[dim1]...[dimN]
  Transfer of matrix named array_name into function named sub_name: sub_name(&mdim array_name)
  Receiving of matrix as argument in function named sub_name: sub_name(mdim array_name)
• Added SetArrayLength (var_name, length, [copy:1/0]) function
  Used for copying or change of array size
  dim new_array = SetArrayLength(old_array, length, 1) - would copy "length" elements of old_array array into new new_array array. Elements outside of length would be removed.
  old_array = SetArrayLength(old_array, length) - would change the length of the old_array array, in case of array length decrease, elements outside of length would be removed.
• Added ArrayContains(Array,Value) function - checkes if "Array" contains element "Value" in it. Returnes index of first found element, otherwise -1
• Added GetArrayLength(Array) function, returns length of "Array"
• Added Append method to file class. Usage:
  f = file(Path)
  f.append()