Page 2 of 2

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

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

А ты проверь сперва.
как думаешь я этим скриптом продаю по 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 если она не работает?
а кто ж тебя читера знает? :lol:
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 если она не работает?
а кто ж тебя читера знает? :lol:
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
Askaneli wrote:Согласен так эстетичнее. Но выёгрышь тока в эстетичности.
А насчёт преобразования числа в строку http://yoko.netroof.net/forum/viewtopic ... 2956#12956
Читаем ОТЦА этого форума внимательно
ну... что я тебе могу сказать... совместимость с более ранними версиями должна быть ;)
к тому же много народу юзает более ранние версии.
так чтА... норм так ;)

Posted: 2005-05-16 10:49:34
by DIKIY
Прикольно, сфаг, вы так друг друга нагибали, что я подумал - в следующей версии скрипта вендор ещё и доплачивать будет за покупку у Вас )))

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


,set buydelay начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи. :D

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

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

В версии 0.3.30.4 не работает точно. Недавно столкнулся с этим.

Posted: 2005-05-16 12:11:44
by Sfagnum
Askaneli wrote:
Sfagnum wrote:
Askaneli wrote:,set buydelay начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи. :D
в версии 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 начало работать тока с определённой версии инжи. В старых версиях не работает. Так что по любому придётся обновлять версию инжи. :D
в версии 3.хх работает. а это одна из самых юзаемых версий ;)

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

Надо народ привлекать пользоватся новыми версиями.
Я не поклонник антиквариата. У мну последняя версия.
:D
Как иначе будет развиватся продукт всеми любимый ?

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

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

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

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

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

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

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 кбит/сек