Posted: 2005-01-20 21:52:33
Нде.. таблицы врут.. ) не могу я торчи делать.
Yoko
All sides of Injection
https://yoko.uokit.com/
Scripted by Sfagnum aka [moss] for DRW (upd. 05.07.05)
Page 2 of 4
Posted: 2005-01-21 09:55:45
ну как грится... такова селяви...
Posted: 2005-01-24 00:49:52
Теперь торчи умею делать, но скрипт всё равно не пашет, пишет:
"Line 137- Invalid Numbers of argument - Craft Torch"
Линия 137 - это end sub
Не понимаю в чём тут ошибка
"Line 137- Invalid Numbers of argument - Craft Torch"
Линия 137 - это end sub
Не понимаю в чём тут ошибка
Posted: 2005-01-24 01:15:12
всё, заработало ) сори, ступил. просто заменил Sub на sub
З,Ы, НУб я
З,Ы, НУб я
Posted: 2005-01-24 09:07:53
мдямс... на самом деле нету тут разницы... если по аглицки писать...hmmm wrote:всё, заработало ) сори, ступил. просто заменил Sub на sub
З,Ы, НУб я
Posted: 2005-01-24 11:21:57
народ а не подскажите скрипт на спаринг? на дрв...
Posted: 2005-01-24 11:44:19
я спарингуюсь с хелками, так чта сумлеваюсь что кому то это будет интересно, тем паче что скрипт пользую простой до безобразия.Mud wrote:народ а не подскажите скрипт на спаринг? на дрв...
Posted: 2005-01-24 14:20:21
Sfagnum wrote:я спарингуюсь с хелками, так чта сумлеваюсь что кому то это будет интересно, тем паче что скрипт пользую простой до безобразия.Mud wrote:народ а не подскажите скрипт на спаринг? на дрв...
Не такой он уж и безобразный !!!
Реальный скрипт !!!
Для рынка. Просмотр товаров у вендоров.
Posted: 2005-03-08 16:42:55
Описание: Скрипт написан для просмотра товаров на вендоре. Забиваете его в хоткеи(не обязательно), запускаете, тыркаете на вендора, открывается лист покупки.
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Скрипт на отсчитывание определённой суммы денег...
Posted: 2005-03-10 00:21:10
Описание: Скрипт на отсчитывание определённой суммы денег в отдельный мешочек. Перед запуском скрипта определяете необходимую сумму, т.е. задаёте необходимое значение переменной 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 subPosted: 2005-04-04 19:19:50
Скачал на этом сайте скрипт:
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
Всё вроде выставил правильно(Я продаю ожерелья) но ничего не продаётся(((Может Я не так создаю лист продажь???ПОМОГИТЕ!!!ЗАРАНИЕ СПАСИБО)))!
Posted: 2005-04-04 20:30:20
в смысле не продаётся? скрипт хоть как то реагирует?Talez wrote:Всё вроде выставил правильно(Я продаю ожерелья) но ничего не продаётся(((Может Я не так создаю лист продажь???ПОМОГИТЕ!!!ЗАРАНИЕ СПАСИБО)))!
ЗЫ. а разве у некласов тип не '0x1086'?
ЗЗЫ если некласы по мешкам разныканы... то их сперва открыть надо причём каждый...
Posted: 2005-04-06 08:15:31
Да скрипт пишет, что невозможно найти айтем.Проверил ещё раз, точно
'0x1085' попробовал даже '0x1086' тогда скрипт вообще слетает....даже ничего не написав.Неклс Я ща специально перестал убирать в сумки они у меня лежат прямо в бэкпаке.((((
'0x1085' попробовал даже '0x1086' тогда скрипт вообще слетает....даже ничего не написав.Неклс Я ща специально перестал убирать в сумки они у меня лежат прямо в бэкпаке.((((
Posted: 2005-04-06 08:23:08
проверь лист продажи.Talez wrote:Да скрипт пишет, что невозможно найти айтем.Проверил ещё раз, точно
'0x1085' попробовал даже '0x1086' тогда скрипт вообще слетает....даже ничего не написав.Неклс Я ща специально перестал убирать в сумки они у меня лежат прямо в бэкпаке.((((
и ещё раз спрошу:
скрипт хоть как то реагирует?
Posted: 2005-04-06 09:17:36
Лист продажи проверил.Вроде всё нормально...
Скрипт реагирует: примерно так 0 item found.Очень очень быстро всё это пишет, а потом спам детектед и всё по кругу.
Скрипт реагирует: примерно так 0 item found.Очень очень быстро всё это пишет, а потом спам детектед и всё по кругу.
Posted: 2005-04-06 09:50:16
лист продажи - там ошибка.Talez wrote:Лист продажи проверил.Вроде всё нормально...
Скрипт реагирует: примерно так 0 item found.Очень очень быстро всё это пишет, а потом спам детектед и всё по кругу.
ЗЫ или не тому вендору втюхать хочешь...
Posted: 2005-04-06 10:12:42
Какая может быть ошибка в сел листе?Иногда кстати скрипт ещё пишет waito to wendor много много раз.....потом опять спам детектед(((
Posted: 2005-04-06 10:37:07
а какая ошибка может быть в скрипте которым я сам пользовался длительное время + ещё достаточно много народу + ты сам успешно юзал.Talez wrote:Какая может быть ошибка в сел листе?Иногда кстати скрипт ещё пишет waito to wendor много много раз.....потом опять спам детектед(((
ищи ошибку на своём конце.
ЗЫ. и если приводишь какие либо сообщения приводи их дословно
Posted: 2005-04-06 19:00:14
Всё вроде заработало...Осталась одна проблемка даже если открыть сумку, он не хочет из неё продавать, только если выложить в бэкпак.И потому приходится каждый раз прописывать id каждой сумки
Posted: 2005-04-06 20:03:32
куда???Talez wrote:И потому приходится каждый раз прописывать id каждой сумки
