Наследство от Edred-а

[Edred]

Хм, начну скидывать ВСЕ свои скрипты

autoload.sc (чуть-чуть покоцал, выкинул мелочевку)

Code: Select all

#                                                                   #
#   AutoLoad.sc, ver 507.050 (c) Edred                              #
#                                                                   #
#####################################################################

#####################################################################
; ScrollSort v.1.00 (c) Edred
;
; Запоминает все спеллбуки в первом контейнере и потом по очереди драгает
; все скроллы, которые находит в этом же контейнере на все спеллбуки. Если
; спелл не подгружается в спеллбуку - пробует подгрузить в следующую
; спеллбуку и т.д. Если спелл есть уже во всех спеллбуках - скидывает его
; во второй контейнер.
:
sub ScrollSort()
   VAR Spellbk = '0x0EFA', i, j, temptyp, tempob, tempnam
;   DIM Scrolls[64]
;      Scrolls[0]  = ''      ; 1: Clumsy
;      Scrolls[1]  = ''      ; 1: Create Food
;      Scrolls[2]  = ''      ; 1: Feeblemind
;      Scrolls[3]  = '0x1F31'      ; 1: Heal
;      Scrolls[4]  = '0x1F32'      ; 1: Magic Arrow
;      Scrolls[5]  = '0x1F33'      ; 1: Night Sight
;      Scrolls[6]  = ''      ; 1: Reactive Armor
;      Scrolls[7]  = '0x1F34'      ; 1: Weaken
;      Scrolls[8]  = ''      ; 2: Agility
;      Scrolls[9]  = ''      ; 2: Cunning
;      Scrolls[10] = '0x1F37'      ; 2: Cure
;      Scrolls[11] = '0x1F38'      ; 2: Harm
;      Scrolls[12] = '0x1F39'      ; 2: Magic Trap
;      Scrolls[13] = '0x1F3A'      ; 2: Magic Untrap
;      Scrolls[14] = ''      ; 2: Protection
;      Scrolls[15] = ''      ; 2: Strength
;      Scrolls[16] = '0x1F3D'      ; 3: Bless
;      Scrolls[17] = '0x1F3E'      ; 3: Fireball
;      Scrolls[18] = '0x1F3F'      ; 3: Magic Lock
;      Scrolls[19] = '0x1F40'      ; 3: Poison
;      Scrolls[20] = '0x1F41'      ; 3: Telekinesis
;      Scrolls[21] = ''      ; 3: Teleport
;      Scrolls[22] = ''      ; 3: Unlock
;      Scrolls[23] = '0x1F44'      ; 3: Wall of Stone
;      Scrolls[24] = ''      ; 4: Arch Cure
;      Scrolls[25] = ''      ; 4: Arch Protection
;      Scrolls[26] = ''      ; 4: Curse
;      Scrolls[27] = '0x1F48'      ; 4: Fire Field
;      Scrolls[28] = ''      ; 4: Greater Heal
;      Scrolls[29] = ''      ; 4: Lightning
;      Scrolls[30] = ''      ; 4: Mana Drain
;      Scrolls[31] = '0x1F4B'      ; 4: Recall
;      Scrolls[32] = ''      ; 5: Blade Spirit
;      Scrolls[33] = ''      ; 5: Dispel Field
;      Scrolls[34] = '0x1F4F'      ; 5: Incognito
;      Scrolls[35] = ''      ; 5: Magic Reflection
;      Scrolls[36] = ''      ; 5: Mind Blast
;      Scrolls[37] = '0x1F52'      ; 5: Paralyze
;      Scrolls[38] = ''      ; 5: Poison Field
;      Scrolls[39] = '0x1F54'      ; 5: Summon Creature
;      Scrolls[40] = '0x1F55'      ; 6: Dispel
;      Scrolls[41] = ''      ; 6: Energy Bolt
;      Scrolls[42] = '0x1F57'      ; 6: Explosion
;      Scrolls[43] = '0x1F58'      ; 6: Invisibility
;      Scrolls[44] = '0x1F59'      ; 6: Mark
;      Scrolls[45] = '0x1F5A'      ; 6: Mass Curse
;      Scrolls[46] = ''      ; 6: Paralyze Field
;      Scrolls[47] = '0x1F5C'      ; 6: Reveal
;      Scrolls[48] = ''      ; 7: Chain Lightning
;      Scrolls[49] = ''      ; 7: Energy Field
;      Scrolls[50] = '0x1F5F'      ; 7: Flame Strike
;      Scrolls[51] = '0x1F60'      ; 7: Gate Travel
;      Scrolls[52] = '0x1F61'      ; 7: Mana Vampire
;      Scrolls[53] = ''      ; 7: Mass Dispel
;      Scrolls[54] = ''      ; 7: Meteor Swarm
;      Scrolls[55] = ''      ; 7: Polymorph
;      Scrolls[56] = '0x1F65'      ; 8: Earthquake
;      Scrolls[57] = ''      ; 8: Energy Vortex
;      Scrolls[58] = ''      ; 8: Resurrection
;      Scrolls[59] = ''      ; 8: Air Elemental
;      Scrolls[60] = ''      ; 8: Summon Daemon
;      Scrolls[61] = ''      ; 8: Earth Elemental
;      Scrolls[62] = '0x1F6B'      ; 8: Fire Elemental
;      Scrolls[63] = '0x1F6C'      ; 8: Water Elemental
   VAR msg1 = "Can't add this to the spellbook", flag
   DIM Spells[10]
   For i = 0 To 9
      Spells[i] = ''
   Next
   VAR TmpTyp
   UO.Print( 'Select container with scroll for sort' )
   UO.Exec('addobject TmpObj1')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select container for trash scrolls' )
   UO.Exec('addobject TmpObj2')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.IgnoreReset()
   UO.TextOpen()
   UO.TextClear()
   j = 0
   repeat
      UO.FindType( Spellbk, '-1', 'TmpObj1' )
      If UO.FindCount() Then
         Spells[j] = UO.GetSerial( 'finditem' )
         UO.TextPrint( 'Slot number ' + str(j) + ' = ' + Spells[j] )
         UO.Ignore( 'finditem' )
         j = j + 1
      Endif
   until UO.FindCount() == 0 OR j > 9
   j = j - 1
   repeat
      UO.FindType( '-1', '-1', 'TmpObj1' )
      If UO.FindCount() > 0 Then
         If UO.GetGraphic( 'finditem' ) == Spellbk Then
            UO.Ignore( 'finditem' )
         Else
            temptyp = UO.GetGraphic( 'finditem' )
            UO.MoveItem( 'finditem', '1' )
            wait(1000)
            CheckLag()
            UO.FindType( temptyp )
            If UO.FindCount() == 0 Then
               UO.Print( 'Gluki glukami pogonayayut!' )
            Endif
            tempob = UO.GetSerial( 'finditem' )
            UO.Click( 'finditem' )
            wait(500)
            CheckLag()
            tempnam = UO.GetName( 'finditem' )
            flag = 0
            For i = 0 To j
               DeleteJournal( msg1 )
               UO.MoveItem( tempob, '0', Spells[i] )
               wait(2000)
               CheckLag()
               If UO.InJournal( msg1 ) == 0 Then
                  flag = 1
                  UO.TextPrint( tempnam + ' (' + temptyp + ') moved to slot number ' + str(i) )
                  i = j
               Endif
            Next
            If flag == 0 Then
               UO.MoveItem( tempob, '0', 'TmpObj2' )
               UO.TextPrint( tempnam + ' (' + temptyp + ') moved to container 2' )
            Endif
         Endif
      Else
         return
      Endif
   until UO.FindCount() == 0
endsub

#####################################################################
; NeedGo v.1.02 (c) Edred
;
; Запрашивает координаты и отправляет по ним чара (пешком)
;
sub NeedGo()
   VAR s, x, y
   s = UO.asmInputString("Введите через пробел координаты:","")
   If s == '' Then
      UO.Print( 'Invalid coordinates!' )
      return
   Endif
   s = s + ' end '
   x = GetWord( s, 1 )
   y = GetWord( s, 2 )
   GoToTile( val(x), val(y), 1, False )
endsub

#####################################################################
; BegMoney v.1.00 (c) Edred
;
; Скрипт на выпрашивание денег. Слазит с лошади, просит денег у 
; ближайшего вендора, садится обратно на лошадь. В случае если
; деньги в паке превысили 699 гп - сообщает, что пора их выгрузить
; в банк. При поиске вендора проверяется глобальная переменная
; LastVendor - если серийник такой же - ищется другой вендор.
;
sub BegMoney()
   VAR VendTyp1 = '0x0191'
   VAR VendTyp2 = '0x0190'
   VAR HorSer = '0x00257883'
   VAR VendSer, k, HSer, flag
   VAR Dengi = '0x0EED'
   VAR dal = 'Here, you can have this'
   VAR poslal = "I'm sorry,"
   VAR daleko = 'is too far away!'
   VAR chasto = 'You must wait to use that skill again.'
   UO.Set( 'finddistance', '5' )
   #### Блок нахождения 1 или 2 вендоров
   UO.Ignore( 'self' )
   UO.FindType( VendTyp1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( VendTyp2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Vendor not found!' )
         UO.IgnoreReset()
         return
      Endif
   Endif
   VendSer = UO.GetSerial( 'finditem' )
   If UO.GetGlobal( 'LastVendor' ) == VendSer Then
      UO.Ignore( 'finditem' )
      UO.FindType( VendTyp1, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.FindType( VendTyp2, '-1', '1' )
         If UO.FindCount() == 0 Then
            UO.Print( 'Vendor not found!' )
            UO.IgnoreReset()
            return
         Endif
      Endif
      VendSer = UO.GetSerial( 'finditem' )
   Endif
   UO.SetGlobal( 'LastVendor', VendSer )
   # Найден
   HSer = UO.ObjAtLayer( 'Horse' )
   If  HSer <> '' Then
      UO.UseObject( 'self' )
   Endif
   flag = 0
   If UO.Count( Dengi ) > 699 Then
      UO.Findtype( Dengi )
      If UO.FindCount() > 0 Then
         UO.Drophere( 'finditem' )
;         wait(500)
         CheckLag()
         flag = 1
      Endif
   Endif
   repeat
      DeleteJournal( dal )
      DeleteJournal( poslal )
      DeleteJournal( daleko )
      DeleteJournal( chasto )
      UO.WaitTargetObject( VendSer )
      UO.UseSkill( 'Begging' )
      k = 0
      repeat
         wait(100)
         k = k + 1
      until UO.InJournal( dal ) OR UO.InJournal( poslal ) OR UO.InJournal( daleko ) OR UO.InJournal( chasto ) OR k > 50
      If UO.InJournal( chasto ) Then
         wait(2000)
      Endif
   until UO.InJournal( dal ) OR UO.InJournal( poslal ) OR UO.InJournal( daleko ) OR k > 50
   If flag == 1 Then
      UO.Findtype( Dengi, '-1', '1' )
      while UO.FindCount() > 0
         UO.Grab( '0', 'finditem' )
         wait(00)
         CheckLag()
         UO.Findtype( Dengi, '-1', '1' )
      Wend
   Endif
   If  HSer <> '' Then
      UO.UseObject( HorSer )
   Endif   
   UO.Print( 'My gold is ' + str( UO.Count( Dengi ) ) )
   UO.IgnoreReset()
endsub

#####################################################################
sub AutoMove()
; Автоматическое перекладывание предметов одного типа и цвета из одного
; контейнера в другой. Поддержка двух режимов - драга на стопку и драга
; на контейнер. 
; v.1.04b (c) Edred
   VAR MyPause = 600
   VAR Type1, Color1, s, n, SerStopka, SumCol = 0
   UO.Print( 'Select sending container' )
   UO.Exec('addobject TmpCont1')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select targeting container' )
   UO.Exec('addobject TmpCont2')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select type for move' )
   UO.Exec('addobject TmpObj1')
   While UO.Targeting()
      Wait(100)
   Wend
   Type1 = UO.GetGraphic( 'TmpObj1' )
   Color1 = UO.GetColor( 'TmpObj1' )
   While UO.Targeting()
      Wait(100)
   Wend
   s = ''
   s = UO.asmInputString("Задайте размер порции:","500")
   If s == '' Then
      UO.Print( 'Invalid count of objects!' )
      return
   Endif
   VAR ToDo = UO.asmInputList("Выберите способ:","'Драг в стопку';'Драг на контейнер'")
   SerStopka = UO.GetSerial( 'TmpCont2' )
   n = val( s )
   If n < 0 OR n > 20000 Then
      UO.Print( 'Invalid count of objects!' )
      return
   Endif
   repeat
      If ToDo == 1 Then
         UO.FindType( Type1, Color1, 'TmpCont2' )
         If UO.FindCount() > 0 Then
            SerStopka = UO.GetSerial( 'finditem' )
         Else
            SerStopka = UO.GetSerial( 'TmpCont2' )
         Endif
      Endif
      UO.FindType( Type1, Color1, 'TmpCont1' )
      If UO.FindCount() > 0 Then
         If UO.GetQuantity( 'finditem' ) < n Then
            SumCol = SumCol + UO.GetQuantity( 'finditem' )
         Else
            SumCol = SumCol + n
         Endif
         UO.MoveItem( 'finditem', str(n), SerStopka )
         Wait( MyPause )
         CheckLag()
         UO.Print( 'I moved ' + str(SumCol) + ' items' )
      Else
         UO.Print( 'Automove finished' )
         Return
      Endif
   until False
endsub

#####################################################################
sub AutoMove2()
; Автоматическое перекладывание некучкующихся предметов одного типа и цвета 
; из одного контейнера в другой. Осуществляется драг на контейнер.
; v.1.05b (c) Edred
;
   VAR MyPause = 600
   VAR Type1, Color1, s, n, SerStopka, SumCol = 0, Howmany='200'
   UO.Print( 'Select sending container' )
   UO.Exec('addobject TmpCont1')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select targeting container' )
   UO.Exec('addobject TmpCont2')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select type for move' )
   UO.Exec('addobject TmpObj1')
   While UO.Targeting()
      Wait(100)
   Wend
   Type1 = UO.GetGraphic( 'TmpObj1' )
   Color1 = UO.GetColor( 'TmpObj1' )
   While UO.Targeting()
      Wait(100)
   Wend
   Howmany = UO.asmInputString("Сколько всего переложить?",Howmany)
   If Howmany == '' Then
      UO.Print( 'Invalid count of objects!' )
      return
   Endif
   repeat
      UO.FindType( Type1, Color1, 'TmpCont1' )
      If UO.FindCount() > 0 Then
         UO.MoveItem( 'finditem', '0', 'TmpCont2' )
         Wait( MyPause )
         CheckLag()
         SumCol = SumCol + 1
         If SumCol == val(Howmany) Then
            UO.Print( 'Script finished' )
            return
         Endif
      Else
         UO.Print( 'Script finished' )
         return
      Endif
   until False
endsub

#####################################################################
; Флипанье сандстоуновых стен. Автоматический анлок и лок в конце.
; Три варианта задания типа: через переменную, запрос на этот тип и 
: прицел на образец (оставлен этот, остальные закомментарены).
; v.1.03b (c) Edred
sub FlipWall()
   DIM typwalls[66]
   typwalls[1] = '0x0158'
   typwalls[2] = '0x0159'
   typwalls[3] = '0x015A'
   typwalls[4] = '0x015B'
   typwalls[5] = '0x015C'
   typwalls[6] = '0x015D'
   typwalls[7] = '0x015E'
   typwalls[8] = '0x015F'
   typwalls[9] = '0x0160'
   typwalls[10] = '0x0161'
   typwalls[11] = '0x0162'
   typwalls[12] = '0x0163'
   typwalls[13] = '0x0164'
   typwalls[14] = '0x0165'
   typwalls[15] = '0x0166'
   typwalls[16] = '0x0167'
   typwalls[17] = '0x0168'
   typwalls[18] = '0x0169'
   typwalls[19] = '0x0160'
   typwalls[20] = '0x016A'
   typwalls[21] = '0x016B'
   typwalls[22] = '0x016C'
   typwalls[23] = '0x016D'
   typwalls[24] = '0x016E'
   typwalls[25] = '0x016F'
   typwalls[26] = '0x0170'
   typwalls[27] = '0x0171'
   typwalls[28] = '0x0172'
   typwalls[29] = '0x0173'
   typwalls[30] = '0x0174'
   typwalls[31] = '0x0175'
   typwalls[32] = '0x0176'
   typwalls[33] = '0x0177'
   typwalls[34] = '0x0178'
   typwalls[35] = '0x0179'
   typwalls[36] = '0x017A'
   typwalls[37] = '0x017B'
   typwalls[38] = '0x017C'
   typwalls[39] = '0x017D'
   typwalls[40] = '0x017E'
   typwalls[41] = '0x017F'
   typwalls[42] = '0x0180'
   typwalls[43] = '0x0181'
   typwalls[44] = '0x0182'
   typwalls[45] = '0x0183'
   typwalls[46] = '0x0184'
   typwalls[47] = '0x0185'
   typwalls[48] = '0x0186'
   typwalls[49] = '0x0187'
   typwalls[50] = '0x0188'
   typwalls[51] = '0x0189'
   typwalls[52] = '0x018A'
   typwalls[53] = '0x018B'
   typwalls[54] = '0x018C'
   typwalls[55] = '0x018D'
   typwalls[56] = '0x018E'
   typwalls[57] = '0x018F'
   typwalls[58] = '0x0190'
   typwalls[59] = '0x0191'
   typwalls[60] = '0x0192'
   typwalls[61] = '0x0193'
   typwalls[62] = '0x0194'
   typwalls[63] = '0x0195'
   typwalls[64] = '0x0196'
   typwalls[65] = '0x01CA'
   VAR i, k, s, j, n
   ##############################################################
   ; Три варианта указания типа стены для верчения (переменная n)
   ; Уберите комментарий с нужной
   ##############################################################
   # I вариант. Явное указание:
;   n = 3
   ##############################################################
   # II вариант. Запрос на ввод номера нужного типа:
;   s = UO.asmInputString("Задайте номер нужного типа:","1")
;   If s == '' Then
;      UO.Print( 'Invalid number of type wall!' )
;      return
;   Endif
;   n = val( s )
;   If n < 1 OR n > 65 Then
;      UO.Print( 'Invalid number of type wall!' )
;      return
;   Endif
   ##############################################################
   # III вариант. Прицел для выбора образца:
   UO.Print( 'Please, click to type of wall' )
   UO.Exec('addobject WTypFlip')
   While UO.Targeting()
      Wait(100)
   Wend
   j = UO.GetGraphic( 'WTypFlip' )
   For k = 1 To 65
      If j == typwalls[k] Then
         n = k
      Endif
   Next
   ##############################################################
   UO.Print( 'Please, click to walls for flip' )
   UO.Exec('addobject WFlip')
   While UO.Targeting()
      Wait(100)
   Wend
   If UO.GetGraphic( 'WFlip' ) <> typwalls[n] Then
      UO.WaitTargetObject( 'WFlip' )
      UO.Msg( 'i wish to unlock this' )
      wait(1000)
      repeat
         UO.WaitTargetObject( 'WFlip' )
         UO.Msg( 'i wish to flip this' )
         wait(1000)
      until UO.GetGraphic( 'WFlip' ) == typwalls[n]
      UO.WaitTargetObject( 'WFlip' )
      UO.Msg( 'i wish to lock this down' )
      wait(1000)
   Endif
endsub

#####################################################################
; Скрипт для подсчета всех объектов в любом
; контейнере. Запращивает прицел на
; контейнер. Потом считает объекты в контейнере и выдает на
; экран результат.
; v.1.00b (c) Edred, based on unknown script
sub CountResource()
   VAR ContSer, last 
   UO.Print( "Click target to container" )
   UO.Info( "self" ) 
   last = UO.GetSerial( "lasttarget" )
   UO.CancelTarget() 
   UO.Info() 
   while last == UO.GetSerial( "lasttarget" ) AND UO.Targeting() 
      wait(100) 
   wend
   ContSer = UO.GetSerial( "lasttarget" )
   UO.FindType( -1, -1, ContSer )
   UO.Print( 'I find ' + str( UO.FindCount() ) + ' items' )
endsub

#####################################################################
; FishingAround. v.2.07b (c) Edred
;
; Рыбачим вокруг чара
;
sub FishingAround()
   VAR Ms0 = "You can't see"         ; не можем ловит здесь
   VAR Ms1 = "You can't fish under the ship"   ; не можем ловить здесь
   VAR Ms2 = "You are too far away"      ; далеко
   VAR Ms3 = "There are no fish here"      ; кончилось тут
   VAR Ms4 = "You fish a while, but fail to catch anything"   ; физл
   VAR Ms5 = "You pull out"         ; поймал что-то
   VAR Ms6 = "Try fishing in water."      ; не можем ловить здесь
   VAR k, t, v, x, y
   VAR MaxTime = 800
   For y = -4 To 4 
      For x = -4 To 4
         k = 0
         repeat
            If UO.Dead() Then
               return
            Endif
            DeleteJournal(ms0)
            DeleteJournal(ms1)
            DeleteJournal(ms2)
            DeleteJournal(ms3)
            DeleteJournal(ms4)
            DeleteJournal(ms5)
            DeleteJournal(ms6)
            t = UO.Timer()
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
            repeat 
               wait(100)
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
            k = k + 1
            If UO.InJournal(ms5) Then
               k = 0
            Endif
            If UO.Dead() Then
               return
            Endif
            If UO.InJournal( ms5 ) Then
               GetResultFish()
            Endif
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
         If UO.Dead() Then
            return
         Endif
      Next 
   Next
endsub

Sub GetResultFish()
   ; ------- улов -------
   DIM Fish[18]
   Fish[0]  = '0x170B'   ; сапоги 
   Fish[1]  = '0x170F'   ; тапки
   Fish[2]  = '0x170D'   ; сандалии 
   Fish[3]  = '0x1711'   ; сапоги
   Fish[4]  = '0x09CC'   ; тип рыбы 1
   Fish[5]  = '0x09CD'   ; тип рыбы 2
   Fish[6]  = '0x09CE'   ; тип рыбы 3
   Fish[7]  = '0x09CF'   ; тип рыбы 4
   Fish[8]  = '0x0FC4'   ; ракушка, тип 1
   Fish[9]  = '0x0FC5'   ; ракушка, тип 2
   Fish[10] = '0x0FC6'   ; ракушка, тип 3
   Fish[11] = '0x0FC7'   ; ракушка, тип 4
   Fish[12] = '0x0FC8'   ; ракушка, тип 5
   Fish[13] = '0x0FC9'   ; ракушка, тип 6
   Fish[14] = '0x0FCA'   ; ракушка, тип 7
   Fish[15] = '0x0FCB'   ; ракушка, тип 8
   Fish[16] = '0x0FCC'   ; ракушка, тип 9
   Fish[17] = '0x14ED'   ; карта
   VAR Razmer = 17      ; размер массива - 1
   VAR Scissor = '0x0F9E'   ; тип ножниц
   VAR Bandag = '0x0E21'      ; Тип бинтов
   VAR i
   ; Ищем что у нас валяется под ногами, если надо перерабатываем
   ; и складируем в трюм. Потом введем всякие мешочки разные и ящички.
   For i = 0 To Razmer
      UO.FindType( Fish[i], '-1', 'ground' )
      If UO.FindCount() > 0 Then
         If i < 4 Then
            ; обувь
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( Scissor )
            Wait( 3000 )
            UO.FindType( Bandag )
         Endif
         UO.Grab( '0', 'finditem' ) 
         Wait( 2000 )
         If i > 7 AND i < 17 Then
            ; ракушка
            UO.UseObject( 'finditem' )
            wait(1000)
         Endif
      Endif
   Next
endsub

#####################################################################
; Remember armor & weapon, disarm, healing from bandages, arm
sub Bandag() 
   UO.SetArm('CWeapon') 
   UO.Exec('bandageself') 
   wait(300) 
   UO.Arm('CWeapon') 
endsub 

#####################################################################
;  Arrow() - cast magic arrow on laststatus
sub Arrow()
   VAR ManaNeed=4
   UO.Set('lasttarget','laststatus')
   if UO.Mana>=ManaNeed then
      UO.Cast('Magic Arrow','laststatus')
   else
      UO.Print("Low mana!!!")
   endif
end sub

#####################################################################
; Poison() - cast poison on laststatus if target-char not
;            poisoned and your char have enought mana
sub Poison()
   VAR ManaNeed=9
   VAR ScrollManaNeed=4
   UO.Set('lasttarget','laststatus')
   If NOT UO.Poisoned('lasttarget') Then
      UO.FindType('0x1F40',-1,'my')
      If UO.GetQuantity('finditem')>0 Then
         If UO.Mana>=ScrollManaNeed Then
            UO.WaitTargetObject('lasttarget')
            UO.UseObject('finditem')
            UO.Print("Scroll")
         Else
            UO.Print("Low mana!!! Scroll!")
         Endif
      Else
         If UO.Mana>=ManaNeed Then
            UO.Cast('Poison','laststatus')
         Else
            UO.Print("Low mana!!!")
         Endif
      Endif
   Else
      UO.Print("Character already poisoned!")
   Endif
end sub

#####################################################################
;  Flame() - cast Flame Strike to last status from scroll, 
;            if she found or from spellbook
sub Flame()
   UO.Set('lasttarget','laststatus')
   UO.FindType('0x1F5F',-1,'my')
   If UO.GetQuantity('finditem')>0 then
      if UO.Mana>=22 then
         UO.WaitTargetObject('lasttarget')
         UO.UseObject('finditem')
         UO.Print("Scroll")
      else
         UO.Print("Low mana!!! Scroll!")
      endif
   else
      if UO.Mana>=45 then
         UO.Cast('Flame Strike','laststatus')
         UO.Print("Spell")
      else
         UO.Print("Low mana!!! Spell!")
      endif
   endif
end sub

#####################################################################
;  Light() - cast Lighting to last status from scroll, 
;            if she found or from spellbook
sub Light()
   UO.Set('lasttarget','laststatus')
   UO.FindType('0x1F4A',-1,'my')
   If UO.GetQuantity('finditem')>0 then
      if UO.Mana>=10 then
         UO.WaitTargetObject('lasttarget')
         UO.UseObject('finditem')
         UO.Print("Scroll")
      else
         UO.Print("Low mana!!! Scroll!")
      endif
   else
      if UO.Mana>=20 then
         UO.Cast('Lightning','laststatus')
         UO.Print("Spell")
      else
         UO.Print("Low mana!!! Spell!")
      endif
   endif
end sub

#####################################################################
sub NechegoDelat()
   SpSpeak()
   VAR SpiritTime = UO.Timer()
   repeat
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
         ; Прошло 5 минут с момента последней прокачки Spirit Speak
         SpSpeak()
         SpiritTime = UO.Timer()
      Else
         wait(500)
      Endif
   until UO.Dead()
endsub

; Spirit Speak v.1.00b (c) Edred
;
; Разовая прокачка спирит спика. Предназначена для вызова из других скриптов.
;
Sub SpSpeak()
   VAR mod = UO.WarMode(), num1
   VAR fizzle = 'You fail your attempt'
   VAR success = 'You establish a connection'
   UO.WarMode( 0 )
   DeleteJournal( success )
   repeat
      DeleteJournal( fizzle )
      UO.UseSkill( 'Spirit Speak' )
      num1 = 1
      repeat
         wait(100)
         num1 = num1 + 1
      until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR num1 > 600
   until UO.InJournal( success )
   UO.WarMode( mod )
endsub

#####################################################################
; BUYREGS
; Скупка регов по байлисту
; v.1.01b (с) Edred
sub buyregs()
   VAR i
   DIM vendors[29]
   vendors[0] = 'Kaspar'
   vendors[1] = 'Austin'
   vendors[2] = 'Reese'
   vendors[3] = 'Alessa'
   vendors[4] = 'Akina'
   vendors[5] = 'Aileen'
   vendors[6] = 'Alula'
   vendors[7] = 'Kevin'
   vendors[8] = 'Ainhoa'
   vendors[9] = 'Aderes'
   vendors[10] = 'Cassidy'
   vendors[11] = 'Gideon'
   vendors[12] = 'Canton'
   vendors[13] = 'Alaqua'
   vendors[14] = 'Doyle'
   vendors[15] = 'Ali'
   vendors[16] = 'Alake'
   vendors[17] = 'Jabir'
   vendors[18] = 'Beau'
   vendors[19] = 'Morris'
   vendors[20] = 'Aleka'
   vendors[21] = 'Akili'
   vendors[22] = 'Tremain'
   vendors[23] = 'Terence'
   vendors[24] = 'Brock'
   vendors[25] = 'Alumit'
   vendors[26] = 'Redmond'
   vendors[27] = 'Adoncia'
   vendors[28] = 'Rudyard'
   ;
   UO.UseSkill( 'Meditation' )
   wait(100)
   UO.DeleteJournal()
   For i = 0 To 28
      UO.Buy( 'magic', vendors[i] )
      wait(1000)
      If UO.InJournal( 'I thank thee for thy' ) Then
         UO.SayU( 'bye' )
         return
      Endif
   Next
endsub

#####################################################################
; TestArmor. v.1.06b (c) Edred
;
; Выводит в текстовое окно информацию о армореклассе и износе всего,
; что надето на чара и взято им в руки
;
sub TestArmor()
   DIM Lay[8]
   Lay[0] = 'Lhand'
   Lay[1] = 'Rhand'
   Lay[2] = 'Arms'
   Lay[3] = 'Legs'
   Lay[4] = 'Gloves'
   Lay[5] = 'Hat'
   Lay[6] = 'Torso'
   Lay[7] = 'Neck'
   VAR i, ob, nam, l, k
   UO.TextOpen()
   UO.TextClear()
   for i = 0 to 7
      DeleteJournal( 'Quality' )
      ob = UO.ObjAtLayer( Lay[i] )
      If ob <> '' Then
         UO.Click( ob )
         wait(1000)
         nam = UO.GetName( ob )
         UO.TextPrint( nam )
         UO.WaitTargetObject( ob )
         UO.UseSkill( 'Arms Lore' )
         k = 0
         repeat
            wait(300)
            k = k + 1
         until UO.InJournal( 'Quality' ) OR k > 30
         l = UO.InJournal( 'Quality' )
         nam = UO.Journal( l - 1 )
         UO.TextPrint( nam )
      Endif
   next
endsub

#####################################################################
; AutoHeal. v.1.10b (c) Edred
;
; Автоматический подхил чара (здоровье минус 30). Автоматическое питие 
; греатхил поушена при здоровье меньше 60. Автоматическое запоминание
; оружия и щита при запуске и взятие их в руки после подхилла.
;
sub AutoHeal()
   VAR GreatHeal = '0x0F0C'
   VAR MyFork = UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) )
   VAR MyShield = UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) )
   If MyFork == '0x0000' Then
      MyFork = ''
   Endif
   If MyShield == '0x0000' Then
      MyShield = ''
   Endif
   repeat
      If UO.Life < (UO.Str - 30) Then
         RestoreChar( 0 )
         GetWeapon( MyFork, MyShield )
      Endif
      If UO.Life < 60 Then
         UO.UseType( GreatHeal )
      Endif
      wait(2000)
   until UO.Dead()
endsub

; Процедура взятия в руки указанного оружия и щита. Если чар не может
; взять в руки оружие - автоматический диспел на себя.
;
Sub GetWeapon( Fork, Shield )
   VAR msg1 = 'Not strong enough to equip'
   DeleteJournal( msg1 )
   ; берем в руки оружие и щит. Динамические паузы и оптимитизация.
   If Fork == '' AND Shield == '' Then
      return
   Endif
   If Fork == '' Then
      ; только щит
      If UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == Shield Then
         ; все есть
         return
      Else
         GetOneWeaponOnly( 'Lhand', Shield )
         return
      Endif
   Endif
   If Shield == '' Then
      ; только оружие
      If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork Then
         ; все есть
         return
      Else
         GetOneWeaponOnly( 'Rhand', Fork )
         return
      Endif
   Endif
   If UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == Shield Then
      If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork Then
         ; уже в руках все
         return
      Else
         ; надо взять в руки только оружие, щит не надо
         GetOneWeaponOnly( 'Rhand', Fork )
      Endif
   Else
      If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork Then
         ; в руках только оружие, надо еще щит взять
         GetOneWeaponOnly( 'Lhand', Shield )
      Else
         ; в руках нет ни оружия, ни щита
         GetOneWeaponOnly( 'Rhand', Fork )
         GetOneWeaponOnly( 'Lhand', Shield )
      Endif
   Endif
endsub

Sub GetOneWeaponOnly( lay, typ )
   VAR msg1 = 'Not strong enough to equip'
   UO.Equipt( lay, typ )
   repeat
      wait(50)
   until UO.GetGraphic( UO.ObjAtLayer( lay ) ) == typ OR UO.InJournal( msg1 )
   If UO.InJournal( msg1 ) Then
      UO.WaitTargetSelf()
      UO.Cast( 'Dispel' )
      wait(4000)
      GetOneWeaponOnly( lay, typ )
      CheckLag()
   Endif
endsub

; Процедура лечения чара с бинтов. Два варианта - разовый подхил или подхил
; до полного восстановления здоровья.
;
Sub RestoreChar( a )
   VAR bandag = '0x0E21'
   If a == 0 Then
      If UO.Count( Bandag ) > 0 Then
         UO.Bandageself()
         wait( 300 )
      Endif
      return
   Endif
   If a == 1 Then
      If UO.Count( Bandag ) > 0 Then
         While UO.Life < 150
            UO.Bandageself()
            wait( 2000 )
         Wend
      Endif
      return
   Endif
endsub

#####################################################################
; AutoLoot. v.1.11b (c) Edred
;
; Автоматический лут трупа. Три варианта скрипта - первый на последний
; труп, второй вызывает прицел для указания трупа. Лутится только то,
; что указано в массиве. Третий вариант - лутим с земли около чара.
;
sub AutoLoot()
   VAR Cleaver = '0x0EC2'   ; кливер (тип)
   ; Считываем оружие и щит из рук
   VAR MyFork = UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) )
   VAR MyShield = UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) )
   If MyFork == '0x0000' Then
      MyFork = ''
   Endif
   If MyShield == '0x0000' Then
      MyShield = ''
   Endif
   ;
   VAR CorpseSer = UO.GetSerial( 'lastcorpse' )
   CheckLag()
   UO.WaitTargetObject( CorpseSer )
   UO.UseType( Cleaver )
   wait(1000)
   CheckLag()
   GetWeapon( MyFork, MyShield )
   UO.UseObject( CorpseSer )
   wait(500)
   CheckLag()
   CorpseLoot( CorpseSer )
endsub 
;
sub AutoLoot2()
   VAR Cleaver = '0x0EC2'   ; кливер (тип)
   ; Считываем оружие и щит из рук
   VAR MyFork = UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) )
   VAR MyShield = UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) )
   If MyFork == '0x0000' Then
      MyFork = ''
   Endif
   If MyShield == '0x0000' Then
      MyShield = ''
   Endif
   ;
   If UO.Targeting() Then
      UO.CancelTarget()
   Endif
   UO.Print( 'Please, choice of corpse:' )
   UO.AddObject( 'CorpseForLoot' )
   While UO.Targeting()
      wait(100)
   Wend
   VAR CorpseSer = UO.GetSerial( 'CorpseForLoot' )
   CheckLag()
   UO.WaitTargetObject( CorpseSer )
   UO.UseType( Cleaver )
   wait(1000)
   CheckLag()
   GetWeapon( MyFork, MyShield )
   UO.UseObject( CorpseSer )
   wait(500)
   CheckLag()
   CorpseLoot( CorpseSer )
