Scripted by Sfagnum aka [moss] for DRW (upd. 05.07.05)
Moderators: Murderator+, Murderator
Для рынка. Просмотр товаров у вендоров.
Описание: Скрипт написан для просмотра товаров на вендоре. Забиваете его в хоткеи(не обязательно), запускаете, тыркаете на вендора, открывается лист покупки.
NB!! этот скрипт н и ч е г о не покупает.
NB!! этот скрипт н и ч е г о не покупает.
Code: Select all
sub marketbuy()
VAR vend, ven='vendor'
UO.Exec('addobject vend')
while uo.Targeting()
wait(200)
wend
UO.Click('vend')
ven=UO.GetName('vend')
UO.Say(ven + ' buy')
end subСкрипт на отсчитывание определённой суммы денег...
Описание: Скрипт на отсчитывание определённой суммы денег в отдельный мешочек. Перед запуском скрипта определяете необходимую сумму, т.е. задаёте необходимое значение переменной Summ, после запуска указываете мешки по очереди:
1. мешок с деньгами,
2. мешок под деньги.
Деньги в мешок укладываются по 50к, как бы они не были расфасованы в исходном мешке.
Особенности: Перекладывает суммы кратные 50к, если вы задали иную сумму, то перекладывает сумму уменьшенную до ближайшего кратного, и в итоге показывает сколько недоложено было в мешок.
При нехватке денег в исходном мешке перекладывает _все_ деньги, в том числе и не целую кучку, в мешок под деньги, и также выводить недостающую сумму до введённого значения.
В мешке под деньги не желательно наличие гп перед запуском скрипта, в противном случае я не ручаюсь за корректность работы скрипта.
1. мешок с деньгами,
2. мешок под деньги.
Деньги в мешок укладываются по 50к, как бы они не были расфасованы в исходном мешке.
Особенности: Перекладывает суммы кратные 50к, если вы задали иную сумму, то перекладывает сумму уменьшенную до ближайшего кратного, и в итоге показывает сколько недоложено было в мешок.
При нехватке денег в исходном мешке перекладывает _все_ деньги, в том числе и не целую кучку, в мешок под деньги, и также выводить недостающую сумму до введённого значения.
В мешке под деньги не желательно наличие гп перед запуском скрипта, в противном случае я не ручаюсь за корректность работы скрипта.
Code: Select all
sub CollectMany()
var Summ = 300000
var idMoneyFrom, idMoneyTo, t
UO.Print('Откуда деньги тырим?')
uo.addobject('objBag')
while uo.targeting()
wait(100)
wend
idMoneyFrom = UO.GetSerial('objBag')
UO.Print('Куда отсчитываем?')
uo.addobject('objBag')
while uo.targeting()
wait(100)
wend
idMoneyTo = UO.GetSerial('objBag')
uo.UseObject(idMoneyFrom)
uo.UseObject(idMoneyTo)
CheckLag()
UO.FindType('0x0EED', '0x0000', idMoneyFrom)
while UO.FindCount()>1 and Summ > 50000
UO.MoveItem('finditem',-1,idMoneyTo)
CheckLag()
if UO.GetQuantity('finditem') <> 50000 then
t = UO.GetQuantity('finditem')
UO.FindType('0x0EED', '0x0000', idMoneyFrom)
repeat
UO.MoveItem('finditem',str(50000-t),idMoneyTo)
CheckLag()
wait(1000)
t = UO.GetQuantity('finditem')
UO.FindType('0x0EED', '0x0000', idMoneyFrom)
until UO.GetQuantity(t) == 50000 or UO.FindCount() < 1
if UO.FindCount() < 1 then
Summ = Summ-UO.GetQuantity(t)
else
Summ = Summ - 50000
end if
else
Summ = Summ - 50000
wait(1000)
end if
UO.FindType('0x0EED', '0x0000', idMoneyFrom)
wend
if Summ == 0 then
UO.Print('Деньги перекинул в полном объёме.')
else
UO.Print('В пакетике не хватает ' + str(Summ) + 'гп до запрашиваемой суммы.')
end if
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end subСкачал на этом сайте скрипт:
Code:
var tProduct = '0x1085' ;тип товара
var cProduct = '0x0000' ;цвет товара
var sellListName = 'Necklace' ;название листа продажи
var ms = 25 ;кол-во поскольку будем продавать
var addDealy = 500 ;если не успевает продавать, увеличьте эту цифру
var bd = ms*350+addDealy ;system. don't tuch
UO.Print('Кому продавать будем?')
UO.addobject('vend')
while uo.Targeting()
wait(200)
wend
if UO.GetSerial('vend') == UO.GetSerial('self') or UO.GetSerial('vend') == '0x00000000' or UO.GetSerial('vend') == UO.GetSerial('backpack') then
UO.Print('Промазал(а) - отключаюсь.')
end if
uo.set('maxsell',str(ms))
UO.UseObject('backpack')
uo.set('buydelay',str(bd))
CheckLag()
while UO.Count(tProduct,cProduct) > 0
if UO.Count(tProduct,cProduct) < ms then
bd = UO.Count(tProduct,cProduct)*350+addDealy
uo.set('buydelay',str(bd))
CheckLag()
end if
uo.sell(sellListName,UO.GetName('vend'))
CheckLag()
if UO.InJournal("You have nothing I'm interested in") then
return
end if
UO.Say('! <GUARDS> ')
wend
uo.set('buydelay','0')
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Всё вроде выставил правильно(Я продаю ожерелья) но ничего не продаётся(((Может Я не так создаю лист продажь???ПОМОГИТЕ!!!ЗАРАНИЕ СПАСИБО)))!
Code:
var tProduct = '0x1085' ;тип товара
var cProduct = '0x0000' ;цвет товара
var sellListName = 'Necklace' ;название листа продажи
var ms = 25 ;кол-во поскольку будем продавать
var addDealy = 500 ;если не успевает продавать, увеличьте эту цифру
var bd = ms*350+addDealy ;system. don't tuch
UO.Print('Кому продавать будем?')
UO.addobject('vend')
while uo.Targeting()
wait(200)
wend
if UO.GetSerial('vend') == UO.GetSerial('self') or UO.GetSerial('vend') == '0x00000000' or UO.GetSerial('vend') == UO.GetSerial('backpack') then
UO.Print('Промазал(а) - отключаюсь.')
end if
uo.set('maxsell',str(ms))
UO.UseObject('backpack')
uo.set('buydelay',str(bd))
CheckLag()
while UO.Count(tProduct,cProduct) > 0
if UO.Count(tProduct,cProduct) < ms then
bd = UO.Count(tProduct,cProduct)*350+addDealy
uo.set('buydelay',str(bd))
CheckLag()
end if
uo.sell(sellListName,UO.GetName('vend'))
CheckLag()
if UO.InJournal("You have nothing I'm interested in") then
return
end if
UO.Say('! <GUARDS> ')
wend
uo.set('buydelay','0')
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Всё вроде выставил правильно(Я продаю ожерелья) но ничего не продаётся(((Может Я не так создаю лист продажь???ПОМОГИТЕ!!!ЗАРАНИЕ СПАСИБО)))!
в смысле не продаётся? скрипт хоть как то реагирует?Talez wrote:Всё вроде выставил правильно(Я продаю ожерелья) но ничего не продаётся(((Может Я не так создаю лист продажь???ПОМОГИТЕ!!!ЗАРАНИЕ СПАСИБО)))!
ЗЫ. а разве у некласов тип не '0x1086'?
ЗЗЫ если некласы по мешкам разныканы... то их сперва открыть надо причём каждый...
проверь лист продажи.Talez wrote:Да скрипт пишет, что невозможно найти айтем.Проверил ещё раз, точно
'0x1085' попробовал даже '0x1086' тогда скрипт вообще слетает....даже ничего не написав.Неклс Я ща специально перестал убирать в сумки они у меня лежат прямо в бэкпаке.((((
и ещё раз спрошу:
скрипт хоть как то реагирует?
а какая ошибка может быть в скрипте которым я сам пользовался длительное время + ещё достаточно много народу + ты сам успешно юзал.Talez wrote:Какая может быть ошибка в сел листе?Иногда кстати скрипт ещё пишет waito to wendor много много раз.....потом опять спам детектед(((
ищи ошибку на своём конце.
ЗЫ. и если приводишь какие либо сообщения приводи их дословно
