sub Bowcraft() 
var dagger='0x0F51' 
var logs='0x1BDD' 

while not uo.Dead() 
uo.DeleteJournal() 
uo.WaitMenu('What do you want to carve the' ,'bow') 
uo.WaitTargetType(logs) 
uo.UseType(dagger) 
while not uo.InJournal('item') or uo.InJournal('pack') or uo.InJournal('you fail') 
wait(100) 
wend 
wend 
end sub

Теги. aka I'm

sub main() 
VAR LastTimer 
   VAR Sunduk = '0x41188101'   ; Сериал сундука с логами 
   VAR Sunduk1 = '0x41188100'  ; С пустыми мешками 
   VAR Sunduk2 = '0x40418759'  ; Куда класть готовое 
   VAR Meshok = '0x0E76'       ;oei iaoea 
   VAR MeshSer, d 
   VAR Logi = '0x1BDD'         ;  Логи
   VAR Nit = '0x0FA0'          ;   Нитки    
   VAR Dagger = '0x0F51'       ;  Инструмент
   VAR Item = '0x13B2'         ; Лук
   VAR KolL = 60               ; Брать логов 
   VAR KolN = 10               ; Ниток
   VAR k , n, r , i 

while true 
  k=0 
  UO.FindType( Meshok, -1, Sunduk1 )   ;  
  MeshSer = UO.GetSerial( 'finditem' ) 
  UO.Grab( '1', 'finditem' )           ;  
  wait( 2000 ) 
  UO.MoveItem( MeshSer, 0, Sunduk2 )   ; 

  repeat 
    r=0 
    while UO.Count(Logi)<KolL 
     n=UO.Count(Logi) 
     UO.FindType(Logi,-1,Sunduk) 
     UO.Grab(str(KolL-n),'finditem') 
     wait(100) 
     CheckLag() 
    wend 
    while UO.Count(Nit)<KolN 
     n=UO.Count(Nit) 
     r=r+1 
     UO.FindType(Nit,-1,Sunduk) 
     UO.Grab(str(KolN-n),'finditem') 
     wait(100) 
     CheckLag() 
     if r>20 then 
        uo.Exec('terminate all') 
     endif 
    wend 

    repeat 
      UO.DeleteJournal() 
      LastTimer=UO.Timer() 
      UO.WaittargetType( Logi ) 
      UO.Usetype(Dagger) 
      UO.WaitMenu('What do you want to carve the wood into?','Bow') 
      UO.DeleteJournal() 
      repeat 
        wait(500) 
      until UO.InJournal('Вы положили') or UO.InJournal('не удалось') or UO.InJournal('target') or UO.Timer()>LastTimer+200 
      until UO.Count(Logi)<6 or UO.Count(Nit)<1 

       d=uo.Count(Item) 
       k=k+d 
       while UO.Count( Item ) > 0 
             UO.FindType( Item, -1, -1 ) 
             UO.MoveItem( 'finditem', 0, MeshSer ) 
             wait( 500 ) 
       wend 
  until k>200 
  eat() 
wend 
end sub 
##################################################
######### 
sub CheckLag() 
    UO.DeleteJournal() 
    UO.Click('backpack') 
    repeat 
       wait(100) 
    until UO.InJournal('Backpack') 
end sub 
######################################### 
sub eat() 
    UO.DeleteJournal() 
    repeat 
      if UO.Count('0x097B')>0 then 
         UO.UseType('0x097B') 
         wait(500) 
      else 
         return 
      end if 
    Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that") 
end sub

Теги. aka I'm