Ultima Online Antares

sub mineone()
  var x,y,z, n
  VAR LastTimer
  UO.Set('finddistance','2')
  n=0
  z=UO.GetZ("self")
     for x=-2 to 2
        for y=-2 to 2
           UO.Print(str(x)+" "+str(y))
           Repeat
              if UO.InJournal('TORMOZ') then
                pause()
              endif
              UO.DeleteJournal()
              UO.Warmode("0")
              UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
              UO.UseType('0x0E85')
              LastTimer=UO.Timer()
              Repeat
                 wait(500)
              Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") or UO.InJournal("so close") OR UO.Timer()>LastTimer+200
              if UO.InJournal("You put") then
                  n=0
              else
                 n=n+1
              endif
           Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
        next
     next
end sub

sub Herding()
var posoh = "0x13F4"
uo.print('  - ')
uo.addobject('Animal')
while uo.targeting()
wait(100)
wend
repeat
uo.waittargetobject('Animal','self')
uo.usetype(posoh)
Uo.DeleteJournal()
repeat
wait(100)
until UO.InJournal('The animal goes') or UO.InJournal('You don')
until uo.dead()
endsub

sub blacksmith()
    var Hammer = '0x13E3'; hammer
    var Iron = '0x1BEF'; ingots
repeat

UO.WaittargetType(Iron)
uo.usetype(Hammer)
UO.WaitMenu('Blacksmithing','Weapon','Weapon','Fencing','Fencing','Dagger')
UO.DeleteJournal()
repeat
wait(500)
until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target')
until uo.count(Iron) < 16
end sub

sub Tailoring()
    var SewKit = '0x0F9D'; sewing kit
    var Cloth = '0x175D'; folded cloth
repeat

UO.WaittargetType(Cloth)
uo.usetype(SewKit)
UO.WaitMenu('Miscellaneous','Blank Scroll')
UO.DeleteJournal()
repeat
wait(500)
until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('destroyed')
until uo.count(Cloth) < 1
end sub

sub TAILORmap()
repeat
UO.WaitTargetType('0x175D')
UO.WaitMenu ('Misc','Blank Map')
UO.UseType('0x0F9D')
wait(6000)
until false
end sub

sub mar()
uo.print('Кого лечить?')
uo.exec('addobject bod')
while uo.targeting()
wait(100)
wend
end sub

sub healfriend()
uo.waittargetobject('bod')
uo.usetype('0x0E21','0x000')
wait (200)
uo.exec("arm 1")
end sub

sub healfriend_ress()
uo.waittargetobject('0x0008D68A')
uo.usetype('0x0E21','0x000')
wait (200)
uo.waittargetobject('0x0008D68A')
uo.cast('Resurrection')
wait (200)
end sub

sub Cartography()
UO.Exec ("automenu 'What sort of map do you want to d' 'Detail Map'")
UO.DeleteJournal()
repeat
UO.Useskill("Cartography")
wait(4000)
until UO.Dead()
end sub

sub Tinkering()
  uo.cancelmenu()
  uo.automenu('Tinkering','Miscellaneous')
  uo.automenu('Miscellaneous','Empty Bottle')
  while UO.Count('0x1BEF')>3
  UO.DeleteJournal()
  UO.UseType('0x1EBC')
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("failed")
  wait(300)
  wend
wend
end sub

Sub kozly()
   uo.print('Выбери козла: ')
   uo.exec('addobject koz')
   while uo.targeting()
      wait(500)
   wend
uo.hide('koz')
   wait(6000)
   uo.resend()
endsub

