Ultima Online Antares

sub Cook()
   var printcolour = '1069'

   uo.charprint(printcolour, 'Выбери че будем жарить' )
   uo.exec('addobject havka')
   while uo.targeting()
      wait(100)
   wend

   uo.charprint(printcolour, 'Выбери жаровню, на которой будешь жарить' )
   uo.exec('addobject Forge')
   while uo.targeting()
      wait(100)
   wend
   repeat
      UO.DeleteJournal()
      UO.FindType(UO.GetGraphic('havka'),'0x0000','my')
      if UO.FindCount() > 0 then
         UO.WaitTargetObject('Forge')
         UO.UseObject('havka')
         repeat
            wait (100)
         until UO.InJournal("You burn")  or UO.InJournal("You put")
         else
            uo.charprint(printcolour, 'Сырье закончилось' )
            return
      end if
   Until UO.Dead()
end sub

sub Snooping()
   UO.CharPrint('self','1069','В какую сумку полезем в этот раз ?')
   UO.Exec('addobject Bag')
   while UO.Targeting()
      Wait(200)
   wend
   repeat
      UO.UseObject('Bag')
      Wait(150)
   until UO.Dead()
endsub

Sub TakeReg(Chest)
   DIM reg[5]
   var i,n
   reg[1]='0x0f8c'; SA
   reg[2]='0x0f8d'; SS
   reg[3]='0x0f84'; GA
   reg[4]='0x0F7B'; BM
   reg[5]='0x097B';fish steak
  
   UO.UseObject('Chest')
   for i=1 to 5
      while UO.Count(reg[i])<5
         UO.FindType(reg[i],-1,'Chest')
         n=UO.Count(reg[i])
         UO.Grab(str(100-n),'finditem')
         wait(200)
      wend  
   next
end sub

sub RemoveTrap()
   var LastTimer
   UO.Exec('addobject Chest');сундук с регами, который будем запирать и отпирать
   while UO.Targeting()
      Wait(200)
   wend
   repeat
      TakeReg('Chest')
      wait (500)
      UO.DeleteJournal()
      If UO.Mana < 30 Then
         repeat
            UO.UseSkill( 'Meditation' )
            wait (4000)
         until UO.InJournal( "You are" )
      Endif
      LastTimer=UO.Timer()
      Uo.waittargetobject('Chest')
      UO.cast('Magic Trap')
      repeat
         wait(500)
      until UO.InJournal("поместили") or LastTimer+500<UO.Timer()
      If UO.InJournal("поместили") then
         Uo.waittargetobject('Chest')
         UO.cast('Magic Untrap')
         repeat
            wait(500)
         until UO.InJournal("обезвредили")
         UO.UseType('0x097B')
         UO.DeleteJournal()
      endif
   until UO.Dead()
end sub

Var Horse = '0x003EC735'; Ид лошади

sub Veterinary()
while not UO.Dead()
hp()
ss()
uo.attack ( Horse )
wait (500)
wend
end sub


sub ss()
if uo.GetHP ( Horse ) < 20 then это ХП животного после когда проходит хил. можно и побольше поставить, но сразу скажу стамина убегает быстро.
Repeat
uo.DeleteJournal()
UO.WarMode(0)
uo.Print('лечи его')
uo.waittargetobject( Horse )
uo.usetype('0x0E21')
wait (1000)
Until UO.InJournal(' мумию!')

endif
end sub


sub hp()
if UO.Life <= 100 then
while (UO.Life < UO.GetMaxHP())
UO.WarMode(0)
uo.Print('хилим себя')
uo.waittargetobject( 'self' )
uo.usetype('0x0E21')
wait (1000)
wend
endif
end sub

sub unloadregs()
   VAR n, q, c
   Dim Req[50]; Requirements
   Req[0]='0x0F7A'; regi
   Req[1]='0x0F7B'; regi  
   Req[2]='0x0F86'; regi  
   Req[3]='0x0F88'; regi  
   Req[4]='0x0F8D'; regi
   Req[5]='0x0F84'; regi
   Req[6]='0x0F85'; regi
   Req[7]='0x0F8C'; regi
   Req[8]='0x0F8C'; regi
  
   if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
      c=uo.getserial('lastcontainer')
      for n=0 to 8
         uo.findtype(Req[n],-1,'my')
         while uo.findcount()
            uo.moveitem('finditem',0,c)
            wait(700)
            uo.findtype(Req[n],-1,'my')
         wend
      next
   endif
   uo.print(' -= done =- ')
endsub

sub unloadCamni()
   VAR n, q, c
   Dim Req[50]; Requirements
   Req[0]='0x0F10'; unloadCamni
   Req[1]='0x0F11'; unloadCamni  
   Req[2]='0x0F25'; unloadCamni  
   Req[3]='0x0F13'; unloadCamni  
   Req[4]='0x0F26'; unloadCamni
   Req[5]='0x0F16'; unloadCamni
   Req[6]='0x0F18'; unloadCamni
   Req[7]='0x0F15'; unloadCamni
 ;Req[8]='0x0F8C';
  
   if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
      c=uo.getserial('lastcontainer')
      for n=0 to 7
         uo.findtype(Req[n],-1,'my')
         while uo.findcount()
            uo.moveitem('finditem',0,c)
            wait(700)
            uo.findtype(Req[n],-1,'my')
         wend
      next
   endif
   uo.print(' -= done =- ')
endsub

