Page 2 of 2
Posted: 2005-05-16 08:37:50
by Sfagnum
Askaneli wrote:Тупишь. Внимательно посмотри скрипт оригинальный.
Тама стоит 100 на максселл.
когда продаётся последняя часть итемов ставить максселл меньше нету смысла. Задержка тока регулируется и всё а выходит из задержки по чеклагу.
хе...хе... не туплю я
дело в том что он у тебя идёт числовым форматом, а надо строкой

так чтА... выговор тебе и уже т.с. с занесением

Posted: 2005-05-16 08:39:52
by Askaneli
Sfagnum wrote:Askaneli wrote:Тупишь. Внимательно посмотри скрипт оригинальный.
Тама стоит 100 на максселл.
когда продаётся последняя часть итемов ставить максселл меньше нету смысла. Задержка тока регулируется и всё а выходит из задержки по чеклагу.
хе...хе... не туплю я

дело в том что он у тебя идёт числовым форматом, а надо строкой

так чтА... выговор тебе и уже т.с. с занесением

А ты проверь сперва.
как думаешь я этим скриптом продаю по 100 если она не работает?
И если уж на то пошло то у тебя тож косяк.
Исправляй мвнимательно.
Code: Select all
sub AutoSell()
Var i=1,SDelay=370
Var TSell='0x1085',CSell='0x0000'
var maxsell = 100 ;тут устанавливается по сколько продавать за раз, ставить кол-во меньше 25 - не рекомендую
UO.Set("maxsell",str(maxsell))
Cheklag()
OpenBag()
While UO.Count(TSell,CSell)>0
If UO.Count(TSell,CSell)>=maxsell Then
UO.Set("buydelay",SDelay*maxsell)
Else
UO.Set("buydelay",SDelay*UO.Count(TSell,CSell))
End If
UO.Sell("Necklace")
Cheklag()
If UO.InJournal("time") Then
SDelay=SDelay+10
wait(1000)
End If
Wend
end sub
sub OpenBag()
var tBag='0x0E76' ;тип мешков в которых лежат айтемы на продажу
UO.FindType(tBag,'0x0000','backpack')
While UO.FindCount()>0
UO.Ignore('finditem')
UO.UseObject('finditem')
Wait(600)
UO.FindType(tBag,'0x0000','backpack')
Wend
UO.IgnoreReset()
UO.UseObject('backpack')
Wait(600)
end sub
sub Cheklag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
Wait(10)
Until UO.InJournal("backpack")
end sub
Posted: 2005-05-16 08:53:12
by Sfagnum
Askaneli wrote:А ты проверь сперва.
как думаешь я этим скриптом продаю по 100 если она не работает?
а кто ж тебя читера знает?
Askaneli wrote:И если уж на то пошло то у тебя тож косяк.
Исправляй мвнимательно.
каюсь... не внимателен
но ща ещё один оптимайз забабахаю
ибо нефиг задержку просто так дрючить
и малёх ещё чеклаги причесал
Code: Select all
sub AutoSell()
Var i=1,SDelay=370
Var TSell='0x1085',CSell='0x0000'
var maxsell = 100 ;тут устанавливается по сколько продавать за раз, ставить кол-во меньше 25 - не рекомендую
UO.Set("maxsell",str(maxsell))
UO.Set("buydelay",str(SDelay*maxsell))
OpenBag()
While UO.Count(TSell,CSell)>0
If UO.Count(TSell,CSell) < maxsell Then
UO.Set("buydelay",str(SDelay*UO.Count(TSell,CSell)))
End If
UO.Sell("Necklace")
Cheklag()
If UO.InJournal("time") Then
SDelay=SDelay+10
wait(1000)
End If
Wend
end sub
sub OpenBag()
var tBag='0x0E76' ;тип мешков в которых лежат айтемы на продажу
UO.FindType(tBag,'0x0000','backpack')
While UO.FindCount()>0
UO.Ignore('finditem')
UO.UseObject('finditem')
CheckLag()
Wait(500)
UO.FindType(tBag,'0x0000','backpack')
Wend
UO.IgnoreReset()
UO.UseObject('backpack')
CheckLag()
Wait(500)
end sub
sub Cheklag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
Wait(10)
Until UO.InJournal("backpack")
end sub
Posted: 2005-05-16 09:17:59
by Askaneli
Sfagnum wrote:Askaneli wrote:А ты проверь сперва.
как думаешь я этим скриптом продаю по 100 если она не работает?
а кто ж тебя читера знает?
Askaneli wrote:И если уж на то пошло то у тебя тож косяк.
Исправляй мвнимательно.
каюсь... не внимателен

но ща ещё один оптимайз забабахаю

ибо нефиг задержку просто так дрючить

и малёх ещё чеклаги причесал

Code: Select all
sub AutoSell()
Var i=1,SDelay=370
Var TSell='0x1085',CSell='0x0000'
var maxsell = 100 ;тут устанавливается по сколько продавать за раз, ставить кол-во меньше 25 - не рекомендую
UO.Set("maxsell",str(maxsell))
UO.Set("buydelay",str(SDelay*maxsell))
OpenBag()
While UO.Count(TSell,CSell)>0
If UO.Count(TSell,CSell) < maxsell Then
UO.Set("buydelay",str(SDelay*UO.Count(TSell,CSell)))
End If
UO.Sell("Necklace")
Cheklag()
If UO.InJournal("time") Then
SDelay=SDelay+10
wait(1000)
End If
Wend
end sub
sub OpenBag()
var tBag='0x0E76' ;тип мешков в которых лежат айтемы на продажу
UO.FindType(tBag,'0x0000','backpack')
While UO.FindCount()>0
UO.Ignore('finditem')
UO.UseObject('finditem')
CheckLag()
Wait(500)
UO.FindType(tBag,'0x0000','backpack')
Wend
UO.IgnoreReset()
UO.UseObject('backpack')
CheckLag()
Wait(500)
end sub
sub Cheklag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
Wait(10)
Until UO.InJournal("backpack")
end sub
Согласен так эстетичнее. Но выёгрышь тока в эстетичности.
А насчёт преобразования числа в строку
http://yoko.netroof.net/forum/viewtopic ... 2956#12956
Читаем ОТЦА этого форума внимательно
Posted: 2005-05-16 09:33:30
by Sfagnum
ну... что я тебе могу сказать... совместимость с более ранними версиями должна быть
к тому же много народу юзает более ранние версии.
так чтА... норм так

