Yoko

Askaneli wrote:

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

хе...хе... не туплю я
дело в том что он у тебя идёт числовым форматом, а надо строкой так чтА... выговор тебе и уже т.с. с занесением

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 

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