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(500) 
      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) 
               Until UO.ObjAtLayer('Torso') 
         End If 
         If NOT UO.ObjAtLayer('Horse') Then 
            UO.Recall('0x40013766','8') ; Лама
               REPEAT 
                  Wait(100) 
               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(100) 
                  Until UO.InJournal("You put") 
             End If
         Next         
      Uo.UseType('0x1F06') ; Амулет
   wait(50)
      Uo.UseType('0x1F08') ; Браслет
   wait(50)
      Uo.UseType('0x1FFD') ; Гс маика
   wait(50)
      drop() ; Выбрасывает Шлем и Горгетку
      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 

sub drop()
   var i
   for i = 0 to 1
  UO.FindType('0x1412','0x0A4D','my') ; Одетая цветная бошка
  UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem") 
  UO.FindType('0x1413') ; В бекпаке простая горгетка тк я уже отдел Амулет
  UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem")
      UO.DeleteJournal() 
end sub