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 

sub Ept()
var gold, bag
gold=UO.Gold
bag=UO.Count(0x0E76)
UO.Set('finddistance', '3')
UO.FindType(0x0E76, -1,'ground')
UO.Grab(str(0),'finditem'); юзай Grab
UO.FindType(0x0EED, -1,'ground')
UO.Grab(str(0),'finditem');
if UO.Count(0x0E76)>bag and UO.Gold>gold then
 UO.Say(')')
endif
end sub 

#  Rev/En/Ant
sub empter()
VAR Sunduk1 = '0x403A2C57'   ;сундук для мешков
VAR Sunduk2 = '0x40C17C79'   ;сундук для хлама
VAR Meshok = '0x0E76'        ;тип мешка
VAR MeshSer
repeat
    uo.findtype(Meshok,-1,'backpack')
    MeshSer = UO.GetSerial( 'finditem' )
    uo.useobject(MeshSer)
    wait(600)
    repeat  
       uo.findtype(-1,-1,MeshSer)
       uo.moveitem('finditem',0,Sunduk2)
       wait(500)
    until not UO.GetQuantity('finditem')
    wait(500)
    uo.moveitem(MeshSer,0,Sunduk1)
until not UO.count(Meshok)
end sub


sub derevo()

var bag=0x40C17C79; мешок для мусора

repeat
 UO.FindType(-1,-1,bag)
 UO.MoveItem('finditem',1,'backpak')
 UO.WaitTargetObject('finditem')
 UO.UseFromGround('0x11C9') 
 wait(1000)
until UO.Dead()
end sub