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

Скрипт одевалка ПвП Альфа
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5367		 Page 1 of 1
Author:  Nmy [ 2005-10-04 18:38:30 ]
Post subject:  Скрипт одевалка ПвП Альфа
Code:
# Одевалка #
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


одевает Кристал армор, композит щит, берёт ламу итп... лук неберёт...
Author:  Nmy [ 2005-10-04 19:29:47 ]
Post subject: 
ыыы 8)
Author:  Old Holy. [ 2005-10-08 11:38:39 ]
Post subject: 
Ребят а можете сделать чтобы место компазита он покупал фулл Кристал, а щит покупал компазит, заранее большое спасибо!
Author:  Old Holy. [ 2005-10-08 18:58:42 ]
Post subject: 
up...
Author:  Nmy [ 2005-10-09 00:57:49 ]
Post subject: 
если надо- заставлю этот скрипт брать Лук...
Author:  Old Holy. [ 2005-10-09 08:26:04 ]
Post subject: 
Нет, мне только фулл кристал и щит из компазита, ну если ещё можно чтобы ламу брал, место зустра =) заранее спасибо :)
Author:  Geezy [ 2005-10-09 12:34:07 ]
Post subject: 
Парни непоможете плиз,надо ваще полюбэ.

Скрипт на одевание тока надо брать реги 1 пачку,поушенов 3 пачки и бентов 400 штук,и все и одевать вот ети вещи usetype 0x2121;usetype 0x1411;usetype 0x1410;usetype 0x1414;usetype 0x1541;usetype 0x1F09;usetype 0x1412;usetype 0x1415;usetype 0x1F06;usetype 0x2121;usetype 0x1F08
Author:  flake [ 2005-10-09 14:14:59 ]
Post subject: 
Точно полюбэ надо?
Author:  Geezy [ 2005-10-09 14:26:33 ]
Post subject: 
да,очень
Author:  Nmy [ 2005-10-09 16:30:03 ]
Post subject: 
ок зделаю...
Author:  flake [ 2005-10-09 16:46:37 ]
Post subject: 
Geezy wrote:
да,очень


бл*дь.. так не катит.. напишу, только если реально полюбэ надо..
Author:  Nmy [ 2005-10-09 17:09:09 ]
Post subject: 
Скрипт зделан, жду ответа в асье... когда получу 1силвак, выложу иго тут...
Author:  Nmy [ 2005-10-09 17:18:09 ]
Post subject: 
:evil:
Author:  Geezy [ 2005-10-09 17:19:38 ]
Post subject: 
Кароче стукани в асю 998268 там разберёмся
Author:  Nmy [ 2005-10-09 17:29:37 ]
Post subject: 
8)
Author:  Nmy [ 2005-10-09 20:41:34 ]
Post subject: 
Code:
# 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
Author:  Geezy [ 2005-10-10 17:45:05 ]
Post subject: 
Я могу ответить за свои словаи как ты просил сделать,тока вот ты проотвечаешся,неберёт он ни регов не бентов,я даже щас об етом говорю,и смотря кто из нас бомж,мой чар стоимостью 800уе и твой чар стоимостью 1вм.Я тебе пишу в асю ты молчиш,молчиш....ну ето тваё личное дело.
Author:  flake [ 2005-10-10 18:49:01 ]
Post subject: 
чистареальныепапкивсияуо.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/