помогите плиз

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
7ice_k7
Posts: 30
Joined: 2014-06-03 16:10:29

помогите плиз

Post by 7ice_k7 »

Code: Select all

sub Blacksmithy() 
   VAR Sunduk1 = '0x4027B817' ; Сериал сундука с пустыми мешками
   VAR Sunduk2 = '0x40074B86' ; Сериал пустого сундука
   VAR Meshok = '0x0E76' ; Тип мешка
   VAR Logi = '0x1BEF' ; Тип ингов
   VAR Rubanok = '0x13E3' ; Тип инструмента блексмита
   VAR Udochka = '0x1413' ; Тип делаемого
   VAR Kolvo = 500 ; Брать ингов (3 инга = 1 ножик)
   VAR MeshSer, j, k
   While TRUE
      UO.FindType( Logi, -1, Sunduk2 ) ; Ищем инги в сундуке 2
      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 ) > 12 ; Пока в паке есть инги
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' ingov' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.automenu('Blacksmithing','Colored Armor & Weapons')
         uo.automenu ('Colored Armor & Weapons', 'Rusty Armor')
         uo.automenu ('Rusty Armor', 'Rusry Plate Armor & Shields')
         uo.automenu ('Rusry Plate Armor & Shields', 'Rusty Platemail Gorget')
         uo.UseType(Rubanok)
         uo.waittargettype(Logi)
         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( 'dagger perelozhen' )
         end if
      Wend
   Wend
end sub

меню было под даггеры из айрона, я вот пытаюсь переделать под изготовление из цветных ингов. меню менял сам, все какбы норм, берет инги, мешок начинает работать меню блексмита и тут все- пишет "вайт таргет канселед???"(только по английски :) ) и чар просто стоит.
помогите плиз разобратся что и где я напутал :(
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: помогите плиз

Post by Mirage »

попробуй такой меню вынести выше While TRUE

Code: Select all

         UO.CancelMenu()
         UO.automenu('Blacksmithing','Colored Armor')
         uo.automenu ('Colored Armor', 'Rusty Armor')
         uo.automenu ('Rusty Armor', 'Rusry Plate')
         uo.automenu ('Rusry Plate', 'Gorget')


Автоменю обычно выше рабочего крафта пишут. Так как ты используют WaitMenu.
Post Reply