Stealth Client Forum

Code: Select all

setAutoBuyDelay(2000);    // установить задержку
autoBuy(item_type, item_color, item_count);  // установить ловушку
uoSay('buy');  // сказать 'buy'
wait(2000);  // ждать пока купит
autoBuy(item_type, item_color, 0);  // убрать ловушку

Code: Select all

program BintsBuy;
BEGIN
	AddToSystemJournal('НАЧИНАЮ СКУПКУ ТКАНИ!');
	While not Dead do 
	begin 
		if not GetAutoBuyMode then SetAutoBuyMode(true); 
		SetAutoBuyDelay(4000); 
		AutoBuy($175D,$0000,20);
		uoSay('Yelinda buy');  // сказать 'buy' 
		AddToSystemJournal('Сказал YELINDA BUY!');
		wait(4000);  // ждать пока купит 
		autoBuy($175D,$0000,0);  // убрать ловушку
		FindType($175D,backpack);
		AddToSystemJournal('Куплено ткани: ' + IntToStr(FindCount));
		setAutoBuyDelay(2000);    // установить задержку 
		autoBuy($175D,$0000,20);  // установить ловушку 
		uoSay('Samson buy');  // сказать 'buy' 
		AddToSystemJournal('Сказал SAMSON BUY!');
		wait(4000);  // ждать пока купит 
		autoBuy($175D,$0000,0);  // убрать ловушку
		FindType($175D,backpack);
		AddToSystemJournal('Куплено ткани: ' + IntToStr(FindCount));

	end;
END.

Code: Select all

program Skupka_feathers;
// Покупаем у вендора Aynora feather, до веса пака в 300 стоунов

{$Include 'all.inc'}

const
	kolvo = 42;
	feather = $1BD1;

var i, k : Integer;

begin
	if not GetAutoBuyMode then SetAutoBuyMode(true);
	SetAutoBuyDelay(4);
	AutoBuy(feather,$0000,kolvo);
	while Weight <= 300 do
	begin
		k := Count(feather);
		waitconnection(5000);
		UOSay('Aynora buy');
		repeat
			wait(100)
		until (Count(feather) > k) or (Gold < (kolvo*2));
		i := Count(feather);
		addtosystemjournal('куплено ' + inttostr(i-k) + ' из ' + inttostr(i) + ' перьев');
	end;
	AutoBuy(feather,$0000,0);
End.