Page 1 of 1
Скрипт одевалка ПвП Альфа
Posted: 2005-10-04 18:38:30
by Nmy
Code: Select all
# Одевалка #
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
одевает Кристал армор, композит щит, берёт ламу итп... лук неберёт...
Posted: 2005-10-04 19:29:47
by Nmy
ыыы
Posted: 2005-10-08 11:38:39
by Old Holy.
Ребят а можете сделать чтобы место компазита он покупал фулл Кристал, а щит покупал компазит, заранее большое спасибо!
Posted: 2005-10-08 18:58:42
by Old Holy.
up...
Posted: 2005-10-09 00:57:49
by Nmy
если надо- заставлю этот скрипт брать Лук...
Posted: 2005-10-09 08:26:04
by Old Holy.
Нет, мне только фулл кристал и щит из компазита, ну если ещё можно чтобы ламу брал, место зустра =) заранее спасибо
Posted: 2005-10-09 12:34:07
by Geezy
Парни непоможете плиз,надо ваще полюбэ.
Скрипт на одевание тока надо брать реги 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
Posted: 2005-10-09 14:14:59
by flake
Точно полюбэ надо?
Posted: 2005-10-09 14:26:33
by Geezy
да,очень
Posted: 2005-10-09 16:30:03
by Nmy
ок зделаю...
Posted: 2005-10-09 16:46:37
by flake
Geezy wrote:да,очень
бл*дь.. так не катит.. напишу, только если реально полюбэ надо..
Posted: 2005-10-09 17:09:09
by Nmy
Скрипт зделан, жду ответа в асье... когда получу 1силвак, выложу иго тут...
Posted: 2005-10-09 17:18:09
by Nmy
Posted: 2005-10-09 17:19:38
by Geezy
Кароче стукани в асю 998268 там разберёмся
Posted: 2005-10-09 17:29:37
by Nmy
Posted: 2005-10-09 20:41:34
by Nmy
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
Posted: 2005-10-10 17:45:05
by Geezy
Я могу ответить за свои словаи как ты просил сделать,тока вот ты проотвечаешся,неберёт он ни регов не бентов,я даже щас об етом говорю,и смотря кто из нас бомж,мой чар стоимостью 800уе и твой чар стоимостью 1вм.Я тебе пишу в асю ты молчиш,молчиш....ну ето тваё личное дело.
Posted: 2005-10-10 18:49:01
by flake
чистареальныепапкивсияуо.
