Yoko

Posted: **2005-05-12 06:12:40**

Нужен скрипт на продажу неклейсов из сумочек
И желательно чтобы были пояснения в скрипте

Posted: **2005-05-12 08:07:26**

Dominator wrote:Нужен скрипт на продажу неклейсов из сумочек
И желательно чтобы были пояснения в скрипте

ищи, я выкладывал, полуавтомат. нужен чтоб с реколами - нет такого тут. а мне всё никак не дописать, т.с. комерческий вариант... ибо влом

Posted: **2005-05-13 03:21:21**

Искалскрипт из сумок чтобы можно было продавать ,такого скрипта я ненашел

.
Если есть возможность выложи ,т.к. сумочем у мну много ,а вручняк влом продавать

Posted: **2005-05-13 04:04:46**

Эммм, а обычным ,sell listname они фигова продаются?

Posted: **2005-05-13 04:25:39**

2Destruction
Они не фигово продаются- они вообще непродаются из сумок (как бы у меня вообше нет неклейсов ,тип вроде так выходит,т.к. пишет мне что нечего продавать)обычным селллист-ом ,поетому и прошу чтобы скрипт дали или кто умеет писать такие скрипты прошу напишите плиз

Posted: **2005-05-13 06:33:59**

Мда, некоторые люди определенно не хотят юзать поиск

Спешиал фор ю
http://yoko.netroof.net/forum/viewtopic.php?p=11670

Posted: **2005-05-13 07:03:57**

Groblin's wrote:Мда, некоторые люди определенно не хотят юзать поиск
Спешиал фор ю
http://yoko.netroof.net/forum/viewtopic.php?p=11670

Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт

, пробовал

Posted: **2005-05-13 07:54:57**

Dominator wrote:Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт , пробовал

перед продажей надо каждый(!!!) мешок открыть и будет счастие

ЗЫ ща опишу фичу... а то ты уже не первый.

Posted: **2005-05-13 11:59:57**

Скучная тема.
Уже давно всё решено.
Просто поискать надо и чуток потрудится головой.

Posted: **2005-05-14 03:08:33**

Sfagnum wrote:
Dominator wrote:Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт , пробовал
перед продажей надо каждый(!!!) мешок открыть и будет счастие
ЗЫ ща опишу фичу... а то ты уже не первый.

ПАсиб за совет , попробую.

2Асканелли - читать надо все топы (!!!) их не так и много здесь в моей теме , я Поиск Юзал и нераз (ЗЫ читай лучше ,я писал в 1ом посте что я искал , читай мой 4 топ внимательнее , и ненадо делать поспешных выводов насчёт того что тут я леньтяйничаю )
Просто можно было просто по человечески ,как Сфагнум сказать - открой каждый мешок и проблема будет решена с использованием его крипта, больше ничего нетребовалось
Всем спасибо . Тема закрыта

Posted: **2005-05-14 06:51:24**

Я про тебя ничего не сказал в своём посте если ты обратил внимание.
Сфаги тебе всё правильно обьяснил и я просто решил флудануть.
Это у нас со Сфаги традиция такая.

Вечером если не забуду то выложу свою конечную версию самого механизма продажи. А про открывание мешочков тоже было сказано ранее. Просто инжа не может знать заранее что у тебя в мешочках и поэтому uo.count('тип','цвет') будет выдавать 0.

Posted: **2005-05-15 03:04:37**

Тогда и я извеняюсь ,и я ваших традиций со Сфагом незнаю

Posted: **2005-05-15 04:01:45**

Askaneli wrote:Я про тебя ничего не сказал в своём посте если ты обратил внимание.
Сфаги тебе всё правильно обьяснил и я просто решил флудануть.
Это у нас со Сфаги традиция такая.
Вечером если не забуду то выложу свою конечную версию самого механизма продажи. А про открывание мешочков тоже было сказано ранее. Просто инжа не может знать заранее что у тебя в мешочках и поэтому uo.count('тип','цвет') будет выдавать 0.

Т.е. если открыть мешочек тада ,sell listname работает нормально?...

Мде...

Posted: **2005-05-15 10:59:34**

Destruction wrote:Т.е. если открыть мешочек тада ,sell listname работает нормально?...

Мде...

нет... скрипт нормально работает

Posted: **2005-05-15 13:13:10**

Code: Select all

sub AutoSell()
   Var i=1,SDelay=370
   Var TSell='0x1085',CSell='0x0000'
   Cheklag()
   OpenBag()
   UO.Set("maxsell",100)
   Wait(100)

   While UO.Count(TSell,CSell)>0
      If UO.Count(TSell,CSell)>=100 Then
         UO.Set("buydelay",SDelay*100)
      Else
         UO.Set("buydelay",SDelay*UO.Count(TSell,CSell))
      End If
      Wait(100)
      UO.Sell("Necklace")
      Wait(1000)
      Cheklag()
      Wait(500)
      If UO.InJournal("time") Then
         SDelay=SDelay+5
      End If
   Wend
end sub

sub OpenBag()
UO.FindType('0x0E76','0x0000','backpack')
Wait(200)
While UO.FindCount()>0
UO.Ignore('finditem')
UO.UseObject('finditem')
Wait(600)
UO.FindType('0x0E76','0x0000','backpack')
Wait(200)
Wend
UO.IgnoreReset()
end sub

sub Cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
   Repeat
      Wait(10)
   Until UO.InJournal("backpack")
end sub

без коментов
разбирайтесь сами

Posted: **2005-05-15 14:10:55**

Askaneli wrote:

Code: Select all

sub AutoSell()
   Var i=1,SDelay=370
   Var TSell='0x1085',CSell='0x0000'
   Cheklag()
   OpenBag()
   UO.Set("maxsell",100)
   Wait(100)

   While UO.Count(TSell,CSell)>0
      If UO.Count(TSell,CSell)>=100 Then
         UO.Set("buydelay",SDelay*100)
      Else
         UO.Set("buydelay",SDelay*UO.Count(TSell,CSell))
      End If
      Wait(100)
      UO.Sell("Necklace")
      Wait(1000)
      Cheklag()
      Wait(500)
      If UO.InJournal("time") Then
         SDelay=SDelay+5
      End If
   Wend
end sub

sub OpenBag()
UO.FindType('0x0E76','0x0000','backpack')
Wait(200)
While UO.FindCount()>0
UO.Ignore('finditem')
UO.UseObject('finditem')
Wait(600)
UO.FindType('0x0E76','0x0000','backpack')
Wait(200)
Wend
UO.IgnoreReset()
end sub

sub Cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
   Repeat
      Wait(10)
   Until UO.InJournal("backpack")
end sub

без коментов
разбирайтесь сами

в AutoSell не нужно ни одного wait'a если ток тут:

Code: Select all

      If UO.InJournal("time") Then
         SDelay=SDelay+5
         wait(1000)
      End If

т.с. защита от флуда
в OpenBag() апосля FindType - тож лишнее... и при выходе из процедурки я бы бакпак поюзал

Posted: **2005-05-16 03:29:13**

Спасибо огромное ,скрипт отлично работает , но я ненашел где можно подправить его , чтобы он не по 1 неклейсу продавал , а сразу по 25 хотябы (лучше по 200)
Неподскажите где нужно исправить если это возможно

Posted: **2005-05-16 05:32:55**

Sfagnum wrote:

Askaneli wrote:

Code: Select all

sub AutoSell()
   Var i=1,SDelay=370
   Var TSell='0x1085',CSell='0x0000'
   Cheklag()
   OpenBag()
   UO.Set("maxsell",100)
   Wait(100)

   While UO.Count(TSell,CSell)>0
      If UO.Count(TSell,CSell)>=100 Then
         UO.Set("buydelay",SDelay*100)
      Else
         UO.Set("buydelay",SDelay*UO.Count(TSell,CSell))
      End If
      Wait(100)
      UO.Sell("Necklace")
      Wait(1000)
      Cheklag()
      Wait(500)
      If UO.InJournal("time") Then
         SDelay=SDelay+5
      End If
   Wend
end sub

sub OpenBag()
UO.FindType('0x0E76','0x0000','backpack')
Wait(200)
While UO.FindCount()>0
UO.Ignore('finditem')
UO.UseObject('finditem')
Wait(600)
UO.FindType('0x0E76','0x0000','backpack')
Wait(200)
Wend
UO.IgnoreReset()
end sub

sub Cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
   Repeat
      Wait(10)
   Until UO.InJournal("backpack")
end sub

без коментов
разбирайтесь сами

в AutoSell не нужно ни одного wait'a если ток тут:

Code: Select all

      If UO.InJournal("time") Then
         SDelay=SDelay+5
         wait(1000)
      End If

т.с. защита от флуда
в OpenBag() апосля FindType - тож лишнее... и при выходе из процедурки я бы бакпак поюзал

хех

Posted: **2005-05-16 08:27:36**

Dominator wrote:Спасибо огромное ,скрипт отлично работает , но я ненашел где можно подправить его , чтобы он не по 1 неклейсу продавал , а сразу по 25 хотябы (лучше по 200)
Неподскажите где нужно исправить если это возможно

кста ещё один выговор Асканели

, я сразу и не заметил
вот подредактировал

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)>=100 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:31:28**

Sfagnum wrote:

Dominator wrote:Спасибо огромное ,скрипт отлично работает , но я ненашел где можно подправить его , чтобы он не по 1 неклейсу продавал , а сразу по 25 хотябы (лучше по 200)
Неподскажите где нужно исправить если это возможно

кста ещё один выговор Асканели

, я сразу и не заметил
вот подредактировал

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)>=100 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

Тупишь. Внимательно посмотри скрипт оригинальный.
Тама стоит 100 на максселл.
когда продаётся последняя часть итемов ставить максселл меньше нету смысла. Задержка тока регулируется и всё а выходит из задержки по чеклагу.

Yoko

Продажа

Продажа

Re: Продажа