Вылажите плиз

[SESTRA]

Плиз вылажите скрипт на пвп алюфу на одевания я просто тут посмарел скрипты не пашут не какие ( помагите)

You Must Die: "То, что ищут многие" -там есть ссылка, на одевание всех расс,а если она есть-значит ты в поиске плохо смотрел. Тема закрыта.

[SESTRA]

Вот етот например

Code: Select all

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  

он просто с боку мне пишет ваит а выполнять не че не выполняет(