kexwer wrote:
Ну всё перепробывал, никак не могу сделать, чтобы руду в сундуке подсчитывал.... Помогите пожалуйста.
Вот скрипт, который считает руду в паке чара:
Code:
sub kolvo()
DIM rud[4]
var vsego = 0
var cvet = 0
var prost = 0
var oper
var i
rud[0] = '0x19B7' # 1 штука
rud[1] = '0x19BA' # 2 штуки
rud[2] = '0x19B8' # 3 штуки
rud[3] = '0x19B9' # больше 3х штук
For i = 0 to 3
UO.FindType(rud[i])
if UO.FindCount() > 0 then
oper = UO.GetGraphic('finditem')
prost = prost + UO.Count(oper, '0x0000')
vsego = vsego + UO.Count(oper)
cvet = vsego - prost
else
wait(50)
endif
next
UO.Print('У тебя в паке всего ' + str(vsego) + ' руды')
UO.Print('Из них ' + str(cvet) +' цветной и ' + str(prost) + ' простой')
endsub
А этот скрипт считает в указанном сундуке:
Code:
sub kolvo2()
DIM rud[4]
var vsego = 0
var cvet = 0
var prost = 0
var i, sunduk
rud[0] = '0x19B7' # 1 штука
rud[1] = '0x19BA' # 2 штуки
rud[2] = '0x19B8' # 3 штуки
rud[3] = '0x19B9' # больше 3х штук
uo.Print('Выбери сундук: ')
uo.Exec('addobject sunduk')
while uo.Targeting()
wait(100)
wend
UO.UseObject('sunduk')
wait(1000)
For i = 0 to 3
UO.FindType(rud[i], '-1', 'sunduk')
While UO.FindCount() > 0
If UO.GetColor('finditem') == '0x0000' then
prost = prost + UO.GetQuantity('finditem')
UO.Ignore('finditem')
UO.FindType(rud[i], '-1', 'sunduk')
else
cvet = cvet + UO.GetQuantity('finditem')
UO.Ignore('finditem')
UO.FindType(rud[i], '-1', 'sunduk')
endif
wend
next
vsego = prost + cvet
UO.Print('У тебя в сундуке всего ' + str(vsego) + ' руды')
UO.Print('Из них ' + str(cvet) +' цветной и ' + str(prost) + ' простой')
UO.IgnoreReset()
endsub