Dagger Sell plizz help !!!
Posted: 2005-03-03 15:03:39
Narod mne nuzhen script 6tobe prodavatj daggeri katorije v back packe razkidani jest u kavota scrit help pliz
SomeOne wrote:Narod mne nuzhen script 6tobe prodavatj daggeri katorije v back packe razkidani jest u kavota scrit help pliz
)) Лови и радуйся (ентот скрипт под ДРВ, у нас с задержками траблы):
Code: Select all
sub Sell()
uo.DeleteJournal()
var num=0,numb=0
var stroka
uo.set('injectecho','1');чтобы в журнале отображались сообщения инжекта
uo.set('buydelay',0);продаем без задержки, чтобы узнать кол-во вещей на продажу
uo.set('maxsell','99');тут к сожалению 'особенность' - не больше 99 вещей
uo.sell('Daggers','Vendor')
repeat
wait(50)
until uo.InJournal('For sold')
stroka=right(left(uo.journal(uo.injournal('For sold:')-1),12),2)
;'обрезали' строку журнала до нужного числа продаваемых вещей
RTrim(stroka); если вещей <10 то в конце строки будет стоять пробел (удаляем его)
num=VAL(stroka);переводим в численное значение
numb=(num)*420 ;получаем общую задержку
uo.set('buydelay',STR(numb)) ;продаем
uo.sell('Daggers','Vendor')
end sub