Yoko

Posted: **2005-02-02 16:29:12**

Значит скрипт не полностью автоматический, прийдется перед запуском править вручную цену товара.

Допустим имеется большое количество рунбуков которые нужно выложить на вендора. Подходим к вендору, говорм 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

Posted: **2005-02-02 22:53:16**

спасибо.... чета раньще даж мысли такой не было про этот скрипт... а вот выкладывать хауссейфы и прочую тинкерню)) удобно.. спасибо

Yoko

DRW Выкладывание на вендора однотипных предметов.

DRW Выкладывание на вендора однотипных предметов.