Yoko

Code: Select all

##################################################################### 
; Bowcraft2. v.1.04b (c) Edred 
; 
; Чар берет из сундука шафты и перья, крафтит из них стрелы и 
; складывает эти стрелы в этот же сундук. 
; Если шафты или перья закончились - выход. 
; 
sub bowcraft2() 
   VAR Sunduk = '0x4044FB80'       ; Сериал сундука 
   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 

Code: Select all

      EatChar( Sunduk, 2, 1, 120 )

Code: Select all

VAR Chest='0x4033008D' ; ИД сундука где все
VAR TFeather='0x1BD1'
VAR TArrow='0x0F3F'
VAR TShaft='0x1BD4' ; Тип шафтов
sub Bowcrafting_arrows()
   uo.useobject(Chest)
   wait(200)
   while 1
     uo.findtype(TShaft,-1,Chest)
     if uo.findcount() then
       uo.moveitem('finditem',1,'backpack')
     else
       return
    endif
     wait(300)
     uo.findtype(TFeather,-1,Chest)
     if uo.findcount() then
       uo.moveitem('finditem',1,'backpack')
     else
       return
     endif
     wait(300)
     uo.usetype(TFeather)
     uo.waitmenu('Select arrow type','arrow')
     wait(3100)
     uo.findtype(TArrow,-1,'backpack')
     if uo.getquantity('finditem')>25 then
       uo.moveitem('finditem',0,Chest)
       wait(1000)
     endif
   wend
end sub