Yoko

All sides of Injection
It is currently 2025-12-22 15:28:40

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 2
  [ 38 posts ]  Go to page 1 2 Next
  Print view Previous topic | Next topic 
Author Message
Dominator
 Post subject: Продажа
PostPosted: 2005-05-12 06:12:40 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Нужен скрипт на продажу неклейсов из сумочек
И желательно чтобы были пояснения в скрипте
Top
   
Reply with quote  
Sfagnum
 Post subject: Re: Продажа
PostPosted: 2005-05-12 08:07:26 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Dominator wrote:
Нужен скрипт на продажу неклейсов из сумочек
И желательно чтобы были пояснения в скрипте
ищи, я выкладывал, полуавтомат. нужен чтоб с реколами - нет такого тут. а мне всё никак не дописать, т.с. комерческий вариант... ибо влом ;)
Top
   
Reply with quote  
Dominator
 Post subject:
PostPosted: 2005-05-13 03:21:21 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Искалскрипт из сумок чтобы можно было продавать ,такого скрипта я ненашел :( .
Если есть возможность выложи ,т.к. сумочем у мну много ,а вручняк влом продавать
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2005-05-13 04:04:46 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Эммм, а обычным ,sell listname они фигова продаются?

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060
Top
   
Reply with quote  
Dominator
 Post subject:
PostPosted: 2005-05-13 04:25:39 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
2Destruction
Они не фигово продаются- они вообще непродаются из сумок (как бы у меня вообше нет неклейсов ,тип вроде так выходит,т.к. пишет мне что нечего продавать)обычным селллист-ом ,поетому и прошу чтобы скрипт дали или кто умеет писать такие скрипты прошу напишите плиз
Top
   
Reply with quote  
Groblin's
 Post subject:
PostPosted: 2005-05-13 06:33:59 
Offline

Joined: 2005-05-13 06:30:48
Posts: 5
Мда, некоторые люди определенно не хотят юзать поиск :(
Спешиал фор ю
http://yoko.netroof.net/forum/viewtopic.php?p=11670
Top
   
Reply with quote  
Dominator
 Post subject:
PostPosted: 2005-05-13 07:03:57 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Groblin's wrote:
Мда, некоторые люди определенно не хотят юзать поиск :(
Спешиал фор ю
http://yoko.netroof.net/forum/viewtopic.php?p=11670


Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт :( , пробовал
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-13 07:54:57 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Dominator wrote:
Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт :( , пробовал
перед продажей надо каждый(!!!) мешок открыть и будет счастие ;)
ЗЫ ща опишу фичу... а то ты уже не первый.
Top
   
Reply with quote  
Askaneli
 Post subject:
PostPosted: 2005-05-13 11:59:57 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Скучная тема.
Уже давно всё решено.
Просто поискать надо и чуток потрудится головой.

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
Dominator
 Post subject:
PostPosted: 2005-05-14 03:08:33 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Sfagnum wrote:
Dominator wrote:
Пасиб конечно , но я поиск юзал и нераз ,етот скрипт (я его уже давно нашел ,прежде чем етот топ делать) из сумок непродаёт :( , пробовал
перед продажей надо каждый(!!!) мешок открыть и будет счастие ;)
ЗЫ ща опишу фичу... а то ты уже не первый.


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

2Асканелли - читать надо все топы (!!!) их не так и много здесь в моей теме , я Поиск Юзал и нераз (ЗЫ читай лучше ,я писал в 1ом посте что я искал , читай мой 4 топ внимательнее , и ненадо делать поспешных выводов насчёт того что тут я леньтяйничаю )
Просто можно было просто по человечески ,как Сфагнум сказать - открой каждый мешок и проблема будет решена с использованием его крипта, больше ничего нетребовалось
Всем спасибо . Тема закрыта
Top
   
Reply with quote  
Askaneli
 Post subject:
PostPosted: 2005-05-14 06:51:24 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
Я про тебя ничего не сказал в своём посте если ты обратил внимание.
Сфаги тебе всё правильно обьяснил и я просто решил флудануть.
Это у нас со Сфаги традиция такая. :D
Вечером если не забуду то выложу свою конечную версию самого механизма продажи. А про открывание мешочков тоже было сказано ранее. Просто инжа не может знать заранее что у тебя в мешочках и поэтому uo.count('тип','цвет') будет выдавать 0.

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
Dominator
 Post subject:
PostPosted: 2005-05-15 03:04:37 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Тогда и я извеняюсь ,и я ваших традиций со Сфагом незнаю
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2005-05-15 04:01:45 
Offline
Junior Expert
User avatar

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

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

Мде...

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-15 10:59:34 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Destruction wrote:
Т.е. если открыть мешочек тада ,sell listname работает нормально?...

Мде...
нет... скрипт нормально работает ;)
Top
   
Reply with quote  
Askaneli
 Post subject:
PostPosted: 2005-05-15 13:13:10 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
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

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

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-15 14:10:55 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
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 - тож лишнее... и при выходе из процедурки я бы бакпак поюзал ;)
Top
   
Reply with quote  
Dominator
 Post subject:
PostPosted: 2005-05-16 03:29:13 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Спасибо огромное ,скрипт отлично работает , но я ненашел где можно подправить его , чтобы он не по 1 неклейсу продавал , а сразу по 25 хотябы (лучше по 200)
Неподскажите где нужно исправить если это возможно
Top
   
Reply with quote  
Askaneli
 Post subject:
PostPosted: 2005-05-16 05:32:55 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
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 - тож лишнее... и при выходе из процедурки я бы бакпак поюзал ;)
хех

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-16 08:27:36 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
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
Top
   
Reply with quote  
Askaneli
 Post subject:
PostPosted: 2005-05-16 08:31:28 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
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 на максселл.
когда продаётся последняя часть итемов ставить максселл меньше нету смысла. Задержка тока регулируется и всё а выходит из задержки по чеклагу.

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 2
  [ 38 posts ]  Go to page 1 2 Next

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 7 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited