Yoko

Code: Select all

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

Code: Select all

Теги. aka I'm

Code: Select all

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

Code: Select all

Теги. aka I'm