Ultima Online Antares

###---прокачка кукинга. жарит рыбу (если есть), мясо-ребра (если есть), тушки
###---птичек (если есть). жарит на том, на что укажут курсором в начале работы
###---скрипта: костер, форжа и тп.

###---КУКИНГ (HOTKEY ALT+R)

sub RibsAndFish()
VAR IsFish=0, IsRibs=0, IsBirds=0
VAR Exit=0

  UO.Exec('addobject Fire')
  while UO.Targeting()
  wait(100)
  wend

  repeat


  if IsFish==0 then # блок приготовления рыбы
  if CookFood('0x097A')==1 then
  UO.Print('сырой рыбы нет')
  IsFish=1
  wait(100)  
  end if
  end if

  if IsRibs==0 then # блок приготовления ребрышек птичек
  if CookFood('0x09F1')==1 then
  UO.Print('сырых ребрышек нет')
  IsRibs=1
  wait(100)  
  end if
  end if

  if IsBirds==0 then # блок приготовления дичи
  if CookFood('0x09B9')==1 then
  UO.Print('куропаток нет')
  IsBirds=1
  wait(100)  
  end if
  end if

  if IsFish==1 && IsRibs==1 && IsBirds==1 && Exit==0 then
  UO.Print("жарить нечего... конец работе ))")
  Exit=1
  wait(100)
  end if

  if UO.InJournal("on some sort of fire") && Exit==0 then
  UO.Print("костер выгорел... конец работе ))")
  Exit=1
  wait(200)
  end if

  until Exit==1 || UO.Dead()

  if NOT UO.Dead() then
  UO.Print('Приготовление еды закончил')
  else
  UO.Print('Помер на кухонном посту - захлебнулся слюной')
  end if

end sub

###---ПРИГОТОВЛЕНИЕ ПИЩИ

Sub CookFood(Food)
VAR LastTimer
  UO.DeleteJournal()
  LastTimer=UO.Timer()
  UO.FindType(Food,'-1','2')
  if UO.FindCount() then
  UO.WaitTargetObject('Fire')
  UO.UseObject('finditem')
  repeat
  wait(100)
  until UO.InJournal("You put|You burn|положили|сожгли") || LastTimer+100<UO.Timer()
  return 0
  else
  return 1  
  end if
end sub

###---ЧЕКЛАГ

Sub checklag()

  deljournal("backpack|Backpack")
  UO.Click("backpack")
  repeat
  wait(100)
  until UO.InJournal("backpack|Backpack")

end sub

###---СТЕРЕТЬ ЖУРНАЛ

Sub deljournal(msg)

  while UO.InJournal(msg)
  UO.SetJournalLine(UO.InJournal(msg)-1,"")
  wend

end sub



###---ТЕРМИНАТОР - ОСТАНОВКА ВСЕХ РАБОТАЮШИХ СКРИПТОВ (HOTKEY ALT+Z)

sub MyTerminate()

  UO.set('quiet','1')
  UO.cancelmenu()
  UO.ignorereset()
  UO.set('quiet','0')
  UO.exec('terminate all')

end sub