Не могу понять

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Не могу понять

Post by crutch »

Ребят вот такая проблема с одевалкой вот скрипт
sub Dress_alfa_vamp()
While NOT UO.Dead()
var n
Dim Select[3]
Select[1]='21' ; Êðîâü 3
Select[2]='24' ; Õèìèÿ 4
Select[3]='13' ; Ðåãè 2
Dim Item[3]
Item[1]='0x0E21'
Item[2]='0x09B0'
Item[3]='0x0E76'
If UO.GetGlobal('DressMan')<>'yes' Then
UO.Set('norbcalc','1')
UO.SetGlobal('DressMan','yes')
EndIf
If UO.GetGlobal('DressManCheck')<>'on' Then
UO.SetGlobal('DressManCheck','on')
If UO.CountGround('0x0ED4','0x08BB') or UO.CountGround('0x0ED4','0x079B') Then
If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Ïðîâåðêà íà ïàê
UO.UseObject('backpack')
Wait(1000)
EndIf
If NOT UO.ObjAtLayer('Torso') Then
UO.Recall('0x4001361C','26') ; Àðìîð(äðèä) ns
REPEAT
Wait(300)
Until UO.ObjAtLayer('Torso')
EndIf
EndIf
Wait(300)
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x40013766','10') ; LAMA COLOR
REPEAT
Wait(300)
Until UO.ObjAtLayer('Horse')
EndIf
Wait(300)
For n = 1 TO 3
If UO.Count(Item[n])==0 Then
UO.Recall('0x40013766',Select[n])
UO.DeleteJournal()
REPEAT
Wait(300)
Until UO.InJournal("You put")
EndIf
Next
UO.Print('Done!')
Else
UO.Print("I don't see equipment stone!")
EndIf
UO.SetGlobal('DressManCheck','off')
Else
UO.Print("Wait")
EndIf
uo.usetype ('0x1515')
uo.usetype ('0x1F08')
uo.usetype ('0x204E')
uo.usetype ('0x1F06')
uo.msg ('.arm')
end sub

ну могу понять какие где значение тоесть где че он делает вот мне нужно вставить ид столбов вещей ток куда я хз объясните какие где значение за ранее спасибо
Сервер пвп альфа
Everix
Posts: 40
Joined: 2008-02-08 18:38:55

Post by Everix »

tut UO.Recall('0x4001361C','26')
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Post by crutch »

Everix wrote:tut UO.Recall('0x4001361C','26')

чет не могу понять и что это значит?:
Everix
Posts: 40
Joined: 2008-02-08 18:38:55

Post by Everix »

Tam stone ID ili serial , knopka.
Prosto testi!
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Post by Mirage »

Скажем при открытии столба появляется окошко с 3 кнопками
1 одецо
2 раздецо
3 выход

UO.Recall('ID столба','1') соответственно оденет
UO.Recall('ID столба','2') разденет
UO.Recall('ID столба','3') закроет окно

Паняно? :roll:
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Post by crutch »

Mirage wrote:Скажем при открытии столба появляется окошко с 3 кнопками
1 одецо
2 раздецо
3 выход

UO.Recall('ID столба','1') соответственно оденет
UO.Recall('ID столба','2') разденет
UO.Recall('ID столба','3') закроет окно

Паняно? :roll:


Ну вроде начинаю понимать а что значит UO.Recall('0x40013766','10')
десять в конце ???
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Post by Mirage »

crutch wrote:Ну вроде начинаю понимать а что значит UO.Recall('0x40013766','10')
десять в конце ???

Смотря что такое ID
если рунбук то это номер руны
если столб с одеждой то номер кнопки одежды
Если в моем примере рассматривать то фига с маслом :D так как у меня только 3 кнопки.
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Post by crutch »

Mirage wrote:
crutch wrote:Ну вроде начинаю понимать а что значит UO.Recall('0x40013766','10')
десять в конце ???

Смотря что такое ID
если рунбук то это номер руны
если столб с одеждой то номер кнопки одежды
Если в моем примере рассматривать то фига с маслом :D так как у меня только 3 кнопки.


Да это столб с ресурсами и как вычислить эту кнопку?
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Post by Mirage »

посчитать :lol:

Неужели до сих пор не заработал скрипт?
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Post by crutch »

Mirage wrote:посчитать :lol:

Неужели до сих пор не заработал скрипт?

все уже разобрался=)
Это еще ребят есть ли такой скрипт чтоб например когда я забегаю на арену и там много народо можно ли как нить автоматом на них стрелки кидать за ранее спасибо буду очень благодарен.
Post Reply