Yoko

sub Dress() 
If UO.Dead() Then 
   UO.Print("You are Dead") 
   Return 
End If 
var n 

Dim Select[4] 
Select[0] = 3 
Select[1] = '1'  ; Бинты 
Select[2] = '12' ; Химия 2 
Select[3] = '3'  ; Реги 

Dim Item[4] 
Item[0] = 3 
Item[1] = '0x0E21' 
Item[2] = '0x09B0' 
Item[3] = '0x0E76' 

If UO.GetGlobal('NorbcalcCheck')<>'yes' Then 
   UO.Set('norbcalc','1') 
   UO.SetGlobal('NorbcalcCheck','yes') 
End If 
If UO.GetGlobal('DressCheck')<>'on' Then 
   UO.SetGlobal('DressCheck','on') 
      If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак 
         UO.UseObject('backpack') 
         Wait(1000) 
      End If 
      If UO.CountGround('0x0ED4','0x08BB') and UO.CountGround('0x0ED4','0x079B') Then 
         If NOT UO.ObjAtLayer('Torso') Then 
            UO.Recall('0x4001361C','7') ; Армор(Композит) 
               REPEAT 
                  Wait(100) 
     uo.recall('0x4001AA8A','4')
      wait(300)
        UO.LClick(213,264)
          REPEAT
         wait(50)
               Until UO.ObjAtLayer('Torso') 
         End If 
         If NOT UO.ObjAtLayer('Horse') Then 
            UO.Recall('0x40013766','8') ; Лама
               REPEAT 
                  Wait(300) 
               Until UO.ObjAtLayer('Horse') 
         End If 
         For n = 1 TO Select[0] 
            If UO.Count(Item[n])==0 Then 
               UO.Recall('0x40013766',Select[n]) 
               UO.DeleteJournal() 
                  REPEAT 
                     Wait(300) 
                  Until UO.InJournal("You put") 
             End If
         Next         
      Uo.UseType('0x1F06')
   wait(50)
      Uo.UseType('0x1F08')
   wait(50)
      Uo.UseType('0x1FFD')
   wait(50)
      Uo.UseType('0x1F0B')
   wait(50)
      Uo.Msg('.arm')
   Uo.Msg('Keep The Change...')
         UO.Print('Done!') 
      Else 
         UO.Print("I don't see equipment stone!") 
      End If 
   UO.SetGlobal('DressCheck','off') 
Else 
   UO.Print("Wait") 
End If 
end sub 

вот ети строки я написал чтобы лук брал, но немог придумать как правелно, дело в том чтбы взать лук у стоуна нада два раза меню нажымать, а ЛКлик всё парит, когда лаг он неберёт и ваще ненравится мне ЛКлик хачу чтобу он всё брал быстро а ЛКлик всё парит... изправте плз скрипт... если ето возможно...

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

эммм а если добавить
uo.usetype('') ?