Скрипт одевалка ПвП Альфа

Nmy · Post by **Nmy** » 2005-10-04 18:38:30

# Одевалка #
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

одевает Кристал армор, композит щит, берёт ламу итп... лук неберёт...

Nmy · Post by **Nmy** » 2005-10-04 19:29:47

ыыы

Old Holy. · Post by **Old Holy.** » 2005-10-08 11:38:39

Ребят а можете сделать чтобы место компазита он покупал фулл Кристал, а щит покупал компазит, заранее большое спасибо!

Old Holy. · Post by **Old Holy.** » 2005-10-08 18:58:42

up...

Nmy · Post by **Nmy** » 2005-10-09 00:57:49

если надо- заставлю этот скрипт брать Лук...

Old Holy. · Post by **Old Holy.** » 2005-10-09 08:26:04

Нет, мне только фулл кристал и щит из компазита, ну если ещё можно чтобы ламу брал, место зустра =) заранее спасибо

Geezy · Post by **Geezy** » 2005-10-09 12:34:07

Парни непоможете плиз,надо ваще полюбэ.

Скрипт на одевание тока надо брать реги 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

flake · Post by **flake** » 2005-10-09 14:14:59

Точно полюбэ надо?

Geezy · Post by **Geezy** » 2005-10-09 14:26:33

да,очень

Nmy · Post by **Nmy** » 2005-10-09 16:30:03

ок зделаю...

flake · Post by **flake** » 2005-10-09 16:46:37

Geezy wrote:да,очень

бл*дь.. так не катит.. напишу, только если реально полюбэ надо..

Nmy · Post by **Nmy** » 2005-10-09 17:09:09

Скрипт зделан, жду ответа в асье... когда получу 1силвак, выложу иго тут...

Nmy · Post by **Nmy** » 2005-10-09 17:18:09

Geezy · Post by **Geezy** » 2005-10-09 17:19:38

Кароче стукани в асю 998268 там разберёмся

Nmy · Post by **Nmy** » 2005-10-09 17:29:37

Nmy · Post by **Nmy** » 2005-10-09 20:41:34

Code: Select all

# 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

Geezy · Post by **Geezy** » 2005-10-10 17:45:05

Я могу ответить за свои словаи как ты просил сделать,тока вот ты проотвечаешся,неберёт он ни регов не бентов,я даже щас об етом говорю,и смотря кто из нас бомж,мой чар стоимостью 800уе и твой чар стоимостью 1вм.Я тебе пишу в асю ты молчиш,молчиш....ну ето тваё личное дело.

flake · Post by **flake** » 2005-10-10 18:49:01

чистареальныепапкивсияуо.