Yoko

# Одевалка #
sub Equipment() 
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','11') ; Арморка  Кристал
             REPEAT 
                  Wait(300) 
               Until UO.ObjAtLayer('Torso') 
         End If 
            UO.Recall('0x4001361C','23') ; Щит Композит
               REPEAT 
                  Wait(300) 
               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.Print('Done!') 
      Else 
         UO.Print("I don't see equipment stone!") 
      End If 
   UO.SetGlobal('DressCheck','off') 
Else 
   UO.Print("Wait") 
End If 
#Uo.UseType('T') если надо одеть гс веши или браслет пропишитье тут таип
#Uo.UseType('T')
#Uo.UseType('T')
Uo.Msg('.arm')
Uo.Msg('Im using script crafted by nmy[REAL-OZ]')
end sub

# Equipment script #
sub ChaosEquipment() 
If UO.Dead() Then 
   UO.Print("You are Dead") 
   Return 
End If 
var n 

Dim Select[4] 
Select[0] = 3 
Select[1] = '23' ; Bandages (400)
Select[2] = '18' ; Potions (3) 
Select[3] = '3'  ; Reagents (1)

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 
         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('0x2121')
   wait(50)
      Uo.UseType('0x1411')
   wait(50)
      Uo.UseType('0x1410')
   wait(50)
      Uo.UseType('0x1414')
   wait(50)
      Uo.UseType('0x1541')
   wait(50)
      Uo.UseType('0x1F09')
   wait(50)
      Uo.UseType('0x1412')
   wait(50)
      Uo.UseType('0x1415')
   wait(50)
      Uo.UseType('0x1F06')
   wait(50)
      Uo.UseType('0x2121')
   wait(50)
      Uo.UseType('0x1F08')
   wait(50)
   Uo.Msg('Im using script crafted by nmy')
         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