Как бы написать скрипт, что бы при запуске появлялся таргет - им клацать на сундук, и скрипт выводил в UO.Text ( Тектовое окно типа как выдаёт ,info ) инфу формала
10 Iron Ingots
20 Rusty Ingots
и тд, дайте мне наброски, а типы и цвета я и сам втулю ) Заранее спасибо
Подсчёт ингов в сундуке
Moderators: Murderator+, Murderator
считает руду. переделай.
Code: Select all
######################
### накалякал Купер (c) =)###
######################
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
Last edited by stickman on 2008-01-21 10:57:06, edited 1 time in total.
Попробуй так:
Code: Select all
sub kolvo2()
DIM rud[4]
var name
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)
UO.TextOpen()
UO.TextClear()
For i = 0 to 3
UO.FindType(rud[i], '-1', 'sunduk')
While UO.FindCount() > 0
UO.Click('finditem')
wait(100)
name = UO.GetName('finditem')
UO.TextPrint(name)
UO.Ignore('finditem')
UO.FindType(rud[i], '-1', 'sunduk')
wend
next
UO.Print('Закончили')
UO.IgnoreReset()
endsub
рад был помочь.