endsub 
;
; Автоматически лутим с земли около чара. Одежду сразу режем на бинты.
;
sub AutoLootGround()
   VAR Cleaver = '0x0EC2'   ; кливер (тип)
   VAR Scissor = '0x0F9E'   ; Ножницы
   VAR fastloot = 'FastLoot detected.'
   DIM Nado[27]
   Nado[0]  = '0x170B'   ; boots
   Nado[1]  = '0x1718'   ; 
   Nado[2]  = '0x1516'   ; a skirt
   Nado[3]  = '0x1F03'   ; a robe
   Nado[4]  = '0x1F01'   ; a plain dress
   Nado[5]  = '0x1EFD'   ; a fancy shirt
   Nado[6]  = '0x1541'   ; a body sash
   Nado[7]  = '0x170B'   ; boots
   Nado[8]  = '0x170D'   ; sandals
   Nado[9]  = '0x1717'   ; a straw hat
   Nado[10] = '0x1539'   ; long pants   
   Nado[11] = '0x152E'   ; short pants
   Nado[12] = '0x1515'   ; a cloak
   Nado[13] = '0x1FA1'   ; tunic
   Nado[14] = '0x0EED'   ; gold coin
   Nado[15] = '0x0F3F'   ; arrows
   Nado[16] = '0x0F7A'   ; pearls, black pearls
   Nado[17] = '0x0F7B'   ; bood moss
   Nado[18] = '0x0F7D'   ; vials of blood
   Nado[19] = '0x0F84'   ; garlic
   Nado[20] = '0x0F85'   ; ginseng
   Nado[21] = '0x0F86'   ; mandrake root
   Nado[22] = '0x0F88'   ; night shade
   Nado[23] = '0x0F8C'   ; sulphorous ash
   Nado[24] = '0x0F8D'   ; spiders silk
   Nado[25] = '0x14ED'   ; a treasure map
   Nado[26] = '0x0E75'   ; backpack
   VAR i
   UO.Exec( 'set finddistance 3' )
   For i = 0 To 25
      UO.FindType( Nado[i], '-1', '1' )
      While UO.FindCount() > 0
         DeleteJournal( fastloot )
         If i < 14 Then
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( Scissor )
            GetPause(500)
            CheckLag()
         Else
            If i == 23 Then
               If UO.GetQuantity( 'finditem' ) == 1 Then
                  UO.Ignore( 'finditem' )
               Else
                  UO.MoveItem( 'finditem' )
                  GetPause(350)
                  CheckLag()
               Endif
            Else
               UO.MoveItem( 'finditem' )
               GetPause(350)
               CheckLag()
            Endif
         Endif
         UO.FindType( Nado[i], '-1', '1' )
      Wend
   Next
   UO.Print( 'The loot was finished' )
endsub
;
; Лут указанного трупа
;
Sub CorpseLoot( Cont )
   ; лутим из Cont
   DIM Nado[40]
   ; реги
   Nado[0]  = '0x0F7A'   ; pearls, black pearls
   Nado[1]  = '0x0F7B'   ; bood moss
   Nado[2]  = '0x0F84'   ; garlic
   Nado[3]  = '0x0F85'   ; ginseng
   Nado[4]  = '0x0F86'   ; mandrake root
   Nado[5]  = '0x0F88'   ; night shade
   Nado[6]  = '0x0F8C'   ; sulphorous ash
   Nado[7]  = '0x0F8D'   ; spiders silk
   ; то что надо резать ножницами
   Nado[8] = '0x1078'   ; leather
   ; основной лут
   Nado[9]  = '0x0F78'   ; batwings   
   Nado[10] = '0x0F7E'   ; bones
   Nado[11] = '0x0F7D'   ; vials of blood
   Nado[12] = '0x0F80'   ; daemons bones
   Nado[13] = '0x0F81'   ; fertile dirt
   Nado[14] = '0x0F82'   ; dragons blood
   Nado[15] = '0x0F87'   ; eyes of newt
   Nado[16] = '0x0F8E'   ; serpents scales
   Nado[17] = '0x0F90'   ; dead woods
   Nado[18] = '0x0F91'   ; wyrms hearts
   Nado[19] = '0x0F8F'   ; volcanic ash
   Nado[20] = '0x0E34'   ; blank scrolls
   ; золото и руда
   Nado[21] = '0x0EED'   ; gold coin
   Nado[22] = '0x0F23'   ; cintrines
   Nado[23] = '0x19B7'   ; magic ore
   ; прочий лут
   Nado[24] = '0x0E24'   ; water bottles
   Nado[25] = '0x0F0E'   ; empty bottles
   Nado[26] = '0x0F0B'   ; total refresh
   Nado[27] = '0x0F09'   ; total mana refresh
   Nado[28] = '0x0F06'   ; shrink
   Nado[29] = '0x0F0C'   ; greater heal
   Nado[30] = '0x0F09'   ; invisibility
   Nado[31] = '0x0E21'   ; bandages
   Nado[32] = '0x0E20'   ; bloody bandages - бинты
   Nado[33] = '0x0F3F'   ; arrows
   Nado[34] = '0x1BD1'   ; feathers
   Nado[35] = '0x14ED'   ; a treasure map
   Nado[36] = '0x1078'   ; pile of hides
   Nado[37] = '0x0FAB'   ; duing tub
   Nado[38] = '0x1BFB'   ; bolts
   Nado[39] = '0x1089'   ; necklace

   VAR otherpack = '0x0E75'   ; backpack
   VAR i, typ, serpack
   VAR Scissor = '0x0F9E'   ; Ножницы
   VAR fastloot = 'FastLoot detected.'
   For i = 0 To 39
      UO.FindType( Nado[i], -1, Cont )
      While UO.FindCount() > 0
         DeleteJournal( fastloot )
         If i == 8 Then
            If UO.GetColor( 'finditem' ) == '0x0000' Then
               UO.WaitTargetObject( 'finditem' )
               UO.UseType( Scissor )
               GetPause(500)
               CheckLag()
            Else
               UO.MoveItem( 'finditem' )
               GetPause(500)
               CheckLag()
            Endif
         Else
            UO.MoveItem( 'finditem' )
            GetPause(500)
            CheckLag()
         Endif
         UO.FindType( Nado[i], -1, Cont )
      Wend
   Next
   UO.FindType( otherpack, -1, Cont )
   while UO.FindCount() > 0
      serpack = UO.GetSerial( 'finditem' )
      UO.Ignore( 'finditem' )
      UO.UseObject( serpack )
      wait(500)
      CheckLag()
      CorpseLoot( serpack )
      wait(500)
      UO.FindType( otherpack, -1, Cont )
   wend
   UO.Print( 'The loot was finished' )
endsub
;
; Пауза в переданных миллисекундах, с проверкой на сообщение о
; детекте фастлута. Не забудьте удалить эту фразу из журнала перед
; тем действием, после которого стоит эта пауза!
Sub GetPause( ms )
   VAR t = 0
   VAR msg = 'FastLoot detected.'
   repeat
      wait(50)
      t = t + 50
   until t >= ms OR UO.InJournal( msg )
   If UO.InJournal( msg ) Then
      wait(200)
   Endif
endsub

#####################################################################
;
; EmptyPack. Разгрузка пака от результатов зоннерства.
;
; v. 1.12b (c) Edred
;
sub EmptyPack()
;   VAR Sunduk = '0x40361048'            ; сундук с барахлом
   VAR Cont = '0x4043310C'               ; куда сгружать все
   VAR Regbag = '0x405F74B3'            ; мешок для регов и поушенов
   VAR Box1 = UO.GetGlobal( 'BoxRegs' )   ; regs
   VAR Box2 = UO.GetGlobal( 'BoxBand' )   ; bandages, blood bandages, bottles
   VAR Box3 = UO.GetGlobal( 'BoxPick' )   ; pickaxes, hatchets, cleavers, scissors
   VAR Box4 = UO.GetGlobal( 'BoxArms' )   ; weapons, armors, robes
   VAR i, mx = 23
   VAR pak = '0x0E75', pakser
   DIM DropType[24], DropColor[24]
   ; serpents scales
   DropType[0]   = '0x0F8E'
   DropColor[0]  = '0x0000'
   ; volcanic ash
   DropType[1]   = '0x0F8F'
   DropColor[1]  = '0x0000'
   ; bones
   DropType[2]   = '0x0F7E'
   DropColor[2]  = '0x0000'
   ; eyes of newt
   DropType[3]   = '0x0F87'
   DropColor[3]  = '0x0000'
   ; cintrines
   DropType[4]   = '0x0F23'
   DropColor[4]  = '0x0427'
   ; batwings
   DropType[5]   = '0x0F78'
   DropColor[5]  = '0x0000'
   ; vials of blood
   DropType[6]   = '0x0F7D'
   DropColor[6]  = '0x0000'
   ; feathers
   DropType[7]   = '0x1BD1'
   DropColor[7]  = '0x0000'
   ; dragons blood
   DropType[8]   = '0x0F82'
   DropColor[8]  = '0x0000'
   ; water bottles
   DropType[9]   = '0x0E24'
   DropColor[9]  = '0x0482'
   ; fertile dirt
   DropType[10]  = '0x0F81'
   DropColor[10] = '0x0000'
   ; pearls
   DropType[11]  = '0x0F7A'
   DropColor[11] = '0x05B2'
   ; dead woods
   DropType[12]  = '0x0F90'
   DropColor[12] = '0x06FB'
   ; cut up leather
   DropType[13]  = '0x1067'
   DropColor[13] = '0x0000'
   ; daemons bones
   DropType[14]  = '0x0F80'
   DropColor[14] = '0x0000'
   ; wyrms hearts
   DropType[15]  = '0x0F91'
   DropColor[15] = '0x0000'
   ; gold coin
   DropType[16]  = '0x0EED'
   DropColor[16] = '0x0000'
   ; bloody bandages
   DropType[17]  = '0x0E20'
   DropColor[17] = '0x0000'
   ; a Treasure Map
   DropType[18]  = '0x14ED'
   DropColor[18] = '0x0000'
   ; empty bottles
   DropType[19]  = '0x0F0E'
   DropColor[19] = '0x0000'
   ; pile of white hides
   DropType[20]  = '0x1078'
   DropColor[20] = '0x0481'
   ; pile of black hides
   DropType[21]  = '0x1078'
   DropColor[21] = '0x083A'
   ; pile of red hides
   DropType[22]  = '0x1078'
   DropColor[22] = '0x0424'
   ; pile of green hides
   DropType[23]  = '0x1078'
   DropColor[23] = '0x0426'
   ;
   DIM Regs[8]
   Regs[0] = '0x0F7A'   ; black pearls
   Regs[1] = '0x0F7B'   ; bood moss
   Regs[2] = '0x0F84'   ; garlic
   Regs[3] = '0x0F85'   ; ginseng
   Regs[4] = '0x0F86'   ; mandrake root
   Regs[5] = '0x0F88'   ; night shade
   Regs[6] = '0x0F8C'   ; sulphorous ash
   Regs[7] = '0x0F8D'   ; spiders silk
   VAR bandag = '0x0E21'               ; бинты
   UO.Exec( 'terminate AutoZonner' )
   wait(500)
   UO.Exec( 'terminate AutoHeal' )
   wait(500)
   If UO.Targeting() Then
      UO.CancelTarget()
   Endif
;   UO.UseObject( Sunduk )
;   wait(500)
;   CheckLag()
   UO.UseObject( Cont )
   wait(500)
   CheckLag()
; ------- вставляем предварительную очистку всех паков в бэкпаке   
; v.1.10
   UO.FindType( pak )
   While UO.FindCount() > 0
      pakser = UO.GetSerial( 'finditem' )
      UO.UseObject( pakser )
      wait(1000)
      CheckLag()
      UO.FindType( -1, -1, pakser )
      While UO.FindCount() > 0
         UO.MoveItem( 'finditem' )
         wait(500)
         CheckLag()
         UO.FindType( -1, -1, pakser )
      Wend
      UO.Ignore( pakser )
      UO.FindType( pak )
   Wend
; ------- конец вставки очистки паков
   for   i = 0 to mx
;      UO.Print( 'TEST. i = ' + str(i) )
      UO.FindType( DropType[i], DropColor[i] )
      While UO.FindCount() > 0
         UO.MoveItem( 'finditem' , 0, Cont )
         wait(500)
         CheckLag()
         UO.FindType( DropType[i], DropColor[i] )
      Wend
   next
   ; проверим бинты
   UO.FindType( bandag )
   While UO.FindCount() > 0
      If UO.GetColor( 'finditem' ) <> '0x0000' Then
         UO.MoveItem( 'finditem' , 0, Cont )
         wait(500)
         CheckLag()
      Else
         UO.Ignore( 'finditem' )
      Endif
      UO.FindType( bandag )
   Wend
   UO.IgnoreReset()
   ; переложим реги в спецмешок
   for   i = 0 to 7
      UO.FindType( Regs[i] )
      While UO.FindCount() > 0
         UO.MoveItem( 'finditem' , 0, Regbag )
         wait(500)
         CheckLag()
         UO.FindType( Regs[i] )
      Wend
   next
   ; тест оружия
   TestArmor()
endsub

#####################################################################
##########################               ############################
##########################   ПРОЦЕДУРЫ   ############################

#####################################################################
Sub GoHide()
   While not UO.Hidden() 
      UO.UseSkill('Hiding') 
      Wait(4000) 
   Wend
endsub

#####################################################################
Sub GetDagger( Dagger )
   If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) <> Dagger Then
      UO.FindType( Dagger )
      If UO.FindCount() == 0 Then
         return 0
      Endif
      UO.Equipt( 'Rhand', Dagger )
      wait(1000)
   Endif
   return 1
endsub

#####################################################################
; ================================================================
; Процедура подкормки чара. Параметры: сериал контейнера с медом, номер 
; сообщения до которого кормить, сколько съесть меда после сообщения,
; как часто кормить чара.
; Прохождение последнего периода контролируется через глобальную переменную 
; TimeProcess.
;
; ver. 1.05 (c) Edred
;
Sub EatChar( Sunduk, Nom, Add, TimeWait )
   ; сообщения при кормежке
   UO.Print( 'TEST: eat to ' + str( Nom ) + ' message and ' + str( Add ) + ' more each ' + str( TimeWait ) + ' minutes' )
   VAR Eat1 = 'You eat the food, but are still extremely hungry'
   VAR Eat2 = 'After eating the food, you fell much less hungry'
   VAR Eat3 = 'You eat the food, and begin to feel more satiated'
   VAR Eat4 = 'You are nearly stuffed, but manage to eat the food'
   VAR Eat5 = 'You fell quite full after consuming the food'
   VAR Eat6 = 'You are stuffed!'
   VAR Eat7 = 'You are simply too full to eat any more!'
   VAR Med = '0x09EC'         ; тип меда для подкормки
   VAR i, Eat, j
   ; проверим, пора ли кормиться
   i = Val( UO.GetGlobal( 'TimeProcess' ) )
   i = ( UO.Timer() - i ) / 600 
   If i < TimeWait Then
      ; рано кормиться
      UO.Print( 'Eat early! ' + str( i ) + ' from ' + str( TimeWait ) )
      return
   Endif
   ; пора кормиться
   If Nom == 1 Then
      Eat = Eat1
   Endif
   If Nom == 2 Then
      Eat = Eat2
   Endif
   If Nom == 3 Then
      Eat = Eat3
   Endif
   If Nom == 4 Then
      Eat = Eat4
   Endif
   If Nom == 5 Then
      Eat = Eat5
   Endif
   If Nom == 6 Then
      Eat = Eat6
   Endif
   If Nom == 7 Then
      Eat = Eat7
   Endif
   UO.FindType( Med, '-1', Sunduk )
   If UO.FindCount() == 0 Then
      ; мед кончился
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
      return
   Endif
   UO.Grab( '60', 'finditem' )
   Wait( 1000 )
   repeat
      DeleteJournal( Eat )
      UO.UseType( Med )
      Wait( 1000 )
   until NOT UO.InJournal( Eat )
   If Add > 0 Then
      For j = 1 To Add
         UO.UseType( Med )
         Wait( 1000 )
      Next
   Endif
   ; хватит кормиться
   ; выгрузим остатки меда обратно
   UO.Findtype( Med, '-1', 'backpack' )
   UO.MoveItem( 'finditem', 0, Sunduk )
   Wait( 1000 )
   ; Сбросим счетчик
   UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
endsub

#####################################################################
Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

#####################################################################
Sub Recalling( Runbk, NRune ) 
   ; Runbk - сериал или ссылка на объект рунбуки 
   ; NRune - десятичный номер (текстом) руны для реколла 
   VAR myx = UO.GetX()
   VAR myy = UO.GetY()
   VAR OldMana = UO.Mana
   VAR i = 0
   DeleteJournal( 'fizzles' )
   UO.Exec("recall " + Runbk + " " + NRune) 
   repeat
      CheckLag()
      wait(1000)
      i = i + 1
   until ( i > 6 ) OR ( UO.Mana < OldMana - 8 ) OR UO.InJournal( 'fizzles' )
   wait(500)
   If myx == UO.GetX() AND myy == UO.GetY() Then
      UO.WarMode( 'flip' ) 
      wait(100) 
      UO.WarMode( 'flip' )
      Recalling( Runbk, NRune ) 
   Endif
endsub 

Sub GetWord( st, nom )
; (c) Edred
; Возвращает слово из строки str за номером num
; если такого слова нет - возвращаем ''
;
; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
;
   VAR tmpst, i, dlin, kol = 0, start = 0
   dlin = len( st )
   For i=0 To dlin - 1
      If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
         kol = kol + 1
         If kol == nom Then
            ; это первый пробел после нужного нам слова
            tmpst = mid( st, start, i - start )
            return tmpst
         Else
            While mid( st, i, 1 ) == ' '
               i = i + 1
            Wend
            If kol == nom - 1 Then
               start = i
            Endif
         Endif
      Endif
   Next
   tmpst = ''
   return tmpst
endsub 

#================================================#
#  ПРОЦЕДУРЫ ХОЖДЕНИЯ                            #
#================================================#
; Autor - Sergious, Edited - Edred.
;
; Процедура GoToTile( X, Y, D, T ) 
; X,Y: координаты точки назначения 
; D: точность подхода (необходимое расстояние) 
; T: строгость подхода (точно ли должно быть то расстояние... True/False) 
; 
; Установите в своем скрипте следующие глобальные переменные:
; -----------------------------------------------------------
; MovDelay  - Пауза между шагами. Обычное значение - '1000'
; MovNumber - Количество шагов при смене дислокации 
; KoefEp    - Значение ширины угла хождения при определении направления. 
;             Если на пути встречаются сложные и широкие препятствия - 
;             увеличить. '0.172' - сбалансированный. 
#===================================================================#
; ============== GOTOTILE ===
;
Sub GoToTile( OX, OY, N, S ) 
   VAR myx, myy, MD, J 
   VAR Lx1, Ly1 
   VAR Lx2, Ly2 
   VAR Sx, Sy 
   VAR T 
   VAR Des = N 
   VAR MoveDelay = 100
   J = 1 
   MD = MoveDelay * 1.5 
   myx = uo.getx() 
   myy = uo.gety() 
   MoveOnce( GetDir( uo.getx(), uo.gety(), ox, oy), MD, False)
   Sx = 0 
   Sy = 0 
   Lx1 = uo.getx() / 2 
   Ly1 = uo.gety() / 2 
   Lx2 = Lx1 / 2 
   Ly2 = Ly1 / 2 
   T = UO.Timer() 
   If (GetDistance(ox, oy) <> N) OR ( (NOT S) AND GetDistance(ox, oy) > N ) Then 
      UO.Exec('exec PermResend') 
   EndIf 
   While ( (GetDistance(ox, oy) <> N) OR ((NOT S) and GetDistance(ox, oy) > N) ) and ( OX >= 0 ) and ( OY >= 0 ) 
      If ( (UO.Timer() - T) * 15 > MoveDelay ) Then 
         T = UO.Timer() 
         Lx2 = Lx1 
         Ly2 = Ly1 
         Lx1 = myx 
         Ly1 = myy 
         myx = uo.getx() 
         myy = uo.gety() 
      endIf 
      MD=MoveDelay 
      If ((OX-uo.getx())*(OX-uo.getx())+(OY-uo.gety())*(OY-uo.gety())>0) Then 
         MD = MD * 3 / GetDistance( ox, oy ) 
      EndIf 
      wait(MD) 
      If GetDistance( OX, OY ) > Des Then 
         MoveOnce(GetDir(uo.GetX(),uo.GetY(),ox,oy),MD,False)
      Else 
         If S Then 
            If GetDistance(OX,OY)<Des Then 
               If GetDistance(OX,OY)<>0 Then 
                  MoveOnce(GetDir(ox,oy,uo.GetX(),uo.GetY()),MD,False)
               Else 
                  MoveOnce(GetDir(uo.GetX(),uo.GetY(),Lx2,Ly2),MD,False) 
               EndIf 
            EndIf 
         EndIf 
      EndIf 
      If GetDistance(OX,OY)<>Des Then 
         If (Lx2==uo.getx()) and (Ly2==uo.gety()) Then 
            If (Sx<>uo.getx()) or (Sy<>uo.gety()) Then 
               J=1 
            EndIf 
            J=J+1 
            UO.Resend() 
            Sx = uo.getx() 
            Sy = uo.gety() 
            Stun(ox,oy,J) 
         EndIf 
      EndIf 
   Wend 
   UO.Exec( 'terminate PermResend' ) 
endsub 
;
; ============ MOVEONCE ===
; Процедура MoveOnce - хождение в определённую сторону 
; Направления:
; Система направлений по клавишам Нумпада 
; 8 = 1 | 2 = -1 
; 9 = 2 | 1 = -2 
; 6 = 3 | 4 = -3 
; 3 = 4 | 7 = -4 
;
; Такая система позволяет с лёгкостью получать направление, обратное 
; данному... 
;
Sub MoveOnce( Dir, Del, Rev ) 
   VAR Num 
   Var MoveNumber = 1
   If Rev Then 
      Num = MoveNumber + 1 
   Else 
      Num = MoveNumber 
   EndIf 
   If ( Num > 0 ) and ( Dir <> 0 ) Then 
      If Dir == 1 Then 
         UO.Press( 38, Num, Del ) 
      EndIf 
      If Dir == 2 Then 
         UO.Press( 33, Num, Del ) 
      EndIf 
      If Dir == 3 Then 
         UO.Press( 39, Num, Del ) 
      EndIf 
      If Dir == 4 Then 
         UO.Press( 34, Num, Del ) 
      EndIf 
      If Dir == -1 Then 
         UO.Press( 40, Num-1, Del ) 
      EndIf 
      If Dir == -2 Then 
         UO.Press( 35, Num, Del ) 
      EndIf 
      If Dir == -3 Then 
         UO.Press( 37, Num, Del ) 
      EndIf 
      If Dir == -4 Then 
         UO.Press( 36, Num, Del ) 
      EndIf 
      If Rev Then 
         If Dir <> -1 Then 
            UO.Press( 40, 1, Del ) 
         EndIf 
      EndIf 
   EndIf 
endsub 
;
; ============== GETDIR ===
; Функция GetDir возвращает направление, по которому надо идти 
; к координате 
;
Sub GetDir( myx, myy, ox, oy ) 
   VAR I, J 
   J = 0 
   VAR X = ox - myx 
   VAR Y = oy - myy 
   I = GetQDir( Abs(X), Abs(Y) ) 
   If X >= 0 Then 
      If Y >= 0 Then 
         If I == 1 Then 
            J = -2 
         Else 
            If I == 2 Then 
               J = -1 
            Else 
               If I == 3 Then 
                  J = 4 
               EndIf 
            EndIf 
         EndIf 
      Else 
         If I == 1 Then 
            J = 2 
         Else 
            If I == 2 Then 
               J = 3 
            Else 
               If I == 3 Then 
                  J = 4 
               EndIf 
            EndIf 
         EndIf 
      EndIf 
   Else 
      If Y >= 0 Then 
         If I == 1 Then 
            J = -2 
         Else 
            If I == 2 Then 
               J = -3 
            Else 
               If I == 3 Then 
                  J = -4 
               EndIf 
            EndIf 
         EndIf 
      Else 
         If I == 1 Then 
            J = 2 
         Else 
            If I == 2 Then 
               J = 1 
            Else 
               If I == 3 Then 
                  J = -4 
               EndIf 
            EndIf 
         EndIf 
      EndIf 
   EndIf 
   RETURN J 
endsub 
;
; =============== GETQDIR ===
;
;
Sub GetQDir( x, y ) 
   VAR Ep = 0.172
   VAR J = 0 
   If X == 0 Then 
      J = 1 
   Else 
      If ( Y / X ) < Ep Then 
         J = 3 
      Else 
         If ( X / Y ) < Ep Then 
            J = 1 
         Else 
            J = 2 
         EndIf 
      EndIf 
   EndIf 
   RETURN J 
endsub 
;
; ============== GETDISTANCE ===
; Функция GetDistance возвращает расстояние до координат 
; (как UO.GetDistance - до объекта) 
;
; Почему так - потому что учим математику :)
;
Sub GetDistance( X, Y ) 
   VAR A, B, C
   A = abs( X - UO.GetX() )
   B = abs( Y - UO.GetY() )
   If A > B Then 
      C = A 
   Else 
      C = B 
   EndIf 
   Return C 
endsub 
;
; ============= PERP ===
; Функция Perp возвращает направление, перпендикулярное введённому 
;
Sub Perp( Dir ) 
   VAR D = Dir 
   If Dir == 1 Then 
      D = 3 
   EndIf 
   If Dir == 2 Then 
      D = 4 
   EndIf 
   If Dir == 3 Then 
      D = -1 
   EndIf 
   If Dir == 4 Then 
      D = -2 
   EndIf 
   If Dir == -1 Then 
      D = -3 
   EndIf 
   If Dir == -2 Then 
      D = -4 
   EndIf 
   If Dir == -3 Then 
      D = 1 
   EndIf 
   If Dir == -4 Then 
      D = 2 
   EndIf 
   RETURN D 
endsub 
;
; =============== STUN ===
; Обход препятствий
;
Sub Stun( X, Y, N ) 
   VAR I 
   VAR myx 
   VAR myy 
   VAR MoveDelay = 100
   myx = uo.getx() 
   myy = uo.gety() 
   For I=1 to N 
      MoveOnce(perp(GetDir(myx,myy,x,y)),MoveDelay,False)
   Next 
   Wait(MoveDelay) 
   UO.Resend() 
   If (myx==uo.getx()) and (myy==uo.gety()) Then 
      For I=1 to N 
         MoveOnce(-perp(GetDir(myx,myy,x,y)),MoveDelay,False)
      Next 
      Wait(MoveDelay) 
      UO.Resend() 
   EndIf 
   If (myx==uo.getx()) and (myy==uo.gety()) Then 
      For I=1 to N 
         MoveOnce(-GetDir(myx,myy,x,y),MoveDelay,False)
      Next 
      Wait(MoveDelay) 
      Stun(x,y,N) 
   EndIf    
endsub 
;
; ============= ABS ===
; Убирает знак минуса в отрицательных числах
;
Sub abs( a ) 
   VAR b 
   If a < 0 Then 
      b = -a 
   Else 
      b = a 
   endif 
   return b 
endsub 
;
; ============== PERMRESEND ===
;
Sub PermResend() 
   Var Mn = 9 
   VAR MoveDelay = 100
   Repeat 
      UO.Resend() 
      Wait( MoveDelay * Mn ) 
   Until ( 1 > 2 ) 
endsub

[Edred]

SkillUp.sc

Code: Select all

#===================================================================#
# SkillUp, v.502.23                                                 #
# Скрипты для прокачки скиллов                                      #
#===================================================================#
#                                                                   #
# 1. Прокачка крафтов                                               #
# -------------------                                               #
#  1. Bowcraft. Крафтим шафты                                       #
#  2. Bowcraft. Крафтим стрелы                                      #
#  3. Poison                                                        #
#  4. Mining. Плавим руду                                           #
#  5. Tailoring                                                     #
#  6. Tailoring2                                                    #
#  7. Tinker                                                        #
#  8. TinkerWood                                                    #
#  9. Carpentry                                                     #
# 10. CarpentryD                                                    #
# 11. Cartograph                                                    #
# 12. Inscript. Крафтим скроллы стрелок                             #
# 13. Inscript. Крафтим скроллы реколлов                            #
# 14. Veterinary (для двух чаров)                                   #
# 15. Veterinary (для одного чара)                                  #
#                                                                   #
# 2. Прокачка других скиллов                                        #
# --------------------------                                        #
#  1. Magery                                                        #
#  2. Music                                                         #
#  3. Provocation                                                   #
#  4. Enticment                                                     #
#  5. Forensic                                                      #
#  6. Hiding                                                        #
#  7. Hiding & Stealth                                              #
#  8. MaceFighting (на кукле)                                       #
#  9. Fencing (на кукле)                                            #
# 10. Swordsmanship (на кукле)                                      #
# 11. Anatomy, Animal lore, Evalution Int                           #
# 12. Camping                                                       #
# 13. Cooking                                                       #
# 14. Spirit Speak                                                  #
# 15. Herding                                                       #
# 16. Lockpicking                                                   #
# 17. Begging                                                       #
# 18. Snooping                                                      #
# 19. Stealing                                                      #
#                                                                   #
# 3. Процедуры                                                      #
# ------------                                                      #
#                                                                   #
#===================================================================#

#===================================================================#
#
# I. Прокачка Крафтов
#
#####################################################################
; Bowcraft. v.1.03b (c) Edred
;
; Чар берет из сундука логи, крафтит из них шафты
; и складывает эти шафты в этот же сундук.
; Если логи закончились - выход.
; Если даггер (или что вы там используете) сломался - 
; скрипт найдет аналогичный по типу в бэкпаке и возьмет
; в руки.
;
; 1.03b: Проверка, если Kolvo = 1, то берем три и кладем обратно два
;        лога.
; 
sub bowcraft() 
   VAR Sunduk = '0x405210C8'       ; Сериал сундука
   VAR Logi = '0x1BDD'          ; Тип логов
   VAR Shafts = '0x1BD4'          ; Тип шафтов
   VAR Kolvo = 10               ; Брать логов для одного крафта
   VAR k = 0, j, dagger
   dagger = UO.ObjAtLayer( 'Rhand' )
   UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
   While TRUE
      UO.FindType( Logi, -1, Sunduk )   ; Ищем логи в сундуке
      If UO.FindCount() == 0 Then
         UO.Print("Logs not found, script terminated")
         return
      else
         j = UO.GetQuantity( 'finditem' )
         If j > Kolvo Then
            UO.Print( 'I can use ' + str( j ) + ' logs' )
         else
            UO.Print( "I can't use " + str( j ) + " logs" )
            return
         Endif
      Endif
      If Kolvo == 1 Then
         ; v. 1.03
         UO.Grab( '3', 'finditem' )
         wait(500)
         UO.FindType( Logi )
         UO.MoveItem( 'finditem', '2', Sunduk )
         wait(500)
      Else
         UO.Grab( Str( Kolvo ), 'finditem' )
         wait(500)
      Endif
      ; А это - динамическая пауза на мув
      while UO.Count( Logi ) < Kolvo
         wait(100)
      wend
      ; проверка на то, что в руках по-прежнему даггер
      If CheckInstr() == 0 Then
         UO.Print("You don't have daggers!" )
         return
      Endif
      UO.DeleteJournal()
      UO.CancelMenu()
      UO.WaitMenu ('What do you want to carve', 'shaft' )
      UO.WaitTargetType( Logi )
      UO.UseObject( dagger ) 
      k = 0
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
         k = k + 1
         wait(300)
      wend
      If UO.Count( Shafts ) > 0 then
         UO.FindType( Shafts, -1, -1 )
         UO.MoveItem( 'finditem', 0, Sunduk )
         wait(500)
         while UO.Count( Shafts ) > 0
            wait(100)
         wend
         UO.Print( 'Shafts moved' )
      Endif
   Wend
end sub

