Yoko

Code: Select all

###############################################################
### Переменные ###############################################
###############################################################
var enemy, minlife, x, x1, y, y1, n
enemy='0xID-ENEMY' ; ID оппонента
minlife=90 ; Минимальное количество жизни при котором отступаем
x=1838   ; WayPoint-a X - точка отхода координата X
y=795   ; WayPoint-a y - точка отхода координата Y
x1=1836   ; WayPoint-b X - точка встречи координата X
y1=794   ; WayPoint-b y - точка встречи координата Y
n=7     ; Направление оппонента при бегстве
;0 - Север              (верхний правый угол экрана)
;1 - Северо-восток      (правый центр экрана)
;2 - Восток             (нижний правый угол экрана)
;3 - Юго-Восток         (нижний центр экрана)
;4 - Юг                 (нижний левый угол экрана)
;5 - Юго-Запад          (левый центр экрана)
;6 - Запад              (верхний левый угол экрана)
;7 - Северо-Запад       (верхний центр экрана)

###############################################################
### Начальная функция ########################################
###############################################################
sub main()
  uo.print(str(uo.GetDir(enemy)))   ; Покажет текущее направление оппонента
  uo.setarm('arm')
  if uo.life==uo.str then
    uo.exec('exec ataka')
  else
    uo.exec('exec bs')
  endif
end sub

###############################################################
### Функция атаки ########################################
###############################################################
Sub ataka()
  var dist
  uo.click(enemy)
  Walker(x1,y1,0)       ; Ходилка по координатам :)
  while uo.getdistance(enemy)>2
    wait(200)
  wend
  uo.arm('arm')
  uo.warmode('1')
  uo.attack(enemy)
  uo.warmode('1')
  uo.attack(enemy)
  wait(200)
  while uo.life>minlife
    dist=uo.getdistance(enemy)
    if uo.getdir(enemy)==n || uo.getdistance(enemy)>2 then
      uo.warmode('0')
      uo.warmode('0')
      uo.exec('terminate all; exec bs')
    endif
    wait(200)
  wend
  uo.exec('terminate all; exec main')
end sub

###############################################################
### Healing ###############################################
###############################################################
Sub bs()
  uo.warmode('0')
  uo.warmode('0')
  Walker(x,y,0)       ; Ходилка по координатам :)
  uo.warmode('0')
  uo.waittargettype('0x1008')
  uo.usetype('0x0E20')
  wait(3000)
  repeat
    ws()
    uo.BandageSelf()
    wait(3500)
    if uo.count('0x0E21')<1 then
      uo.waittargettype('0x1008')
      uo.usetype('0x0E20')
      wait(3000)
    endif
  until uo.life==uo.str
  uo.arm('arm')
  wait(2000)
  CheckLag()
  main()
end sub

###############################################################
### Проверка на сохранение мира ############################
###############################################################
Sub ws()
  if uo.injournal("world is saving now...") then
    while not uo.injournal("world data saving")
      wait(100)
    wend
  endif
  CheckLag()
end sub

###############################################################
### CheckLag() ###########################################
###############################################################
Sub CheckLag()
  UO.DeleteJournal() ; вытрем все сообщения в журнале (Inj, но не клиента)
  UO.Click('backpack') ; одиночный клик по вашему backpack
  ;       ждем сообщения в журнале
  repeat
    wait(100)
  until UO.InJournal("backpack")
  ;       этот цикл завершится, если это сообщение появится.... замечу "Backpack" и "backpack"
  ;       регистр важен Пишите точно что ждете
end sub

########################################## Ходилка ##########################
;
;ТУТ ДОЛЖНА БЫТЬ ФУНКЦИЯ ХОДИЛКИ!!!!
;
########################################## Конец ходилки ##########################

Code: Select all

sub TinkKey()
var LastTimer
      UO.DeleteJournal()
      LastTimer=UO.Timer() ; <------
      UO.WaitMenu ('Tinkering','Keys','Keys','Iron key' ) 
      UO.Usetype( Instrum )
      repeat
        wait( 300 )
      until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150 ; <------
end sub