[Drw] Скупка

[Nearga]

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

Code: Select all

  for i:=1 to rmax do
    begin
		UOSay(vname+' buy');
		AddToSystemJournal(inttostr(i)); 
		AutoBuy(buy[i],$0000,kolvo);
		Wait(4500);
		AutoBuy(buy[i],$0000,0);
	end;

Затестил, первые пару раз было все ок. Пока не накупил два десятка пустых спеллбуков, которые никуда деть нельзя.

Существует ли папский метод, чтоб работал наверняка?

[Nearga]

Забодяжил

Code: Select all

GetShopList(a); SetSilentMode(True); // GetFindedList(a); 
  for i := 0 to a.Count - 1 do
    begin
     StrBreakApart(a.Strings[i],'|', str);
     AddToSyStemJournal(intTostr(i)+' '+str[4]+' '+str[14]); 
    end;

проверил айдишники у продавца - такиеже, как и у меня.

[Nearga]

Еще и кляп получил - видать, сильно часто дергал продавца

ЗЫ: а, это фигня: с паузой и BuyDelay игрался )

[CFA]

Первый метод вполне рабочий, только AutoBuy лучше делать перед UOSay(vname+' buy');

[Nearga]

Оки, пасиб, попробую в обратном порядке... он вроде как и рабочий, но иногда или не все скупает, или скупает не то, что нужно.

[Nearga]

Та же фигня, если у вендора уже скуплен товар. Опять барахла закупил.

[Nearga]

Code: Select all

for i:=1 to rmax do
    begin		
		AddToSystemJournal(inttostr(i)); 
		AutoBuy(buy[i],$0000,kolvo);
		wait(5000);
		UOSay(vname+' buy');
		Wait(5000);
		AutoBuy(buy[i],$0000,0);
		Wait(5000);
	end;

Вообще ничего не покупает 0_0
Пишет, "Oh..You were so fast. Please repeat your order slower."

[yuras]

так правильней

Code: Select all

for i:=1 to rmax do
   AutoBuy(buy[i],$0000,kolvo);
UOSay(vname+' buy');
AddToSystemJournal(inttostr(i)); 
Wait(4500);
for i:=1 to rmax do
   AutoBuy(buy[i],$0000,0);

[Nearga]

Пробовал так, как вы советовали - все равно пишет, "Oh..You were so fast. Please repeat your order slower."

Добавил

Code: Select all

for i:=1 to rmax do begin
   AutoBuy(buy[i],$0000,kolvo);
   wait(1000);
   end;
UOSay(vname+' buy');
AddToSystemJournal(inttostr(i)); 
Wait(4500);
for i:=1 to rmax do
   AutoBuy(buy[i],$0000,0);

та же фигня

[Nearga]

В принципе, самый первый вариант вполне сносно работает... Долговато, правда, но скупает то, что нужно.
По крайней мере, пока у торговца есть товары.. если запустить скрипт еще раз - скупает абсолютно левое барахло (почему?).

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

[Nearga]

Пока остановился на таком варианте, вполне рабочий... но хотелось бы увидеть нормальный, без костылей

Code: Select all

AddToSystemJournal('Подошли к ' + vname); 
	
	a := TStringList.Create;
	UOSay(vname+' buy');
	wait(500);	
	GetShopList(a);
	SetSilentMode(False);
	AddToSystemJournal('Вещей у вендора:' + inttostr(a.count));
	
	if (a.count > 8) then begin	
		for i:=1 to rmax do
		begin
		  UOSay(vname+' buy');
		  AddToSystemJournal(inttostr(i)); 
		  AutoBuy(buy[i],$0000,kolvo);
		  Wait(4500);
		  AutoBuy(buy[i],$0000,0);
	   end;   
   end
   else begin
	AddToSystemJournal('Шмота.нет');	
   end;
   a.free;

[yuras]

AutoBuy это установка ловушки, таймер между установками не нужен. Т.е.ты сначала указываешь что надо купить, открываешь бай лист и все ловушки срабатывают. А на что такая реакция "Oh..You were so fast. Please repeat your order slower." слишком часто говоришь buy или очень быстро выбираешь что купить? Вручную получается такое сообщение вызвать?

[Nearga]

Запилил вот так

Code: Select all

SetAutoBuyDelay(15);
	AddToSystemJournal('Step 1');
	for i:=1 to rmax do
		AutoBuy(buy[i],$0000,kolvo);
	AddToSystemJournal('Step 2');
	UOSay(vname+' buy');
	Wait(15000);
	AddToSystemJournal('Step 3');
	for i:=1 to rmax do
		AutoBuy(buy[i],$0000,0);

Скупил абсолютно все, что у вендора есть
Зато можно точно сказать, что "Oh..You were so fast. Please repeat your order slower." - это из-за того, что быстро соглашался (раньше было SetAutoBuyDelay(5)

[Nearga]

Фигня какая-то... иногда покупает то, что нужно, иногда недобирает, иногда гребет все подряд... что за хрень? ((((

[yuras]

Фигня какая-то... иногда покупает то, что нужно, иногда недобирает, иногда гребет все подряд... что за хрень? ((((

попробуй на более поздней версии стелса, на 4.0.3 не тестил, но на 3.9.9 все отлично работало.