#####################################################################
; Bowcraft2. v.1.04b (c) Edred
;
; Чар берет из сундука шафты и перья, крафтит из них стрелы и
; складывает эти стрелы в этот же сундук.
; Если шафты или перья закончились - выход.
;
sub bowcraft2() 
   VAR Sunduk = '0x405210C8'       ; Сериал сундука
   VAR Shafts = '0x1BD4'          ; Тип шафтов
   VAR Feather = '0x1BD1'         ; Тип перьев
   VAR Arrows = '0x0F3F'         ; Тип стрел
   VAR Kolvo = 1               ; Брать шафтов для одного крафта
   VAR k = 0, j
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   UO.CancelMenu()
   UO.AutoMenu ('Select arrow type', 'arrow' )
   While TRUE
      EatChar( Sunduk, 2, 1, 120 )
      If UO.Count( Shafts ) == 0 Then
         UO.FindType( Shafts, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print("Shafts not found, script terminated")
            return
         Endif
         UO.Grab( Str( Kolvo ), 'finditem' )
         wait(500)
         while UO.Count( Shafts ) < Kolvo
            wait(100)
         wend
         CheckLag()
      Endif
      If UO.Count( Feather ) == 0 Then      
         UO.FindType( Feather, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print("Feather not found, script terminated")
            return
         Endif
         UO.Grab( Str( Kolvo ), 'finditem' )
         wait(500)
         while UO.Count( Feather ) < Kolvo
            wait(100)
         wend
         CheckLag()
      Endif
      UO.DeleteJournal()
      UO.UseType( Shafts ) 
      k = 0
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
         k = k + 1
         wait(300)
      wend
      If UO.Count( Arrows ) > 0 then
         UO.FindType( Arrows, -1, -1 )
         UO.MoveItem( 'finditem', 0, Sunduk )
         wait(500)
         while UO.Count( Arrows ) > 0
            wait(100)
         wend
         UO.Print( 'Arrows moved' )
      Endif
   Wend
end sub

#####################################################################
sub poison()
; v. 1.02 (c) Edred
; Положите рядом с чаром на пол побольше меду и lesser poison,
; поставьте рядом сундук, занесите его сериал в переменную
; Sunduk (туда будут сбрасываться пустые бутылки и отравленный мед)
; Если что-то не берет - значит положили далеко от чара,
; поправьте цифру в команде set finddistance
;
   VAR Sunduk = '0x404331B7'
   VAR Med = '0x09EC'
   VAR LesPois = '0x0F0A'
   VAR EmpBot = '0x0F0E'
   VAR MedSer, k
   UO.Exec('set finddistance 2') 
   While TRUE
      UO.FindType( Med, -1, 1 )
      If UO.FindCount() == 0 Then
         UO.Print("Jars not found, script terminated")
         return
      Endif
      UO.Grab( '1', 'finditem' )
      wait( 2000 )
      UO.FindType( LesPois, -1, 1 )
      If UO.FindCount() == 0 Then
         UO.Print("Bottle of Poison not found, script terminated")
         return
      Endif
      UO.Grab( '1', 'finditem' )
      wait( 2000 )
      UO.DeleteJournal()
      UO.WaitTargetType( Med )
      UO.UseObject( 'finditem' )
      k = 0
      while NOT UO.InJournal('You apply lesser poison') AND NOT UO.InJournal('You fail to apply lesser poison') AND ( k < 30 )
         k = k + 1
         wait(500) 
      wend
      UO.Print( 'meda v pake ' + str( UO.Count( Med ) ) )
      if UO.Count( Med ) > 0 then
         UO.FindType( Med, -1, 'backpack' )
         UO.MoveItem( 'finditem', 0, Sunduk )
         wait( 2000 )
         UO.Print( 'Jar dropped' )
      end if
      if UO.Count( EmpBot ) > 0 then
         UO.FindType( EmpBot, -1, 'backpack' )
         UO.MoveItem( 'finditem', 0, Sunduk )
         wait( 2000 )
         UO.Print( 'Empty bottle dropped' )
      end if
   Wend
end sub

#####################################################################
; Training of Mining, ver 2.00b, (c) Edred
; 2.00b - добавляем сундук, откуда берется руда по 100 шт. и кидается
;         под ногм. Дальше как было. Заодно все правлю и переписываю
;         более правильно :)
sub Smelt()
   VAR Sunduk = '0x40437910'         ; Сериал сундука с рудой
   VAR Ruda1 = '0x19B9'            ; Тип руды
   VAR Ruda2 = '0x19B8'            ; Тип руды - 3 шт.
   VAR Ruda3 = '0x19BA'            ; Тип руды - 2 шт.
   VAR Ruda4 = '0x19B7'            ; Тип руды - 1 шт.
   VAR Ing1 = '0x1BEF'               ; Тип ингов металлов
   VAR Ing2 = '0x1BF2'               ; Тип ингов строймата
   VAR MaxVes = 200               ; Максимальный вес пака
   While UO.SkillVal( 'Mining' ) < 1000
      repeat   
         UO.Findtype( Ruda1, '-1', '1' )      ; Ищем руду на земле
         If UO.Findcount() == 0 Then
            UO.Findtype( Ruda2, '-1', '1' )
            If UO.Findcount() == 0 Then
               UO.Findtype( Ruda3, '-1', '1' )
               If UO.Findcount() == 0 Then
                  UO.Findtype( Ruda4, '-1', '1' )
                  If UO.Findcount() == 0 Then
                     If GetOre( Sunduk, Ruda1 ) == 0 Then
                        UO.Print( "No more ore for smelt..." )
                        Return
                     Endif
                  Endif
               Endif
            Endif
         Endif
      until UO.FindCount() > 0
      UO.Grab( '1', 'finditem' )
      Wait(500)
      CheckLag()
      UO.UseType( Ruda4 )            ; переплавляем
      Wait(500)
      CheckLag()
      If UO.Weight > MaxVes Then
         ; Максимальный вес пака превышен - разгружаемся
         UO.Findtype( Ing1 )
         If UO.Findcount() > 0 Then
            UO.MoveItem( 'finditem', '0', Sunduk )
            Wait(500)
            CheckLag()
         Endif
         UO.Findtype( Ing2 )
         If UO.Findcount() > 0 Then
            UO.MoveItem( 'finditem', '0', Sunduk )
            Wait(500)
            CheckLag()
         Endif
      Endif
   Wend
endsub

Sub GetOre( cont, typ )
   ; Взять из сундука 100 руды и бросить под ноги.
   ; Если руды нет - возвращаем 0, если есть 1
   UO.FindType( typ, '-1', cont )
   If UO.FindCount() == 0 Then
      return 0
   Else
      UO.Grab( '100', 'finditem' )
      wait(500)
      CheckLag()
      UO.FindType( typ )
      If UO.FindCount() == 0 Then
         UO.Print( 'Idiot! Your script is fuck!' )
      Else
         UO.Drophere( 'finditem' )
         wait(500)
         CheckLag()
      Endif
   Endif
   return 1
endsub

#####################################################################
; Tailoring. v.1.04b (c) Edred
;
; Два сундука: в одном много кожи и воска, а также лежит много пустых мешков.
; В другой чар будет класть мешки и наполнять их картами (по 200 штук в
; каждый).
;
; (1.04b) - переделываю. Все берется из одного сундука, и мат, и мешки.
; Переходим заодно на AutoMenu, вводим чеклаг и всякие доп проверки.
;
sub tailoring() 
   VAR Sunduk1 = '0x4043310C'       ; Сериал сундука с пустыми мешками
   VAR Sunduk2 = '0x40403350'       ; Сериал пустого сундука
   VAR Meshok = '0x0E76'          ; Тип мешка
   VAR Shkur = '0x1067'          ; Тип шкур
   VAR Vosk = '0x1423'          ; Тип воска
   VAR Kit = '0x0F9D'          ; Тип инструмента тейлора
   VAR Map = '0x14EB'          ; Тип карты
   VAR Kolvo = 200          ; Брать шкур и воска
   VAR MeshSer, j, ShkurSer, k, i
   VAR Med = '0x09EC'         ; Тип меда
   VAR success = 'You put' 
   VAR fizzle = 'fail'
   UO.CancelMenu()
   UO.AutoMenu( "Leather", "Blank's" )
   UO.AutoMenu("Blank's", "blank map" )
   While TRUE
      # Перекладываем один мешок в сундук 2
      UO.FindType( Meshok, '-1', Sunduk1 )    ; Ищем мешок в сундуке 1
      MeshSer = UO.GetSerial( 'finditem' )
      UO.MoveItem( MeshSer, '0', Sunduk2 )
      wait(500)
      CheckLag()
      i = 0
      repeat
         If UO.Count( Shkur ) < 10 Then
            If GetResource( Shkur, 200 - UO.Count( Shkur ), Sunduk1 ) == 0 Then
               return
            Endif
         Endif
         If UO.Count( Vosk ) < 10 Then
            If GetResource( Vosk, 200 - UO.Count( Vosk ), Sunduk1 ) == 0 Then
               return
            Endif
         Endif
         UO.Print('Ostalos ' + Str( UO.Count( Shkur ) ) + ' shkur' )
         DeleteJournal( success )
         DeleteJournal( fizzle )
         UO.FindType( Shkur )
         UO.WaitTargetObject( 'finditem' )
         UO.UseType( Kit )
         k = 0
         repeat
            k = k + 1
            wait(500)
         until UO.InJournal( success ) OR UO.InJournal( fizzle ) OR ( k > 30 )
         If UO.Count( Map ) > 0 Then
            i = i + 1
            UO.FindType( Map )
            UO.MoveItem( 'finditem', '0', MeshSer )
            wait(500)
            CheckLag()
            UO.Print( str(i) + ' maps moved' )
         Endif
      Until i > 199
   Wend
endsub

#####################################################################
; Tailor2. v.1.05b (c) Edred
;
sub tailoring2()
   VAR Sunduk = "0x4043310C"
   VAR Kozha = "0x1067"
   VAR Vosk = "0x1423"
   VAR Kit = "0x0F9D"
   VAR Scrol = "0x0E34"
   VAR k
   UO.CancelMenu()
   wait(500)
   UO.AutoMenu( "Leather", "Blank's" )
   UO.AutoMenu( "Blank's", "blank scroll" )
   While TRUE
      If UO.Count( Kozha ) == 0 Then
         UO.FindType( Kozha, '-1', Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print("Leathers not found, script terminated")
            return
         Endif
         UO.Grab( '1', 'finditem' )
         wait(500)
         while UO.Count( Kozha ) == 0
            wait(100)
         wend
      Endif
      If UO.Count( Vosk ) == 0 Then
         UO.FindType( Vosk, '-1', Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print("Beeswaxs not found, script terminated")
            return
         Endif
         UO.Grab( '1', 'finditem' )
         wait(500)
         while UO.Count( Vosk ) == 0
            wait(100)
         wend
      Endif
      UO.DeleteJournal()
      UO.WaitTargetType( Kozha )
      UO.UseType( Kit )
      k = 0
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
         k = k + 1
         wait(300) 
      wend
      if UO.Count( Scrol ) > 0 then
         UO.FindType( Scrol )
         UO.MoveItem( 'finditem', '0', Sunduk )
         wait( 500 )
         while UO.Count( Scrol ) > 0
            wait(100)
         wend
      endif
   Wend
   UO.CancelMenu()
end sub

#####################################################################
; Tinker. v.1.03b (c) Edred
;
; Чар берет из сундука инготы, крафтит из них бутылки
; и складывает эти бутылки в этот же сундук.
; Если инги закончились - выход.
;
sub tinker() 
   VAR Sunduk = '0x4052561D'       ; Сериал сундука
   VAR Ingi = '0x1BEF'          ; Тип ингов
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера
   VAR Bottle = '0x0F0E'          ; Тип бутылки
   VAR Kolvo = 200             ; Брать ингов
   VAR k = 0
   UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
                        ; Начало отсчета скрипта
   While TRUE
      EatChar( Sunduk, 2, 2, 60 )
      UO.FindType( Ingi, -1, Sunduk )   ; Ищем инги в сундуке
      If UO.FindCount() == 0 Then
         UO.Print("Iron Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         ; Пока в паке есть инги
;         UO.CancelMenu()
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' )
         UO.UseType( Instrum )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500) 
         wend
         if UO.Count( Bottle ) > 0 then
            UO.FindType( Bottle, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Bottle moved' )
         end if
      Wend 
   Wend
end sub

#####################################################################
; TinkerWood. v.1.02b (c) Edred
;
; Чар берет с пола логи, крафтит из них игровые доски
; и скидывает их в трэш.
; Если логи на полу закончились - выход.
;
sub tinkerwood() 
   VAR MyTrash = '0x4042F38E'       ; Сериал мусорки
   VAR Logi = '0x1BDD'          ; Тип логов (logs type)
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера
   VAR Chess = '0x0E1C'          ; Тип игровой доски
   VAR Kolvo = 300             ; Брать логов (Count of logs for a one grab)
   VAR j, k
   While TRUE
      UO.FindType( Logi, -1, 1 )       ; Ищем логи на полу
      UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак
      wait( 1000 )
      If UO.FindCount() == 0 Then
         UO.Print("Logs not found, script terminated")
         return
      Endif
      While UO.Count( Logi ) > 4
         ; Пока в паке есть логи
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Tinkering', 'Tavern Types', 'Tavern Types', 'backgammon board' )
         UO.UseType( Instrum )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500) 
         wend
         ; Wait( 14000 )
         ; Скрафтили доску
         ; Сразу переложим ее в трэш
         while UO.Count( Chess ) > 0
            UO.FindType( Chess )
            UO.MoveItem( 'finditem', 0, MyTrash )
            wait( 1000 )
            UO.Print( 'Backgammon board trashed' )
         wend
      Wend 
   Wend
end sub

#####################################################################
; TinkerLockPick. v.1.00b (c) Edred
;
; Чар берет из сундука инготы, крафтит из них отмычки
; и складывает эти отмычки в этот же сундук.
; Если инги закончились - выход.
;
sub tinker() 
   VAR Sunduk = '0x4052561D'       ; Сериал сундука
   VAR Ingi = '0x1BEF'          ; Тип ингов
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера
   VAR LPick = '0x14FB'          ; Тип отмычки
   VAR Kolvo = 200             ; Брать ингов
   VAR k = 0
   UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
                        ; Начало отсчета скрипта
   While TRUE
      EatChar( Sunduk, 2, 2, 60 )
      UO.FindType( Ingi, -1, Sunduk )   ; Ищем инги в сундуке
      If UO.FindCount() == 0 Then
         UO.Print("Iron Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         ; Пока в паке есть инги
;         UO.CancelMenu()
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.WaitMenu ('Tinkering', 'Keys', 'Keys and Lockpicks', 'Iron lockpick' )
         UO.UseType( Instrum )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500) 
         wend
         if UO.Count( LPick ) > 0 then
            UO.FindType( LPick, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Lockpicks moved' )
         end if
      Wend 
   Wend
end sub

#####################################################################
; Carpentry. v.1.13b (c) Edred
;
; Чар берет из сундука 1 пустой мешок, кладет этот мешок в сундук 2,
; берет с пола логи, крафтит из них удочки и складывает эти удочки
; в этот мешок в сундуке 2. Если логи на полу или пустые мешки 
; кончились - выход
;
sub carpentry() 
   VAR Sunduk1 = '0x4017439B'       ; Сериал сундука с пустыми мешками
   VAR Sunduk2 = '0x4000F46C'       ; Сериал пустого сундука
   VAR Meshok = '0x0E76'          ; Тип мешка
   VAR Logi = '0x1BDD'          ; Тип логов
   VAR Rubanok = '0x1031'          ; Тип инструмента карпентера
   VAR Udochka = '0xDBF'          ; Тип удочки
   VAR Kolvo = 460          ; Брать логов (2 лога = 1 удочка)
   VAR MeshSer, j, k
   While TRUE
      UO.FindType( Logi, -1, 1 )       ; Ищем логи на полу
      UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак
      wait( 2000 )
      If UO.FindCount() == 0 Then
         UO.Print("Logs not found, script terminated")
         return
      Endif
      UO.FindType( Meshok, -1, Sunduk1 )       ; Ищем мешок в сундуке 1
      MeshSer = UO.GetSerial( 'finditem' )
      UO.Grab( '1', 'finditem' )          ; Кладем его в бэкпак
      wait( 2000 )
      UO.MoveItem( MeshSer, 0, Sunduk2 )
      wait( 2000 )
      While UO.Count( Logi ) > 0
         ; Пока в паке есть логи
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Carpentry', 'Fishing Poles', 'Fishing Poles', 'fishing pole' )
         UO.UseType( Rubanok )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500) 
         wend
         ; Wait( 14000 )
         ; Скрафтили удочку
         ; Сразу переложим ее в мешок
         if UO.Count( Udochka ) > 0 then
            UO.FindType( Udochka, -1, 'backpack' )
            UO.MoveItem( 'finditem', 0, MeshSer )
            wait( 2000 )
            UO.Print( 'Udochka perelozhena' )
         end if
      Wend 
   Wend
end sub

#####################################################################
; Carpentry. v.1.14D (c) Edred
;
; Чар берет берет с пола логи, крафтит из них удочки и скидывает удочки
; в трэш. Если логи на полу кончились - выход.
; (Get logs from ground and craft fishing pole. Move fishing pole trash)
;
; v. 1.13D Special Edition (for Democratic)
; v. 1.14D Special Edition (for Chyzzzz): берем логи из сундука. Заодно
;          немного причесываю скрипт и переходим на Automenu.
;
sub carpentryD() 
   VAR MyTrash = '0x4017439B'       ; Сериал мусорки (ID of trash)
   VAR Sunduk = '0x4017439B'      ; Сериал сундука с логами
   VAR Logi = '0x1BDD'          ; Тип логов (logs type)
   VAR Rubanok = '0x1031'          ; Тип инструмента (carpentry tools type)
   VAR Udochka = '0xDBF'          ; Тип удочки (fishing pole type)
   VAR Kolvo = 200          ; Брать логов (Count of logs for a one grab)
   VAR j, k, sum = 0
   UO.CancelMenu()
   UO.AutoMenu ('Carpentry', 'Fishing Poles' )
   UO.AutoMenu ('Fishing Poles', 'fishing pole' )
   UO.UseObject( Sunduk )
   wait(1000)
   CheckLag()
   While UO.SkillVal( 'Carpentry' ) < 1000
      UO.FindType( Logi, '-1', Sunduk )   ; Ищем логи в сундуке
      UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак
      wait( 1000 )
      If UO.FindCount() == 0 Then
         UO.Print("Logs not found, script terminated")
         return
      Endif
      While UO.Count( Logi ) > 0
         ; Пока в паке есть логи
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' )
         UO.DeleteJournal()
         UO.UseType( Rubanok )
         k = 0
         repeat
            k = k + 1
            wait(500) 
         until UO.InJournal('You put') OR UO.InJournal('fail') OR ( k > 30 )
         If UO.InJournal('You put') Then
            sum = sum + 1
            UO.Print( 'Crafted ' + str(sum) + ' fishing poles' )
         Endif
         while UO.Count( Udochka ) > 0
            UO.FindType( Udochka )
            UO.MoveItem( 'finditem', '0', MyTrash )
            wait( 500 )
            CheckLag()
         Wend
      Wend 
   Wend
endsub

#####################################################################
; Cartography. v.1.02b (c) Edred
;
; Ищем в сундуке 1 мешок с картами, берем по очереди из него карты,
; качаем на них картографию (с повторами в случае физлов), потом скидываем
; карты в трэш. Если мешки кончились - выход.
;
; 1.02 - добавил кормежку и прокачку спирит спика. Убрал заодно "ересь".
;        По-хорошему, скрипт надо переписать, структура рыхлая, но лень
;
sub cartograph() 
   VAR Sunduk1 = '0x40403350'       ; Сериал сундука с мешками с картами
   VAR Trash = '0x403D6BCA'      ; Сериал мусорного ведра
   VAR Meshok = '0x0E76'          ; Тип мешка
   VAR Map = '0x14EB'             ; Тип карты
   VAR Fizzle = 'Thy trembling hand results'
   VAR Success = 'You put the map in your pack'
   VAR MeshSer, j, k, MapSer, flag
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   VAR SpiritTime = UO.Timer()
   UO.CancelMenu()
   UO.IgnoreReset()
   UO.AutoMenu( 'What sort of map', 'Sea Chart' )
   UO.FindType( Meshok, '-1', Sunduk1 )
   While UO.FindCount() > 0
      EatChar( Sunduk1, 2, 1, 120 )
      MeshSer = UO.GetSerial( 'finditem' )
      UO.UseObject( MeshSer )
      wait(500)
      CheckLag()
      UO.FindType( Map, '-1', MeshSer )
      While UO.FindCount() > 0
         MapSer = UO.GetSerial( 'finditem' )
         UO.Grab( '1', 'finditem' )
         repeat
            wait(100)
         until UO.Count( Map ) == 1
         flag = 0
         While flag == 0
            DeleteJournal( Fizzle )
            DeleteJournal( Success )
            UO.UseObject( MapSer )
            k = 0
            repeat
               k = k + 1
               wait(100)
            until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR k > 1200
            If UO.InJournal( Success ) OR k > 1200 Then
               flag = 1
            Endif
         Wend
         UO.FindType( Map )
         While UO.FindCount() > 0            
            UO.MoveItem( 'finditem', '0', Trash )
            wait(1000)
            CheckLag()
            UO.FindType( Map )
         Wend
         If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
            ; Прошло 5 минут с момента последней прокачки Spirit Speak
            SpSpeak()
            SpiritTime = UO.Timer()
         Endif
         UO.FindType( Map, '-1', MeshSer )
      Wend
      UO.Ignore( MeshSer )
      UO.FindType( Meshok, '-1', Sunduk1 )
   Wend
   UO.IgnoreReset()
   UO.CancelMenu()
endsub

#####################################################################
; Inscription. v.1.04b (c) Edred
;
; Берем из сундука blank scroll, nightshade, black pearl,
; крафтим из них скролл Magic Arrow (с повторами в случае физлов), 
; потом скидываем готовый скролл в тот же сундук.
; Если что-либо кончилось - выход.

sub inscript1() 
   VAR Sunduk = '0x404CFAA3'       ; Сериал сундука с бланкскроллами и регами
   VAR Blank = '0x0E34'          ; Тип бланк скролла
   VAR Arrow = '0x1F5F'         ; Тип скроллов Flame Strike
   VAR Reg1 = '0x0F8C'            ; SA
   VAR Reg2 = '0x0F8D'            ; SS
   VAR Fizzle = 'You fail to inscribe the scroll'
   VAR Success = 'You put the'
   VAR k
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   VAR SpiritTime = UO.Timer()
   UO.CancelMenu()
   UO.AutoMenu( 'Spell Circles', 'Seventh Circle' )
   UO.AutoMenu( 'Spell Circle 7', 'Flamestrike' )
   UO.UseObject( Sunduk )
   wait(1000)
   While UO.SkillVal( 'Inscription' ) < 1000
      ; берем бланк скроллы
      EatChar( Sunduk, 2, 1, 120 )
      If UO.Count( Blank ) == 0 Then
         UO.FindType( Blank, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Blank Scroll not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 100 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Blank ) > 0
            CheckLag()
         Else
            UO.Grab( '100', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Blank ) == 100
            CheckLag()
         Endif
      Endif
      ; берем найтшэд
      If UO.Count( Reg1 ) == 0 Then
         UO.FindType( Reg1, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Nightshade not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 100 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg1 ) > 0
            CheckLag()
         Else
            UO.Grab( '100', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg1 ) == 100
            CheckLag()
         Endif
      Endif
      ; берем блэкперл
      If UO.Count( Reg2 ) == 0 Then
         UO.FindType( Reg2, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Black Pearls not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 100 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg2 ) > 0
            CheckLag()
         Else
            UO.Grab( '100', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg2 ) == 100
            CheckLag()
         Endif
      Endif
      repeat
         DeleteJournal( Fizzle )
         DeleteJournal( Success )
         UO.UseType( Blank )
         k = 0
         repeat
            k = k + 1
            wait(100)
         until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0 OR k > 600
         If UO.Mana < 50 Then
            repeat
               UO.UseSkill( 'Meditation' )
               wait(2000)
            until UO.Mana == UO.Int
         Endif
         If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
            ; Прошло 5 минут с момента последней прокачки Spirit Speak
            SpSpeak()
            SpiritTime = UO.Timer()
         Endif
      Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0
      While UO.Count( Arrow ) > 0
         UO.FindType( Arrow )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait(1000)
            CheckLag()
         Endif
      Wend
   Wend
   UO.CancelMenu()
endsub

#####################################################################
; Inscription2. v.1.05b (c) Edred
;
; Берем из сундука blank scroll, blood pearl, black moss, mandrake root
; крафтим из них скролл Recall (с повторами в случае физлов), 
; потом скидываем готовый скролл в тот же сундук.
; Если что-либо кончилось - выход.

sub inscript2() 
   VAR Sunduk = '0x40140DD1'       ; Сериал сундука с бланкскроллами и регами
   VAR Blank = '0x0E34'          ; Тип бланк скролла
   VAR Arrow = '0x1F4C'         ; Тип скроллов Recall
   VAR Reg1 = '0x0F86'            ; mandrake root
   VAR Reg2 = '0x0F7A'            ; black pearl
   VAR Reg3 = '0x0F7B'            ; blood moss
   VAR Fizzle = 'You fail to inscribe the scroll'
   VAR Success = 'You put the'
   VAR k
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   VAR SpiritTime = UO.Timer()
   UO.CancelMenu()
   UO.AutoMenu( 'Spell Circles', 'Fourth Circle' )
   UO.AutoMenu( 'Spell Circle 4', 'Recall' )
   UO.UseObject( Sunduk )
   wait(1000)
   While UO.SkillVal( 'Inscription' ) < 1000
      ; берем бланк скроллы
      EatChar( Sunduk, 2, 1, 120 )
UO.Print( 'test2' )
      If UO.Count( Blank ) == 0 Then
         UO.FindType( Blank, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Blank Scroll not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 100 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Blank ) > 0
            wait(100)
            CheckLag()
         Else
            UO.Grab( '100', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Blank ) == 100
            wait(100)
            CheckLag()
         Endif
      Endif
      ; берем mandrake root
      If UO.Count( Reg1 ) == 0 Then
         UO.FindType( Reg1, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Mandrake Root not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 100 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg1 ) > 0
            wait(100)
            CheckLag()
         Else
            UO.Grab( '100', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg1 ) == 100
            wait(100)
            CheckLag()
         Endif
      Endif
      ; берем black pearl
      If UO.Count( Reg2 ) == 0 Then
         UO.FindType( Reg2, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Black Pearls not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 100 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg2 ) > 0
            wait(100)
            CheckLag()
         Else
            UO.Grab( '100', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg2 ) == 100
            wait(100)
            CheckLag()
         Endif
      Endif
      ; берем blood moss
      If UO.Count( Reg3 ) == 0 Then
         UO.FindType( Reg3, -1, Sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'Blood Moss not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) < 100 Then
            UO.Grab( '0', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg3 ) > 0
            CheckLag()
         Else
            UO.Grab( '100', 'finditem' )
            repeat
               wait(100)
            until UO.Count( Reg3 ) == 100
            CheckLag()
         Endif
      Endif
      repeat
;         If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
;            ; Прошло 5 минут с момента последней прокачки Spirit Speak
;            SpSpeak()
;            SpiritTime = UO.Timer()
;         Endif
         DeleteJournal( Fizzle )
         DeleteJournal( Success )
         UO.UseType( Blank )
         k = 0
         repeat
            k = k + 1
            wait(100)
         until UO.InJournal(Fizzle) OR UO.InJournal(Success) OR UO.Count(Blank)==0 OR UO.Count(Reg1)==0 OR UO.Count(Reg2)==0 OR UO.Count(Reg3)==0 OR k > 600
         If UO.Mana < 10 Then
            repeat
               UO.UseSkill( 'Meditation' )
               wait(2000)
            until UO.Mana == UO.Int
         Endif
      Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0 OR UO.Count( Reg3 ) == 0
UO.Print( 'test1' )
      While UO.Count( Arrow ) > 0
         UO.FindType( Arrow )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait(1000)
            CheckLag()
         Endif
      Wend
   Wend
   UO.CancelMenu()
endsub

#####################################################################
; Veterinar. v.1.08 (c) Edred
;
; Ставим рядом двух чаров, у каждого по лошади. Рядом с чарами
; сундук. В сундук чистые бинты. Сериалы лошадей каждому в скрипт.
; Стравливаем лошадей (можно использовать скрипт provocat2.sc) и
; качаемся. Внимание! При низком скилле за работой скрипта надо
; следить (одним чаром, вытащив на экран статусы обоих лошадей) и
; периодически садиться на лошадь и отъезжать в сторону, слезать с нее
; и давать обоим чарам вылечить лошадей полностью. После 40-45 скилла
; нужда в этом отпадает (скилл растет быстро).
;
sub Veterinar()
   VAR Sunduk = '0x4048E250'       ; Сериал сундука с бинтами и медом
   VAR Bandag = '0x0E21'          ; Тип бинтов
   VAR BlBandag = '0x0E20'         ; Тип грязных бинтов
   VAR Horse1 = '0x0040F759'      ; Сериал лошади ЭТОГО чара
   VAR fizzle = 'You apply bandages to a horse but fail'
   VAR Success = 'You apply the bandages to a horse'
   VAR mustwait = 'You must wait to use bandages again'
   VAR k
   UO.UseObject( Sunduk )
   wait(1000)
   While UO.SkillVal( 'Veterinary' ) < 1000
      If UO.Count( Bandag ) < 10 Then
         UO.FindType( Bandag, '-1', Sunduk )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '200' )
            wait(500)
            CheckLag()
         Else
            UO.Print( 'Bandage not found! Script terminated!' )
            return
         Endif
         UO.FindType( BlBandag )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '0', sunduk )
            wait(500)
            CheckLag()
         Endif
      Endif
      If UO.GetHP( Horse1 ) < UO.GetMaxHP( Horse1 ) Then
            DeleteJournal( fizzle )
            DeleteJournal( success )
            DeleteJournal( mustwait )
            UO.Print( 'Veterinary!' )
            UO.WaitTargetObject( Horse1 )
            UO.UseType( Bandag )
            k = 0
            repeat
               wait(100)
               k = k + 1
            until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR UO.InJournal( mustwait ) OR k > 30
            If UO.InJournal( success ) Then
               wait(2500)
            Endif
            If UO.InJournal( mustwait ) Then
               wait(500)
            Endif
            wait(1500)
      Else
         wait(500)
      Endif
   Wend
endsub
;
Sub Provocat2()
; Для провокации вам в паке необходим муз.инструмент!
;
   VAR ser1, ser2
   VAR Horse1 = '0x00C8', Horse2 = '0x00E2'
   UO.Set( 'finddistance', '2' )
   UO.FindType( Horse1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( Horse2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Horse 1 not found!' )
         return
      Endif
   Endif
   ser1 = UO.GetSerial( 'finditem' )
   UO.Print( ser1 )
   UO.Ignore( 'finditem' )
   UO.FindType( Horse1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( Horse2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Horse 2 not found!' )
         UO.IgnoreReset()
         return
      Endif
   Endif
   ser2 = UO.GetSerial( 'finditem' )
   UO.Print( ser2 )
   UO.IgnoreReset()
   UO.WaitTargetObject( ser1, ser2 )
   UO.UseSkill( 'Provocation' )
endsub

#####################################################################
; Veterinar2. v.1.03 (c) Edred
;
; Ставим две лошади напротив друг друга, кладем в сундук рядом с чаром
; чистые бинты, мед. Натравливаем при помощи провокации одну лошадь на
; другую и запускаем скрипт. Скрипт контролирует здоровье обеих лошадей
; и, если необходимо, подлечивает их с бинтов. Бинты он берет из сундука
; и туда же скидывает грязные. Скрипт с подкормкой чара и прокачкой
; спирит спик. Скрипт сам определяет сериалы лошадей и сам их провоцирует
; на атаку (если у вас не прокачан скилл Провокация, отключите этот блок - 
; он отмечен в коде). Для провоцирования вы должны иметь муз. инструмент
; в паке.
;
sub veterinar2()
   VAR Sunduk = '0x4048E250'       ; Сериал сундука с бинтами и медом
   VAR Bandag = '0x0E21'          ; Тип бинтов
   VAR BlBandag = '0x0E20'         ; Тип грязных бинтов
   VAR Horse1, Horse2, k
   VAR HorTyp1 = '0x00C8', HorTyp2 = '0x00E4'
   VAR fizzle = 'You apply bandages to a horse but fail'
   VAR Success = 'You apply the bandages to a horse'
   VAR mustwait = 'You must wait to use bandages again'
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   VAR SpiritTime = UO.Timer()
   UO.UseObject( Sunduk )
   wait(1000)
   ### Блок определения сериалов лошадей
   UO.Set( 'finddistance', '3' )
   UO.FindType( HorTyp1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( HorTyp2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Horse 1 not found!' )
         return
      Endif
   Endif
   Horse1 = UO.GetSerial( 'finditem' )
   UO.Print( Horse1 )
   UO.Ignore( 'finditem' )
   UO.FindType( HorTyp1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( HorTyp2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Horse 2 not found!' )
         UO.IgnoreReset()
         return
      Endif
   Endif
   Horse2 = UO.GetSerial( 'finditem' )
   UO.Print( Horse2 )
   UO.IgnoreReset()
   ### Блок провоцирования одной лошади на другую. Без ретрейнов - у меня ГМ.
   UO.WaitTargetObject( Horse1, Horse2 )
   UO.UseSkill( 'Provocation' )
   wait(1000)
   ### Блок прокачки
   While UO.SkillVal( 'Veterinary' ) < 1000
      If UO.Count( Bandag ) < 10 Then
         UO.FindType( Bandag, '-1', Sunduk )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '200' )
            wait(500)
            CheckLag()
         Else
            UO.Print( 'Bandage not found! Script terminated!' )
            return
         Endif
         UO.FindType( BlBandag )
         If UO.FindCount() > 0 Then
            UO.MoveItem( 'finditem', '0', sunduk )
            wait(500)
            CheckLag()
         Endif
      Endif
      EatChar( Sunduk, 2, 1, 60 )
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
         ; Прошло 5 минут с момента последней прокачки Spirit Speak
         SpSpeak()
         SpiritTime = UO.Timer()
      Endif
      If ( UO.GetHP( Horse1 ) < UO.GetMaxHP( Horse1 ) ) OR ( UO.GetHP( Horse2 ) < UO.GetMaxHP( Horse2 ) ) Then
         # Здесь я решил организовать так: чар лечит сначала ту лошадь, здоровья у которой меньше. Естественно,
         # если одна из лошадей здорова - то у второй меньше здоровья, иначе бы мы в If не вошли.
         If UO.GetHP( Horse1 ) < UO.GetHP( Horse2 ) Then
            ; лечим первую лошадь
            DeleteJournal( fizzle )
            DeleteJournal( success )
            DeleteJournal( mustwait )
            UO.Print( 'Veterinary!' )
            UO.WaitTargetObject( Horse1 )
            UO.UseType( Bandag )
            k = 0
            repeat
               wait(100)
               k = k + 1
            until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR UO.InJournal( mustwait ) OR k > 30
            If UO.InJournal( success ) Then
               wait(2500)
            Endif
            If UO.InJournal( mustwait ) Then
               wait(500)
            Endif
            wait(1500)
         Else
            wait(500)
         Endif
         If UO.GetHP( Horse1 ) > = UO.GetHP( Horse2 ) Then
            ; лечим вторую лошадь
            DeleteJournal( fizzle )
            DeleteJournal( success )
            DeleteJournal( mustwait )
            UO.Print( 'Veterinary!' )
            UO.WaitTargetObject( Horse2 )
            UO.UseType( Bandag )
            k = 0
            repeat
               wait(100)
               k = k + 1
            until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR UO.InJournal( mustwait ) OR k > 30
            If UO.InJournal( success ) Then
               wait(2500)
            Endif
            If UO.InJournal( mustwait ) Then
               wait(500)
            Endif
            wait(1500)
         Else
            wait(500)
         Endif
      Else
         wait(300)
      Endif
   Wend
endsub
   
#===================================================================#
#
# I. Прокачка других скиллов
#
#####################################################################
sub Magery() 
   ; ver. 2.01 (c) Edred
   ;
   ; Вводим сундук (пак) с найтшэдом, вводим подкормку чара.
   ;
   VAR sunduk = '0x40531245'
   VAR targ = '0x4041C420'
   VAR mir = 'You are at peace'
   VAR NS = '0x0F88'
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   UO.UseObject( sunduk )
   wait(1000)
   CheckLag()
   While UO.SkillVal( 'Magery' ) < 1000
      If UO.Count( NS ) == 0 Then
         UO.Findtype( NS, '-1', sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'NightShade not found, script terminated' )
            return
         Endif
         UO.MoveItem( 'finditem', '100' )
         wait(500)
         CheckLag()
      Endif
      If UO.Mana < 20 Then
         DeleteJournal( mir )
         repeat
            UO.UseSkill( 'Meditation' )
            wait(2000)
         until UO.InJournal( mir )
         EatChar( sunduk, 2, 1, 60 )
      Endif
      UO.WaitTargetObject( targ )
      UO.Cast( 'Poison' )
      wait(3000)
   Wend
endsub 

#####################################################################
sub music()
   VAR Gitara = '0x0EB4'   ; тип балалайки
   repeat
      UO.UseType( Gitara )
      wait(2000)
   until UO.Dead()
endsub

#####################################################################
sub provocat()
; Provocation
   VAR Horse1 = '0x004033E5'   ; лошадь 1
   VAR Horse2 = '0x0040349F'   ; лошадь 2
   repeat
      UO.WaitTargetObject( Horse1, Horse2 )
      UO.UseSkill( 'Provocation' )
      wait(2000)
   until UO.Dead()
endsub

#####################################################################
sub entic()
; Enticement
   VAR Horse1 = '0x004033E5'   ; лошадь 1
   repeat
      UO.WaitTargetObject( Horse1 )
      UO.UseSkill( 'Enticement' )
      wait(1000)
   until UO.Dead()
endsub

#####################################################################
; Forensic. v.1.00b (c) Edred
;
sub forensic()
   UO.WarMode( 0 )
   repeat
      UO.DeleteJournal()
      UO.WaitTargetObject( 'lastcorpse' )
      UO.UseSkill( 'Forensic' )
      repeat
         wait(100)
      until UO.InJournal( "This is the corpse" ) OR UO.InJournal( "This is Body" ) OR UO.InJournal( "You can tell nothing" ) OR UO.InJournal( "You can't see the target" )
   until UO.InJournal( "You can't see the target" )
   UO.WarMode( 1 )
endsub

#####################################################################
sub Hidonly()
   while UO.SkillVal( 'Hiding' ) < 1000
      UO.UseSkill('Hiding') 
      Wait(4000)
   wend
endsub

#####################################################################
sub HidStealth()
;   while UO.SkillVal( 'Hiding' ) < 1000 AND UO.SkillVal( 'Stealth' ) < 1000
   while UO.DEX < 100
      while (UO.GetX() <> 1852)
         GoHide()
         UO.Press( 36 )
         wait(1000)
      wend
      while (UO.GetX() <> 1864)
         GoHide()
         UO.Press( 34 )
         wait(1000)
      wend
   wend
endsub

#####################################################################
sub macef()
   VAR Kukla = '0x40429852', flag = 1
   VAR maul = '0x143A'
   while UO.SkillVal( 'Mace Fighting' ) < 600
      flag = GetDagger( maul )
      If flag == 0 Then
         UO.Print( 'Maul not found!' )
         return
      Endif
      UO.UseObject( Kukla )
      wait(4000)
      If UO.Life < 100 Then
         UO.SayU( 'Guards!' )
      Endif
   wend
endsub

#####################################################################
sub fencing()
   VAR Kukla = '0x40429852', flag = 1
   VAR Dagger = '0x0F51'
   while UO.SkillVal( 'Fencing' ) < 600
      flag = GetDagger( Dagger )
      If flag == 0 Then
         UO.Print( 'Dagger not found!' )
         return
      Endif
      UO.UseObject( Kukla )
      wait(4000)
      If UO.Life < 50 Then
         UO.SayU( 'Guards!' )
      Endif
   wend
endsub

#####################################################################
sub swordsman()
   VAR Kukla = '0x40429852', flag = 1
   VAR sword = '0x13FE'
   while UO.SkillVal( 'Swordsmanship' ) < 600 OR UO.Str < 150
      flag = GetDagger( sword )
      If flag == 0 Then
         UO.Print( 'Katana not found!' )
         return
      Endif
      UO.UseObject( Kukla )
      wait(4000)
      If UO.Life < 50 Then
         UO.SayU( 'Guards!' )
      Endif
   wend
endsub

#####################################################################
sub Intell()
   VAR Anima = '0x005F631D'
   VAR ms1 = "a horse looks superhumanly strong"
   VAR ms2 = "think of anything"
   VAR ms3 = "it is loyal"
   VAR ms4 = "a horse looks dumb as a rock"
   VAR ms5 = "You cannot seem to judge"
   VAR k
   while UO.SkillVal( 'Evaluating Intelligence' ) < 1000
      DeleteJournal( ms1 )
      DeleteJournal( ms2 )
      UO.WaitTargetObject( Anima )
      UO.UseSkill( 'Anatomy' )
      CheckLag()
      k = 0
      repeat
         wait(100)
         k = k + 1
      until UO.InJournal( ms1 ) OR UO.InJournal( ms2 ) OR k > 30
      DeleteJournal( ms3 )
      DeleteJournal( ms2 )
      UO.WaitTargetObject( Anima )
      UO.UseSkill( 'Animal Lore' )
      CheckLag()      
      k = 0
      repeat
         wait(100)
         k = k + 1
      until UO.InJournal( ms3 ) OR UO.InJournal( ms2 ) OR k > 30
      DeleteJournal( ms4 )
      DeleteJournal( ms5 )
      DeleteJournal( ms2 )
      UO.WaitTargetObject( Anima )
      UO.UseSkill( 'Evaluating Intelligence' )
      CheckLag()
      k = 0
      repeat
         wait(100)
         k = k + 1
      until UO.InJournal( ms4 ) OR UO.InJournal( ms5 ) OR UO.InJournal( ms2 ) OR k > 30
   wend
endsub

#===================================================================#
# CAMPING                                                           #
#===================================================================#
#   v.1.04b (с) Edred                                               #
#===================================================================#
; Берем в пак 200 хвороста и реги, реколлимся по руне туда где можно 
; жечь костры, врубаем медитацию, отделяем по 1 шт. хвороста, кладем их 
; вокруг чара с трех сторон, дважды щелкаем по этим кучкам хвороста 
; для их разжигания (с повторами в случае физлов). Отходим назад 
; (направление на правый нижний угол - клавиша "3" на нумпаде). 
; Повторям последнюю операцию пока чар не придет в точку FinalX. 
; Реколлимся на базу, добираем из ящика хворост и реги. И по кругу.
;
; Разметьте руну где-нибудь в непосещаемом городе, прогуляйтесь шагов
; на 30-50 по диагонали по направлению цифры 3 на нумпаде, занесите
; координату X этой точки в FinalX (для надежности и защиты от лагов
; будет лучше если в этой точке чар упрется в стенку). На базе рядом
; с реколлкой поставьте сундук и в него положите много хвороста (можно
; одной "неподьъемной" кучкой и побольше регов для реколла.
; Занесите руну в этот город в ту же рунбуку, где и руна на базу.
;
sub camping()
   DIM Regs[3]
   Regs[0] = '0x0F7A'         ; Black Pearl
   Regs[1] = '0x0F7B'         ; Bood Moss
   Regs[2] = '0x0F86'         ; Mandrake Root
   VAR Hvorost = '0x0DE1'
   VAR flag, myx, myy, myz, fin, i
   VAR FinalX = 1350
   VAR Sunduk = '0x40591B82'
   VAR RuneToBase = '20'
   VAR RuneToFire = '30'
   ;
   ; Стартуем стоя в начале пути.
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   UO.Exec( 'set finddistance 3' )
   While UO.SkillVal( 'Camping' ) < 1000
      fin = 0
      UO.UseSkill( 'Meditation' )
      UO.FindType ( Hvorost )
      While ( UO.FindCount() > 0 ) AND ( fin == 0 )
         myx = UO.GetX()
         myy = UO.GetY()
         myz = UO.GetZ()
         UO.MoveItem('finditem', '1', 'ground', str(myx-1), str(myy), str(myz))
         wait(1000)
         CheckLag()
         UO.FindType ( Hvorost )
         UO.MoveItem('finditem', '1', 'ground', str(myx), str(myy+1), str(myz))
         wait(1000)
         CheckLag()
         UO.FindType ( Hvorost )
         UO.MoveItem('finditem', '1', 'ground', str(myx), str(myy-1), str(myz))
         wait(1000)
         CheckLag()
         UO.Findtype( Hvorost, -1, 1 )
         While UO.FindCount() > 0 AND NOT UO.InJournal( "You can't ignite several" )
            repeat
               flag = 1
               DeleteJournal( "You fail to ignite" )
               DeleteJournal( "You can't ignite several" )
               DeleteJournal( "You must wait" )
               UO.UseFromGround( Hvorost )
               wait(1000)
               CheckLag()
               If UO.InJournal( "You must wait" ) OR UO.InJournal( "You fail to ignite" ) Then
                  flag = 0
                  wait(1000)
               Endif
               If UO.InJournal( "You can't ignite several" ) Then
                  UO.FindType( Hvorost, -1, 1 )
                  While UO.FindCount() > 0
                     If UO.GetQuantity( 'finditem' ) > 1 Then
                        UO.Grab( str( UO.GetQuantity( 'finditem' ) - 1 ), 'finditem' )
                        wait(1000)
                        CheckLag()
                     Endif
                     UO.Ignore( 'finditem' )
                     UO.FindType( Hvorost, -1, 1 )
                  Wend
                  UO.IgnoreReset()
               Endif
            until flag
            UO.Findtype( Hvorost, -1, 1 )
         Wend
         While ( UO.GetX() < myx + 1 ) AND ( fin == 0 )
            UO.Press( 34 )
            wait(300)
            CheckLag()
            If UO.GetX() == FinalX Then
               fin = 1
            Endif
         Wend
         UO.FindType ( Hvorost )
      Wend
      ; достигли конца маршрута или кончился хворост
      Recalling( 'CommonRunbook', RuneToBase )
      UO.UseObject( Sunduk )
      wait(1000)
      CheckLag()
      for i = 0 To 2
         If UO.Count( Regs[i] ) < 6 Then
            ; этого рега меньше 6
            UO.FindType( Regs[i], '-1', Sunduk )
            UO.Grab( str( 6 - UO.Count( Regs[i] ) ), 'finditem' )
            Wait( 1000 )
            CheckLag()
         Endif
      next
      If UO.Count( Hvorost ) < 200 Then
         ; хвороста меньше 200
         UO.FindType( Hvorost, '-1', Sunduk )
         UO.Grab( str( 200 - UO.Count( Hvorost ) ), 'finditem' )
         Wait( 1000 )
         CheckLag()
      Endif
      EatChar( Sunduk, 2, 1, 60 )
      Recalling( 'CommonRunbook', RuneToFire )
   Wend
endsub

#===================================================================#
# COOKING                                                           #
#===================================================================#
#   v.1.05b (с) Edred                                               #
#===================================================================#
;
; Встаем рядом среколлкой на базе, рядом с чаром в АМЗ ставим сундук или
; ящик. В него раскладываем много кучек хвороста не больше чем по 500
; в кучке (иначе чар не сможет взять 1 шт.) и кладем несколько стопок стейков
; (можно по 10к в стопке). Можно туда же добавить меда - уберите комментарий
; с EatChar() и добавьте эту функцию.
; Берем из сундука 1 шт хвороста, кладем в координаты TX, TY и зажигаем ее.
; Потом берем 1 шт. стейков из этого же сундука и жарим
; на костре или углях. При этом перед жаркой проверяем, есть ли в
; вокруг чара огонь или угли. если есть жарим, иначе опять жгем костер.
; Готовый стейк скидывается в этот же сундук.
;
; Перед разжиганием костра проверяем, прошло ли 5 минут с момента последней
; попытки прокачать Spirit Speak, если прошло - качаем.
;
sub cooking()
   VAR Sunduk = '0x40591B82'
   VAR Hvorost = '0x0DE1'
   VAR Koster = '0x0DE3'
   VAR Ugli = '0x0DE9'
   VAR Fish = '0x097A'
   VAR FishGot = '0x097B'
   VAR TX = 1873
   VAR TY = 387
   VAR i, flag
   VAR SpiritTime = UO.Timer()
   UO.CancelTarget()
   UO.Exec( 'set finddistance 3' )
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   UO.UseObject( Sunduk )
   While UO.SkillVal( 'Cooking' ) < 1000
;      EatChar( Sunduk, 2, 1, 120 )
# ----------------------------------
# блок запуска прокачки Spirit Speak
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
         ; Прошло 5 минут с момента последней прокачки Spirit Speak
         SpSpeak()
         SpiritTime = UO.Timer()
      Endif
# ----------------------------------
      wait(1000)
      UO.FindType( Hvorost, -1, Sunduk )
      If UO.FindCount() == 0 Then
         UO.Print( 'No kindling found. Script terminated' )
         return
      Endif
      UO.MoveItem( 'finditem', '1', 'ground', str(TX), str(TY), str(UO.GetZ()) )
      wait(1000)
      CheckLag()
      UO.Findtype( Hvorost, -1, 1 )
;      wait(1000)
      If UO.FindCount() > 0 Then
         repeat
            UO.UseFromGround( Hvorost )
            wait(1000)
            UO.FindType( Koster, -1, 1 )
         until UO.FindCount() > 0
         ; костер горит
         flag = 1
         repeat
            ; взять из сундука 1 стейк
            If UO.Count( Fish ) == 0 Then
               UO.FindType( Fish, -1, Sunduk )
               If UO.FindCount() == 0 Then
                  UO.Print( 'No fish steaks found. Script terminated' )
                  return
               Endif
               UO.Grab( '1', 'finditem' )
;               repeat
;                  wait(100)
;               until UO.Count( Fish ) > 0
               wait(1000)
               CheckLag()
            Endif
            ; теперь проверим не погас ли костер, не исчезли ли угли
            UO.FindType( Koster, -1, 1 )
            If UO.FindCount() <> 0 Then
               ; еще горит костер - жарим на нем стейк
               If UseSteake( Fish, UO.GetSerial('finditem') ) Then
                  flag = 0
               Endif
               ; стейк готов
            Else
               UO.FindType( Ugli, -1, 1 )
               If UO.FindCount() <> 0 Then
                  ; есть еще угли!
                  if UseSteake( Fish, UO.GetSerial('finditem') ) then
                     flag = 0
                  endif
               Else
                  flag = 0
               Endif
            Endif
            If UO.Count( FishGot ) > 0 Then
               UO.FindType( FishGot )
               UO.MoveItem( 'finditem', -1, Sunduk )
;               repeat
;                  wait(100)
;               until UO.Count( FishGot ) == 0
               wait(1000)
               CheckLag()
            Endif
         until flag == 0
      Endif
   Wend
endsub

Sub UseSteake( fish, koster )
   VAR msg1 = 'You burn the food'            ; физл
   VAR msg2 = 'You put the fish steak'         ; успех
   VAR msg22 = 'You put the fish steaks'      ; успех
   VAR msg3 = 'You must wait'               ; ждать
   VAR msg4 = "You can't see the target"
   repeat
      DeleteJournal (msg1 )
      DeleteJournal (msg2 )
      DeleteJournal (msg22 )
      DeleteJournal (msg3 )
      DeleteJournal (msg4 )
      UO.WaitTargetObject( 'finditem' )
      UO.UseType( Fish )
      repeat
         wait(500)
      until UO.InJournal(msg1) OR UO.InJournal(msg2) OR UO.InJournal(msg22) OR UO.InJournal(msg3) OR UO.InJournal(msg4)
      if UO.InJournal(msg4) then
         return 1
      endif
      if UO.InJournal(msg3) then
         wait(500)
      endif
   until UO.InJournal(msg2) OR UO.InJournal(msg22)
   return 0
endsub

sub NechegoDelat()
   SpSpeak()
   VAR SpiritTime = UO.Timer()
   repeat
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
         ; Прошло 5 минут с момента последней прокачки Spirit Speak
         SpSpeak()
         SpiritTime = UO.Timer()
      Else
         wait(500)
      Endif
   until UO.Dead()
endsub

#####################################################################
; Herding v.1.02b (c) Edred
;
; Для прокачки потребуются две лошади (ламы или другие животные)
; и два щита (или какие-то другие объекты). Кладем щиты на пол в доме
; в паре шагов от чара (не стопкой, в соседние тайлы) и ставим обеих 
; лошадей рядом с чаром. Чару в руку посох (одного посоха хватит на всю 
; прокачку). Вносим серийники лошадей и щитов в соответствующие переменные.
; Поехали. Блоки, отвечающие за подкормку чара и прокачку
; Spirit Speak закомментарены.
;
sub Herding()
   VAR Horse = '0x0040D2A1'
   VAR Horse2 = '0x005AF4B1'   
   VAR Targ = '0x404215E8'
   VAR Targ2 = '0x404214EF'
   VAR Sunduk = '0x404E5494'
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   VAR success = "The animal goes where it is instructed"
   VAR fizzle = "You don't seem"
   VAR SpiritTime = UO.Timer()
   UO.UseObject( Sunduk )
   wait(1000)
   CheckLag()
   While UO.SkillVal( 'Herding' ) < 1000
      EatChar( Sunduk, 2, 1, 120 )
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
         ; Прошло 5 минут с момента последней прокачки Spirit Speak
         SpSpeak()
         SpiritTime = UO.Timer()
      Endif
      DeleteJournal( success )
      DeleteJournal( fizzle )
      UO.WaitTargetObject( Horse, Targ )
      UO.UseObject( UO.ObjAtLayer( 'Lhand' ) )
      repeat
         wait(100)
      until UO.InJournal( fizzle ) OR UO.InJournal( success )
      If UO.InJournal( success ) Then
         ; вторая животина
         DeleteJournal( success )
         UO.WaitTargetObject( Horse2, Targ2 )
         UO.UseObject( UO.ObjAtLayer( 'Lhand' ) )
         repeat
            wait(100)
         until UO.InJournal( fizzle ) OR UO.InJournal( success )
      Endif
   Wend
endsub

[Edred]

окончание файла SkillUp.sc (в один пост не влезло)

Code: Select all

#####################################################################
; Lockpicking v.1.01b (c) Edred
;
sub Lockpicking()
   VAR SundukFrom = '0x404CF9CF'
   VAR SundukTarg = '0x401EA0CA'
   VAR KeyTarg = '0x401EA0C9'
   VAR LockType = '0x14FB'
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   DIM LockColor[3], SkUp[3]
   LockColor[0] = '0x0000'      ; айрон
   LockColor[1] = '0x060A'      ; дулл купер
   LockColor[2] = '0x0488'      ; бронза
   LockColor[3] = '0x08A5'      ; золото
   SkUp[0] = 299            ; уровень скилла выше которого качать железными отмычками
   SkUp[1] = 499            ; уровень скилла выше которого качать медными отмычками   
   SkUp[2] = 499            ; уровень скилла выше которого качать бронзовыми отмычками
   SkUp[3] = 599            ; уровень скилла выше которого качать золотыми отмычками   
   VAR fizzle = "You can't open this."
   VAR success = "You open this."
   VAR locked = "You close this chest."
   VAR TimeLimit = 3000
   VAR trycount = 0, succount = 0
   VAR i, j, needcolor, k, end
   VAR SpiritTime = UO.Timer()
   UO.UseObject( SundukFrom )
   wait(1000)
   CheckLag()
   while UO.SkillVal( 'Lockpicking' ) < 1000
      If UO.Count( LockType ) == 0 Then
         EatChar( SundukFrom, 6, 2, 120 )
         j = 0
         For i = 0 To 3
            If SkUp[i] < UO.SkillVal( 'Lockpicking' ) Then
               j = i
            Endif
         Next
         needcolor = LockColor[j]
         UO.FindType( LockType, needcolor, SundukFrom )
         If UO.FindCount() == 0 Then
            UO.Print( 'Lockpicks not found. Script terminated' )
            return
         Endif
         If UO.GetQuantity( 'finditem' ) > 100 Then
            UO.Grab( '100', 'finditem' )
         Else
            UO.Grab( 'finditem' )
         Endif
         wait(1000)
         CheckLag()
      Endif
      While UO.Count( LockType ) > 0
         If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
            ; Прошло 5 минут с момента последней прокачки Spirit Speak
            SpSpeak()
            SpiritTime = UO.Timer()
         Endif
         trycount = trycount + 1
         UO.Print( 'You have ' + str( UO.Count( LockType ) ) + ' lockpicks.' )
         UO.Print( 'You have ' + str( succount ) + ' success attempt' )
         UO.Print( 'You get ' + str( trycount ) + ' attempt'  )
         DeleteJournal( fizzle )
         DeleteJournal( success )
         UO.WaitTargetObject( SundukTarg )
         UO.UseType( LockType )
         k = 0
         repeat
            wait(100)
            k = k + 1
         until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR k > TimeLimit
         If UO.InJournal( success ) Then
            DeleteJournal( locked )
            succount = succount + 1
            UO.WaitTargetObject( SundukTarg )
            UO.UseObject( KeyTarg )
            repeat
               wait(100)
            until UO.InJournal( locked )
         Endif
      Wend
   Wend
endsub

#####################################################################
; Begging v.1.07 (c) Edred
;
; Встаем около какого-нибудь вендора (лучше двух) и запускаем скрипт. 
; Чар найдет вендора (или обоих), определит их сериалы, будет у них 
; попрошайничать (чередуя после успеха) и в случае успеха скидывать
; деньги обратно на вендора (на Цитадели попрошайничать надо голым 
; с пустым паком и банком). Заодно качается спиритспик.
;
sub Begging()
   VAR VendTyp1 = '0x0191'
   VAR VendTyp2 = '0x0190'
   VAR VendSer, VendSer1 = '', VendSer2 = '', k
   VAR Dengi = '0x0EED'
   VAR dal = 'Here, you can have this'
   VAR poslal = "I'm sorry,"
   VAR daleko = 'is too far away!'
   VAR chasto = 'You must wait to use that skill again.'
   VAR SpiritTime = UO.Timer()
   UO.Set( 'finddistance', '3' )
   #### Блок нахождения 1 или 2 вендоров
   UO.Ignore( 'self' )
   UO.FindType( VendTyp1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( VendTyp2, '-1', '1' )
      If UO.FindCount() == 0 Then
         UO.Print( 'Vendor not found!' )
         return
      Endif
   Endif
   VendSer1 = UO.GetSerial( 'finditem' )
   UO.Print( 'Vendor1 = ' + VendSer1 )
   UO.Ignore( 'finditem' )
   UO.FindType( VendTyp1, '-1', '1' )
   If UO.FindCount() == 0 Then
      UO.FindType( VendTyp2, '-1', '1' )
      If UO.FindCount() <> 0 Then   
         VendSer2 = UO.GetSerial( 'finditem' )
         UO.Print( 'Vendor2 = ' + VendSer2 )
      Endif
   Else
      VendSer2 = UO.GetSerial( 'finditem' )
      UO.Print( 'Vendor2 = ' + VendSer2 )
   Endif
   ### Все!
   UO.IgnoreReset()
   VendSer = VendSer1
   While UO.SkillVal( 'Begging' ) < 1100
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
         ; Прошло 5 минут с момента последней прокачки Spirit Speak
         SpSpeak()
         SpiritTime = UO.Timer()
      Endif
      If UO.GetHP() < UO.GetMaxHP() Then
         UO.Msg( 'GUARDS' )
      Endif
      DeleteJournal( dal )
      DeleteJournal( poslal )
      DeleteJournal( daleko )
      DeleteJournal( chasto )
      UO.WaitTargetObject( VendSer )
      UO.UseSkill( 'Begging' )
      k = 0
      repeat
         wait(100)
         k = k + 1
      until UO.InJournal( dal ) OR UO.InJournal( poslal ) OR UO.InJournal( daleko ) OR UO.InJournal( chasto ) OR k > 50
      If UO.InJournal( chasto ) Then
         wait(1000)
      Else
         wait(2500)
      Endif
      If UO.Count( dengi ) > 0 Then
         UO.FindType( dengi )
         While UO.FindCount() > 0
            UO.MoveItem( 'finditem', '0', VendSer )
            wait(1000)
            CheckLag()
            UO.FindType( dengi )
         Wend
      Endif
      If UO.InJournal( dal ) Then
         # Блок смены вендора
         If VendSer2 <> '' Then
            If VendSer == VendSer1 Then
               VendSer = VendSer2
            Else
               VendSer = VendSer1
            Endif
         Endif
      Endif
      If UO.GetHP() < UO.GetMaxHP() Then
         UO.Msg( 'GUARDS' )
      Endif
   Wend
endsub

sub Snooping()
   ; Прокачка снупинга.
   VAR bpack = '0x404CFB26'
   repeat
      UO.UseObject( bpack )
      wait(2500)
   until UO.SkillVal( 'Snooping' ) > 999
endsub

sub Stealing()
   ; Прокачка стилинга. Временный тестовый скрипт.
   VAR bint = '0x0E21'
   VAR bpack = '0x404CFB26'
   repeat
      UO.FindType( bint, '-1', bpack )
      UO.UseSkill( 'Stealing', 'finditem' )
      wait(4000)
   until UO.Dead()
endsub

#####################################################################
##########################               ############################
##########################   ПРОЦЕДУРЫ   ############################

#####################################################################
Sub GoHide()
   While not UO.Hidden() 
      UO.UseSkill('Hiding') 
      Wait(4000) 
   Wend
endsub

#####################################################################
Sub GetDagger( Dagger )
   If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) <> Dagger Then
      UO.FindType( Dagger )
      If UO.FindCount() == 0 Then
         return 0
      Endif
      UO.Equipt( 'Rhand', Dagger )
      wait(1000)
   Endif
   return 1
endsub

#####################################################################
; ================================================================
; Процедура подкормки чара. Параметры: сериал контейнера с медом, номер 
; сообщения до которого кормить, сколько съесть меда после сообщения,
; как часто кормить чара.
; Прохождение последнего периода контролируется через глобальную переменную 
; TimeProcess.
;
; ver. 1.07 (c) Edred
;
Sub EatChar( Sunduk, Nom, Add, TimeWait )
   ; сообщения при кормежке
   UO.Print( 'TEST: eat to ' + str( Nom ) + ' message and ' + str( Add ) + ' more each ' + str( TimeWait ) + ' minutes' )
   DIM Eat[8]
   Eat[0] = ''
   Eat[1] = 'You eat the food, but are still extremely hungry'
   Eat[2] = 'After eating the food, you fell much less hungry'
   Eat[3] = 'You eat the food, and begin to feel more satiated'
   Eat[4] = 'You are nearly stuffed, but manage to eat the food'
   Eat[5] = 'You fell quite full after consuming the food'
   Eat[6] = 'You are stuffed!'
   Eat[7] = 'You are simply too full to eat any more!'
   VAR Med = '0x09EC'         ; тип меда для подкормки
   VAR i, EatC, j, k, flag
   ; проверим, пора ли кормиться
   i = Val( UO.GetGlobal( 'TimeProcess' ) )
   i = ( UO.Timer() - i ) / 600 
   If i < TimeWait Then
      ; рано кормиться
      UO.Print( 'Eat early! ' + str( i ) + ' from ' + str( TimeWait ) )
      return
   Endif
   If Nom > 0 AND Nom < 8 Then
      EatC = Eat[Nom]
   Else
      EatC = Eat[7]
   Endif
   UO.FindType( Med, '-1', Sunduk )
   If UO.FindCount() == 0 Then
      ; мед кончился
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
      return
   Endif
   UO.Grab( '60', 'finditem' )
   Wait( 1000 )
   CheckLag()
   For k = 1 To 7
      DeleteJournal( Eat[k] )
   Next
   flag = 0
   If Nom < 7 Then
      UO.UseType( Med )
      Wait( 1000 )
      CheckLag()
      For k = Nom + 1 To 7
         If UO.InJournal( Eat[k] ) Then
            flag = 1
         Endif
      Next
   Endif
   If flag == 0 Then
      repeat
         DeleteJournal( EatC )
         UO.UseType( Med )
         Wait( 1000 )
         CheckLag()
      until NOT UO.InJournal( EatC )
      If Add > 0 Then
         For j = 1 To Add
            UO.UseType( Med )
            Wait( 1000 )
            CheckLag()
         Next
      Endif
   Endif
   ; хватит кормиться
   ; выгрузим остатки меда обратно
   UO.Findtype( Med, '-1', 'backpack' )
   UO.MoveItem( 'finditem', 0, Sunduk )
   Wait( 1000 )
   CheckLag()
   ; Сбросим счетчик
   UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
endsub

#####################################################################
Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

#####################################################################
Sub Recalling( Runbk, NRune ) 
   ; Runbk - сериал или ссылка на объект рунбуки 
   ; NRune - десятичный номер (текстом) руны для реколла 
   VAR myx = UO.GetX()
   VAR myy = UO.GetY()
   VAR OldMana = UO.Mana
   VAR i = 0
   DeleteJournal( 'fizzles' )
   UO.Exec("recall " + Runbk + " " + NRune) 
   repeat
      CheckLag()
      wait(1000)
      i = i + 1
   until ( i > 6 ) OR ( UO.Mana < OldMana - 8 ) OR UO.InJournal( 'fizzles' )
   wait(500)
   If myx == UO.GetX() AND myy == UO.GetY() Then
      UO.WarMode( 'flip' ) 
      wait(100) 
      UO.WarMode( 'flip' )
      Recalling( Runbk, NRune ) 
   Endif
endsub 

#####################################################################
; Spirit Speak v.1.00b (c) Edred
;
; Разовая прокачка спирит спика. Предназначена для вызова из других скриптов.
;
sub SpSpeak()
   VAR mod = UO.WarMode(), num
   VAR fizzle = 'You fail your attempt'
   VAR success = 'You establish a connection'
   UO.WarMode( 0 )
   DeleteJournal( success )
   repeat
      DeleteJournal( fizzle )
      UO.UseSkill( 'Spirit Speak' )
      num = 1
      repeat
         wait(100)
         num = num + 1
      until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR num > 600
   until UO.InJournal( success )
   UO.WarMode( mod )
endsub

#####################################################################
Sub GetResource( typ, kolvo, cont )
   ; Берем из указанного контейнера указанное количество ресурса по типу
   ; Возвращаем 0 если ресурс не найден и 1 если все ок.
   UO.FindType( typ, '-1', cont )      ; Ищем ресурс в контейнере
   If UO.FindCount() == 0 Then
      UO.Print("Resource not found, script terminated")
      return 0
   Endif
   UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем ресурсы в пак
   Wait(500)
   CheckLag()
   return 1
endsub

[Edred]

SimpleCraft.sc

Code: Select all

#                                                                   #
#   SimpleCraft.sc, ver 505.110 (c) Edred                           #
#                                                                   #
#####################################################################
#  1. CraftLockPick                                                 #
#  2. MadeMarkScroll                                                #
#  3. MadeRecallScroll                                              #
#  4. MadeFSScroll                                                  #
#  5. AutoCraftPotion                                               #
#  6. CraftFishFat                                                  #
#  7. CraftRecallRune                                               #
#  8. Craft10Cleaver                                                #
#  9. CraftBlankDeed                                                #
# 10. CookFish                                                      #
# 11. TailorBlankScroll                                             #
#                                                                   #
#####################################################################
;
#####################################################################
; CraftLockpick. v.1.01b (c) Edred
;
sub CraftLockpick() 
   VAR Sunduk = '0x404CFAA3'
   VAR Ingi = '0x1BEF'
   VAR Instrum = '0x1EBC'
   VAR LPicks = '0x14FB'
   VAR Kolvo = 200, SumKolvo = 0, MoveKolvo = 0
   VAR k = 0
   UO.TextOpen()
   UO.TextClear()
   UO.CancelMenu()
   UO.FindType( Lpicks, '-1', Sunduk )
   If UO.FindCount() > 0 Then
      SumKolvo = UO.GetQuantity( 'finditem' )
      UO.TextPrint( 'I have ' + str(SumKolvo) + ' lockpicks' )
   Endif
   UO.AutoMenu('Keys and Lockpicks', 'Golden lockpick')
   While TRUE
      UO.FindType( Ingi, '-1', Sunduk )
      If UO.FindCount() == 0 Then
         UO.Print("Ingots not found, script terminated")
         UO.CancelMenu()
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 1000 )
      CheckLag()
      While UO.Count( Ingi ) > 0
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.UseType( Instrum )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500) 
         wend
      Wend
      If UO.Count( LPicks ) > 0 then
         UO.FindType( LPicks, '-1', '-1' )
         MoveKolvo = UO.GetQuantity( 'finditem' )
         SumKolvo = SumKolvo + MoveKolvo
         UO.MoveItem( 'finditem', '0', Sunduk )
         wait( 1000 )
         CheckLag()
         UO.Print( 'Lockpicks dropped' )
         UO.TextPrint( 'Added ' + str(MoveKolvo) + ' lockpicks. Sum is ' + str(SumKolvo) )
      Endif
   Wend
end sub

#####################################################################
; MadeMarkScroll. v.1.00b (c) Edred
;
; Крафтим столько марк скроллов, сколько позволяют ингридиенты в паке.

sub MadeMarkScroll() 
   VAR Blank = '0x0E34'          ; Тип бланк скролла
   VAR Mark = '0x1F59'            ; Тип скроллов Mark
   VAR Reg1 = '0x0F86'            ; mandrake root
   VAR Reg2 = '0x0F7A'            ; black pearl
   VAR Reg3 = '0x0F7B'            ; blood moss
   VAR Fizzle = 'You fail to inscribe the scroll'
   VAR Success = 'You put the'
   VAR k
   UO.CancelMenu()
   UO.AutoMenu( 'Spell Circles', 'Sixth Circle' )
   UO.AutoMenu( 'Spell Circle 6', 'Mark' )
   While TRUE
      If UO.Count( Blank ) == 0 Then
         UO.Print( 'Blank Scroll not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg1 ) == 0 Then
         UO.Print( 'Mandrake Root not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg2 ) == 0 Then
         UO.Print( 'Black Pearls not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg3 ) == 0 Then
         UO.Print( 'Blood Moss not found. Script terminated' )
         return
      Endif
      repeat
         DeleteJournal( Fizzle )
         DeleteJournal( Success )
         UO.UseType( Blank )
         k = 0
         repeat
            k = k + 1
            wait(100)
         until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0 OR k > 600
         If UO.Mana < 20 Then
            repeat
               UO.UseSkill( 'Meditation' )
               wait(2000)
            until UO.Mana == UO.Int
         Endif
      Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0
   Wend
   UO.CancelMenu()
endsub

#####################################################################
; MadeRecallScroll. v.1.00b (c) Edred
;
; Крафтим столько рекалл скроллов, сколько позволяют ингридиенты в паке.
sub MadeRecallScroll() 
   VAR Blank = '0x0E34'          ; Тип бланк скролла
   VAR Reg1 = '0x0F86'            ; mandrake root
   VAR Reg2 = '0x0F7A'            ; black pearl
   VAR Reg3 = '0x0F7B'            ; blood moss
   VAR Fizzle = 'You fail to inscribe the scroll'
   VAR Success = 'You put the'
   VAR k
   UO.CancelMenu()
   UO.AutoMenu( 'Spell Circles', 'Fourth Circle' )
   UO.AutoMenu( 'Spell Circle 4', 'Recall' )
   While TRUE
      If UO.Count( Blank ) == 0 Then
         UO.Print( 'Blank Scroll not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg1 ) == 0 Then
         UO.Print( 'Mandrake Root not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg2 ) == 0 Then
         UO.Print( 'Black Pearls not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg3 ) == 0 Then
         UO.Print( 'Blood Moss not found. Script terminated' )
         return
      Endif
      repeat
         DeleteJournal( Fizzle )
         DeleteJournal( Success )
         UO.UseType( Blank )
         k = 0
         repeat
            k = k + 1
            wait(100)
         until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0 OR k > 600
         If UO.Mana < 20 Then
            repeat
               UO.UseSkill( 'Meditation' )
               wait(2000)
            until UO.Mana == UO.Int
         Endif
      Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0
   Wend
   UO.CancelMenu()
endsub

#####################################################################
; MadeFSScroll. v.1.00b (c) Edred
;
; Крафтим столько flame strikes, сколько позволяют ингридиенты в паке.

sub MadeFSScroll() 
   VAR Blank = '0x0E34'          ; Тип бланк скролла
   VAR Mark = '0x1F5F'            ; Тип скроллов FS
   VAR Reg1 = '0x0F8D'            ; spider silk
   VAR Reg2 = '0x0F8C'            ; sulphorous ash
   VAR Fizzle = 'You fail to inscribe the scroll'
   VAR Success = 'You put the'
   VAR k
   UO.CancelMenu()
   UO.AutoMenu( 'Spell Circles', 'Seventh Circle' )
   UO.AutoMenu( 'Spell Circle 7', 'Flamestrike' )
   While TRUE
      If UO.Count( Blank ) == 0 Then
         UO.Print( 'Blank Scroll not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg1 ) == 0 Then
         UO.Print( 'Spider Silk not found. Script terminated' )
         return
      Endif
      If UO.Count( Reg2 ) == 0 Then
         UO.Print( 'Sulphorous Ash not found. Script terminated' )
         return
      Endif
      repeat
         DeleteJournal( Fizzle )
         DeleteJournal( Success )
         UO.UseType( Blank )
         k = 0
         repeat
            k = k + 1
            wait(100)
         until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0 OR k > 600
         If UO.Mana < 45 Then
            repeat
               UO.UseSkill( 'Meditation' )
               wait(2000)
            until UO.Mana == UO.Int
         Endif
      Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0
   Wend
   UO.CancelMenu()
endsub

#####################################################################
; Крафтим разные поушены пока хватает ингридиентов или бутылок в паке.
; Выбор поушена осуществляется через меню.
; v.1.01b (c) Edred
sub AutoCraftPotion()
   DIM treagents[13], nampotion[13], nreagents[13], countregs[13]
   nampotion[1]  = 'greater agility'
   nreagents[1]  = 'blood moss'
   treagents[1]  = '0x0F7B'
   countregs[1]  = 3
   nampotion[2]  = 'greater cure'
   nreagents[2]  = 'garlic'
   treagents[2]  = '0x0F84'
   countregs[2]  = 6
   nampotion[3]  = 'greater explosion'
   nreagents[3]  = 'sulphorous ash'
   treagents[3]  = '0x0F8C'
   countregs[3]  = 10
   nampotion[4]  = 'greater heal'
   nreagents[4]  = 'ginseng'
   treagents[4]  = '0x0F85'
   countregs[4]  = 7
   nampotion[5]  = 'greater poison'
   nreagents[5]  = 'nightshade'
   treagents[5]  = '0x0F88'
   countregs[5]  = 8
   nampotion[6]  = 'greater strength'
   nreagents[6]  = 'mandrake root'
   treagents[6]  = '0x0F86'
   countregs[6]  = 5
   nampotion[7]  = 'total refresh'
   nreagents[7]  = 'black pearl'
   treagents[7]  = '0x0F7A'
   countregs[7]  = 5
   nampotion[8]  = 'shrink'
   nreagents[8]  = 'batwing'
   treagents[8]  = '0x0F78'
   countregs[8]  = 4
   nampotion[9]  = 'invisibility'
   nreagents[9]  = 'wyrm heart'
   treagents[9]  = '0x0F91'
   countregs[9]  = 18
   nampotion[10] = 'deadly poison'
   nreagents[10] = 'nightshade'
   treagents[10] = '0x0F88'
   countregs[10] = 16
   nampotion[11] = 'lava bomb'
   nreagents[11] = 'volcanic ash'
   treagents[11] = '0x0F8F'
   countregs[11] = 10
   nampotion[12] = 'total mana refresh'
   nreagents[12] = 'eye of newt'
   treagents[12] = '0x0F87'
   countregs[12] = 6
   VAR bottles = '0x0F0E'
   VAR i, menu1, j, SumPot = 0
   UO.CancelMenu()
   menu1 = ''
   For j = 1 To 11
      menu1 = menu1 + "'" + nampotion[j] + "'" + ";"
   Next
   menu1 = menu1 + "'" + nampotion[12] + "'"
   i = UO.asmInputCombo( "Выберите вид поушена:", menu1 )
   UO.Print( str(i) )
   If i == 0 Then
      UO.Print( 'Script terminated' )
      return
   Endif
   UO.Exec( "automenu 'What potion do you want' " + "'" + nampotion[i] +"'" )
   while UO.Count( bottles, '0x0000' ) > 0 AND UO.Count( treagents[i] ) >= countregs[i]
      UO.DeleteJournal()
      UO.UseType( treagents[i] )
      repeat
         wait(200)
      until UO.InJournal( "You put" ) OR UO.InJournal( "You toss the failed" )
      If UO.InJournal( "You put" ) Then
         SumPot = SumPot + 1
         UO.Print( 'I tossed ' + str( SumPot ) + ' potions' )
      Endif
   wend
   UO.Print( 'Script finished' )
   UO.CancelMenu()
endsub

#####################################################################
; CraftFishFat. Крафтим Fish Fat.
; v.1.00b (c) Edred
sub CraftFishFat()
   VAR Garlic = '0x0F84'          ; Тип гарлика
   VAR Steak = '0x097B'         ; Тип жареных стейков
   VAR Bottle = '0x0F0E'         ; Тип пустых бутылок
   VAR Fizzle = 'You toss the failed'
   VAR Success = 'You put'
   VAR k
   UO.CancelMenu()
   UO.AutoMenu( 'What potion do you want', 'The fish fat' )
   While TRUE
      If UO.Count( Garlic ) < 1 Then
         UO.Print( '1 Garlic not found. Script terminated' )
         return
      Endif
      If UO.Count( Steak ) < 100 Then
         UO.Print( '100 Steak not found. Script terminated' )
         return
      Endif
      If UO.Count( Bottle ) < 1 Then
         UO.Print( '1 Empty Bottle not found. Script terminated' )
         return
      Endif
      repeat
         DeleteJournal( Fizzle )
         DeleteJournal( Success )
         UO.UseType( Garlic )
         k = 0
         repeat
            k = k + 1
            wait(100)
         until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR UO.Count( Garlic ) < 1 OR UO.Count( Steak ) < 100 OR UO.Count( Bottle ) < 1 OR k > 600
      Until UO.Count( Garlic ) < 1 OR UO.Count( Steak ) < 100 OR UO.Count( Bottle ) < 1
   Wend
   UO.CancelMenu()
endsub

#####################################################################
; CraftRecallRune. Крафтим Fish Fat.
; v.1.00b (c) Edred
sub CraftRecallRune()
   VAR BPearl = '0x0F7A'          ; Тип black pearl
   VAR FishFat = '0x182B'         ; Тип жареных стейков
   VAR Bottle = '0x0F0E'         ; Тип пустых бутылок
   VAR Stone = '0x1BF2'         ; тип стоун бриков
   VAR Beeswax = '0x1423'         ; тип воска
   VAR RecallScroll = '0x1F4C'      ; тип рекалл скролла
   VAR MarkScroll = '0x1F59'      ; тип марк скролла
   VAR Fizzle = 'You toss the failed'
   VAR Success = 'You put'
   VAR k
   UO.CancelMenu()
   UO.AutoMenu( 'What potion do you want', 'recall rune' )
   While UO.Count(BPearl)>0 AND UO.Count(FishFat)>0 AND UO.Count(Bottle)>0 AND UO.Count(Stone)>9 AND UO.Count(Beeswax)>9 AND UO.Count(RecallScroll)>0 AND UO.Count(MarkScroll)>0
      DeleteJournal( Fizzle )
      DeleteJournal( Success )
      UO.UseType( BPearl )
      k = 0
      repeat
         k = k + 1
         wait(100)
      until UO.InJournal(Fizzle) OR UO.InJournal(Success) OR k>600 OR UO.Count(BPearl)==0 OR UO.Count(FishFat)==0 OR UO.Count(Bottle)==0 OR UO.Count(Stone)<10 OR UO.Count(Beeswax)<10 OR UO.Count(RecallScroll)==0 OR UO.Count(MarkScroll)==0
   Wend
   UO.CancelMenu()
endsub

#####################################################################
; Craft10Cleaver. v.1.00b (c) Edred
;
; В руки молоток и 100 айрона в пак (или больше). Будут сделаны 10 кливеров.
;
sub Craft10Cleaver() 
   VAR Iron = '0x1BEF'
   UO.CancelMenu()
   UO.IgnoreReset()
   UO.AutoMenu( 'Blacksmithing', 'Iron Tools' )
   UO.AutoMenu( 'Other Iron Weapon', 'cleaver' )
   VAR k, i
   i = 0
   repeat
      UO.DeleteJournal()
      UO.UseType( Iron )
      k = 0
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 150 )
         k = k + 1
         wait(100) 
      wend
      If UO.InJournal('You put') Then
         i = i + 1
      Endif
   until i == 10
   UO.IgnoreReset()
   UO.CancelMenu()
endsub

#####################################################################
; CraftBlankDeed. v.1.00b (c) Edred
;
sub CraftBlankDeed() 
   VAR Shkur = '0x1067'          ; Тип шкур
   VAR Vosk = '0x1423'          ; Тип воска
   VAR Kit = '0x0F9D'          ; Тип инструмента тейлора
   VAR j, ShkurSer, k, i
   VAR success = 'You put' 
   VAR fizzle = 'fail'
   UO.CancelMenu()
   UO.AutoMenu( "Leather", "Blank's" )
   UO.AutoMenu("Blank's", "blank deed" )
   While UO.Count( Shkur ) > 9 AND UO.Count( Vosk ) > 9
      DeleteJournal( success )
      DeleteJournal( fizzle )
      UO.FindType( Shkur )
      UO.WaitTargetObject( 'finditem' )
      UO.UseType( Kit )
      k = 0
      repeat
         k = k + 1
         wait(500)
      until UO.InJournal( success ) OR UO.InJournal( fizzle ) OR ( k > 30 )
   Wend
endsub

#####################################################################
; CookFish. v.1.05b (c) Edred
;
; Скрипт для жарки рыбных стейков из пака. Хворост также лежит в паке. 
;
; Берем из пака 1 шт хвороста, кладем в координаты TX, TY и зажигаем ее.
; Потом берем 1 шт. сырых стейков из пака и жарим
; на костре или углях. При этом перед жаркой проверяем, есть ли в
; вокруг чара огонь или угли. если есть жарим, иначе опять жгем костер.
; Готовый стейк остается в паке.
;
sub CookFish()
   VAR Hvorost = '0x0DE1'
   VAR Koster = '0x0DE3'
   VAR Ugli = '0x0DE9'
   VAR Fish = '0x097A'
   VAR FishGot = '0x097B'
   VAR SpiritTime = UO.Timer()
   VAR TX = 2042
   VAR TY = 378
   VAR i, flag
   UO.CancelTarget()
   UO.Exec( 'set finddistance 3' )
      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   While UO.Count( Fish ) > 0
# ----------------------------------
# блок запуска прокачки Spirit Speak
      If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
         ; Прошло 5 минут с момента последней прокачки Spirit Speak
         SpSpeak()
         SpiritTime = UO.Timer()
      Endif
# ----------------------------------
      UO.FindType( Hvorost )
      If UO.FindCount() == 0 Then
         UO.Print( 'No kindling found. Script terminated' )
         return
      Endif
      UO.MoveItem( 'finditem', '1', 'ground', str(TX), str(TY), str(UO.GetZ()) )
      wait(1000)
      CheckLag()
      UO.Findtype( Hvorost, '-1', '1' )
      If UO.FindCount() > 0 Then
         repeat
            UO.UseFromGround( Hvorost )
            wait(1000)
            UO.FindType( Koster, '-1', '1' )
         until UO.FindCount() > 0
         ; костер горит
         UO.UseSkill( 'Hiding' )
         wait(2000)
         flag = 1
         repeat
            ; теперь проверим не погас ли костер, не исчезли ли угли
            UO.FindType( Koster, '-1', '1' )
            If UO.FindCount() <> 0 Then
               ; еще горит костер - жарим на нем стейк
               If UseSteake( Fish, UO.GetSerial('finditem') ) Then
                  flag = 0
               Endif
               ; стейк готов
            Else
               UO.FindType( Ugli, '-1', '1' )
               If UO.FindCount() <> 0 Then
                  ; есть еще угли!
                  if UseSteake( Fish, UO.GetSerial('finditem') ) then
                     flag = 0
                  endif
               Else
                  flag = 0
               Endif
            Endif
         until flag == 0
      Endif
   Wend
endsub
;
Sub UseSteake( fish, koster )
   VAR msg1 = 'You burn the food'            ; физл
   VAR msg2 = 'You put the fish steak'         ; успех
   VAR msg22 = 'You put the fish steaks'      ; успех
   VAR msg3 = 'You must wait'               ; ждать
   VAR msg4 = "You can't see the target"
   repeat
      DeleteJournal (msg1 )
      DeleteJournal (msg2 )
      DeleteJournal (msg22 )
      DeleteJournal (msg3 )
      DeleteJournal (msg4 )
      UO.WaitTargetObject( 'finditem' )
      UO.UseType( Fish )
      repeat
         wait(500)
      until UO.InJournal(msg1) OR UO.InJournal(msg2) OR UO.InJournal(msg22) OR UO.InJournal(msg3) OR UO.InJournal(msg4)
      if UO.InJournal(msg4) then
         return 1
      endif
      if UO.InJournal(msg3) then
         wait(500)
      endif
   until UO.InJournal(msg2) OR UO.InJournal(msg22)
   return 0
endsub

#####################################################################
; TailorBlankScroll. v.1.00b (c) Edred
;
sub TailorBlankScroll()
   VAR Kozha = "0x1067"
   VAR Vosk = "0x1423"
   VAR Kit = "0x0F9D"
   VAR Scrol = "0x0E34"
   VAR k
   UO.CancelMenu()
   wait(500)
   UO.AutoMenu( "Leather", "Blank's" )
   UO.AutoMenu( "Blank's", "blank scroll" )
   While TRUE
      If UO.Count( Kozha ) == 0 Then
         UO.Print("Leathers not found, script terminated")
         return
      Endif
      If UO.Count( Vosk ) == 0 Then
         UO.Print("Beeswaxs not found, script terminated")
         return
      Endif
      UO.DeleteJournal()
      UO.WaitTargetType( Kozha )
      UO.UseType( Kit )
      k = 0
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
         k = k + 1
         wait(300) 
      wend
   Wend
   UO.CancelMenu()
end sub

#####################################################################
##########################               ############################
##########################   ПРОЦЕДУРЫ   ############################

#####################################################################
Sub GoHide()
   While not UO.Hidden() 
      UO.UseSkill('Hiding') 
      Wait(4000) 
   Wend
endsub

#####################################################################
Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

#####################################################################
; Spirit Speak v.1.00b (c) Edred
;
; Разовая прокачка спирит спика. Предназначена для вызова из других скриптов.
;
sub SpSpeak()
   VAR mod = UO.WarMode(), num
   VAR fizzle = 'You fail your attempt'
   VAR success = 'You establish a connection'
   UO.WarMode( 0 )
   DeleteJournal( success )
   repeat
      DeleteJournal( fizzle )
      UO.UseSkill( 'Spirit Speak' )
      num = 1
      repeat
         wait(100)
         num = num + 1
      until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR num > 600
   until UO.InJournal( success )
   UO.WarMode( mod )
endsub

[Edred]

Фигня какая-то под рукой оказалась...

Code: Select all

#===================================================================#
# SELLLOGS                                                          #
# Продажа логов вендорусту                                          #
#===================================================================#
#   v.1.02b (с) Edred                                               #
#===================================================================#
;
; Берем в пак 2000 логов и тут же, на базе, запускаем скрипт. Реги тоже
; на момент старта должны быть в паке. ГМ Медиты приветствуется :)
;
sub SellLogs()
   VAR vend = '0x00276549', vendname = 'Aiko', Logs = '0x1BDD'
   VAR Gold = '0x0EED', i, sunduk = '0x400FAF5F'
   DIM reg[2]
   reg[0] = '0x0F7B'               ; blood moss
   reg[1] = '0x0F86'               ; mandrake root
   reg[2] = '0x0F7A'               ; black pearl
   UO.Set( 'maxsell', '999' )
   UO.Set( 'distance', '3' )
   repeat
      Recalling( 'MyRunbook', '48' )
      wait(1000)
;      UO.UseSkill( 'Meditation' )
      ; проверка расстояния до вендора
      while UO.Count( Logs )
         repeat
            wait(300)
         until UO.GetDistance( vend ) < 2      
         UO.WaitTargetObject( vend )
         UO.Sell( 'logi', vendname )
         wait(1000)
         UO.SayU( '.sell' )
         wait(1000)
      wend
      Recalling( 'MyRunbook', '42' )
      wait(1000)
      UO.FindType( Gold )
      While UO.FindCount()
         UO.MoveItem( 'finditem', 0, sunduk )
         wait(1000)
         CheckLag()
         UO.FindType( Gold )
      Wend
      UO.FindType( Logs, '0x0000', sunduk )
      If UO.FindCount() Then
         UO.Grab( '2000', 'finditem' )
         wait(1000)
         CheckLag()
      Else
         return
      Endif
      If UO.Mana < 40 Then
         repeat
            UO.UseSkill( 'Meditation' )
            wait(2000)
         until UO.Mana > 90
      Endif
      for i = 0 to 2
         If UO.Count( reg[i] ) < 3 Then
            UO.FindType( reg[i], -1, sunduk )
            If UO.FindCount() == 0 Then
               return
            Endif
            If UO.GetQuantity( 'finditem' ) > 10 Then
               UO.Grab( '10', 'finditem' )
            Else
               UO.Grab( '0', 'finditem' )
            Endif
            wait(1000)
            CheckLag()
         Endif
      next
   until UO.Count(Logs) == 0 
endsub

#####################################################################
Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

#####################################################################
Sub Recalling( Runbk, NRune ) 
   ; Runbk - сериал или ссылка на объект рунбуки 
   ; NRune - десятичный номер (текстом) руны для реколла 
   VAR myx = UO.GetX()
   VAR myy = UO.GetY()
   VAR OldMana = UO.Mana
   VAR i = 0
   DeleteJournal( 'fizzles' )
   UO.Exec("recall " + Runbk + " " + NRune) 
   repeat
      CheckLag()
      wait(1000)
      i = i + 1
   until ( i > 6 ) OR ( UO.Mana < OldMana - 8 ) OR UO.InJournal( 'fizzles' )
   wait(500)
   If myx == UO.GetX() AND myy == UO.GetY() Then
      UO.WarMode( 'flip' ) 
      wait(100) 
      UO.WarMode( 'flip' )
      Recalling( Runbk, NRune ) 
   Endif
endsub

Sub GetWord( st, nom )
; Возвращает слово из строки str за номером num
; если такого слова нет - возвращаем ''
;
; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
;
   VAR tmpst
   VAR i, dlin, kol, start
   dlin = len( st )
   kol = 0
   start = 0
   For i=0 To dlin - 1
      If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
         kol = kol + 1
         If kol == nom Then
            ; это первый пробел после нужного нам слова
            tmpst = mid( st, start, i - start )
            return tmpst
         Else
            While mid( st, i, 1 ) == ' '
               i = i + 1
            Wend
            If kol == nom - 1 Then
               start = i
            Endif
         Endif
      Endif
   Next
   tmpst = ''
   return tmpst
endsub

[Edred]

Вот тут уже кое-что интересное, правда, не доведенное до ума. Но работает...

readme.txt

Code: Select all

Скрипт crafters.sc

Скрипт работает по двум файлам - базы данных и командного.

база данных - crafters.db
командный - crafters.go

База данных содержит описание всевозможных крафтов, в том числе
сложных, описанных на встроенном в скрипт языке.

Командный файл содержит список того, что необходимо скрафтить
после запуска скрипта с указанием количеств.

Оба файла текстовые.

Командный файл представляет из себя список условных названий
крафтов с указанием количеств:
...
fulloldcopper 5
fullrose 3
fullsilver 6
cleaver 10
...
то есть - скрафтить 5 полных арморов из олд купера и сложить их 
в соответствующие мешки, 3 фулл армора из розы, 6 фулл арморов из силвера
и 10 кливеров.

Весь крафт будет сложен в спецконтейнер (сундук).

Скрипт сам возьмет необходимый инструмент и материалы из соотвествующих
контейнеров в сундуке с ресурсами и инструментами на базе. Сериалы 
контейнеров прописаны в массиве в скрипте (в дальнейшем будут сделаны
в виде текстового файла).

Поддерживаются следующие скиллы: tailor, blacksmithing, carpentry, alchemy, 
tinker.

crafters.go

Code: Select all

;  Командный файл для АвтоКрафтера. Уберите комментарий с того
;  предмета(ов) / набора(ов), которые вы хотите скрафтить и измените
;  количество с 1 на то, которое вам необходимо.
;
; Охвачены скиллы - бс, тейлор, тинкер
;
;============================ Наборы арморов с щитами (BS)
; fulloldcopper 1
; fulldullcopper
; fullcopperarmor
; fullbronzearmor
; fullrosearmor 5
; fullgoldenarmor
; fullsilverarmor
; fullagapitearmor 4
; fullbloodrockarmor
;============================ Наборы арморов без щитов (BS)
; fullveritearmor
;============================ Щиты (BS)
; silverkite 10
; veriteheater
; valoriteheater
;============================ Валоритовое оружие (BS)
; valoritedagger
; valoritekryss
; valoritewarfork
; valoritepitchfork
; valoritewarmace
; valoritewarhammer
; valoritevikingsword
; valoritehalberd
;============================ Инструменты (BS, tinker)
; irondagger 30
; smithhammer
; cleaver
; scissors
; sewingkit
; tinkertools
; pickaxe 10
; mortar
; jointingplane
;============================ Бланки (Tailor)
; blankscroll 
blankdeed 20
;============================ Отмычки (tinker)
; veriterlockpick
; valoritelockpick
;============================ Топоры (tinker)
; hatchet
; ancienthatchet
; sturdyhatchet
; steelhatchet
;============================ Сундуки с ключами (tinker)
; ironchest
; dullcopperchest
; bronzechest
; goldenchest
; agapitechest
; veritechest
; valoritechest
;============================ House Parts (карпентер)
; housepart 10
; woodenhousepart 10
; plasterhousepart 3
; sandstonehousepart 3
; stonehousepart 4
; marblehousepart 6
;============================ Houses (карпентер)
; smallstoneplasterhouse 3
; smallstonehouse 1
; smallbrickhouse 1
; smallwoodhouse
; smallwoodplasterhouse 3
; smallwoodroofhouse 1
;
;============================ Walls (карпентер)
; sandstonewall 50
;

Продолжение в след посте

[Edred]

продолжение скрипта Crafters...

crafters.db

Code: Select all

; крафтим pickaxe
@pickaxe
#SKILL tinker
RESOURCE 0x1BEF color 0x0000 count 4 container ingots FOCUS
RESOURCE 0x1BDD color 0x0000 count 1 container logs
MENU "Tinkering", "Tools"
MENU "Tools", "pickaxe"
RESULT 0x0E85 color 0x0000 count 1
; крафтим iron dagger
@irondagger
#SKILL bs
RESOURCE 0x1BEF color 0x0000 count 3 container ingots FOCUS
MENU "Iron Fencing Weapons", "Iron Dagger"
RESULT 0x0F51 color 0x0000 count 1
; крафтим silver kite
@silverkite
#SKILL bs
RESOURCE 0x1BF5 color 0x0000 count 16 container ingots FOCUS
MENU "Blacksmithing", "Colored Armor"
MENU "Silver Armor", "Silver Shields"
MENU "Silver Shields", "Silver Kite Shield"
RESULT 0x1B74 color 0x05B2 count 1
; ===================================================================
; =================================================== СТЕНЫ И КАЛИТКИ
;
; ------------------------ Stone wall
;
@stonewall
#SKILL carpent
RESOURCE 0x1BF2 color 0x08FD count 100 container bricks FOCUS
MENU
MENU
RESULT
;
; ------------------------ Dark stone wall
;
@darkstonewall
#SKILL carpent
RESOURCE 0x1BF2 color 0x08FD count 100 container bricks FOCUS
MENU
MENU
RESULT
;
; ------------------------ Sandstone wall
;
@sandstonewall
#SKILL carpent
RESOURCE 0x1BF2 color 0x0031 count 100 container bricks FOCUS
MENU
MENU
RESULT
;
; ------------------------ Plaster wall
;
@plasterwall
#SKILL carpent
RESOURCE 0x1BF2 color 0x0032 count 100 container bricks FOCUS
MENU
MENU
RESULT
;
; ------------------------ Stone Gates
;
@stonegates
#SKILL tinker
RESOURCE 0x1BF2 color 0x08FD count 700 container bricks FOCUS
RESOURCE 0x1BEF color 0x0000 count 700 container ingots
RESOURCE 0x14EF color 0x0000 count 1  container blankdeeds
MENU
MENU
RESULT
;
; ------------------------ Dark Stone Gates
;
@darkstonegates
#SKILL tinker
RESOURCE 0x1BF2 color 0x08FD count 700 container bricks FOCUS
RESOURCE 0x1BEF color 0x0000 count 700 container ingots
RESOURCE 0x14EF color 0x0000 count 1  container blankdeeds
MENU
MENU
RESULT
;
; ------------------------ Sandstone Gates
;
@sandstonegates
#SKILL tinker
RESOURCE 0x1BF2 color 0x0031 count 700 container bricks FOCUS
RESOURCE 0x1BEF color 0x0000 count 700 container ingots
RESOURCE 0x14EF color 0x0000 count 1  container blankdeeds
MENU
MENU
RESULT
;
; ===================================================================
; ============================================================ ТЕЙЛОР
;
; ------------------------ Blank Deed
;
@blankdeed
#SKILL tailor
RESOURCE 0x1067 color 0 count 10 container leather FOCUS
RESOURCE 0x1423 color 0 count 10 container leather
MENU "Leather", "Blank's"
MENU "Blank's", "blank deed"
RESULT 0x14EF color 0x0000 count 1 
;
; ===================================================================
; ============================================================== ДОМА
;
; ------------------------ House Part
;
@housepart
#SKILL carpent
RESOURCE 0x1BEF color 0x0000 count 1000 container ingots FOCUS
MENU "Parts", "(2)"
; "House Part (1000 t_ingots)"
RESULT 0x14EF color 0x08FD count 1 
;
; ------------------------ Wooden House Part
;
@woodenhousepart
#SKILL carpent
RESOURCE 0x1BDD color 0x0000 count 1000 container logs FOCUS
MENU "Carpentry", "Houses & Parts"
MENU "Parts", "Wooden House Part"
RESULT 0x14EF color 0x0091 count 1 
;
; ------------------------ Plaster House Part
;
@plasterhousepart
#SKILL carpent
RESOURCE 0x1BF2 color 0x0032 count 1000 container bricks FOCUS
MENU "Carpentry", "Houses & Parts"
MENU "Parts", "Plaster House Part"
RESULT 0x14EF color 0x0032 count 1 
;
; ------------------------ Sandstone House Part
;
@sandstonehousepart
#SKILL carpent
RESOURCE 0x1BF2 color 0x0031 count 1000 container bricks FOCUS
MENU "Carpentry", "Houses & Parts"
MENU "Parts", "Sandstone House Part"
RESULT 0x14EF color 0x0030 count 1 
;
; ------------------------ Stone House Part
;
@stonehousepart
#SKILL carpent
RESOURCE 0x1BF2 color 0x08FD count 1000 container bricks FOCUS
MENU "Carpentry", "Houses & Parts"
MENU "Parts", "Stone House Part"
RESULT 0x14EF color 0x08FD count 1 
;
; ------------------------ Deed to a small stone and plaster house
;
@smallstoneplasterhouse
#SKILL carpent
RESOURCE 0x14EF color 0x0000 count 1 container blankdeeds FOCUS
RESOURCE 0x14EF color 0x08FD count 3 container blankdeeds
RESOURCE 0x14EF color 0x0091 count 3 container blankdeeds
MENU "Carpentry", "Houses & Parts"
MENU "Houses", "Deed to a small stone and plaster"
RESULT 0x2830 color 0x0000 count 1 
;
; ------------------------ Deed to a small stone house
;
@smallstonehouse
#SKILL carpent
RESOURCE 0x14EF color 0x0000 count 1 container blankdeeds FOCUS
RESOURCE 0x14EF color 0x08FD count 3 container blankdeeds
RESOURCE 0x14EF color 0x0091 count 3 container blankdeeds
MENU "Carpentry", "Houses & Parts"
MENU "Houses", "Deed to a small stone house"
RESULT 0x2830 color 0x0000 count 1 
;
; ------------------------ Deed to a small brick house
;
@smallbrickhouse
#SKILL carpent
RESOURCE 0x14EF color 0x0000 count 1 container blankdeeds FOCUS
RESOURCE 0x14EF color 0x08FD count 3 container blankdeeds
RESOURCE 0x14EF color 0x0091 count 3 container blankdeeds
MENU "Carpentry", "Houses & Parts"
MENU "Houses", "Deed to a small brick house"
RESULT 0x2830 color 0x0000 count 1 
;
; ------------------------ Deed to a small wood house
;
@smallwoodhouse
#SKILL carpent
RESOURCE 0x14EF color 0x0000 count 1 container blankdeeds FOCUS
RESOURCE 0x14EF color 0x08FD count 3 container blankdeeds
RESOURCE 0x14EF color 0x0091 count 3 container blankdeeds
MENU "Carpentry", "Houses & Parts"
MENU "Houses", "Deed to a small wood house"
RESULT 0x2830 color 0x0000 count 1 
;
; ------------------------ Deed to a small wood and plaster house
;
@smallwoodplasterhouse
#SKILL carpent
RESOURCE 0x14EF color 0x0000 count 1 container blankdeeds FOCUS
RESOURCE 0x14EF color 0x08FD count 3 container blankdeeds
RESOURCE 0x14EF color 0x0091 count 3 container blankdeeds
MENU "Carpentry", "Houses & Parts"
MENU "Houses", "Deed to a small wood and plaster"
RESULT 0x2830 color 0x0000 count 1 
;
; ------------------------ Deed to a small wood thatched roof house
;
@smallwoodroofhouse
#SKILL carpent
RESOURCE 0x14EF color 0x0000 count 1 container blankdeeds FOCUS
RESOURCE 0x14EF color 0x08FD count 3 container blankdeeds
RESOURCE 0x14EF color 0x0091 count 3 container blankdeeds
MENU "Carpentry", "Houses & Parts"
MENU "Houses", "Deed to a small wood thatched"
RESULT 0x2830 color 0x0000 count 1 
;
; ===================================================================
; ============================================================ АРМОРЫ
;
; ------------------------ Full Old Copper Armor
;
@fulloldcopper
; сначала мешок
#SKILL tailor
RESOURCE 0x1067 color 0 count 2 container leather FOCUS
MENU "Leather", "Bags for Armors"
MENU "Bags for Armors", "Full set of Old Copper armor"
RESULT 0x0E76 color 0x0590 count 1 
; эта команда показывает, что все следующее кладется в мешок выше
NEXTINBEGIN
; крафтим platemail (25 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0590 count 25 container ingots FOCUS
MENU "Old Copper Armor", "Old Copper Plate Mail"
MENU "Old Copper Plate Mail", "(1)"
RESULT 0x1415 color 0x0590 count 1
; крафтим gorget (10 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0590 count 10 container ingots FOCUS
MENU "Old Copper Armor", "Old Copper Plate Mail"
MENU "Old Copper Plate Mail", "(1)"
RESULT 0x1413 color 0x0590 count 1
; крафтим gauntlets (12 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0590 count 12 container ingots FOCUS
MENU "Old Copper Armor", "Old Copper Plate Mail"
MENU "Old Copper Plate Mail", "(2)"
RESULT 0x1414 color 0x0590 count 1
; крафтим helm (15 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0590 count 15 container ingots FOCUS
MENU "Old Copper Armor", "Old Copper Plate Mail"
MENU "Old Copper Plate Mail", "(3)"
RESULT 0x1412 color 0x0590 count 1
; крафтим legs (20 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0590 count 20 container ingots FOCUS
MENU "Old Copper Armor", "Old Copper Plate Mail"
MENU "Old Copper Plate Mail", "(4)"
RESULT 0x1411 color 0x0590 count 1
; крафтим arms (18 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0590 count 18 container ingots FOCUS
MENU "Old Copper Armor", "Old Copper Plate Mail"
MENU "Old Copper Plate Mail", "(4)"
RESULT 0x1410 color 0x0590 count 1
; крафтим heater (18 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0590 count 18 container ingots FOCUS
MENU "Old Copper Armor", "Old Copper Shields"
MENU "Old Copper Shields", "(5)"
RESULT 0x1B76 color 0x0590 count 1
NEXTINSTOP
;
; ------------------------ Full Agapite Armor
;
@fullagapitearmor
; сначала мешок
#SKILL tailor
RESOURCE 0x1067 color 0 count 2 container leather FOCUS
MENU "Leather", "Bags for Armors"
MENU "Bags for Armors", "Full set of Agapite armor"
RESULT 0x0E76 color 0x0682 count 1 
; эта команда показывает, что все следующее кладется в мешок выше
NEXTINBEGIN
; крафтим platemail (25 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0682 count 25 container ingots FOCUS
MENU "Agapite Armor", "Agapite Plate Mail"
MENU "Agapite Plate Mail", "(1)"
RESULT 0x1415 color 0x0682 count 1
; крафтим gorget (10 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0682 count 10 container ingots FOCUS
MENU "Agapite Armor", "Agapite Plate Mail"
MENU "Agapite Plate Mail", "(1)"
RESULT 0x1413 color 0x0682 count 1
; крафтим gauntlets (12 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0682 count 12 container ingots FOCUS
MENU "Agapite Armor", "Agapite Plate Mail"
MENU "Agapite Plate Mail", "(2)"
RESULT 0x1414 color 0x0682 count 1
; крафтим helm (15 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0682 count 15 container ingots FOCUS
MENU "Agapite Armor", "Agapite Plate Mail"
MENU "Agapite Plate Mail", "(3)"
RESULT 0x1412 color 0x0682 count 1
; крафтим legs (20 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0682 count 20 container ingots FOCUS
MENU "Agapite Armor", "Agapite Plate Mail"
MENU "Agapite Plate Mail", "(4)"
RESULT 0x1411 color 0x0682 count 1
; крафтим arms (18 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0682 count 18 container ingots FOCUS
MENU "Agapite Armor", "Agapite Plate Mail"
MENU "Agapite Plate Mail", "(4)"
RESULT 0x1410 color 0x0682 count 1
; крафтим heater (18 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x0682 count 18 container ingots FOCUS
MENU "Agapite Armor", "Agapite Shields"
MENU "Agapite Shields", "(5)"
RESULT 0x1B76 color 0x0682 count 1
NEXTINSTOP
;
;
; ------------------------ Full Verite Armor without Shield
;
@fullveritearmor
; сначала мешок
#SKILL tailor
RESOURCE 0x1067 color 0 count 2 container leather FOCUS
MENU "Leather", "Bags for Armors"
MENU "Bags for Armors", "Full set of Verite armor"
RESULT 0x0E76 color 0x07D1 count 1 
; эта команда показывает, что все следующее кладется в мешок выше
NEXTINBEGIN
; крафтим platemail (25 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x07D1 count 25 container ingots FOCUS
MENU "Verite Armor", "Verite Plate Mail"
MENU "Verite Plate Mail", "(1)"
RESULT 0x1415 color 0x07D1 count 1
; крафтим gorget (10 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x07D1 count 10 container ingots FOCUS
MENU "Verite Armor", "Verite Plate Mail"
MENU "Verite Plate Mail", "(1)"
RESULT 0x1413 color 0x07D1 count 1
; крафтим gauntlets (12 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x07D1 count 12 container ingots FOCUS
MENU "Verite Armor", "Verite Plate Mail"
MENU "Verite Plate Mail", "(2)"
RESULT 0x1414 color 0x07D1 count 1
; крафтим helm (15 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x07D1 count 15 container ingots FOCUS
MENU "Verite Armor", "Verite Plate Mail"
MENU "Verite Plate Mail", "(3)"
RESULT 0x1412 color 0x07D1 count 1
; крафтим legs (20 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x07D1 count 20 container ingots FOCUS
MENU "Verite Armor", "Verite Plate Mail"
MENU "Verite Plate Mail", "(4)"
RESULT 0x1411 color 0x07D1 count 1
; крафтим arms (18 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x07D1 count 18 container ingots FOCUS
MENU "Verite Armor", "Verite Plate Mail"
MENU "Verite Plate Mail", "(4)"
RESULT 0x1410 color 0x07D1 count 1
;
; ------------------------ Full Rose Armor
;
@fullrosearmor
; сначала мешок
#SKILL tailor
RESOURCE 0x1067 color 0 count 2 container leather FOCUS
MENU "Leather", "Bags for Armors"
MENU "Bags for Armors", "Full set of Rose armor"
RESULT 0x0E76 color 0x048C count 1 
; эта команда показывает, что все следующее кладется в мешок выше
NEXTINBEGIN
; крафтим platemail (25 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x048C count 25 container ingots FOCUS
MENU "Rose Armor", "Rose Plate Mail"
MENU "Rose Plate Mail", "(1)"
RESULT 0x1415 color 0x048C count 1
; крафтим gorget (10 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x048C count 10 container ingots FOCUS
MENU "Rose Armor", "Rose Plate Mail"
MENU "Rose Plate Mail", "(1)"
RESULT 0x1413 color 0x048C count 1
; крафтим gauntlets (12 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x048C count 12 container ingots FOCUS
MENU "Rose Armor", "Rose Plate Mail"
MENU "Rose Plate Mail", "(2)"
RESULT 0x1414 color 0x048C count 1
; крафтим helm (15 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x048C count 15 container ingots FOCUS
MENU "Rose Armor", "Rose Plate Mail"
MENU "Rose Plate Mail", "(3)"
RESULT 0x1412 color 0x048C count 1
; крафтим legs (20 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x048C count 20 container ingots FOCUS
MENU "Rose Armor", "Rose Plate Mail"
MENU "Rose Plate Mail", "(4)"
RESULT 0x1411 color 0x048C count 1
; крафтим arms (18 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x048C count 18 container ingots FOCUS
MENU "Rose Armor", "Rose Plate Mail"
MENU "Rose Plate Mail", "(4)"
RESULT 0x1410 color 0x048C count 1
; крафтим heater (18 ingots)
#SKILL bs
RESOURCE 0x1BEF color 0x048C count 18 container ingots FOCUS
MENU "Rose Armor", "Rose Shields"
MENU "Rose Shields", "(5)"
RESULT 0x1B76 color 0x048C count 1
NEXTINSTOP
;
@endoffile

[Edred]

продолжение скрипта Crafters...

structure_db.txt

Code: Select all

; Строка, начинающаяся с точки с запятой явлеется комментарием и при анализе
; файла игнорируется.
;
; ВНИМАНИЕ! Регистр ключевых слов важен! Соблюдайте его по описанию!
;
@fulldullcopper
; условное имя крафта. Строка должна начинаться с @ и не содержать более 
; одного слова. Это слово - условное название предмета крафта (или набора)
; Все строки после этой до следующей строки с @ или до конца файла считаются
; описанием последовательности крафта этого предмета.
#SKILL tailor
; условное название скилла, используемого при крафте. Возможные варианты:
; tailor, bs, carpent, alchemy, tinker
; возможность комбинировать скиллы для крафта предметов пока не предусмотрена
; (будет сделано в последующих версиях). Пока с команды #SKILL начинается
; блок крафта одного предмета. Если речь идет о крафте набора предметов - 
; команда #SKILL открывает блок крафта одного предмета из набора.
RESOURCE 0x1067 color 0 count 2 container leather
RESOURCE 0x1067 color 0 count 2 container leather FOCUS
; эта строка (или несколько таких строк должна идти непосредственно после
; строки с условным названием скилла. В каждой такой строке описан один
; вид ресурса, необходимого для крафта данного предмета. Структура этой
; строки жесткая: сначала идет ключевое слово RESOURCE, за ним через пробел
; type данного ресурса, потом через пробел ключевое слово color, через пробел
; параметр color (цвет) данного ресурса (если цвет не важен - 0), через
; пробел ключевое слово count, через пробел количество ресурса, необходимое
; для крафта одного экземпляра данного предмета, через пробел ключевое слово
; container, через пробел условное название контейнера, в котором содержится
; данный ресурс. Кроме того, в одной из строк с ресурсами должно быть в конце
; слово FOCUS. Это указание что прицел при крафте направляется на этот
; ресурс (или этот ресурс "используется" при крафте)
; Больше в данной строке никаких символов быть не должно.
; Возможные контейнеры: 'tools', 'colortools', 'blankdeeds', 'leather', 
; 'ingots', 'bricks', 'logs', 'elements', 'regs', 'bottles'
MENU "Leather", "Bags for Armors"
MENU "Bags for Armors", "Full set of Old Copper armor"
MENU "aaaaa", "bbbbbbb"
; Строки MENU (вторая и третья - если два или три уровня 
; меню крафта), указывают на выбор пунктов в меню крафта данного предмета. 
; Выбор пишется в двойных кавычках или просто цифрой без кавычек. 
; Сначала в строке идет название шапки меню, потом через запятую выбор 
; в данном меню. Если пункты выбора в меню имеют одинаковые названия - 
; пользуйтесь порядковыми номерами, записанными в скобках. ВНИМАНИЕ! При
; крафте предмета в пак берется только указанное выше количество ресурса,
; при переписывании пунктов меню делайте также, так как в зависимости от
; количества ресурсов в паке меню крафта видоизменяется.
; Эти строки (MENU) должны идти непосредственно (без учета 
; комментариев) после строк, начинающихся с ключевых слов RESOURCE.
RESULT 0x0E76 color 0x0590 count 1 
; Следующей строкой должна быть строка, начинающаяся с ключевого слова
; RESULT. Эта строка описывает результат крафта предмета (то есть сам 
; предмет). Структура строки жесткая, ключевые слова - по аналогии с 
; с строкой RESOURCE.
;
; При крафте наборов могут дополнительно использоваться две команды:
;
NEXTINBEGIN
; Следует непосредственно за строкой RESULT, в которой описан какой-либо
; контейнер (ящик, пак, мешок). Данная команда переназначает приемный
; контейнер для последующего крафта данного набора в этот контейнер.
; Если данной команды в базе данных нет - предмет сразу после крафта
; будет переложен в сундук для готовой продукции. Если данная команда
; встретилась - все предметы из данного набора, описания крафта которых
; следуют далее будут после крафта складываться в данный контейнер.
NEXTINSTOP
; Данная команда заканчивает действие предыдущей. Сразу после нее
; контейнер, в который складывался крафт, будет переложен в сундук
; для готовой продукции. Строка может идти только сразу после строки
; Result
;
; Пока больше возможных команд нет.

[Edred]

А вот и сам скрипт Crafters...

Crafters.sc

Code: Select all

#===================================================================#
# CRAFTERS. Craft from list.                                        #
#===================================================================#
#   v.1.04b (c) Edred                                               #
#===================================================================#
;
; Крафтим все что можно в заказанных количествах (включая наборы),
; складываем скрафченное в спецконтейнер. Список крафта содержится
; в файле crafters.go, база данных по крафту - в файле crafters.db.
; Чар на скрипте сам берет необходимые ресурсы и инструменты из
; сундуков и ящиков и мешков в этих сундуках. 
; Структура склада ресурсов и инструмента прописана через массив
; и в дальнейшем будет вынесена в файл.
; В структуре крафта предусмотрена возможность крафта контейнеров,
; в которые складываются остальные части крафта данного набора.
; База данных и список крафта - текстовые файлы. Список крафта
; представляет из себя перечень условных названий предметов (наборов)
; крафта и необходимых к крафту количеств:
; ...
; fulloldcopper 5
; fullrose 3
; fullsilver 6
; cleaver 10
; ...
; Файл базы данных представляет из себя описание крафта каждого
; возможного предмета или набора, структуированное по условным
; названиям крафтов. Описание крафта производится на специальном
; языке. Возможные команды этого языка (строки, начинающиеся
; с точки с запятой считаются комментариями и игнорируются) приведены
; в файле structure.db
;
; v.1.00b - пока без наборов. Простой крафт. Пишем и тестим.
;           пока только 1 скилл - бс.
;           Эта версия очень тупая - при физле сбрасывает меню и
;           снова его грузит - сделать в дальнейшем при физле только 
;           добор ресурсов если будет заметна потеря времени.
; v.1.01b - сделан сброс скрафченного в приемный контейнер. Пока только
;           в сундук, но сразу сделано через глобалку, чтобы легко
;           было переназначать.
; v.1.02b - делаем тейлор. Зодно делаем возможность брать 1 шт. ресурса из
;           неподъемной кучки.
; v.1.03b - добавляем наборы. То есть команды NEXTINBEGIN и NEXTINSTOP
; v.1.04b - добавляем скиллы tinker, carpentry, alchemy
;
; TO DO:    1. Морф перед крафтом, еда, подхилл чара (через команду в базе)
;           2. Отмена морфа (через команду в базе)
;           3. Возможность взять несколько некучкующихся штук ресурса
;           4. Контроль за кол-вом предметов в паке, возможность работы
;              с мешками с некучкующимися ресурсами (например сено)
;           5. Взятие из банка артефакта и использование его при крафте
;              в случае тейлора - надевание на себя)
;           6. Выкладывание инструментов обратно
;           7. Возможность крафта вне АМЗ (то есть процедурой добор регов,
;              реколл в реколл-зону, крафт и возврат обратно пешком
;              по узловым точкам. При этом крафтить сразу все необходимое
;              количество!
;           8. скиллы инскрипт, боукрафт
;           9. Перекладывание скрафченных предметов в контейнеры ресурсов
;              (сложный крафт)
;
sub Crafters()
   UO.SetGlobal( 'otladka', '0' )
   VAR mypath = "C:\Games\Injection\scripts\Crafters\"
   VAR DBFile = 'crafters.db'
   VAR GOFile = 'crafters.go'
   VAR Go1, What, HowMuch, HowInt, i, rez = 1
   ; Читаем файл что надо крафтить
   DBFile = mypath + DBFile
   GOFile = mypath + GOFile
   VAR f = File( GOFile )
   UO.SetGlobal( 'ContForResult', '' )
   UO.SetGlobal( 'LastResult', '' )
   UO.TextOpen()
   UO.TextClear()
   If NOT F.Open() Then
      UO.Print( 'File carfters.go not found!' )
   Endif
   tm(1)
   Repeat 
      tm(2)
      Go1 = Safecall F.ReadLn()
      If F.Eof() OR fatal error Then
         F.Close()
         return
      Endif
      tm(3)
      While left( Go1, 1 ) == ';'
         ; комментарий
         Go1 = Safecall F.ReadLn()
         If F.Eof() OR fatal error Then
            F.Close()
            return
         Endif
      Wend
      tm(4)
      What = GetWord( Go1, 1 )
      If What == '' Then
         F.Close()
         Return
      Endif
      HowMuch = GetWord( Go1, 2 )
      If HowMuch == '' Then
         HowInt = 1
      Else
         HowInt = val( HowMuch )
      Endif
      tm(5)
      For i = 1 To HowInt
         tm(6)
         rez = CraftItem( What, DBFile )
         tm(7)
         If rez == 0 Then
            F.Close()
            return
         Endif
      Next
      tm(8)
   until F.Eof() OR fatal error
   tm(9)
   F.Close()
   return
endsub
;
Sub GetWord( st, nom )
; Возвращает слово из строки str за номером num
; если такого слова нет - возвращаем ''
;
; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
;
   VAR tmpst
   VAR i, dlin, kol, start
   dlin = len( st )
   kol = 0
   start = 0
   For i=0 To dlin - 1
      If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
         kol = kol + 1
         If kol == nom Then
            ; это первый пробел после нужного нам слова
            tmpst = mid( st, start, i - start )
            return tmpst
         Else
            While mid( st, i, 1 ) == ' '
               i = i + 1
            Wend
            If kol == nom - 1 Then
               start = i
            Endif
         Endif
      Endif
   Next
   tmpst = ''
   return tmpst
endsub 
;
Sub FindSymb( symb, st )  
; найти первое вхождение символа в строке. Не найдено - вернем 0
   VAR dlin = len( st ) - 1
   VAR i
   For i = 0 To dlin
      If st[i] == symb Then
         return i + 1
      endif
   Next
   i = 0
   return i
endsub
;
Sub GetQuote( st, num )
; Вырезает и возвращает num-подстроку строки st, ограниченную с обоих 
; сторон кавычками без самих кавычек. Возвращаем пустую строку если ошибка
   VAR s = 0, i = 0, rt = ''
   VAR quot = '"'
   s = FindSymb( quot, st )
   If s > 0 Then
      i = i + 1
      st = right( st, len(st) - s )
      s = FindSymb( quot, st )
      If s == 0 Then
         return ''
      Endif
      If i == num   Then
         ; нашли начало нужной строки
         st = left( st, s - 1 )
         return st
      Else
         st = right( st, len(st) - s )
         rt = GetQuote( st, num - 1 )
         If rt == '' Then
            return ''
         Else
            return rt
         Endif
      Endif
   Endif
   return ''
endsub

Sub CraftItem( nam, DBFile )
; Скрафтить итем или набор, описанный в nam
; возвращаем 1 если успех, 0 - если кранты
;
; Ошибки: 001 - вместо строки SKILL идет конец файла
;         002 - отсутствие в нужном разделе базы данных строки SKILL
;         003 - вместо строки RESOURCE идет конец файла
;         004 - отсутствие в нужном разделе базы данных строки RESOURCE
;         005 - сразу после строки RESOURCE идет конец файла
;         006 - более 10 ресурсных строк
;         007 - отсутствие в нужном разделе базы данных строки MENU
;         008 - сразу после строки MENU идет конец файла
;         009 - более 3 строк меню
;         010 - отсутствие в нужном разделе базы данных строки RESULT
;     011-013 - ошибки распознавания строки ресурсов
;     014-017 - ошибки проверки параметров ресурсов
;     018-021 - ошибки взятия ресурсов
;         022 - неправильное название контейнера с ресурсом
;         023 - ошибка чтения названия скилла в массиве инструментов
;         024 - ошибка считывания фокуса
;         025 - отсутствие ресурса в паке при крафте (ошибка фокуса)
;         026 - ошибка чтения параметров меню из базы
;
    VAR str1, str2, flag = 0, str5, tmpstr, tmpstr2, vendcont
   VAR skill, result, packbegin, packend, i, cyclflag
   VAR F2 = File( DBFile )
   DIM res[11]            ; массив для записи ресурсных строк
   DIM menuhi[7]            ; массив для уровней меню (3 уровня)
   If NOT F2.Open() Then
      UO.Print( 'File carfters.db not found!' )
   Endif
   ; откроем на экране и назначим переменную для приемного контейнера
   ; (по умолчанию - vendcont)
   vendcont = OpenContainer( 'vendor' )
   If vendcont == '0' Then
      UO.Print( 'Containers for result of crafts not found!' )
      return 0
   Endif
   tm(10)
   Repeat 
      str1 = Safecall F2.ReadLn()
      If left( str1, 1 ) == '@' Then
         str1 = right( str1, len( str1 ) - 1 )
         str1 = GetWord( str1, 1 )
         If str1 == nam Then
            tm(11)
            ; Нашли нужную нам секцию
            flag = 1
            str1 = Safecall F2.ReadLn()
            repeat
               ;
               ; SKILL
               ; --------------------------------------
               ; строка записывается в переменную skill
               ;
               If F2.Eof() OR fatal error Then
                  UO.Print( 'Error of reading database. N 001' )
                  F2.Close()
                  return 0
               Endif
               # ----- Проверка на комментарий
               While left( str1, 1 ) == ';'
                  ; комментарий
                  str1 = Safecall F2.ReadLn()
                  If F2.Eof() OR fatal error Then
                     UO.Print( 'Error of reading database. N 001' )
                     F2.Close()
                     return 0
                  Endif
               Wend
               # -----
               str2 = GetWord( str1, 1 )
               If str2 <> '#SKILL' Then
                  UO.Print( 'Error of reading database. N 002' )
                  F2.Close()
                  return 0
               Endif
               skill = GetWord( str1, 2 )
               tm(12)
               ;
               ; RESOURCE
               ; --------------------------------------
               ; строки записывается в массив res начиная с 1 до 10,
               ; ненужные строки и нулевая - пустые.
               ;
               cyclflag = 0
               ClearMassiv( res, 10 )         ; очистим массив
               i = 1
               str1 = Safecall F2.ReadLn()
               If F2.Eof() OR fatal error Then
                  UO.Print( 'Error of reading database. N 003' )
                  F2.Close()
                  return 0
               Endif
               # ----- Проверка на комментарий
               While left( str1, 1 ) == ';'
                  ; комментарий
                  str1 = Safecall F2.ReadLn()
                  If F2.Eof() OR fatal error Then
                     UO.Print( 'Error of reading database. N 003' )
                     F2.Close()
                     return 0
                  Endif
               Wend
               # -----
               str2 = GetWord( str1, 1 )
               If str2 <> 'RESOURCE' Then
                  UO.Print( 'Error of reading database. N 004' )
                  F2.Close()
                  return 0
               Endif
               tm(13)
               repeat
                  ; цикл чтения ресурсов
                  res[i] = str1
                  i = i + 1
                  str1 = Safecall F2.ReadLn()
                  If F2.Eof() OR fatal error Then
                     UO.Print( 'Error of reading database. N 005' )
                     F2.Close()
                     return 0
                  Endif
                  # ----- Проверка на комментарий
                  While left( str1, 1 ) == ';'
                     ; комментарий
                     str1 = Safecall F2.ReadLn()
                     If F2.Eof() OR fatal error Then
                        UO.Print( 'Error of reading database. N 005' )
                        F2.Close()
                        return 0
                     Endif
                  Wend
                  # -----
                  str2 = GetWord( str1, 1 )
                  If str2 <> 'RESOURCE' Then
                     ; строки ресурсов кончились
                     cyclflag = 1
                  Else
                     If i > 10 Then
                        ; ресурсных строк больше 10
                        UO.Print( 'Error of reading database. N 006' )
                        F2.Close()
                        return 0
                     Endif
                  Endif
               until cyclflag
               tm(14)
               ;
               ; MENU
               ; --------------------------------------
               ; выбор записывается в массив menuhi
               ;
               cyclflag = 0
               ClearMassiv( menuhi, 6 )         ; очистим массив
               i = 1
               # ----- Проверка на комментарий
               While left( str1, 1 ) == ';'
                  ; комментарий
                  str1 = Safecall F2.ReadLn()
                  If F2.Eof() OR fatal error Then
                     UO.Print( 'Error of reading database. N 005' )
                     F2.Close()
                     return 0
                  Endif
               Wend
               # -----
               tm(15)
               str2 = GetWord( str1, 1 )
               If str2 <> 'MENU' Then
                  UO.Print( 'Error of reading database. N 007' )
                  F2.Close()
                  return 0
               Endif
               repeat
                  ; цикл чтения меню
                  tmpstr = right( str1, len(str1) - 5 )
                  menuhi[i] = GetQuote( tmpstr, 1 )
                  i = i + 1
                  menuhi[i] = GetQuote( tmpstr, 2 )
                  i = i + 1
                  str1 = Safecall F2.ReadLn()
                  If F2.Eof() OR fatal error Then
                     UO.Print( 'Error of reading database. N 008' )
                     F2.Close()
                     return 0
                  Endif
                  # ----- Проверка на комментарий
                  While left( str1, 1 ) == ';'
                     ; комментарий
                     str1 = Safecall F2.ReadLn()
                     If F2.Eof() OR fatal error Then
                        UO.Print( 'Error of reading database. N 008' )
                        F2.Close()
                        return 0
                     Endif
                  Wend
                  # -----
                  str2 = GetWord( str1, 1 )
                  If str2 <> 'MENU' Then
                     ; строки ресурсов кончились
                     cyclflag = 1
                  Else
                     If i > 7 Then
                        ; строк меню больше 3
                        UO.Print( 'Error of reading database. N 009' )
                        F2.Close()
                        return 0
                     Endif
                  Endif
               until cyclflag
               tm(16)
               ;
               ; RESULT
               ; --------------------------------------
               ; строка записывается в переменную result
               ;
               # ----- Проверка на комментарий
               While left( str1, 1 ) == ';'
                  ; комментарий
                  str1 = Safecall F2.ReadLn()
                  If F2.Eof() OR fatal error Then
                     UO.Print( 'Error of reading database. N 008' )
                     F2.Close()
                     return 0
                  Endif
               Wend
               # -----
               str2 = GetWord( str1, 1 )
               If str2 <> 'RESULT' Then
                  UO.Print( 'Error of reading database. N 010' )
                  F2.Close()
                  return 0
               Endif
               result = GetWord( str1, 2 ) + ' ' + GetWord( str1, 4 ) + ' ' + GetWord( str1, 6 ) + ' '
               tm(17)
               ;
               ;============================================
               ; Крафтим конкретную описанную вещь
               ;
               If NOT CraftOfIt( skill, result, res, menuhi ) Then
                  tm(18)
                  F2.Close()
                  return 0
               Endif
               ;
               ;============================================
               ;
               str1 = Safecall F2.ReadLn()
               # ----- Проверка на комментарий
               While left( str1, 1 ) == ';'
                  ; комментарий
                  str1 = Safecall F2.ReadLn()
                  If F2.Eof() OR fatal error Then
                     F2.Close()
                     return 999
                  Endif
               Wend
               # -----
               str2 = GetWord( str1, 1 )
               If str2 == 'NEXTINBEGIN' OR str2 == 'NEXTINSTOP' Then
                  tm(990)
                  ;
                  ; NEXTINBEGIN или NEXTINSTOP
                  ;
                  If str2 == 'NEXTINBEGIN' Then
                     tm(991)
                     If UO.GetGlobal( 'LastResult' ) <> '' Then
                        ; если глобалка пустая - переназначать не на что
                        UO.SetGlobal( 'ContForResult', UO.GetGlobal( 'LastResult' ) )
                     Endif
                  Else
                     tm(992)
                     vendcont = OpenContainer( 'vendor' )
                  Endif
                  ;
                  str1 = Safecall F2.ReadLn()
                  # ----- Проверка на комментарий
                  While left( str1, 1 ) == ';'
                     ; комментарий
                     str1 = Safecall F2.ReadLn()
                     If F2.Eof() OR fatal error Then
                        F2.Close()
                        return 999
                     Endif
                  Wend                  
               Endif
               If left( str1, 1 ) == '@' Then
                  flag = 0
               Endif
                until flag == 0
            F2.Close()
            return 1
         Endif
      Endif
   until F2.Eof() OR fatal error
   UO.Print( 'Your keyword not found in database!' )
   F2.Close()
   return 0
endsub
;
Sub ClearMassiv( res, mx )
   VAR i
   For i = 0 To mx
      res[i] = ''
   Next
endsub
;
Sub CraftOfIt( skill, result, res, menuhi )
; В этих двух переменных и 2 массивах все что нам нужно для крафта одной
; конкретной вещи. Это эта фунция и делает. С взятием ресурсов, инструментов
; и учетом физлов.
;
   VAR maxres = 10
   VAR maxmenuhi = 6
   VAR i, success, focus, j = 0, tmpres
   ;
   tm(20)
   success = 0
   ; проверим массив меню
   for i = 1 To maxmenuhi
      If menuhi[i] == '' Then
         tm(21)
         j = i
         i = maxmenuhi
      Endif
   Next
   tm(22)
   If j <> 0 Then
      If j == 5 Then
         ; 2 уровня меню
         maxmenuhi = 4
         tm(23)
      Else
         If j == 3 Then
            ; 1 уровень меню
            maxmenuhi = 2
            tm(24)
         Else
            UO.Print( 'Error of reading database. N 026' )
            tm(25)
            return 0
         Endif
      Endif
   Endif
   ; здесь надо бы вставить проверочку переменной result, она должна
   ; быть вида '0x1414 0x0590 1', где первое число - тип, второе - цвет,
   ; третье - кол-во
   ;
   ; СДЕЛАТЬ В СЛЕД ВЕРСИИ!!!!!
   ;
   tm(26)
   repeat
      For i = 1 To maxres
         tm(27)
         if res[i] <> '' then
            tm(28)
            tmpres = res[i]
            If NOT GetResource( tmpres ) Then      ; взять в пак ресурс
               Return 0
            Endif
         Endif
      Next
      tm(29)
      If GetInstrument( skill ) == 0 Then
         return  0
      Endif
      tm(30)
      focus = ReadFocus( res, maxres )         ; на что прицел
      tm(31)
       If skill == 'tailor' Then
         success = MakeTailor( menuhi, maxmenuhi, focus, result )
         tm(32)
      Endif
      tm(33)
       If skill == 'bs' Then
         success = MakeBS( menuhi, maxmenuhi, focus, result )
         tm(34)
      Endif
       If skill == 'carpent' Then
         success = MakeCarpent( menuhi, maxmenuhi, focus, result )
      Endif
       If skill == 'alchemy' Then
         success = MakeAlchemy( menuhi, maxmenuhi, focus, result )
      Endif
       If skill == 'tinker' Then
         success = MakeTinker( menuhi, maxmenuhi, focus, result )
      Endif
      If Success == 999 Then
         return 0 
      Endif
   until success <> 0
   ; Перекладываем эту вещь (result) из пака в приемный контейнер   
   ;
   ; ПОКА СЧИТАЕМ КОЛ-ВО КАК 1
   ;
   UO.FindType( GetWord(result, 1), GetWord(result, 2) )
   If UO.FindCount() == 0 Then
      ; эх, что-то не то в датском королевстве... Ведь успешно скрафтили, а вещи нету!
      UO.Print( 'Error of script! Unknown type of result!' )
      return 0
   Else
      ; На всяк случай запомним серийник последнего скрафченного предмета...
      ; запомним в глобальной переменной. Потому что вдруг он будет объявлен приемным
      ; контейнером в дальнейшем...
      UO.SetGlobal( 'LastResult', UO.GetSerial( 'finditem' ) )
      UO.MoveItem( 'finditem', 0, UO.GetGlobal( 'ContForResult' ) )
      wait(1000)
      CheckLag()
   Endif
   return 1
endsub
;
Sub GetResource( str1 )
;
; Берем ресурсы по строке (точнее проверяем и добираем)
; Возвращаем 1, если взяли, 0, если ошибка
;
; RESOURCE 0x1067 color 0 count 2 container leather
; RESOURCE 0x1067 color 0 count 2 container leather FOCUS
   VAR typ, col, cnt, cont, tmp, tmplen, cntval, tmplen2
   typ = GetWord( str1, 2 )
   tmp = GetWord( str1, 3 )
   tm(100)
   If tmp <> 'color' Then
      UO.Print( 'Error of reading database. N 011' )
      return 0
   Endif
   col = GetWord( str1, 4 )
   tmp = GetWord( str1, 5 )
   tm(101)
   If tmp <> 'count' Then
      UO.Print( 'Error of reading database. N 012' )
      return 0
   Endif
   cnt = GetWord( str1, 6 )
   tmp = GetWord( str1, 7 )
   If tmp <> 'container' Then
      UO.Print( 'Error of reading database. N 013' )
      return 0
   Endif
   cont = GetWord( str1, 8 )
   tm(102)
   ; проверим "правильность" переменных
   tmplen = len( typ )
   If tmplen < 6 OR tmplen > 6 Then
      UO.Print( 'Error of reading database. N 014' )
      return 0
   Endif
   tm(103)
   tmplen = len( cnt )
   If tmplen < 1 OR tmplen > 4 Then
      UO.Print( 'Error of reading database. N 015' )
      return 0
   Endif
   tm(104)
   tmplen = len( cont )
   If tmplen == 0 OR cont == 'FOCUS' Then
       UO.Print( 'Error of reading database. N 016' )
      return 0
   Endif
   tm(105)
   cntval = val( cnt )
   If cntval == 0 Then
       UO.Print( 'Error of reading database. N 017' )
      return 0
   Endif
   tm(106)
   ; Работаем
   If col <> '0' Then
      tm(1071)
      tmplen2 = UO.Count( typ, col )
      If tmplen2 < cntval Then
         tm(1072)
         tmplen = cntval - tmplen2
         cont = OpenContainer( cont )
         If cont == '0' Then
            return 0
         Endif
         UO.FindType( typ, col, cont )
         If UO.FindCount() == 0 Then
             UO.Print( 'Error of reading database. N 018' )
            return 0
         Else
            If UO.GetQuantity( 'finditem' ) < tmplen Then
                UO.Print( 'Error of reading database. N 019' )
               return 0
            Endif
         Endif
         ; ================================
         ; Здесь надо вставить защиту от попыток перетащить 1 шт. из очень
         ; тяжелой кучки!!!
         ;
         If tmplen > 1 Then
            UO.Grab( str(tmplen), 'finditem' )
         Else
            UO.Grab( '3', 'finditem' )
            repeat
               wait(100)
            until UO.Count( typ, col ) == tmplen2 + 3
            CheckLag()
            UO.FindType( typ, col )
            UO.MoveItem( 'finditem', '2', cont )
            repeat
               wait(100)
            until UO.Count( typ, col ) == cntval
         Endif
      Endif
   Else
      tm(1072)
      tmplen2 = UO.Count( typ )
      If  tmplen2 < cntval Then
         tmplen = cntval - tmplen2
         cont = OpenContainer( cont )
         UO.FindType( typ, -1, cont )
         If UO.FindCount() == 0 Then
             UO.Print( 'Error of reading database. N 020' )
            return 0
         Else
            If UO.GetQuantity( 'finditem' ) < tmplen Then
                UO.Print( 'Error of reading database. N 021' )
               return 0
            Endif
         Endif
         ; ================================
         ; Здесь надо вставить защиту от попыток перетащить 1 шт. из очень
         ; тяжелой кучки!!!
         ;
         If tmplen > 1 Then
            UO.Grab( str(tmplen), 'finditem' )
         Else
            UO.Grab( '3', 'finditem' )
            repeat
               wait(100)
            until UO.Count( typ ) == tmplen2 + 3
            CheckLag()
            UO.FindType( typ )
            UO.MoveItem( 'finditem', '2', cont )
            repeat
               wait(100)
            until UO.Count( typ ) == cntval
         Endif
      Endif
   Endif
   return 1
endsub
;
Sub OpenContainer( cont )
;
; Получаем условное название контейнера, открываем его на экране,
; возвращаем его сериал
;
; Структура простая: есть сундук commonbox, в котором куча всяких
; ящичков, боксов, паков, мешков с ресурсами и один из них с инструментом
;
   VAR commonbox = '0x40069CB2'   ; Сундук с ящиками и паками с ресурсами
   DIM boxes[11]
   boxes[0]  = 'tools 0x404300A0 '
   boxes[1]  = 'colortools 0x40246639 '
   boxes[2]  = 'blankdeeds 0x4042FB6D '
   boxes[3]  = 'leather 0x404325E6 '
   boxes[4]  = 'ingots 0x404327A2 '
   boxes[5]  = 'bricks 0x401A1AB7 '
   boxes[6]  = 'logs 0x402CE89F '
   boxes[7]  = 'elements 0x4042F09C '
   boxes[8]  = 'regs 0x40430813 '
   boxes[9]  = 'bottles 0x403C91EF '
   boxes[10] = 'vendor 0x4008EE64 '
   VAR box = '', i, tmp

   For i = 0 To 10
      tmp = GetWord( boxes[i], 1 )
      If tmp == cont Then
         box = GetWord( boxes[i], 2 )
      Endif
   Next
   If box == '' Then
      UO.Print( 'Error of reading database. N 022: ' + cont )
      return '0'
   Endif
   UO.UseObject( commonbox )
   wait(1000)
   CheckLag()
   UO.UseObject( box )
   wait(1000)
   CheckLag()
   If cont == 'vendor' Then
      UO.SetGlobal( 'ContForResult', box )
   Endif
   return box
endsub
;
Sub GetInstrument( skill )
;
; Берем нужный инструмент. Пока сделан только один вариант инструмента
; для каждого скилла. Также не сделан цветной инструмент
;
   DIM instr[5]
   instr[0] = 'tailor 0x0F9D '
   instr[1] = 'bs 0x13E3 '
   instr[2] = 'carpent 0x1030 '
   instr[3] = 'alchemy 0x0E9B '
   instr[4] = 'tinker 0x1EBC '
   VAR sunduk = OpenContainer( 'tools' )
   VAR i, typ = '', tmp

   For i = 0 To 4
      tmp = GetWord( instr[i], 1 )
      If tmp == skill Then
         typ = GetWord( instr[i], 2 )
      Endif
   Next
   If typ == '' Then
      UO.Print( 'Error of reading database. N 023: ' + skill )
      return 0
   Endif
   If UO.Count( typ ) > 0 Then
      ; в паке или руках есть такой инструмент
      return 1
   Else
      UO.FindType( typ, -1, sunduk )
      If UO.FindCount() == 0 Then
         UO.Print( 'I cannot find the instrument... type = ' + typ )
         return 0
      Endif
      UO.Grab( '0', 'finditem' )
      wait(1000)
      CheckLag()
   Endif
   return 1
endsub
;
Sub ReadFocus( res, razmer )
;
; Считываем из массива ресурсов на каком типе ресурсов фокус
;
; RESOURCE 0x1067 color 0 count 2 container leather
; RESOURCE 0x1067 color 0 count 2 container leather FOCUS
   VAR i, tmpword = '', tmpfocus = ''

   For i = 1 To razmer
      If res[i] <> '' Then
         tmpword = GetWord( res[i], 9 )
         If tmpword == 'FOCUS' Then
            tmpfocus = GetWord( res[i], 2 ) + ' ' + GetWord( res[i], 4 ) + ' '
         Endif
      Endif
   Next
   If tmpfocus == '' Then
      UO.Print( 'Error of reading database. N 024' )
      return 0
   Endif
   ;
   ; Вернем ресурс на котором фокус. Это описание вида:
   ; '0x1067 0x0000 ', где первое число - тип, второе - цвет
   ;
   return tmpfocus
endsub
;
Sub CheckInstrum( lay, typ )
;
; Убедимся что на указанном слое есть такой тип, если нет - найдем в паке
; (точно есть) и возьмем на указанный слой
;
   If UO.GetGraphic( UO.ObjAtLayer( lay ) ) <> typ Then
      UO.UnEquip( lay )
      wait(1000)
      CheckLag()
      UO.Equipt( lay, typ )
      repeat
         wait(100)
      until UO.GetGraphic( UO.ObjAtLayer( lay ) ) == typ
   Endif
endsub
;
Sub MakeBS( menuhi, razmer, focus, result )
;
; Крафтим вещь указанным скиллом. Необходимые ресурсы в паке, инструмент 
; там же. Если успешно - возвращаем 1, если физл - 0
;
   VAR success = 'You put'
   VAR fizzle = 'You have failed'
   VAR instrum = '0x13E3'
   VAR i, k, tmpmenu
   ; при БС берем в руки инструмент, потом дважды щелкаем (используем)
   ; металл (фокус)
   CheckInstrum( 'Rhand', instrum )
   DeleteJournal( success )
   DeleteJournal( fizzle )
   UO.CancelMenu()
   If razmer == 2 Then
      UO.WaitMenu( menuhi[1], menuhi[2] )
   Else
      If razmer == 4 Then
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4] )
      Else
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4], menuhi[5], menuhi[6] )
      Endif
   Endif

   If GetWord( focus, 2 ) == '0' Then
      UO.FindType( GetWord( focus, 1 ) )
   Else
      UO.FindType( GetWord( focus, 1 ), GetWord( focus, 2 ) )
   Endif
   If UO.FindCount() == 0 Then
      UO.CancelMenu()
      UO.Print( 'Error of crafting. N 025' )
      return 999
   Endif
   UO.UseObject( 'finditem' )
   k = 1
   repeat
      wait(100)
      k = k + 1
   until UO.InJournal( success ) OR UO.InJournal( fizzle ) OR k > 600
;   UO.CancelMenu()
   If UO.InJournal( success ) Then
      return 1
   Endif
   return 0
endsub
;
Sub MakeTailor( menuhi, razmer, focus, result )
;
; Крафтим вещь указанным скиллом. Необходимые ресурсы в паке, инструмент 
; там же. Если успешно - возвращаем 1, если физл - 0
;
   VAR success = 'You put'
   VAR fizzle = 'fail'
   VAR instrum = '0x0F9D'
   VAR i, k, tmpmenu
   ; при тейлоре дважды щелкаем (используем) инструмент в паке и 
   ; на кожу (фокус)
   DeleteJournal( success )
   DeleteJournal( fizzle )
   UO.CancelMenu()
   If razmer == 2 Then
      UO.WaitMenu( menuhi[1], menuhi[2] )
   Else
      If razmer == 4 Then
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4] )
      Else
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4], menuhi[5], menuhi[6] )
      Endif
   Endif
   If GetWord( focus, 2 ) == '0' Then
      UO.FindType( GetWord( focus, 1 ) )
   Else
      UO.FindType( GetWord( focus, 1 ), GetWord( focus, 2 ) )
   Endif
   If UO.FindCount() == 0 Then
      UO.CancelMenu()
      UO.Print( 'Error of crafting. N 025' )
      return 999
   Endif
   UO.WaitTargetObject( 'finditem' )
   UO.UseType( instrum )
   k = 1
   repeat
      wait(100)
      k = k + 1
   until UO.InJournal( success ) OR UO.InJournal( fizzle ) OR k > 600
;   UO.CancelMenu()
   If UO.InJournal( success ) Then
      return 1
   Endif
   return 0
endsub
;
Sub MakeCarpent( menuhi, razmer, focus, result )
;
; Крафтим вещь указанным скиллом. Необходимые ресурсы в паке, инструмент 
; там же. Если успешно - возвращаем 1, если физл - 0
;
   VAR success = 'You put'
   VAR fizzle = 'fail'
   VAR instrum = '0x1030'
   VAR i, k, tmpmenu
   ; при карпентри дважды щелкаем (используем) инструмент в паке 
   DeleteJournal( success )
   DeleteJournal( fizzle )
   UO.CancelMenu()
   If razmer == 2 Then
      UO.WaitMenu( menuhi[1], menuhi[2] )
   Else
      If razmer == 4 Then
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4] )
      Else
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4], menuhi[5], menuhi[6] )
      Endif
   Endif
   UO.UseType( instrum )
   k = 1
   repeat
      wait(100)
      k = k + 1
   until UO.InJournal( success ) OR UO.InJournal( fizzle ) OR k > 600
;   UO.CancelMenu()
   If UO.InJournal( success ) Then
      return 1
   Endif
   return 0
endsub
;
Sub MakeAlchemy( menuhi, razmer, focus, result )
;
; Крафтим вещь указанным скиллом. Необходимые ресурсы в паке, инструмент 
; там же. Если успешно - возвращаем 1, если физл - 0
;
   VAR success = 'You put'
   VAR fizzle = 'fail'
   VAR i, k, tmpmenu
   ; при алхимии дважды щелкаем (используем) ресурс фокуса 
   DeleteJournal( success )
   DeleteJournal( fizzle )
   UO.CancelMenu()
   If razmer == 2 Then
      UO.WaitMenu( menuhi[1], menuhi[2] )
   Else
      If razmer == 4 Then
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4] )
      Else
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4], menuhi[5], menuhi[6] )
      Endif
   Endif
   If GetWord( focus, 2 ) == '0' Then
      UO.FindType( GetWord( focus, 1 ) )
   Else
      UO.FindType( GetWord( focus, 1 ), GetWord( focus, 2 ) )
   Endif
   If UO.FindCount() == 0 Then
      UO.CancelMenu()
      UO.Print( 'Error of crafting. N 025' )
      return 999
   Endif
   UO.UseObject( 'finditem' )
   k = 1
   repeat
      wait(100)
      k = k + 1
   until UO.InJournal( success ) OR UO.InJournal( fizzle ) OR k > 600
;   UO.CancelMenu()
   If UO.InJournal( success ) Then
      return 1
   Endif
   return 0
endsub
;
Sub MakeTinker( menuhi, razmer, focus, result )
;
; Крафтим вещь указанным скиллом. Необходимые ресурсы в паке, инструмент 
; там же. Если успешно - возвращаем 1, если физл - 0
;
   VAR success = 'You put'
   VAR fizzle = 'fail'
   VAR instrum = '0x1EBC'
   VAR i, k, tmpmenu
   ; при тинкере дважды щелкаем (используем) инструмент в паке 
   DeleteJournal( success )
   DeleteJournal( fizzle )
   UO.CancelMenu()
   If razmer == 2 Then
      UO.WaitMenu( menuhi[1], menuhi[2] )
   Else
      If razmer == 4 Then
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4] )
      Else
         UO.WaitMenu( menuhi[1], menuhi[2], menuhi[3], menuhi[4], menuhi[5], menuhi[6] )
      Endif
   Endif
   UO.UseType( instrum )
   k = 1
   repeat
      wait(100)
      k = k + 1
   until UO.InJournal( success ) OR UO.InJournal( fizzle ) OR k > 600
;   UO.CancelMenu()
   If UO.InJournal( success ) Then
      return 1
   Endif
   return 0
endsub

#####################################################################
Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

#####################################################################
Sub tm( nom1 )
   If UO.GetGlobal( 'otladka' ) == '1' Then
      UO.TextPrint( 'TEST. Step number ' + str( nom1 ) )
   Endif
endsub

[Edred]

ЗЫ: В последнем скрипте планировалось, как помнится, перевести список на менюшку в дельфи, саму менюшку сделал, но не подключил к скрипту...

Продолжение следует, еще много скриптов, но не счас, устал малость...

[Edred]

AutoJail.sc

Code: Select all

#####################################################################
; Скрипт на автособирание навоза на конюшне. Скрипт работает по маршруту,
; прописываемому в строковую переменную JailPatch.
; В этой строке перечисляются через пробел координаты точек, в которые
; чар должен приходить, а также ставятся команды OPEN, GET, END, WAIT.
; Команда OPEN открывает ближайшую к чару дверь, команда GET ищет в радиусе
; двух клеток от чара навоз и "берет" его. При этом проверяется, может
; ли чар взять его. Если нет - поиск повторяется. Если навоз отсутствует -
; чар ждет его появления. Команда END ставится в конце маршрута, это сигнал
; скрипту переходить к началу маршрута. Команда WAIT означает что надо подождать
; 60 сек. прежде чем продолжать (не заставляйте чара долго ждать респауна
; внутри отсека, если дверь закроется - чар не выйдет из отсека и скрипт
; собъется. Помните, это лишь самая первая и простая версия этого скрипта).
; Поэтому в конце маршрута перед командой END задайте несколькими командами
; WAIT приблизительную необходимую паузу на респаун навоза. Я не задаю точных
; величин, так как скрипт предусматривает ваш собственный маршрут, который
; необязательно должен включать в себя все отсеки (если вы в джайле не один,
; вы можете разделить ее между собой). Также рекомендую заносить в маршрут
; "узловые точки", например, точку выхода из крайних отсеков.
;
; Ходилка в скрипте используется простейшая, без обхода препятствий. Так что
; если чар упирается - добавляйте в маршрут промежуточную точку.
; На самом деле - скрипт простейший, собран из кирпичиков, все они
; есть на форуме. Не понимаю, чего народ парится...
;
; ВНИМАНИЕ! В скрипте нет проверок "на дурака" от неправильного написания
; маршрута. Все последствия - на вашей совести.
;
; В качестве примера в скрипте прописан маршрут по верхнему левому ряду конюшни.
;
; v.1.00b (c) Edred
;
sub AutoJail()
   VAR JailPatch = '1293 1767 OPEN 1291 1767 GET 1293 1770 OPEN 1291 1770 GET 1293 1773 OPEN 1291 1773 GET 1293 1776 OPEN 1291 1776 GET 1293 1779 OPEN 1291 1779 GET 1293 1782 OPEN 1291 1782 GET 1295 1782 WAIT WAIT END'
   VAR navoz = '0x0F3C'
   VAR woodgate = '0x0843'
   VAR str1, str2, i = 1, sum = 0
   VAR NeedGuano = 20000
   UO.Set( 'distance', '3' )
   UO.Set( 'finddistance', '3' )
   JailPatch = JailPatch + ' '
   repeat
      str1 = GetWord( JailPatch, i )
      If str1 <> '' Then
         If str1 == 'OPEN' Then
            ; откроем ближайшую дверь
            OpenGate( woodgate )
         Else
            If str1 == 'GET' Then
               ; берем навоз
               GetGuano( navoz )
               sum = sum + 1
               If sum > NeedGuano Then
                  UO.Print( 'I made it!!! Congratulations!' )
                  return
               Endif
            Else
               If str1 == 'END' Then
                  i = 0
               Else
                  If str1 == 'WAIT' Then
                     wait(60000)
                  Else
                     ; str1 - координата
                     i = i + 1
                     str2 = GetWord( JailPatch, i )
                     GoToXY( val(str1), val(str2), 0 )
                  Endif
               Endif
            Endif
         Endif
      Else
         i = 0
      Endif
      i = i + 1
   until sum > NeedGuano
endsub

Sub OpenGate( typ1 )
   VAR nemogu = "You can't reach that."
   repeat
      UO.Findtype( typ1, '-1', '1' )
      DeleteJournal( nemogu )
      UO.UseObject( 'finditem' )
      wait(500)
      CheckLag()
      If UO.InJournal( nemogu ) Then
         UO.Ignore( 'finditem' )
      Else
         return
      Endif
   until False
endsub

Sub GetGuano( typ1 )
   VAR nemogu = "You can't reach that."
   repeat
      UO.FindType( typ1, '-1', '1' )
      If UO.FindCount() > 0 Then
         DeleteJournal( nemogu )
         UO.UseObject( 'finditem' )
         wait(500)
         CheckLag()
         If UO.InJournal( nemogu ) Then
            UO.Ignore( 'finditem' )
         Else
            UO.IgnoreReset()
            return
         Endif
      Else
         wait( 1000 )
      Endif
   until False
endsub

Sub GetWord( st, nom )
; Возвращает слово из строки str за номером num
; если такого слова нет - возвращаем ''
;
; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
;
   VAR tmpst
   VAR i, dlin, kol, start
   dlin = len( st )
   kol = 0
   start = 0
   For i=0 To dlin - 1
      If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
         kol = kol + 1
         If kol == nom Then
            ; это первый пробел после нужного нам слова
            tmpst = mid( st, start, i - start )
            return tmpst
         Else
            While mid( st, i, 1 ) == ' '
               i = i + 1
            Wend
            If kol == nom - 1 Then
               start = i
            Endif
         Endif
      Endif
   Next
   tmpst = ''
   return tmpst
endsub

; Удаляем указанную фразу из журнала
;
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, ' ' )
      DeleteJournal( string1 )
   Endif
endsub
;
; Проверка на лаги
; Идея - Savage
Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

SUB GoToXY(x,y,prec) 
; Хождение по мировым координатам с точностью prec и скоростью, зависящей от wt
; (c) Yoko, AGRS
  UO.TextPrint('GoToXY '+STR(x)+', '+STR(y))
   Var ld=0,ldc=0 
   Var dx,dy 
   Var mx,my 
   Var ox,oy,mk,k 
start: 
   mx=UO.GetX() 
   my=UO.GetY() 
   dx=mx-x 
   If dx<0 Then 
      dx=0-dx 
   EndIf 
   dy=my-y 
   If dy<0 Then 
      dy=0-dy 
   EndIf 
   If dy>dx Then 
      dx=dy 
   EndIf 
   If dx<=prec Then 
      Return 
   EndIf 
   If dx<3 Then 
      mk=70 
   Else 
      mk=15 
   EndIf 
   ox=mx 
   oy=my 
   For k=1 To mk 
      mx=UO.GetX() 
      my=UO.GetY() 
      If mx<>ox Or my<>oy Then 
         GoTo sdidapl 
      EndIf 
   Next 
sdidapl: 
   mx=UO.GetX() 
   my=UO.GetY() 
   dx=mx-x 
   If dx<0 Then 
      dx=0-dx 
   EndIf 
   dy=my-y 
   If dy<0 Then 
      dy=0-dy 
   EndIf 
   If dy>dx Then 
      dx=dy 
   EndIf 
   If dx<=prec Then 
      Return 
   EndIf 
   If ld==dx Then 
      ldc=ldc+1 
      If ldc>100 Then 
         UO.Print("Can not reach location!") 
         Return 
      EndIf 
   Else 
      ld=dx 
   EndIf 
   If mx==x Then 
      If my==y Then 
         Return 
      EndIf 
      If my>y Then 
         UO.Press(33) 
         GoTo start 
      EndIf 
      UO.Press(35) 
      GoTo start 
   EndIf 
   If mx<x Then 
      If my>y Then 
         UO.Press(39) 
         GoTo start 
      EndIf 
      If my==y Then 
         UO.Press(34) 
         GoTo start 
      EndIf 
      UO.Press(40) 
      GoTo start 
   EndIf 
   If my<y Then 
      UO.Press(37) 
      GoTo start 
   EndIf 
   If my==y Then 
      UO.Press(36) 
      GoTo start 
   EndIf 
   UO.Press(38) 
   GoTo start 
endsub

[Scripts Writer]

своя рубашка конечно всегда ближе к телу,- но однако есть и интересные скрипты %)) ближе к пвп -)

[Edred]

Простейшие добывающие:

Code: Select all

#####################################################################
; LumberAround. v.3.25b (c) Edred
;
; Рубим вокруг чара. Используется ASM-модуль для инжекта для поиска деревьев.
;
sub LamberAround()
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY
   VAR MaxTime = 600                        ; измеряется в 1/10 сек.
   VAR ms1 = "There are no logs here to chop"      ; нет логов
   VAR ms2 = "You can't use"                  ; не можем
   VAR ms3 = "in your pack."                  ; вырубили логи
   VAR ms4 = "You fail to produce"               ; физл
   VAR ms5 = "You are too far away"            ; стоим далеко
   VAR ms6 = "It appears immune to your blow"      ; не проходит удар
   VAR ms7 = "You can't see that"               ; не можем увидеть
   VAR ms8 = "is destroyed*"                  ; топор развалился
   VAR ms9 = "Try to kill my spirit at first!"      ; вырубили духа дерева
   UO.asmTLStaticOpen('Resource_Static.dat')   ; Загрузим таблицу типов статики
   VAR i, strpoint
   VAR MaxVes = 580
   cx = UO.GetX()
   cy = UO.GetY()
   for tmpx = -3 to 3
      for tmpy = -3 to 3
         k = 0
         pointX = cx + tmpx
         pointY = cy + tmpy
         strpoint = str(pointX) + ' ' + str(pointY)
         repeat
            DeleteJournal( ms1 )
            DeleteJournal( ms2 )
            DeleteJournal( ms3 )
            DeleteJournal( ms4 )
            DeleteJournal( ms5 )
            DeleteJournal( ms6 )
            DeleteJournal( ms7 )
            DeleteJournal( ms8 )
            DeleteJournal( ms9 )
            t = UO.Timer() + MaxTime
            k = k + 1
            wait(300)
            CanMine = UO.asmWaitTargetStaticTile( 'tree', PointX, PointY, 0 )
            If CanMine Then
               UO.UseObject(UO.ObjAtLayer('Lhand'))
               repeat 
                  wait(100) 
               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(ms8) OR UO.InJournal(ms9) OR (t < UO.Timer())
            Endif
            If UO.Weight > MaxVes Then
               ; Вес превышен!
               return
            Endif
            If UO.InJournal( ms8 ) Then
               ; топор накрылся!
               return
            Endif
            If UO.InJournal( ms9 ) Then
               ; дух дерева!
               return
            Endif
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
         Endif
      next
   next
endsub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

Code: Select all

#####################################################################
; MiningAround. v.2.01b (c) Edred
;
; Копаем вокруг чара. Используется ASM-модуль для инжекта для поиска 
; выкапыемых тайлов или краев скал.
;
; MiningAround2 - вскапываем вокруг чара без АСМа
;
;
sub MiningAround()
; MiningAround() - вскапываем вокруг чара
;
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag
   VAR MaxTime = 600                     ; измеряется в 1/10 сек.
   VAR ms1 = "There is no ore here to mine"
   VAR ms2 = "Это не копается."
   VAR ms3 = "in your pack."
   VAR ms4 = "You fail to find any useable ore"
   VAR ms5 = "Далеко. Не дотянуться."
   VAR ms6 = "Try mining in rock"
;   VAR ms7 = "You can't see that"
   VAR ms7 = "Хм... Не вижу.. Где копать то?."
   VAR ms8 = "is destroyed*"               ; кирка развалилась совсем
   VAR ms9 = "ore at your feet."            ; предположительно - элементаль
   UO.asmTLMapOpen('Resource_Map.dat')         ; Загрузим таблицу типов карты
   UO.asmTLStaticOpen('Resource_Static.dat')   ; Загрузим таблицу типов статики
   VAR i, strpoint
   VAR MaxVes = 600
   cx = UO.GetX()
   cy = UO.GetY()
   for tmpx = -2 to 2
      for tmpy = -2 to 2
         k = 0
         pointX = cx + tmpx
         pointY = cy + tmpy
         repeat
            DeleteJournal( ms1 )
            DeleteJournal( ms2 )
            DeleteJournal( ms3 )
            DeleteJournal( ms4 )
            DeleteJournal( ms5 )
            DeleteJournal( ms6 )
            DeleteJournal( ms7 )
            DeleteJournal( ms8 )
            DeleteJournal( ms9 )
            t = UO.Timer() + MaxTime
            k = k + 1
            flag = 1
            wait(300)
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            CanMine = UO.asmWaitTargetMapTile( 'rock', pointX, PointY, 0 )
            wait(50)
            If CanMine Then
               UO.UseObject(UO.ObjAtLayer('Lhand'))
            Else
               If UO.Waiting() Then
                  UO.CancelTarget()
               Endif
               CanMine = UO.asmWaitTargetStaticTile( 'rock', PointX, PointY, 0 )
               wait(50)
               If CanMine Then
                  UO.UseObject(UO.ObjAtLayer('Lhand'))
               Else
                  flag = 0
               Endif
            EndIf
            If flag == 1 Then
               repeat 
                  wait(100) 
               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(ms8) OR UO.InJournal(ms9) OR (t < UO.Timer())
            Endif
            If UO.InJournal( ms9 ) Then
               ; вывалился элементаль...
               return
            Endif
            If UO.Weight > MaxVes Then
               ; Вес превышен!
               return
            Endif
            If UO.InJournal( ms8 ) Then
               ; кирка накрылась!
               return
            Endif
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
      next
   next
   If UO.Waiting() Then
      UO.CancelTarget()
   Endif
endsub

sub MiningAround2()
; MiningAround2() - вскапываем вокруг чара без АСМа
;
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag
   VAR MaxTime = 600                     ; измеряется в 1/10 сек.
   VAR ms1 = "There is no ore here to mine"
   VAR ms2 = "Это не копается."
   VAR ms3 = "in your pack."
   VAR ms4 = "You fail to find any useable ore"
   VAR ms5 = "Далеко. Не дотянуться."
   VAR ms6 = "Try mining in rock"
;   VAR ms7 = "You can't see that"
   VAR ms7 = "Хм... Не вижу.. Где копать то?."
   VAR ms8 = "is destroyed*"               ; кирка развалилась совсем
   VAR ms9 = "ore at your feet."            ; предположительно - элементаль
   VAR i, strpoint
   VAR MaxVes = 600
   cx = UO.GetX()
   cy = UO.GetY()
   for tmpx = -2 to 2
      for tmpy = -2 to 2
         k = 0
         pointX = cx + tmpx
         pointY = cy + tmpy
         repeat
            DeleteJournal( ms1 )
            DeleteJournal( ms2 )
            DeleteJournal( ms3 )
            DeleteJournal( ms4 )
            DeleteJournal( ms5 )
            DeleteJournal( ms6 )
            DeleteJournal( ms7 )
            DeleteJournal( ms8 )
            DeleteJournal( ms9 )
            t = UO.Timer() + MaxTime
            k = k + 1
            flag = 1
            wait(300)
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            UO.WaitTargetTile( 'all', str(pointX), str(PointY), '0' )
            UO.UseObject(UO.ObjAtLayer('Lhand'))
            repeat 
               wait(100) 
            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(ms8) OR UO.InJournal(ms9) OR (t < UO.Timer())
            Endif
            If UO.InJournal( ms9 ) Then
               ; вывалился элементаль...
               return
            Endif
            If UO.Weight > MaxVes Then
               ; Вес превышен!
               return
            Endif
            If UO.InJournal( ms8 ) Then
               ; кирка накрылась!
               return
            Endif
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
      next
   next
endsub
;
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, ' ' )
      DeleteJournal( string1 )
   Endif
endsub
;
Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(50)
   until UO.InJournal( 'backpack' )
   return
endsub

Code: Select all

#####################################################################
; FishingAround. v.2.07b (c) Edred
;
; Рыбачим вокруг чара
;
sub FishingAround()
   VAR Ms0 = "You can't see"         ; не можем ловит здесь
   VAR Ms1 = "You can't fish under the ship"   ; не можем ловить здесь
   VAR Ms2 = "You are too far away"      ; далеко
   VAR Ms3 = "There are no fish here"      ; кончилось тут
   VAR Ms4 = "You fish a while, but fail to catch anything"   ; физл
   VAR Ms5 = "You pull out"         ; поймал что-то
   VAR Ms6 = "Try fishing in water."      ; не можем ловить здесь
   VAR k, t, v, x, y
   VAR MaxTime = 800
   For y = -4 To 4 
      For x = -4 To 4
         k = 0
         repeat
            If UO.Dead() Then
               return
            Endif
            DeleteJournal(ms0)
            DeleteJournal(ms1)
            DeleteJournal(ms2)
            DeleteJournal(ms3)
            DeleteJournal(ms4)
            DeleteJournal(ms5)
            DeleteJournal(ms6)
            t = UO.Timer()
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
            repeat 
               wait(100)
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
            k = k + 1
            If UO.InJournal(ms5) Then
               k = 0
            Endif
            If UO.Dead() Then
               return
            Endif
            If UO.InJournal( ms5 ) Then
               GetResultFish()
            Endif
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
         If UO.Dead() Then
            return
         Endif
      Next 
   Next
endsub

Sub GetResultFish()
   ; ------- улов -------
   DIM Fish[18]
   Fish[0]  = '0x170B'   ; сапоги 
   Fish[1]  = '0x170F'   ; тапки
   Fish[2]  = '0x170D'   ; сандалии 
   Fish[3]  = '0x1711'   ; сапоги
   Fish[4]  = '0x09CC'   ; тип рыбы 1
   Fish[5]  = '0x09CD'   ; тип рыбы 2
   Fish[6]  = '0x09CE'   ; тип рыбы 3
   Fish[7]  = '0x09CF'   ; тип рыбы 4
   Fish[8]  = '0x0FC4'   ; ракушка, тип 1
   Fish[9]  = '0x0FC5'   ; ракушка, тип 2
   Fish[10] = '0x0FC6'   ; ракушка, тип 3
   Fish[11] = '0x0FC7'   ; ракушка, тип 4
   Fish[12] = '0x0FC8'   ; ракушка, тип 5
   Fish[13] = '0x0FC9'   ; ракушка, тип 6
   Fish[14] = '0x0FCA'   ; ракушка, тип 7
   Fish[15] = '0x0FCB'   ; ракушка, тип 8
   Fish[16] = '0x0FCC'   ; ракушка, тип 9
   Fish[17] = '0x14ED'   ; карта
   VAR Razmer = 17      ; размер массива - 1
   VAR Scissor = '0x0F9E'   ; тип ножниц
   VAR Bandag = '0x0E21'      ; Тип бинтов
   VAR i
   ; Ищем что у нас валяется под ногами, если надо перерабатываем
   ; и складируем в трюм. Потом введем всякие мешочки разные и ящички.
   For i = 0 To Razmer
      UO.FindType( Fish[i], '-1', 'ground' )
      If UO.FindCount() > 0 Then
         If i < 4 Then
            ; обувь
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( Scissor )
            Wait( 3000 )
            UO.FindType( Bandag )
         Endif
         UO.Grab( '0', 'finditem' ) 
         Wait( 2000 )
         If i > 7 AND i < 17 Then
            ; ракушка
            UO.UseObject( 'finditem' )
            wait(1000)
         Endif
      Endif
   Next
endsub

Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

[CFA]

спасибо, много интересных решений

[Destruction]

Если бы ты писал не скрипты, а операционку, что-нибудь вроде вин3.1 написать мог бы -)

[Edred]

Если бы ты писал не скрипты, а операционку, что-нибудь вроде вин3.1 написать мог бы -)

Погоди, ты еще главного моего творчества не видел... Мининг и ламбер в одном флаконе. Но увидишь. Счас хостинг найду куда архивы положить и кину сюда все (там меню на дельфи, надо куда-то екзешник положить).

[Корней]

Вот это да!

Сорри - не удержался!

[admir]

ВНИМАНИЕ ССЫЛКИ НА ФАЙЛЫ ПО ЭТОМУ ТОПИКУ !

UPDATE 1.07.06
http://vlad.nagorniy.ru/files/

конкретно по минингу тут
http://vlad.nagorniy.ru/files/edred/Mine&Lumb/

9-745-475

[Edred]

Благодаря Адмиру нужные файлики теперь лежат в оне, посему начну постить свой мининг и ламбер. Думаю, постов в десять помещусь

файл readme

Code: Select all

Как установить скрипт:

1. Установить инжект и настроить его (версия 312.19, выложена на сайте
Цитадели).

2. Установить ASM версии не ниже 503.01 (для этого необходимо переименовать
файл script.dll в папке инжекта на файл scriptengine.dll и после этого
скопировать все файлы из папки ASM в папку инжекта). Более подробная 
информация - на сайте АГРСа (автор ASM-модуля для инжекта).
http://agrs.info/asm

3. Скопировать в папку с инжектом файлы mine&lumb.ini, setup4ML.exe,
resource_map.dat, resource_static.dat

4. Скопировать в какую-нибудь подпапку или папку с инжектом скрипт
mine&lumb.sc (местонахождение скрипта непринципиально)

5. Запустить игру с инжектом, зайти на закладку script, загрузить файл
скрипта, запустить процедуру main.


ПЕРЕД ЗАПУСКОМ СКРИПТА НАСТОЯТЕЛЬНО РЕКОМЕНДУЮ ВНИМАТЕЛЬНО ИЗУЧИТЬ
ФАЙЛ mine&lumb.hst (ЭТО ТЕКСТОВЫЙ ФАЙЛ).

файл mine&lamb.hst

Code: Select all

#===================================================================#
# MINING & LUMBERJACKING.                                           #
#===================================================================#
#   v.1.00 - 3.30b (с) Edred, 2004-2005                             #
#===================================================================#

Многофункциональный скрипт на мининг и ламбер с возможностью выбирать
режим  работы через меню и заданием настроек в ини-файле (то есть нет
необходимости редактировать скрипт!)

Поддерживаются 6 режимов работы:

          1. Режим копки по краям скал
          2. Режим копки по полу шахт
          3. Режим рубки леса
          4. Режим разметки маршрутов
          5. ВИП-шахта
          6. ВИП-лес

Все добывающие режимы работают по маршрутам. Разметка маршрута осуще-
ствляется  так:  выбираете  режим 4, задаете номер машрута (из меню),
скрипт  дополнительно  спросит о том режиме скрипта, в котором данный
маршрут будет задействован. После этого на экран будет выведено окош-
ко с кнопкой подтверждения окончания разметки маршрута. Переключитесь 
обратно на игру и проведите чара по планируемому маршруту. Скрипт бу-
дет  автоматически записывать этот маршрут. В конечной точке маршрута 
переключитесь на окно с кнопкой и нажмите Enter.  Помните - начальной 
точкой маршрута всегда является месторасположения чара в момент нача-
ла разметки.  Обратите  внимание: скрипт будет сам находить деревья в 
случае  ламбера и скалу в случае копки вокруг скал. Также автоматиче-
ски определяются тайлы, пригодные для копки по полу шахты.

В первых трех режимах скрипта задействованы по 8 маршрутов, в послед-
них  двух (ВИП)  -  по  2  маршрута.  После окончания последнего мар-
шрута чар автоматически перейдет на первый.  Стартовый номер маршрута
задается  из  стартового меню. В первых трех режимах работы чар между
маршрутами реколлится на базу для разгрузки (при этом сделана возмож-
ность  подходить  к  месту разгрузки на базе из реколлки),  в ВИП-ре- 
жимах  -  чар  без  реколлов  подходит к месту разгрузки (прилоченный 
сундук). В первых трех режимах начальные точки всех маршрутов необхо-
димо  отмарчить  рунами,  которые поместить в соответствующие рунбуки 
(см. mine&lumb.ini, комментарии).

В стартовом меню вы можете задать:

   1. Использовать ли во время добычи хайд.
   2. Пить ли инвизы при тревоге (тревога от ПК).
   3. Использовать процедуру хождения с обходом препятствий (в данной
      версии  скрипта  она  используется независимо от вашего выбора)
   4. Использовать  разгрузку  в  банк.  Логика этого режима (нового,
      введен с версии 3.30)  такова: если это обычная копка/рубка, то
      включение  этого флага означает, что чар по руне на базу рекол-
      лится  на самом деле к банку (или вывеске дома) и разгружается.
      Если это ВИП-режимы,  где реколлы не задействованы, то осущест-
      вляется подход к банку/вывеске.
   5. Вести  подробный  лог.  В  этом случае в файл лога сбрасываются 
      данные о каждом шаге чара,  о каждом ударе киркой и его резуль-
      тате.  Также  после  разрушения  инструмента в лог записывается 
      сводная таблица добытого с его помощью и счетчики обнуляются.

Нажатие  кнопки  Save  в стартовом меню приводит к продолжению работы 
скрипта, нажатие Cancel прерывает скрипт. При нажатии Save меню запи-
сывает  ваш  выбор  в соответствующие параметры файла mine&lumb.ini и
передает управление обратно скрипту (при запуске скрипта тот запуска-
ет меню и встает в ожидание вашего выбора).

Во время работы первых трех режимов скрипта осуществляется отслежива-
ние  появления других чаров, эти чары сортируются на ПК и АПК по цве-
ту, для каждого типа существуют обособленные параметры (см. ини-файл)
расстояний, на которые те могут приблизиться. Если другой чар прибли-
жается ближе указанного расстояния - ваш чар выпьет инвиз (если вклю-
чено)  и  среколлится на базу для разгрузки, после чего отправится на
следующий  маршрут.  Существует список исключений, то есть чаров, чье
появление скриптом будет игнорироваться (В данной  версии  исключения
указываются  в  теле  скрипта в функции ControlPK, в дальнейшем будут
вынесены в ини-файл).  Также в дальнейшем планируется добавить убега-
ние от ПК во время ожидания реколла (в случае отказа от инвизов).

Также  во время работы первых трех режимов скрипта осуществляется от-
слеживание появления елементалей, медведей, духов деревьев (последнее
пока не сделано).  В случае их появления, чар сбрасывает инструмент в
пак,  берет в руки оружие и щит и сражается с врагом.  После убийства 
он вскрывает труп и лутит его. После этого вновь берет в руки инстру-
мент  и продолжает добычу ресурсов. Во время сражения чар автоматиче-
ски отхиливается с бинтов, пьет греат хилл поушен (в случае если здо-
ровья меньше 60).  Процедура отслеживания ПК работает и во время сра-
жения!

При разгрузке на базе чар сбрасывает в указанные (файл mine&lumb.ini)
сундуки и контейнеры в них добытое, лишние реги (оставляет себе толь-
ко  по  6 шт.  регов  для реколлов), при необходимости добирает реги, 
аналогично  с  бинтами, кровавыми бинтами, поушенами, кливерами, нож-
ницами.  Также поверяется на целостность инструмент и при необходимо-
сти (разрушение) берется новый.

Во время работы по маршруту осуществляется контроль веса чара. В слу-
чае  перевеса  (макс. величина задается в файле mine&lumb.ini) добыча
прерывается и чар отправляется на разгрузку.

В  ВИП-режимах: контроль за ПК не осуществляется, также в данной вер-
сии  осуществляется  контроль  только за выкопанными или вырубленными 
елементалями  и духами леса (через перевес). При разгрузке  структура  
контейнеров  другая (один сундук). Контроль инструмента при этом осу-
ществляется.

В  ВИП режимах  осуществляется  контроль  за состоянием сытости чара, 
при  этом  производится  подкормка  чара медом, который должен быть в
паке чара. Добор меда и контроль сытости чара в других режимах в дан-
ной версии не подключен.

Также пока не подключено: авторес чара в случае смерти, реколлы через
заряды рунбуки (после автореса), реконнектор.

В подробный лог пишется: при запуске скрипта пишется записать в лог 3 
пустые строки, после этого пишется информация о старте скрипта ио со-
стоянии  инструмента.  Потом записывается номер маршрута и в процессе
работы по маршруту записываются  координаты куда идет чар, координаты
точек добычи, результат каждого удара. При вылезании елема или рипера 
скидываем информацию о нем. В процессе боя с  элемом/рипером/медведем 
скидываем  информацию  о  выпитых  греат хиллах. В случае килла элема 
скидываем информацию об этом, и о луте с этого элема/рипера. При убе-
гании от ПК или зверя скидываем информацию об этом а также сериал ча-
ра,  от  которого убегаем. А также о выпитых инвизах. В случае смерти 
чара скидываем информацию об этом и сериал объекта, который нас убил.
При  разгрузке  скидываем информацию обо всех разгруженных ресурсах с
количеством. Количество суммируем с ранее добытым. Суммарную информа-
цию  показываем  в логе в квадратных скобках и записываем в ини-файл.
Пишем обо всех добранных ресурсах. Пишем о состоянии инструмента. Пи-
шем номер следующего массива.

В случае разрушения инструмента информация об этом сбрасывается в лог
и  сбрасывается информация о количестве добытого с этим инструментом.

Во  время работы по маршруту все точки копки/рубки заносятся в массив
usep. Этот массив организован по типу стека и имеет длину в 1000 ком-
плектов  координат  (в дальнейшем уменьшить). При приближении к концу
массива (заполнение) вызывается спец функция,  сдвигающая массив вниз
на 100 ячеек.  Каждая  новая точка копки/рубки сначала проверяется по 
массиву, если есть - пропускается.  В конце маршрута или в случае его
прерывания массив usep очищается.



 History:

  v.1.00b - Делаем только копку по одному массиву
  v.1.01b - Добавил скрипт на разметку массива
  v.1.02b - Добавил альтернативную ходилку, потом поймем какая лучше
  v.1.03b - С копкой по массиву разобрались, вводим срочно контроль 
            элемов. Пока с остановом скрипта на копку.
  v.1.04b - C отслеживаниеи и лутом элемов похоже разобрались
  v.1.05b - Вводим 5 массивов копки, реколлы между ними и на базу, разгрузку
  v.1.06b - мелкие правки вар-режима, разгрузки, хайда.
  v.1.07b - еще куча мелких отладочных правок. Теперь все более-менее работает.
  v.1.08b - массивов уже 7. Боремся за респаун руды ;)
  v.1.09b - добавляем контроль за приходом ПК
  v.1.10b - что-то глючит у нас с хайдиванием, правим до упора
  v.1.11b - увеличиваем кол-во массивов до 10. Теперь должно хватить.
  v.1.12b - Переписан скрипт на разметку массива. Теперь он сам создает
            файл с массивом, траханье с логами игры исключено.
  v.2.00b - Пересобираем весь скрипт, вводим глобальные переменные контроля,
            причесываем всю структуру скрипта.
  v.2.01b - Ввел ведение лога (пока только начало скрипта, переход к массиву,
            к разгрузке, сколько какой руды выгружено). Лог ведется в файл.
  v.2.02b - временно лог ведется в текстовое окно. Ввел полное обновление
            регов и бинтов, чтобы не копилось регов лута с элемов, теперь 
            при доборе регов и прочего на экране открываются все необходимые
            контейнеры.
  v.2.03b - ввел питие инвизок (от ПК) и грит хилов (от кристалл элемов).
  v.2.04b - добор кирки и реакция на ее разрушение.
  v.2.05b - пробуем новую версию скрипта на реколл. Теперь проверка успешности
            идет через проверку звуков.
  v.2.06b - приводим в порядок даты и время в логе, определяем тип элема,
            вводим еще дополнительные сообщения.
  v.2.07b - реколл через проверку звука отключаем, переписываем реколл
            с учетом траты маны и смену координат
  v.2.08b - вводим систему проверок лагов при реколле и разгрузке.
  v.2.09b - вводим проверку глюка на считывание строки 'end of file' в
            массиве как строки координат.
  v.2.10b - Оптимизируем паузы, доп мессаги по телу скрипта.
  v.2.11b - вводим глобальные счетчики для подсчета суммы всех выкопанных
            и доставленных на базу руд. Итог по счетчикам помещаем в лог
            после разгрузки.
  v.2.12b - оказывается текстовое окно с логом имеет ограничение по размеру,
            правим вывод лога, заодно правим форматирование дат...
  v.2.13b - срочно добавляем проверку и добор на базе кливеров... блин, как
            жалко мне этого необлутенного кристалл-элема... 
  v.2.14b - разбираемся. Почему-то иногда чар не хочет вскрывать элема,
            выдает ругательство "You can't reach this"... Правим... Посмотрим,
            получилось ли... Сделал через подход к трупу ходилкой.
  v.2.15b - Получилось. Делаем это стандартным способом вскрытия элемов.
  v.2.16b - вновь пробуем сделать запись лога в файл.
  v.2.17b - Делаем два раздельных лога - один так и ведется в текстовом
            окне, это удобно для контроля чара во время работы скрипта, второй
            пишется в файл один раз за круг, подводя итоги копки, килла
            элемов и убегания от ПК за круг (10 массивов копки).
  v.2.18b - Пытаемся поправить подвисы (редкие) при подходе к элему,
            вводим возможность задать стартовый массив копки.
  v.2.19b - Правим глюки предыдущей правки. Не туда запрос на номер массива
            вставил. Заодно введу-ка проверку что номер массива в допустимых
            пределах, а то ведь найдутся любопытные, которые введут...
  v.2.20b - переписываем часть, отвечающую за лут элема, отменяем попытку
            подойти к элему (глюков много), контролируем - если элем не
            лутится - в лог скидывается вся инфа что возможно о чаре и
            трупе элема...
  v.2.21b - вводим усовершенствование системы контроля ПК - проверяем цвет
            найденного чара, если красный - драпаем сразу, если не красный,
            контролируем в цикле расстояние до него, если меньше минимального
            (задается переменной) - тоже драпаем.
  v.2.22b - Еще раз разбираемся с лутом элемов. Почему-то не лутит. Не лутит
            почти всегда. Выделяем вскрытие и лут элемов в отдельный модуль
            и бьемся над разгадкой... Похоже, ларчик просто открывался... 
            Тестим.
  v.2.23b - Наконец руки дошли сделать нормальное обновление регов при
            разгрузке. Заодно проверим смену кирок.
  v.2.24b - Вроде все работает стабильно, так что чистим структуру и
            готовимся в переходу на версию 3.00 (в скрипт будет интегрирован
            скрипт на ламберджекинг).
  v.2.25b - реагируем на сообщение в журнале 'bear is attacking you*'. 
            Берем в руки оружие и выходим из хайда. Затем ждем мессаги о 
            трупе и продолжаем копку.
  v.2.26b - и опять, в который раз, правим лут элемов... :)
  v.2.27b - Правка контроля дистанции до ПК. Правка именования элемов в
            выводе в лог.
  v.2.28b - Ввожу диалоги ASM. Ввожу изменение паузы при хотьбе в зависимости
            от места. Пока пауза до 300 уменьшается только на разгрузке.
  v.2.29b - Новая разметка массива. Почти полный автомат. Но это разметка
            массива для новой версии мининга, которую буду вводить в ближ
            время. При этом изменяется формат файла массивов и придется
            их перемарчивать.
  v.2.30b - Вводим начальные запросы на тип мининга. Пока доступен только 
            вариант мининга по краям скал и разметки массива.
  v.2.31b - вновь делаем 8 массивов. Еще 8 идут в данжи и пещеры. Итого
            полная рунбука.
  v.2.32b - Вводим список исключений чаров. Вводим флаг пить или не пить инвиз.
  v.2.33b - делаем новую процедуру копки с использованием ASM (новые массивы)
  v.2.34b - в разметке массивов вводим контроль уже занесенных тайлов
  v.2.35b - Мелкие улучшения процедуры разметки массивов, больше запросов,
            удобнее работать.
  v.3.00a - Сделан второй режим работы чара: копка в пещерах.
  v.3.00b - На фиг массивы, делаем маршруты движения. Теперь разметка
            превращается в автоматическое запоминание маршрута передвижения
            вдоль скалы или по лесу. Сам перебор тайлов осуществляется в самих
            процедурах копки/рубки. Маршруты хранятся одной строкой
            и пишутся в один файл, mining.ini. При этом можно сменить процедуру
            движения на более простую и быструю, потому что обход препятствий 
            не требуется. 
  v.3.00c - Перелопачиваем весь скрипт на предмет соответсвия названий процедур.
            Вводим ламбер. Отделяем хистори в отдельный файл. Перегруппировы-
            ваем функции и процедуры. Переименовываем часть из них.
            Переименовываем сам скрипт (старое название minewalls)
  v.3.00d - Присобачиваем ламбер. Переделываем разгрузку чтобы не брать лишнего
            при ламбере.
  v.3.01  - Первый релиз. Ловите момент!
  v.3.01b - 3.01e - куча мелкой правки и мелких усовершенствований.
  v.3.10b - Неосуществленная версия, наработки перешли в следующую:
            Все режимы работают. Но не работала проверка на то, что тайл уже
            копался/рубился. Поправил. Но поправлю еще - надо уменьшать массив
            и делать его наподобие стека, что чар всегда помнил последние 5-10
            шагов. Заодно избавляемся от "наследия" прошлого - теперь массивов
            копки всего 8, остальные 8 - ламбер. Соответственно сливаем в один
            режимы копки по скалам и по стенам данжей. Режим же контроля элемов
            при мининге включаем, ориентируясь на кирку. Если обычная - нет,
            если цветная - контролируем. Также контролируем выкопанную руду
            в процессе копки по мессаге. Если выкопана старшая руда (задается
            спецпеременной) - используем инвизы при удирании от ПК. Также
            инвизы используются если копаем старшей цветной киркой или в арме.
            Ламберджекинг аналогично. Перекомпоновываем разгрузку для поддержки
       новых режимов. Проверка кирок и топоров включает их цветность. 
       Искореняем режим копки по полу - это все равно будет реализовано 
       отдельным скриптом с вариантом копки в ГЗ-пещере. Вводим проверку 
       версии инжекта и хождение в зависимости от нее либо через нажатие 
       клавиш, либо через Addstep/Adddir. 
  v.3.20b - Перерабатываем скрипт версии 3.01е с добавлением наработанного
            в версии 3.10b и с добавлением кучи нового. Теперь стандартным 
       комплектом софта для скрипта является инжект версии 312.19 и ASM 
       501.06. Далее будем придерживаться этой же линии - фиксированная 
       версия инжекта и последняя версия АСМа. По крайней мере до тех пор 
       пока Йоко не избавится от неустойчивости последних версий инжекта. 
       Также добавляем сразу менюшку в дельфи, копку по полу, два тестовых 
       режима, подробный лог, стелс-режим. Уточнение: требуется ASM не ниже 
       503.01PE (корректная работа с ini-файлами).
  v.3.21b - Счетчики логов и руды вынесены в ини-файл, туда же они скидываются 
            при разгрузке. При запуске скрипта они оттуда считываются, в случае 
       отсутствия принимаются за 0.
  v.3.22b - Выносим в ини-файл все остальные настройки. Оттуда они будут 
            считываться при старте скрипта, туда при необходимости будут 
       сохраняться. Активно комментируем настройки в ини-файле.
  v.3.23b - Поправляю ситуацию с разрушением кирки в тестовом мининге. Если все 
            ок, аналогично пропишу и ламбер.
  v.3.23c - Мелкая поправка. При открытии контейнеров на разгрузке не стоял вызов 
            CheckLag(), в результате при лагах чар мог взять мешок разгрузки в пак 
       и скрипт зацикливался. Заодно отключил открытие мешка при разгрузке 
       в тестовых режимах, это просто лишнее.
  v.3.24a - Килл элемов в тестовом мининге. Пока только килл и сброс инфы в лог, 
            никакого лута и занесения в счетчики. Новый способ обнаружения выкопа 
       элемов. Потом задействую в остальных режимах. Килл через плитку. 
       Сериал плитки - пока процедуре.
  v.3.24b - Мелкие поправки действий по разрушению кирки в тестовом мининге:
            руда скидывалась в сундук, а не мешок; скрипт не останавливался. 
       Хмм... Первую ошибку поправил, вторая не поддалась. Еще бум думать.
  v.3.25b - Прописываем все необходимые изменения в ламбере. Вносим цвета старших 
            логов, типы духов деревьев и прописываем защиту от них. Делаем (только 
       в тестовом режиме) сброс (с занесением в счетчики) 500 обычных логов 
       в случае перевеса (чтобы маршрут не прерывался раньше времени).
  v.3.25s - Спецверсия, где тестовые режимы переделаны на разгрузку в банк.
  v.3.30b - Изменения в меню: тестовые режимы переименовываются в ВИП-режимы. 
            "Использовать Addstep" (не использовалось) переименовано в 
       "Разгружаться в банк". Этот флаг переключает процедуру разгрузки на 
       разгрузку в банк. В случае ВИП-режимов реколлы не производятся, а 
       осуществляется подход к банку или вывеске дома и разгрузка в банк. 
       Разгрузка в банк: открывается пак по сериалу (инифайл), в нем 
       находится кучка соответствующей руды или логов и разгрузка 
       соответствующего мата производится в нее (чтобы не было проблем с
            перегрузом банка). В инифайл вводится флаг разгрузки в банк: либо 
       здание, либо вывеска. В инифайл вводятся координаты точки куда 
       подходить на разгрузку. Дополнительно вводятся маршруты подхода 
       (раздельные для мининга и ламбера) и маршруты перемещения после 
       разгрузки. ВНИМАНИЕ: в этой версии изменилась структура ини-файла! 
       Либо используйте новый, либо внимательно проверьте старый!!!
       Отключил структуру боксов в сундуке для добора.
       Изменил названия руды и цвета на современные (послевайповые).
       Вместо флага "Использовать обход препятствий" в меню введен флаг
       "Контролировать сытость чара"



Идея на следующую версию: вводим дополнительный автоматический этап: первая копка/рубка после
разметки массива. Для этого в ини-файле заводим разделы для каждого маршрута. В начале этих разделов
помещаем флаг:
SetUpThisPatch=0
если 0 - массив размечен, копка не производилась. При разметке массива автоматически
устанавливаем этот флаг в 0 какое бы значение у него не было. При запуске копки/рубки проверяем этот
флаг для данного маршрута. Если флаг 0 - запускаем очистку этого раздела от всех строк по точкам
маршрута. Далее помещаем в раздел переменную количества точек копки:
RazmerThisPatch=0
Потом будут идти строки, каждая на одну точку копки:
PointPatch-001=1111 2222 3333 4444 5555 6666 7777 8888
Счетчик в переменной трехзначный. То есть маршрут ограничен 999 точками - вполне достаточно.
Первые два числа - координаты чара в этой точке маршрута. Последующие пары - точки в которых можно
что-то добыть.
После прохождения всего маршрута помещаем длину маршрута в RazmerThisPatch и ставим флаг
SetUpThisPatch в 1. Тогда при следующих прохождениях этого маршрута он не будет заново просчитываться.
Соответственно, при следующих запусках не будет необходимости в использовании массива точек копки/рубки, 
проверки лишних точек - сам процесс значительно ускорится.

[Edred]

файл mine&lumb.ini

Code: Select all

[Setup]
; Эти установки автоматически перезаписываются из главного меню
; при старте скрипта
UseExeInterface=1
ModeOfScript=4
NumberPatch=8
CheckHide=0
CheckInviz=0
CheckChatFood=0
CheckLog=0
CheckBankDis=0

[Patches]
; маршруты. Записываются функцией разметки маршрутов. Маршрут - 
; перечисление координат точек через пробел.
walls1=2273 406 2273 407 2273 408 2273 409 2273 410 2273 411 2273 412 2273 413 2273 414 2273 415 2273 416 2273 417 2273 418 2273 419 2273 420 2272 421 2272 422 2271 423 2271 424 2271 425 2271 426 2271 427 2271 428 2270 429 2269 430 2268 431 2267 432 2266 433 2265 434 2264 435 2264 436 2263 437 2262 438 2262 439 2261 440 2261 441 2261 442 2261 443 2261 444 2261 445 2261 446 2261 447 2261 448 2260 449 2259 450 2258 451 2257 452 2256 453
walls2=2072 370 2072 369 2073 368 2074 367 2075 366 2075 365 2076 364 2077 364 2077 363 2077 362 2078 361 2079 360 2079 359 2080 359 2081 359 2082 358 2083 357 2083 356 2083 355 2083 354 2084 353 2085 353 2086 353 2087 353 2088 352 2089 352 2089 351 2089 350 2090 349 2091 348 2091 347 2091 346 2092 346 2093 346 2094 346 2094 345 2094 344 2095 343 2096 343 2097 343 2098 342 2099 341 2100 341 2101 341 2102 340 2103 339 2103 338 2104 338 2105 338 2106 338 2107 338 2108 337 2109 337 2110 337 2111 336 2111 337 2112 337 2113 337 2114 336 2115 335 2116 334 2117 333 2118 333 2119 333 2119 332 2120 331 2121 331 2122 331 2122 330 2123 329 2124 328 2125 327
walls3=1794 771 1794 772 1794 773 1795 773 1795 774 1795 775 1796 775 1796 776 1796 777 1797 777 1797 778 1797 779 1797 780 1798 780 1798 781 1798 782 1798 783 1798 784 1798 785 1799 786 1800 787 1799 787 1799 788 1799 789 1800 790 1800 791 1799 792 1800 792 1801 793 1800 794 1801 794 1802 794 1802 795 1802 796 1803 796 1803 797 1803 798 1803 799 1803 800 1803 801 1803 802 1803 803 1803 804 1804 804 1804 805 1804 806 1805 807 1805 808 1806 809 1806 810 1807 811 1808 811 1809 811 1810 811 1811 810 1812 810 1813 810 1814 810 1814 809 1815 809 1816 809 1817 809 1818 809 1819 809 1820 809 1821 808 1822 808
walls4=2072 1222 2073 1222 2074 1222 2075 1222 2075 1223 2076 1223 2077 1223 2077 1224 2078 1225 2079 1225 2079 1226 2080 1226 2081 1226 2082 1226 2083 1226 2084 1226 2085 1226 2086 1226 2086 1225 2086 1224 2087 1224 2088 1224 2089 1224 2090 1224 2091 1224 2091 1225 2093 1226 2094 1226 2095 1226 2096 1226 2097 1226 2098 1226 2099 1226 2099 1227 2100 1227 2101 1227 2102 1227 2103 1227 2104 1227 2104 1228 2105 1228 2106 1228 2107 1228 2108 1228 2109 1228 2110 1228 2111 1228 2112 1229 2113 1229 2114 1230 2115 1231 2115 1232 2116 1233
walls5=2049 125 2051 125 2052 125 2053 126 2054 127 2055 127 2056 128 2057 128 2057 129 2057 130 2057 131 2057 132 2058 133 2059 134 2059 135 2059 136 2059 137 2059 138 2058 139 2058 140 2058 141 2058 142 2059 143 2060 144 2060 145 2059 146 2059 147 2059 148 2060 148 2061 149 2062 149 2063 150 2063 151 2064 151 2065 152 2065 153 2065 154 2065 155 2065 156 2065 157 2065 158 2065 159 2065 160 2065 161 2065 162 2065 163 2065 164 2064 165 2064 166 2064 167 2064 168 2063 169 2063 172 2063 173 2063 174 2063 175 2064 175 2065 176 2065 177 2065 178 2065 179 2065 180 2066 180 2066 181 2066 182 2067 182 2068 183 2068 184 2068 185 2069 185 2069 186 2070 187 2070 188 2070 189 2071 190 2071 191 2071 192
walls6=2255 414 2255 415 2255 416 2254 416 2254 417 2254 418 2254 419 2254 420 2254 421 2254 422 2254 423 2253 423 2253 424 2253 425 2252 425 2252 426 2252 427 2251 427 2251 428 2251 429 2251 430 2251 431 2251 432 2250 432 2250 433 2250 434 2250 435 2249 435 2249 436 2249 437 2249 438 2249 439 2248 439 2248 440 2247 440 2246 440 2246 441 2246 442 2246 443 2246 444 2246 445 2245 445 2244 445 2244 446 2244 447 2243 447 2243 448 2242 449 2241 450 2240 450 2240 451 2239 451 2239 452 2238 452 2237 453 2236 454 2235 455 2234 455 2233 455 2232 456 2231 456 2231 457 2231 458 2230 459 2229 459 2229 460 2228 461 2227 462 2226 462 2226 463 2226 464 2225 464 2225 465 2225 466 2224 466 2224 467 2224 468 2224 469 2224 470 2223 470 2223 471 2222 471 2222 472 2221 472 2221 473 2221 474 2220 474 2219 474 2219 475 2218 476 2217 476 2216 476 2216 477 2215 477 2215 478 2214 478 2214 479 
walls7=2116 269 2116 270 2116 271 2116 272 2117 272 2117 273 2117 274 2117 275 2118 276 2118 277 2118 278 2118 279 2118 280 2118 281 2118 282 2118 286 2118 287 2118 288 2118 289 2118 290 2118 291 2118 292 2117 293 2117 294 2116 295 2116 296 2117 296 2117 297 2118 298 2119 299 2119 300 2119 301 2119 302 2120 302 2121 302 2121 303 2121 304 2122 304 2123 305 2124 306 2125 307 2126 308 2126 309 2125 310 2124 311 2124 312 2124 313 2124 314 2125 314 2125 315 2125 316 2124 317 2125 318 2126 319 2126 320 2126 321 2126 322 2126 323 2126 324
walls8=1945 73 1946 74 1947 75 1947 76 1948 77 1949 78 1949 79 1949 80 1949 81 1949 82 1949 83 1949 84 1949 85 1950 86 1950 87 1951 88 1951 89 1951 90 1951 91 1951 92 1951 93 1951 94 1951 95 1951 96 1951 97 1952 98 1953 99 1954 100 1955 101 1955 102 1955 103 1956 103 1957 103 1958 104 1959 105 1959 106 1960 106 1961 106 1962 105 1963 105 1963 106 1964 106 1965 106 1966 106 1967 107 1968 107 1969 107 1970 108 1971 109 1972 110 1973 110 1974 110
floor1=
floor2=
floor3=
floor4=
floor5=
floor6=
floor7=
floor8=
trees1=
trees2=
trees3=
trees4=
trees5=
trees6=
trees7=
trees8=
vipmi1=2472 55 2471 56 2470 57 2469 58 2468 58 2467 58 2466 57 2465 56 2464 56 2463 56 2462 56 2461 57 2460 58 2459 59 2459 58 2459 57 2459 56 2459 55 2458 55 2457 55 2456 55 2455 55 2454 55 2453 55 2453 54 2453 53 2453 52 2454 51 2455 50 2455 49 2455 48 2456 48 2457 48 2458 48 2459 48 2460 48 2461 49 2462 50 2462 51 2462 52 2462 53 2463 53 2464 53 2465 53 2466 53 2467 54 2468 55 2469 55 2470 55 2471 55 2472 55
vipmi2=2472 55 2473 55 2474 55 2475 55 2476 55 2477 54 2478 53 2479 52 2480 51 2481 51 2482 51 2483 51 2484 51 2485 51 2486 50 2487 49 2487 48 2487 47 2486 46 2485 45 2484 45 2483 45 2482 45 2482 44 2482 43 2481 43 2480 43 2479 43 2479 45 2479 46 2479 47 2479 48 2478 49 2477 50 2476 51 2475 52 2474 53 2472 55
vipla1=2908 577 2909 576 2910 575 2911 574 2912 573 2911 572 2910 572 2909 571 2908 570 2907 570 2906 570 2905 570 2904 569 2903 568 2902 567 2901 566 2901 563 2901 562 2902 561 2903 560 2904 559 2905 558 2905 557 2905 556 2906 555 2906 554 2906 553 2906 552 2906 551 2906 550 2906 549 2906 548 2907 548 2907 547 2907 546 2908 545 2909 544 2909 543 2910 542 2909 541 2909 540 2908 539 2907 538 2906 537 2905 536 2904 535 2904 534 2904 533 2903 533 2903 532 2902 531 2901 530 2900 530 2899 530 2898 530 2897 530 2896 530 2895 530 2894 530 2893 530 2892 530 2891 530 2890 530 2889 531 2888 530 2887 529 2886 528 2885 527 2884 526 2883 525 2882 524 2881 523 2881 522 2881 521 2881 520 2880 520 2879 520 2878 520 2878 519 2878 518 2878 514 2878 513 2878 512 2877 512 2876 512 2875 512 2874 513 2873 514 2872 515 2871 516 2870 515 2869 514 2869 513 2869 512 2869 511 2869 510 2869 509 2869 508 2868 508 2867 508 2866 508 2866 509 2866 510 2865 511 2864 511 2863 511 2862 511 2862 512 2862 513 2862 514 2862 515 2862 516 2862 517 2862 518 2862 519 2862 520 2862 521 2862 522 2862 523 2863 523 2864 523 2865 523 2866 523 2866 524 2866 525 2866 526 2865 527 2864 528 2864 529 2864 530 2863 531 2862 532 2861 533 2860 534 2860 535 2860 536 2860 537 2860 538 2859 539 2858 540 2857 541 2856 542 2857 543 2858 544 2859 543 2860 543 2861 542 2862 541 2862 542 2862 543 2863 544 2864 545 2865 546 2865 547 2865 548 2865 549 2865 551 
; 2865 555 2865 556 2865 557 2865 558 2866 558 2867 558 2868 558 2869 558 2870 559 2871 560 2872 561 2873 562 2872 563 2872 564 2872 565 2872 566 2872 567 2872 568 2872 569 2872 570 2872 571 2872 572 2872 573 2872 574
vipla2=2916 593 2917 592 2918 591 2920 591 2920 590 2921 590 2922 590 2923 590 2924 589 2925 588 2925 587 2925 586 2925 585 2925 584 2926 583 2927 582 2928 581 2929 580 2930 580 2931 580 2932 580 2933 580 2934 581 2935 582 2936 583 2937 583 2938 583 2939 583 2940 584 2941 585 2942 586 2943 586 2944 586 2945 585 2945 584 2945 583 2945 582 2945 581 2944 580 2943 579 2942 578 2942 577 2942 576 2942 575 2941 574 2941 573 2941 572 2941 571 2941 570 2941 569 2941 568 2940 567 2939 566 2938 565 2938 564 2938 563 2938 562 2938 561 2938 560 2939 559 2940 558 2941 557 2941 556 2942 555 2943 554 2944 553 2945 552 2946 552 2947 552 2948 552 2949 552 2950 551 2951 550 2951 549 2950 548 2949 547 2949 546 2949 545 2948 544 2947 544 2947 543 2946 542 2945 541 2945 540 2945 539 2945 538 2945 537 2945 536 2945 535 2945 534 2946 533 2946 532 2947 531 2948 530 2951 530 2952 530 2952 529 2952 528 2952 527 2951 526 2950 525 2949 524 2949 523 2949 522 2949 521 2949 520 2948 519 2947 518 2946 519 2945 520 2944 520 2943 521 2942 522 2941 523 2940 524 2939 525 2938 526 2937 527 2936 528 2935 529 2935 530 2935 531 2935 532 2935 533 2935 534 2935 535 2935 536 2934 537 2933 538 2932 537 2931 536 2930 535 2929 534 2928 534 2927 534 2926 534 2925 533 2924 532 2923 533 2922 534 2921 534 2920 535 2920 536 2920 537 2920 538 2921 539 2922 540 2922 541 2923 541 2924 542 2923 543 2923 544 2922 545 2921 546 2920 547 2920 548 2920 549 2920 550 2919 551 2918 551 2917 552 2917 553 2917 554 2917 555 2917 556 2916 556 2915 556 2914 556 2913 556 2912 556 2911 556 2910 556 2910 557 2909 558 2908 558 2907 558 2906 559 2905 560 2906 561 2906 562 2908 563 2908 562 2909 562 2910 562 2911 563 2912 564 2912 565 2912 566 2912 567 2913 568 2914 569 2914 570 2914 571 
; 2913 572 2911 574 2910 575 2909 576 2908 577

[LogCount]
; Счетчики логов. Автоматически обнуляются при разрушении инструмента
; (итоговые значения попадают в лог).
TreeLogs=0
AncientLogs=0
SturdyLogs=0
SteelLogs=0
NeitralLogs=0
ChaosLogs=0
OrderLogs=0
TitanicLogs=0
ElvinLogs=0

[OreCount]
; Счетчики руды. Автоматически обнуляются при разрушении инструмента
; (итоговые значения попадают в лог).
Iron=0
Damned=0
Kreonit=0
Copper=0
Bronze=0
Walean=0
Golden=0
Silver=0
Oceanite=0
BloodRock=0
Sacred=0
Brilliant=0
Order=0
Chaos=0
Neutral=0
Stardust=0
Citadel=0
Plaster=0
Sandstone=0
Stone=0
Marble=0

[Runbooks]
; на закладке Objects необходимо создать объекты с такими именами
; одна рунбука - 8 рун для мининга по скалам + 8 рун для мининга по полу
; вторая рунбука - 8 рун для ламбера по лесу + 8 рун резерва (пока не задействованы)
;
; Имя рунбуки для реколла на базу
RunbookBase=CommonRunbook
; Имена рунбук для реколла на маршруты
RunbookTile=MineRunbook
RunbookTile2=LambRunbook
; Номер руны для реколла на базу через реги
BaseRune=20
; Номер руны для реколла на базу через заряд рунбуки
; ПОКА НЕ ИСПОЛЬЗУЕТСЯ!
BaseRuneScroll=19
; Номер кнопки пополнения зарядов рунбуки
; ПОКА НЕ ИСПОЛЬЗУЕТСЯ!
RechargeNumber=0

[MiningWalls]
; Номера рун в рунбуке для реколлов на маршруты
; копка по краям скал
Wall1Rune=36
Wall2Rune=38
Wall3Rune=40
Wall4Rune=42
Wall5Rune=44
Wall6Rune=46
Wall7Rune=48
Wall8Rune=50

[MiningFloor]
; Номера рун в рунбуке для реколлов на маршруты
; копка по полу пещеры
Wall1Rune=36
Wall2Rune=38
Wall3Rune=40
Wall4Rune=42
Wall5Rune=44
Wall6Rune=46
Wall7Rune=48
Wall8Rune=50

[LamberForest]
; Номера рун в рунбуке для реколлов на маршруты
; ламбер в лесу
Wall1Rune=20
Wall2Rune=22
Wall3Rune=24
Wall4Rune=26
Wall5Rune=28
Wall6Rune=30
Wall7Rune=32
Wall8Rune=34

[DischargeSer]
; Сериалы контейнеров для разгрузки и добора необходимого
; при первых трех режимах работы
;
; Координаты точки из которой будем разгружаться.
; Если включен режим разгрузки в банк - это координаты
; вывески дома
Sund_Tile_X=2472
Sund_Tile_Y=55
; Сериал сундука, куда складывать руду или логи
; если включен режим разгрузки в банк - это сериал банкбокса
Sund1_Ser=0x403CAA91
; Сериал сундука, откуда добирать реги и прочее
; если включен режим разгрузки в банк - игнорируется
Sund2_Ser=0x40361048
; ящики в этом сундуке:
; regs
BoxRegs=0x40520E8C
; bandages, blood bandages, bottles
BoxBand=0x40520ED6
; pickaxes, hatchets, cleavers, scissors
BoxPick=0x40520F33
; weapons, armors, robes
BoxArms=0x40520F7C

[DischargeVIP]
; Переменные этого раздела задействованы в случае
; ВИП-режимов
;
; Флаг куда разгружаться: 0 - банк по команде 'bank'
; 1 - банк с вывески дома
; Режимы работают только в случае включения соотв.
; флага в меню, иначе флаг игнорируется
PlaceOfBank=1
HomeTablSerial=0x4033E959
; Сериалы и координаты контейнеров для разгрузки и добора 
; необходимого при мининге. 
; Если PlaceOfBank == 0 - место вызова банка и сериал его, 
; 1 - место откуда кликаем по вывеске и сериал банка.
MinContSerial=0x4041B46B
MinContX=2472
MinContY=55
; Необходимость использования маршрута для подхода к сундуку/банку
MinNeedInPatch=0
; Путь подхода к банку в мининге
MinPatchToBank=
;
; Аналогично - для ламбера
;
LambContSerial=0x405B9440
LambContX=2895
LambContY=670
;
LambNeedInPatch=1
LambPatchToBank=2906 610 2906 659

[OtherConfig]
; уровень злобности для деления чаров на ПК и АПК
MinNotoriety=4
; минимальное расстояние, на которое позволяем приблизиться АПК
MinEnemyDist=5
; минимальное расстояние, на которое позволяем приблизиться ПК
MinEnemyDist2=7
; максимальное расстояние, на котором враг ищется
MaxEnemyDist=10
; максимальный поднимаемый чаром вес -50 стоунов
MaxWightOfChar=580
; тип элементаля руды
OreElemental=0x000E
; тип духа дерева
TreeSpirit=0x003A

;=================================================================
; НИЖЕ СЛЕДУЮТ РАЗДЕЛЫ  С АВТОМАТИЧЕСКИМ ЗАПОЛНЕНИЕМ И ИЗМЕНЕНИЕМ
; НЕ ИЗМЕНЯЙТЕ В НИХ НИЧЕГО! ЭТО МОЖЕТ ПРИВЕСТИ К НЕПРЕДСКАЗУЕМЫМ 
; ПОСЛЕДСТВИЯМ!!!                        [начиная с версии 3.40b]
;=================================================================
;
; Cтруктура следующих разделов: это вычисленные (на автомате)
; точки маршрутов.
; SetUpThisPatch - если 0 - маршрут еще не обсчитан
; RazmerThisPatch - количество точек копки в обсчитанном маршруте
; PointPatch-001 - таких строк будет ровно столько сколько в пре-
; дыдущем счетчике. Первая пара чисел - координаты чара, последующие -
; уникальные координаты копки/рубки, в которых можно производить добычу

[walls1]
SetUpThisPatch=0
RazmerThisPatch=0

[walls2]
SetUpThisPatch=0
RazmerThisPatch=0

[walls3]
SetUpThisPatch=0
RazmerThisPatch=0

[walls4]
SetUpThisPatch=0
RazmerThisPatch=0

[walls5]
SetUpThisPatch=0
RazmerThisPatch=0

[walls6]
SetUpThisPatch=0
RazmerThisPatch=0

[walls7]
SetUpThisPatch=0
RazmerThisPatch=0

[walls8]
SetUpThisPatch=0
RazmerThisPatch=0

[floor1]
SetUpThisPatch=0
RazmerThisPatch=0

[floor2]
SetUpThisPatch=0
RazmerThisPatch=0

[floor3]
SetUpThisPatch=0
RazmerThisPatch=0

[floor4]
SetUpThisPatch=0
RazmerThisPatch=0

[floor5]
SetUpThisPatch=0
RazmerThisPatch=0

[floor6]
SetUpThisPatch=0
RazmerThisPatch=0

[floor7]
SetUpThisPatch=0
RazmerThisPatch=0

[floor8]
SetUpThisPatch=0
RazmerThisPatch=0

[trees1]
SetUpThisPatch=0
RazmerThisPatch=0

[trees2]
SetUpThisPatch=0
RazmerThisPatch=0

[trees3]
SetUpThisPatch=0
RazmerThisPatch=0

[trees4]
SetUpThisPatch=0
RazmerThisPatch=0

[trees5]
SetUpThisPatch=0
RazmerThisPatch=0

[trees6]
SetUpThisPatch=0
RazmerThisPatch=0

[trees7]
SetUpThisPatch=0
RazmerThisPatch=0

[trees8]
SetUpThisPatch=0
RazmerThisPatch=0

[vipmi1]
SetUpThisPatch=0
RazmerThisPatch=0

[vipmi2]
SetUpThisPatch=0
RazmerThisPatch=0

[vipla1]
SetUpThisPatch=0
RazmerThisPatch=0

[vipla2]
SetUpThisPatch=0
RazmerThisPatch=0