Posted: 2005-05-16 10:49:34
by DIKIY
Прикольно, сфаг, вы так друг друга нагибали, что я подумал - в следующей версии скрипта вендор ещё и доплачивать будет за покупку у Вас )))
Posted: 2005-05-16 11:37:16
by Askaneli
DIKIY wrote:Прикольно, сфаг, вы так друг друга нагибали, что я подумал - в следующей версии скрипта вендор ещё и доплачивать будет за покупку у Вас )))
Не мешай флудить.
Sfagnum wrote:ну... что я тебе могу сказать... совместимость с более ранними версиями должна быть
к тому же много народу юзает более ранние версии.
так чтА... норм так
,set buydelay начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи.

Posted: 2005-05-16 12:08:20
by Sfagnum
Askaneli wrote:,set buydelay начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи.

в версии 3.хх работает. а это одна из самых юзаемых версий

Posted: 2005-05-16 12:10:12
by Askaneli
Sfagnum wrote:Askaneli wrote:,set buydelay начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи.

в версии 3.хх работает. а это одна из самых юзаемых версий

В версии 0.3.30.4 не работает точно. Недавно столкнулся с этим.
Posted: 2005-05-16 12:11:44
by Sfagnum
Askaneli wrote:Sfagnum wrote:Askaneli wrote:,set buydelay начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи.

в версии 3.хх работает. а это одна из самых юзаемых версий

В версии 0.3.30.4 не работает точно. Недавно столкнулся с этим.
ну уж хз... я юзаю 3219, точки сам раставь
и там всё ок. и ещё мнооого народу именно эту версию юзает

Posted: 2005-05-16 12:14:39
by Askaneli
Sfagnum wrote:Askaneli wrote:Sfagnum wrote:Askaneli wrote:,set buydelay начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи.

в версии 3.хх работает. а это одна из самых юзаемых версий

В версии 0.3.30.4 не работает точно. Недавно столкнулся с этим.
ну уж хз... я юзаю 3219, точки сам раставь

и там всё ок. и ещё мнооого народу именно эту версию юзает

Надо народ привлекать пользоватся новыми версиями.
Я не поклонник антиквариата. У мну последняя версия.
Как иначе будет развиватся продукт всеми любимый ?
Posted: 2005-05-16 12:19:58
by Sfagnum
Askaneli wrote:Надо народ привлекать пользоватся новыми версиями.
Я не поклонник антиквариата. У мну последняя версия.
Как иначе будет развиватся продукт всеми любимый ?
с этим АпсАлютно согласен

но у меня сложилось субЪективное очучение что эта версия стабильнее

Posted: 2005-05-16 12:22:32
by Askaneli
Sfagnum wrote:Askaneli wrote:Надо народ привлекать пользоватся новыми версиями.
Я не поклонник антиквариата. У мну последняя версия.
Как иначе будет развиватся продукт всеми любимый ?
с этим АпсАлютно согласен

но у меня сложилось субЪективное очучение что эта версия стабильнее

Странно !!!
Вот у меня все версии что я юзал стабильные почему-то !!!
Может дело не в версии ?(с намёком на посещение ортопеда)

Posted: 2005-05-16 12:28:13
by Sfagnum
Askaneli wrote:Странно !!!
Вот у меня все версии что я юзал стабильные почему-то !!!
Может дело не в версии ?
ну да... я натура мнительная

Askaneli wrote:(с намёком на посещение ортопеда)
думаешь у него проблемы? нуждается в моей помощи?

Posted: 2005-05-16 12:30:00
by Askaneli
Sfagnum wrote:думаешь у него проблемы? нуждается в моей помощи?

Гыыыыыыыыыыыыыыыыыыыыы
Вот этот поворот мне нравится.
А вдруг он в УО играет

Posted: 2005-07-02 18:52:21
by Night Wolf
Спустя некоторое время после запуска скрипта Askaneli на продажу вылазиет такая табличка: Please cancel the current operation or dialog before using `shop`.
приходится выходить из уо, чтобы закрылась менюшка shop.
Может есть другие способы бороться с этим глюком?
Posted: 2005-07-04 05:08:24
by Askaneli
Night Wolf wrote:Спустя некоторое время после запуска скрипта Askaneli на продажу вылазиет такая табличка: Please cancel the current operation or dialog before using `shop`.
приходится выходить из уо, чтобы закрылась менюшка shop.
Может есть другие способы бороться с этим глюком?
Настройки закладки MAIN скинь в студию и скорость конекта какая у тя ?
Posted: 2005-07-04 20:45:59
by Night Wolf
В закладке Main стоят галки напротив:
Flush log
Light
Target XYZ fix
AntiCrash
No client hung message
Permit vars loopback
Version 2.0.3
У меня стрЁм Нео:
→ к абоненту 160 кбит/сек
← от абонента 128 кбит/сек