sub RegZagryz()
   VAR n, q, c
   Dim Req[50]; Requirements
   Req[0]='0x0F7A'; regi bp
   Req[1]='0x0F7B'; regi bm
   Req[2]='0x0F86'; regi mr
   Req[3]='0x0F88'; regi ns
   Req[4]='0x0F8D'; regi ss
   Req[5]='0x0F84'; regi ga
   Req[6]='0x0F85'; regi gs
   Req[7]='0x0F8C'; regi sa
  
   Dim Qnt[50]; Quantity
   Qnt[0]=25; regi  по сколько будет загружать в сумку.
   Qnt[1]=25; regi
   Qnt[2]=25; regi
   Qnt[3]=25; regi
   Qnt[4]=25; regi
   Qnt[5]=25; regi
   Qnt[6]=25; regi
   Qnt[7]=25; regi
  
   Dim Clr[50]; Color
   Clr[0]='0x0000'; regi
   Clr[1]='0x0000'; regi
   Clr[2]='0x0000'; regi
   Clr[3]='0x0000'; regi
   Clr[4]='0x0000'; regi
   Clr[5]='0x0000'; regi
   Clr[6]='0x0000'; regi
   Clr[7]='0x0000'; regi
  
  
   if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
      c=uo.getserial('lastcontainer')
      for n=0 to 7
         while uo.count(Req[n],Clr[n])<>Qnt[n]
            q=Qnt[n]-uo.count(Req[n],Clr[n])
            if q>0 then
               uo.findtype(Req[n],Clr[n],c)
               if uo.findcount() then
                  uo.moveitem('finditem',STR(q),'backpack',141,134,0)
                  wait(700)
               else
                  uo.msg(' item Req('+str(n)+') NOT FOUND ')
                  return
               endif
            else
               q=-q            
               uo.findtype(Req[n],Clr[n],'backpack')  
               if uo.findcount() then
                  uo.moveitem('finditem',STR(q),c)
                  wait(700)
                  uo.print(' -= 1 =- ')
               endif
            endif
         wend
      next
   endif
   uo.print(' -= done =- ')
end sub

Sub mine()
   var x, y, i, t, tmp, inside, goto_x, st, first
   VAR ms1 = "There is nothing here to mine for"
   VAR ms2 = "You can't use"
   VAR ms3 = "You put "
   VAR ms4 = "You loosen some rocks"
   VAR ms5 = "location"
   VAR ms6 = "Try mining"
   VAR ms7 = "You can't see that"
   VAR ms8 = "You stop"
   VAR ms9 = "That is too"
   first=UO.GetX()
   start:
   inside=0
   for y=-1 to 1
      for x=-1 to 1
         repeat
            uo.deletejournal()
            t = UO.Timer()
            UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
            UO.exec ("usetype 0x0E85")
            repeat
               wait(300)
            until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR ((t + 100) < UO.Timer())
         until not UO.InJournal(ms8)
      next
   next
end sub

sub main()
   var i
   While UO.Life>0
      for i=1 to 7
         mine()
         uo.press(34)
         wait(500)
         uo.press(34)
         wait(500)
         uo.press(34)
      next
      uo.press(33)
      wait(500)
      uo.press(33)
      wait(500)
      uo.press(33)
      mine()
      for i=1 to 7
         uo.press(36)
         wait(500)
         uo.press(36)
         wait(500)
         uo.press(36)
      next
      uo.press(33)
      wait(500)
      uo.press(33)
      wait(500)
      uo.press(33)
   wend
end sub

### Вспомогательные константы ###
VAR lootwait = 300
var timemove,TType,Color, SourceContainer,X,Y,Z
var SundLoot = uo.getserial('backpack')
var SundBi = uo.getserial('lastcontainer')
### ################## ###

sub main()
    PUTLoot2(0xf0f, 0xf30, '-1', SundLoot, SundBi,'','','')  ; ВСЕ камни
endsub




Sub PUTLoot2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z)
    for TType = Type1 to Type2
        PUTLoot(TType, Color, SourceContainer, TargetContainer,X,Y,Z)
    next
end sub
Sub PUTLoot(Type, Color, SourceContainer, TargetContainer,X,Y,Z)
    UO.FindType(Type, Color, SourceContainer)
    while UO.FindCount()
        timemove=UO.Timer()
        uo.MoveItem('finditem',0,TargetContainer,X,Y,Z)
        repeat
            wait(lootwait)
        until UO.ContainerOf('finditem')<>uo.GetSerial(TargetContainer) || timemove+30>UO.Timer()
        UO.FindType(Type, Color, SourceContainer)
    wend
end sub

sub Tinkering()
uo.cancelmenu()
uo.automenu('Tinkering','Miscellaneous')
uo.automenu('Miscellaneous','Lockpick')
while UO.Count('0x1BEF') >=1 && uo.count('0x1BDD') >= 1
UO.DeleteJournal()
UO.UseType('0x1EBC')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("failed")
wait(300)
wend
wend
end sub

sub JEWERLYYYYYYY()
   VAR Sunduk = '0x40711E80'    
   VAR Sunduk1 = '0x40711E77'
   VAR Ingi = '0x1BEF'        
   VAR Instrum = '0x0FC1'      
   VAR koltso = '0x108A'  
   VAR Kolvo = 100      
   VAR k = 0
   WHILE NOT UO.Dead()
      UO.FindType( Ingi, -1, Sunduk )  
      If UO.FindCount() == 0 Then
         UO.Print("Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.CancelMenu()
         uo.automenu('Jewelcraft','Rings')
         uo.automenu('Rings','Ruin Ring')
         UO.UseType( Instrum )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 10 )
            k = k + 1
            wait(500)
         wend
         if UO.Count( koltso ) > 0 then
            UO.FindType( koltso, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk1 )
            wait( 1000 )
            UO.Print( 'koltso moved' )
         end if
      Wend
   Wend
end sub