скрипт на одевание вампа
Code: Select all
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
Проблема в том , что не могу поменять армор/итемы которые берёт чар со столба
например вот в этой строчке
Code: Select all
UO.Recall('0x4001361C','26')по 26 он выбирает верите ns , а вот откуда у этой кнопки номер 26 и как узнать номера других поскажите плизз
инфогамп
Code: Select all
__infogump_______
serial 0x4000b44e
gumpid 0x00000516
X 0
Y 0
2164 packet size
0 reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
1] esizepic 20 120 3600 310 37
2] esizepic 125 178 3000 175 1
3] esizepic 125 198 3000 175 1
4] esizepic 125 218 3000 175 1
5] esizepic 125 238 3000 175 1
6] esizepic 125 258 3000 175 1
7] esizepic 125 278 3000 175 1
8] esizepic 125 298 3000 175 1
9] esizepic 125 318 3000 175 1
10] esizepic 125 338 3000 175 1
11] esizepic 50 170 3000 80 19
12] utton 140 182 2437 2438 1 0
13] ext 60 175 1024
14] utton 140 202 2437 2438 1 0 2
15] ext 60 195 2002
16] utton 140 222 2437 2438 1 0
17] ext 60 215 1301
18] utton 140 242 2437 2438 1 0
19] ext 60 235 1184
20] utton 140 262 2437 2438 1 0
21] ext 60 255 2335
22] utton 140 282 2437 2438 1 0
23] ext 60 275 1937
24] utton 140 302 2437 2438 1 0
25] ext 60 295 1090
26] utton 140 322 2437 2438 1 0
27] ext 60 315 1750
28] ext 60 335 1102
29] ext 235 196 0
30] ext 235 216 0 1
31] ext 235 236 0 1
32] ext 235 256 0 1
33] ext 235 276 0 1
34] ext 235 296 0 1
35] ext 235 316 0 1
36] ext 235 336 0 1
37] ext 90 450 54 1
38] ext 140 155 1920 1
39] ext 162 155 1920 1
40] ext 200 155 1920 2
41] ext 50 385 1920 2
42] ext 50 400 1920 2
43] ext 50 415 1920 2
44] ext 80 385 1920 2
45] ext 80 400 1920 2
46] ext 80 415 1920 2
47] utton 170 182 2437 2438 1 0
48] utton 170 202 2437 2438 1 0 2
49] utton 170 222 2437 2438 1 0 1
50] utton 170 242 2437 2438 1 0 1
51] utton 170 262 2437 2438 1 0 1
52] utton 170 282 2437 2438 1 0 1
53] utton 170 302 2437 2438 1 0 1
54] utton 170 322 2437 2438 1 0 1
55] utton 170 342 2437 2438 1 0 2
56] utton 200 182 2437 2438 1 0 1
57] utton 200 202 2437 2438 1 0 2
58] utton 200 222 2437 2438 1 0 1
59] utton 200 242 2437 2438 1 0 1
60] utton 200 262 2437 2438 1 0 2
61] utton 200 282 2437 2438 1 0 2
62] utton 200 302 2437 2438 1 0 2
63] utton 200 322 2437 2438 1 0 2
64] ext 240 135 0 2
Text: ____________
0] Agapite
1] Verite
2] Valorite
3] Crystal
4] Frost
5] Mytheril
6] Meteorit
7] Composite
8] Leather
9] 5 pts
10] 15 pts
11] 35 pts
12] 65 pts
13] 155 pts
14] 215 pts
15] 270 pts
16] 270 pts
17] You have 1115 pts
18] F
19] NS
20] S
21] F
22] NS
23] S
24] - Full set
25] - No shield
26] - Shield only
27] PvP Alfa
скрин
