sub Dress_alfa_necr var stolb_arm var stolb_eq var guild var eqip_arm

 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
71
72
73
74
75
76
sub Dress_alfa_necr()
var stolb_arm
var stolb_eq
var guild=0
var eqip_arm
var armor='0x13CC'
Dim Select[3]
Select[1] = '24' ; Химия 4
Select[2] = '19' ; Реги 3
Select[3] = '35' ; Стоуны 3 #2 ресторки -'16' #1 - '9'
Dim Item[3]
Item[1] = '0x09B0'
Item[2] = '0x0E76'
Item[3] = '0x0F91'
If UO.Dead() Then
UO.Print("You are Dead")
Return
End If
If UO.GetGlobal('NorbcalcCheck')<>'yes' Then
UO.Set('norbcalc','1')
UO.SetGlobal('NorbcalcCheck','0')
End If
If UO.CountGround('0x0ED4','0x08BB') or UO.CountGround('0x0ED4','0x079B') Then
UO.Set('finddistance','3')
uo.findtype ("0x0ED4","0x08BB","ground")
stolb_arm = UO.GetSerial('finditem')
uo.findtype ('0x0ED4','0x079B','1')
stolb_eq = UO.GetSerial("finditem")
If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
UO.UseObject('backpack')
Wait(5)
End If
UO.Recall('0x4000B44E','24')
REPEAT
Wait(5)
Until UO.GetGraphic( UO.ObjAtLayer( 'Torso' ) ) == armor
UO.Recall('0x4000B44E','23')
REPEAT
UO.Findtype('0x1B76')
Wait(5)
Until UO.FindCount() > 0
EndIf
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall(stolb_eq,'4') ; Лама (Цветная) 0x000A;5 - нецветная
REPEAT
Wait(5)
Until UO.ObjAtLayer('Horse')
End If
For var n = 1 TO 3
If UO.Count(Item[n])==0 Then
UO.Recall(stolb_eq,Select[n])
UO.DeleteJournal()
REPEAT
Wait(5)
Until UO.InJournal("You put")
IF n == 5 THEN
UO.Recall(stolb_eq,'9')
REPEAT
Wait(5)
Until UO.InJournal("You put")
end if
End If
Next
UO.Print('Done!')
Else
UO.Print("I don't see equipment stone!")
End If
Uo.exec("usetype 0x1F06;usetype 0x1F09;usetype 0x3F14;usetype 0x1451;usetype 0x1515;usetype 0x1F03;usetype 0x1F08")
uo.msg('.arm')
End If
end sub