sub dress dim 200 bandages regs potins false arrows llama cryst valor

  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
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
sub dress()
dim p[6]
p[1] = 200 #bandages
p[2] = 1 #regs
p[3] = 4 #potins
p[4] = false #arrows
p[5] = 8 #llama
# 3 - cryst + s
# 2 - valor + s
# 1 - agap + s
return dress.start(3, p)
endsub
sub dress.start( auto, pq )
if uo.dead() then
return false
endif
dim pack[5]
pack[0] = 5
pack[1] = '1'
pack[2] = '3'
pack[3] = '12'
pack[4] = '11'
dim count[4]
count[0] = 3
count[1] = 100
count[2] = 1
count[3] = 2
dim stolb[5]
stolb[0] = 4
var sx = uo.getx(), sy = uo.gety()
if between(sx, 3735, 3745) && between(sy, 1270, 1275) then
stolb[1] = '0x40011696'
stolb[2] = '0x40009F47'
stolb[3] = '0x40009EEF'
stolb[4] = '0x40009EEF'
else
stolb[1] = '0x4000B553'
stolb[2] = '0x4000B44E'
stolb[3] = '0x4000B2E3'
stolb[4] = '0x4000426D'
endif
for var i = 1 to stolb[0]
# regs
if i == 1 then
for var j = 1 to pack[0]
if not (pq[j] == 0) then
if j == 5 then
if not uo.ObjAtLayer('Horse') then
uo.recall(stolb[i], pq[j])
endif
repeat
wait(50)
until uo.ObjAtLayer('Horse')
else
dress.recall(stolb[i], pack[j], count[j], pq[j], true)
endif
endif
next
endif
#arm
if i == 2 then
if auto == 0 then
use(stolb[i])
repeat
wait(100)
until not uo.lastgump( 'replyed' )
var pvp = explode(uo.LastGump('text', 17), ' ', 2)
dim arm[10]
arm[0] = 9
else
if not uo.ObjAtLayer('Torso') then
uo.recall(stolb[i], auto)
endif
repeat
wait(50)
until uo.ObjAtLayer('Torso')
endif
endif
# weap
#if i == 3 then
#endif
# gs
#if i == 4 then
#endif
next
#uo.recall('0x4000B553', '12')
uo.msg('.arm_shield')
uo.useobject('backpack')
use('0x1F06')
use('0x1F08')
endsub
sub dress.recall(stolb, item, m, n, c)
if c then
for var i = 0 to (n / m) - 1
uo.recall(stolb, item)
deljournal("You put")
repeat
wait(50)
until uo.inJournal("You put")
next
else
endif
endsub