R[1] = '0x0EED' # Gold
R[2] = '0x0F3F' # Arrow
R[3] = '' #
R[4] = '' #
R[5] = '' #
R[6] = '' #
R[7] = '' #
R[8] = '' #
R[9] = '' #
R[10] = '' #
R[11] = '' #
R[12] = '' #
R[13] = '' #
R[14] = '' #
R[15] = '' #
R[16] = '' #
R[17] = '' #
R[18] = '' #
R[19] = '' #
R[20] = '' #
R[21] = '' #
R[22] = '' #
R[23] = '' #
R[24] = '' #
R[25] = '' #
R[26] = '' #
R[27] = '' #
R[28] = '' #
R[29] = '' #
R[30] = '' #
R[31] = '' #
R[32] = '' #
R[33] = '' #
R[34] = '' #
R[35] = '' #
R[36] = '' #
R[37] = '' #
R[38] = '' #
R[39] = '' #
R[40] = '' #
R[41] = '' #
R[42] = '' #
R[43] = '' #
R[44] = '' #
R[45] = '' #
R[46] = '' #
R[47] = '' #
R[48] = '' #
R[49] = '' #
R[50] = '' #
R[51] = '' #
R[52] = '' #
R[53] = '' #
R[54] = '' #
R[55] = '' #
R[56] = '' #
R[57] = '' #
R[58] = '' #
R[59] = '' #
R[60] = '' #
R[61] = '' #
R[62] = '' #
R[63] = '' #
R[64] = '' #
R[65] = '' #
R[66] = '' #
R[67] = '' #
R[68] = '' #
R[69] = '' #
R[70] = '' #
R[71] = '' #
R[72] = '' #
R[73] = '' #
R[74] = '' #
R[75] = '' #
R[76] = '' #
R[77] = '' #
R[78] = '' #
R[79] = '' #
R[80] = '' #
R[81] = '' #
R[82] = '' #
R[83] = '' #
R[84] = '' #
R[85] = '' #
R[86] = '' #
R[87] = '' #
R[88] = '' #
R[89] = '' #
R[90] = '' #
R[91] = '' #
R[92] = '' #
R[93] = '' #
R[94] = '' #
R[95] = '' #
R[96] = '' #
R[97] = '' #
R[98] = '' #
R[99] = '' #
R[100] = '' #

###---прокачка кукинга. жарит рыбу (если есть), мясо-ребра (если есть), тушки
###---птичек (если есть). жарит на том, на что укажут курсором в начале работы
###---скрипта: костер, форжа и тп.
###---прячется, не ест.
###---@ ЦАПО "Силиконовая Грудь"


###---КУКИНГ (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
    ToHide()
    
    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 F10)

sub ToHide()
VAR LastTimer, n=0, HidFlag=1

    if UO.Hidden() then
        HidFlag=0
    else
        UO.Print('Щас как спрячусь!..')
    end if

    while HidFlag
        deljournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно")
        LastTimer=UO.Timer()
        UO.exec('warmode 0')
        UO.useskill('Hiding')
        repeat
            wait(300)
        until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно") || LastTimer+100<UO.Timer()
        if UO.InJournal("удачно") then
            HidFlag=0
        else
            n=n+1
            if n>3 then
                UO.Print('Спрятаться не получается, происходит что-то тревожное и непонятное, готовься к смерти, неудачнег!')
                return
            end if
        end if
    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 TinkerBottle()
VAR LastTimer
VAR Bottle   = '0x0F0E'
VAR Ing      = '0x1BEF'      
VAR Instrum  = '0x1EBC'
VAR delay1   =  200
VAR sunduk1  = '0x40F6A567'
WHILE NOT UO.Dead()
  REPEAT
       If UO.Count( Ing ) < 10 Then
     UO.Print("Iron not found")
      UO.FindType( Ing, '-1', sunduk1)
       If UO.FindCount() > 0 Then
    uo.moveitem('finditem',100,'backpack')
         wait( delay1 )
        Else
         UO.Print( 'Iron not found' )
            return
        Endif
    Endif
   Repeat
     UO.DeleteJournal()
      LastTimer=UO.Timer()
       UO.WaitMenu ('Tinkering', 'Miscellaneous', 'Miscellaneous', 'Empty Bottle' )
       UO.Usetype( Instrum )
      repeat
        wait( delay1 )
      until UO.InJournal("You put|fail|You broke") or UO.Timer()>LastTimer+150
   Until UO.Count( Bottle ) > 0
checklag()
;    wait( delay1 )
      while UO.Count( Bottle ) > 0
       UO.FindType( Bottle, -1, -1 )
       UO.MoveItem( 'finditem', 0, sunduk1 )
checklag()
      wend
   wait( delay1 )
UO.FindType( Bottle, -1, sunduk1 )
UO.Print('Bottle in sunduk: '+Str(UO.GetQuantity('finditem')))
WEND
end sub

Sub DeleteJournal(msg)
var nom=UO.InJournal(msg)
  if nom>0 then
     UO.SetJournalLine(Nom - 1," ----- 8< ----- ")
     DeleteJournal(msg)
  endif
endsub

sub up.Meditation()
VAR msg1="In Por Ylem"
VAR msg2="You are at peace."
VAR msg3="You lose your concentration."
var fish = '0x097B'
repeat
  uo.DeleteJournal()
  uo.WaitTargetObject("self")
  uo.Cast("Magic Arrow")
  repeat
   Wait(2000)
  until uo.InJournal(msg1)
  uo.Warmode(0)
  repeat
   uo.DeleteJournal()
   uo.usetype(fish)
   UO.SetArm('CWeapon')
   UO.bandageself()
