sub dress var stolb_arm var stolb_eq Dim Select Select 11 Бинты Select

 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
sub dress()
var stolb_arm
var stolb_eq
Dim Select[3]
Select[1] = '11' ; Бинты 2
Select[2] = '24' ; Химия 4
Select[3] = '13' ; Реги
Dim Item[3]
Item[1] = '0x0E21'
Item[2] = '0x09B0'
Item[3] = '0x0E76'
deljournal( "You don't fear poison anymore!" )
if uo.countground('0x0ED4') then
uo.set('finddistance','3')
stolb_arm = dress.getStone('0x08BB', false)
stolb_eq = dress.getStone('0x079B', false)
if NOT uo.ObjAtLayer('Torso') or uo.Count('0x0EFA')==0 Then ;Проверка на пак
uo.UseObject('backpack')
Wait(5)
endif
if NOT uo.ObjAtLayer('Torso') Then
uo.Recall(stolb_arm, '6')
repeat
Wait(5)
Until uo.ObjAtLayer('Torso')
endif
wait(5)
uo.Recall( stolb_arm, '11')
repeat
Wait(5)
Until uo.injournal ("You don't fear poison anymore!")
Endif
if NOT uo.ObjAtLayer('Horse') Then
uo.Recall(stolb_eq,'8') ;
repeat
Wait(5)
Until uo.ObjAtLayer('Horse')
endif
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 == 4 THEN
uo.Recall(stolb_eq,'9')
repeat
Wait(5)
Until uo.InJournal("You put")
endif
endif
Next
uo.findType('0x1412', '-1', 'backpack')
set('ch_main_armor', uo.getcolor('finditem'))
uo.exec("usetype 0x1718;usetype 0x1F06;usetype 0x1F08")
bus()
uo.msg('.arm_shield')
uo.Print('Done!')
endsub