Yoko

Code: Select all

##################################################################### 
; 
; Чар берет из сундука логи, крафтит луки
; и кидает их в трэш. 
; Если логи закончились - выход. 
; 
sub bow()
   VAR Musor = '0x4047ccfb'
   VAR Sunduk = '0x40606126'       ; Сериал сундука 
   VAR Logi = '0x1BDD'          ; Тип логов
   VAR Instrum = '0x0F51'          ; Тип ножика 
   VAR Bow = '0x13B1'          ; Тип лука
   VAR Kolvo = 200          ; Брать логов
   VAR k = 0 
   While TRUE 
      UO.FindType( Logi, -1, Sunduk )   ; Ищем логи в сундуке 
      If UO.FindCount() == 0 Then 
         UO.Print("Logs not found, script terminated") 
         return 
      Endif 
      UO.Grab( Str( Kolvo ), 'finditem' ) 
      wait( 2000 ) 
      While UO.Count( Logi ) > 0 
         ; Пока в паке есть логи
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logs' ) 
         UO.DeleteJournal() 
         uo.automenu('Bowcraft','Exceptional Bows') 
uo.automenu('Exceptional Bows','Superior Bow') 
 
         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( Bow ) > 0 then 
            UO.FindType( Bow, -1, -1 ) 
            UO.MoveItem( 'finditem', 0, Musor ) 
            wait( 1000 ) 
            UO.Print( 'Bow moved' ) 
         end if 
      Wend 
   Wend 
end sub 

Code: Select all

sub main()
uo.cm()
uo.automenu('Exeptional Bows','Superior Bow')
uo.automenu('What do you want to carve','Exeptional Bows')
end sub

sub cm()                  ; очистка автоменю
uo.cancelmenu()
end sub

Code: Select all

sub main()
var log=''
uo.waitmenu('What do you want to carve','Exeptional Bows','Exeptional Bows','Superior Bow')
uo.usetype(log)
end sub

Code: Select all

uo.automenu('What do you want to carve','Exeptional Bows')
uo.automenu('Exeptional Bows','Superior Bow')

Code: Select all

'Superior bow (8 log)')

Code: Select all

##################################################################### 
; 
; Чар берет из сундука логи, крафтит луки 
; и кидает их в трэш. 
; Если логи закончились - выход. 
; 
sub bow() 
   VAR Musor = '0x4047ccfb' 
   VAR Sunduk = '0x40606126'       ; Сериал сундука 
   VAR Logi = '0x1BDD'          ; Тип логов 
   VAR Instrum = '0x0F51'          ; Тип ножика 
   VAR Bow = '0x13B1'          ; Тип лука 
   VAR Kolvo = 200          ; Брать логов 
   VAR k = 0 
   While TRUE 
      if not uo.count('0x0FA0') then
          uo.findtype('0x0FA0','0x0000',Sunduk)
                 if uo.findcount() then
                       uo.moveitem('finditem','200','backpack')
                       wait(1000)
                  else
                       uo.print('Нитки закончились')
                        return
                  endif
      endif
      if not uo.count(Logi) then
      UO.FindType( Logi, -1, Sunduk )   ; Ищем логи в сундуке 
      If UO.FindCount() == 0 Then 
         UO.Print("Logs not found, script terminated") 
         return 
      Endif 
      UO.Grab( Str( Kolvo ), 'finditem' ) 
      wait( 2000 ) 
      endif
      While UO.Count( Logi ) >10 and uo.count('0x0FA0')
         ; Пока в паке есть логи 
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logs' ) 
         UO.DeleteJournal() 
         uo.waitmenu('What do','Exceptional Bows','Exceptional Bows','Superior Bow') 
         uo.waittargettype(Logi)
         UO.UseType( Instrum ) 
         repeat
            wait(500) 
         until UO.InJournal('You put|fail') 
         if UO.Count( Bow ) > 0 then 
            UO.FindType( Bow, -1, -1 ) 
            UO.MoveItem( 'finditem', 0, Musor ) 
            wait( 1000 ) 
            UO.Print( 'Bow moved' ) 
         end if 
      Wend 
   Wend 
end sub 

Code: Select all

sub main()
uo.automenu('Exeptional Bows','Superior Bow')
uo.automenu('What do you want to carve','Exeptional Bows')
end sub