sub Dress_alfa_man() 
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('0x400375C9','3') ; Àðìîð(Êðèñòàë) 
               REPEAT 
                  Wait(300) 
               Until UO.ObjAtLayer('Torso') 
         End If 
         If NOT UO.ObjAtLayer('Horse') Then 
            UO.Recall('0x40013766','4') ; Çîñòðè÷ 
               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.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