Stealth Client Forum

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.