Yoko

Code: Select all

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