Yoko
http://forum.yoko.com.ua/

Вылажите плиз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7628
Page 1 of 1

Author:  SESTRA [ 2006-05-09 02:18:11 ]
Post subject:  Вылажите плиз

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

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

Author:  SESTRA [ 2006-05-09 02:28:04 ]
Post subject: 

Вот етот например
Code:
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 


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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/