wait(5000)
UO.Arm('CWeapon')
   uo.UseSkill("Meditation")
   repeat
    Wait(50)
   until uo.InJournal(msg2) or uo.InJournal(msg3)
  until uo.InJournal(msg2)
until not uo.Ns or uo.Dead()
end sub

sub Begging()
var fish = '0x097B' # стейки
uo.print('Whom you want grovel to?')
uo.exec('addobject Beg') # чар-жертва выбирается таргетом
while uo.targeting()
  wait(200)
wend
uo.DeleteJournal()
While not uo.Dead()
  uo.waittargetobject('Beg')
  uo.usetype(fish) # жрём
  wait(500)
  uo.useskill('Begging')
      wait(5000)
   uo.setreceivingcontainer(0x4062CFE8) # мешок для денег
   uo.findtype(0x0EED,"-1",'Backpack') # Ид бабла, не менять
   UO.Grab("0","finditem")
   wait(1000)
  wait(5000)    
wend
end sub

sub makeTotalManaReferh()
  Alchemy('0x0F87', 6, "'Total Mana Refresh'")
end sub

Sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
  UO.DeleteJournal()
  UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
  UO.UseType(reagent)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
    wait(300)
  wend
wend
end sub

####################

sub makeTotalReferh()
  Alchemy('0x0F7A', 5, "'Total Refresh'")
end sub

Sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
  UO.DeleteJournal()
  UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
  UO.UseType(reagent)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
    wait(300)
  wend
wend
end sub

####################

sub makeinvis()
  Alchemy('0x0F91', 4, "'Invisibility'")
end sub

Sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
  UO.DeleteJournal()
  UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
  UO.UseType(reagent)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
    wait(300)
  wend
wend
end sub

sub Stealth()
   var i=1
   repeat
      for i=1 to 8
         if not uo.hidden() then
            UO.DeleteJournal()
            UO.UseSkill("Hiding")
            Repeat
               Wait(10)
            Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
         end if
         uo.press(35)
         wait(200)
      next
      for i=1 to 8
         if not uo.hidden() then
            UO.DeleteJournal()
            UO.UseSkill("Hiding")
            Repeat
               Wait(10)
            Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
         end if
         uo.press(33)
         wait(200)
      next
      Wait(100)
   until UO.Dead()
end sub

### Если кому интересно: 1 хлопок=6 ниток. 10 ниток = 1 баллон ткани = 50 ткани
### Рядом с чаром поставить сундук, мешок с нитками, открыть мешок перед запуском скрипта (Скрипт Igneous, я немного его
### подправил под реалии, чтоб работал)))

sub Tkan()
repeat
uo.findtype('0x0FA0','-1','lastcontainer')
if uo.findcount()>0 then
uo.grab('60','finditem')
endif
wait(200)
uo.findtype('0x0FA0','-1','Backpack')
if uo.findcount()>0 then
repeat
uo.waittargetground('0x1061') # тип прялки, остальные типы не менять.
uo.usetype('0x0FA0')
wait(2000)
uo.findtype('0x0FA0','-1','Backpack')
until uo.findcount()==0
endif
wait(200)
uo.findtype('0x0F95','-1','Backpack')
if uo.findcount()>0 then
uo.setreceivingcontainer('lastcontainer')
uo.grab('0','finditem')
wait(500)
uo.unsetreceivingcontainer()
endif
checklag()
wait(100)
until 0>1
endsub

Sub checklag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(200)
until uo.InJournal('backpack|Backpack')
;until uo.InJournal('ackpack')  
end sub

sub Kindlings()
    var x = uo.getx()
    var y = uo.gety()
    var z = uo.getz()
    
    uo.findtype('0x0DE1')
    uo.drop('1', x, y, z,'finditem')
    wait(700)
    uo.findtype('0x0DE1')
    wait(200)            
    uo.useobject('finditem')
    wait(1500)
endsub

sub recallhome()
uo.exec("waittargetobject 0x40083BB0")
uo.cast("Recall")
end sub

sub recallInvis()
var rune = "0x40233367"; ID руны (заменить на нужный)
Var Type='0x0E24'; тип бутылки с жидкостью
Var Color='0x0060'; цвет бутылки с жидкостью
      if uo.waiting() then
          uo.canceltarget()
      endif
      uo.waittargetobject(rune)
      uo.cast('Recall')
      wait (100)
      UO.FindType(Type, Color, 2)
      UO.UseObject('finditem')
end sub