sub Equipment If UO Dead Then UO Print You are Dead Return End If var

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
sub Equipment()
If UO.Dead() Then
UO.Print("You are Dead")
Return
End If
var n
Dim Select[4]
Select[0] = 3
Select[1] = '35' ; Бинты
Select[2] = '0x0018' ; Химия 2
Select[3] = '0x000D' ; Реги
Dim Item[4]
Item[0] = 3
Item[1] = '0x0F91'
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 ;I"?i^a^a*?e^a` i'a` i"a`e^
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('0x4000B44E','24') ; Арморка Кристал
REPEAT
Wait(300)
Until UO.ObjAtLayer('Torso')
End If
UO.Recall('0x4000B44E','0x0017') ; Щит Композит
REPEAT
Wait(300)
Until UO.ObjAtLayer('Torso')
End If
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x4000B553','4') ; Лама
REPEAT
Wait(300)
Until UO.ObjAtLayer('Horse')
End If
For n = 1 TO Select[0]
If UO.Count(Item[n])==0 Then
UO.Recall('0x4000B553',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('0x3F14')
Uo.UseType('0x1F03')
Uo.UseType('0x1451')
uo.usetype('0x1F08')
Uo.Msg('.arm')
end sub