DRW Выкладывание на вендора однотипных предметов.
Posted: 2005-02-02 16:29:12
Значит скрипт не полностью автоматический, прийдется перед запуском править вручную цену товара.
Допустим имеется большое количество рунбуков которые нужно выложить на вендора. Подходим к вендору, говорм stock чтоб он показал свой сундук, правим в скрипте цену товара ну и имя вендора и запускаем. Как покажет прицел, тыкаем им в образец товара в паке.
Скрипт обращается к сундуку вендора по lastcontainer, поэтому не следует открывать всякие мешки после команды stock.
Допустим имеется большое количество рунбуков которые нужно выложить на вендора. Подходим к вендору, говорм stock чтоб он показал свой сундук, правим в скрипте цену товара ну и имя вендора и запускаем. Как покажет прицел, тыкаем им в образец товара в паке.
Скрипт обращается к сундуку вендора по lastcontainer, поэтому не следует открывать всякие мешки после команды stock.
Code: Select all
sub price()
VAR Exit=0
UO.AddObject('Tovar')
While UO.Targeting()
wait(500)
Wend
While Exit<>1
UO.FindType(UO.GetGraphic('Tovar'),UO.GetColor('Tovar'),'backpack')
If UO.FindCount() Then
UO.MoveItem('finditem',1,'lastcontainer')
UO.WaitTargetObject('finditem')
UO.Say('Paul price 15000') ;исправить имя и цену!
Else
Exit=1
Endif
wait(800)
CheckLag()
Wend
end sub
#==============================================================
# CheckLag() - click on backpack and awaiting "backpack"
# message in journal.
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub