Yoko
http://forum.yoko.com.ua/

Продажа
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3980		 Page 1 of 2
Author:  Dominator [ 2005-05-12 06:12:40 ]
Post subject:  Продажа
Нужен скрипт на продажу неклейсов из сумочек
И желательно чтобы были пояснения в скрипте
Author:  Sfagnum [ 2005-05-12 08:07:26 ]
Post subject:  Re: Продажа
Dominator wrote:
Нужен скрипт на продажу неклейсов из сумочек
И желательно чтобы были пояснения в скрипте
ищи, я выкладывал, полуавтомат. нужен чтоб с реколами - нет такого тут. а мне всё никак не дописать, т.с. комерческий вариант... ибо влом ;)
Author:  Dominator [ 2005-05-13 03:21:21 ]
Post subject: 
Искалскрипт из сумок чтобы можно было продавать ,такого скрипта я ненашел :( .
Если есть возможность выложи ,т.к. сумочем у мну много ,а вручняк влом продавать
Author:  Destruction [ 2005-05-13 04:04:46 ]
Post subject: 
Эммм, а обычным ,sell listname они фигова продаются?
Author:  Dominator [ 2005-05-13 04:25:39 ]
Post subject: 
2Destruction
Они не фигово продаются- они вообще непродаются из сумок (как бы у меня вообше нет неклейсов ,тип вроде так выходит,т.к. пишет мне что нечего продавать)обычным селллист-ом ,поетому и прошу чтобы скрипт дали или кто умеет писать такие скрипты прошу напишите плиз
Author:  Groblin's [ 2005-05-13 06:33:59 ]
Post subject: 
Мда, некоторые люди определенно не хотят юзать поиск :(
Спешиал фор ю
http://yoko.netroof.net/forum/viewtopic.php?p=11670
Author:  Dominator [ 2005-05-13 07:03:57 ]
Post subject: 
Groblin's wrote:
Мда, некоторые люди определенно не хотят юзать поиск :(
Спешиал фор ю
http://yoko.netroof.net/forum/viewtopic.php?p=11670


Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт :( , пробовал
Author:  Sfagnum [ 2005-05-13 07:54:57 ]
Post subject: 
Dominator wrote:
Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт :( , пробовал
перед продажей надо каждый(!!!) мешок открыть и будет счастие ;)
ЗЫ ща опишу фичу... а то ты уже не первый.
Author:  Askaneli [ 2005-05-13 11:59:57 ]
Post subject: 
Скучная тема.
Уже давно всё решено.
Просто поискать надо и чуток потрудится головой.
Author:  Dominator [ 2005-05-14 03:08:33 ]
Post subject: 
Sfagnum wrote:
Dominator wrote:
Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт :( , пробовал
перед продажей надо каждый(!!!) мешок открыть и будет счастие ;)
ЗЫ ща опишу фичу... а то ты уже не первый.


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

2Асканелли - читать надо все топы (!!!) их не так и много здесь в моей теме , я Поиск Юзал и нераз (ЗЫ читай лучше ,я писал в 1ом посте что я искал , читай мой 4 топ внимательнее , и ненадо делать поспешных выводов насчёт того что тут я леньтяйничаю )
Просто можно было просто по человечески ,как Сфагнум сказать - открой каждый мешок и проблема будет решена с использованием его крипта, больше ничего нетребовалось
Всем спасибо . Тема закрыта
Author:  Askaneli [ 2005-05-14 06:51:24 ]
Post subject: 
Я про тебя ничего не сказал в своём посте если ты обратил внимание.
Сфаги тебе всё правильно обьяснил и я просто решил флудануть.
Это у нас со Сфаги традиция такая. :D
Вечером если не забуду то выложу свою конечную версию самого механизма продажи. А про открывание мешочков тоже было сказано ранее. Просто инжа не может знать заранее что у тебя в мешочках и поэтому uo.count('тип','цвет') будет выдавать 0.
Author:  Dominator [ 2005-05-15 03:04:37 ]
Post subject: 
Тогда и я извеняюсь ,и я ваших традиций со Сфагом незнаю
Author:  Destruction [ 2005-05-15 04:01:45 ]
Post subject: 
Askaneli wrote:
Я про тебя ничего не сказал в своём посте если ты обратил внимание.
Сфаги тебе всё правильно обьяснил и я просто решил флудануть.
Это у нас со Сфаги традиция такая. :D
Вечером если не забуду то выложу свою конечную версию самого механизма продажи. А про открывание мешочков тоже было сказано ранее. Просто инжа не может знать заранее что у тебя в мешочках и поэтому uo.count('тип','цвет') будет выдавать 0.

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

Мде...
Author:  Sfagnum [ 2005-05-15 10:59:34 ]
Post subject: 
Destruction wrote:
Т.е. если открыть мешочек тада ,sell listname работает нормально?...

Мде...
нет... скрипт нормально работает ;)
Author:  Askaneli [ 2005-05-15 13:13:10 ]
Post subject: 
Code:
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

без коментов
разбирайтесь сами
Author:  Sfagnum [ 2005-05-15 14:10:55 ]
Post subject: 
Askaneli wrote:
Code:
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:
      If UO.InJournal("time") Then
         SDelay=SDelay+5
         wait(1000)
      End If
т.с. защита от флуда
в OpenBag() апосля FindType - тож лишнее... и при выходе из процедурки я бы бакпак поюзал ;)
Author:  Dominator [ 2005-05-16 03:29:13 ]
Post subject: 
Спасибо огромное ,скрипт отлично работает , но я ненашел где можно подправить его , чтобы он не по 1 неклейсу продавал , а сразу по 25 хотябы (лучше по 200)
Неподскажите где нужно исправить если это возможно
Author:  Askaneli [ 2005-05-16 05:32:55 ]
Post subject: 
Sfagnum wrote:
Askaneli wrote:
Code:
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:
      If UO.InJournal("time") Then
         SDelay=SDelay+5
         wait(1000)
      End If
т.с. защита от флуда
в OpenBag() апосля FindType - тож лишнее... и при выходе из процедурки я бы бакпак поюзал ;)
хех
Author:  Sfagnum [ 2005-05-16 08:27:36 ]
Post subject: 
Dominator wrote:
Спасибо огромное ,скрипт отлично работает , но я ненашел где можно подправить его , чтобы он не по 1 неклейсу продавал , а сразу по 25 хотябы (лучше по 200)
Неподскажите где нужно исправить если это возможно
кста ещё один выговор Асканели ;), я сразу и не заметил
вот подредактировал ;)
Code:
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
Author:  Askaneli [ 2005-05-16 08:31:28 ]
Post subject: 
Sfagnum wrote:
Dominator wrote:
Спасибо огромное ,скрипт отлично работает , но я ненашел где можно подправить его , чтобы он не по 1 неклейсу продавал , а сразу по 25 хотябы (лучше по 200)
Неподскажите где нужно исправить если это возможно
кста ещё один выговор Асканели ;), я сразу и не заметил
вот подредактировал ;)
Code:
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 на максселл.
когда продаётся последняя часть итемов ставить максселл меньше нету смысла. Задержка тока регулируется и всё а выходит из задержки по чеклагу.
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/