Stealth Client Forum

Code: Select all

program Skupka_NS;
// Покупаем у вендора Fenn ns по 1000 шт,
// сворачиваем в диды. До 20 шт.

{$Include 'all.inc'}

const
	kolvo = 200;

var i, k, s : Integer;
	tmpser : Cardinal;
	tmptime : TDateTime;

begin
	if not GetAutoBuyMode then SetAutoBuyMode(true);
	SetAutoBuyDelay(4);
	AutoBuy(NS,$0000,kolvo);
	for i := 1 to 20 do
	begin
		k := 0;
		repeat
			waitconnection(3000);
			UOSay('fenn buy');
			repeat
				wait(100)
			until (Count(NS) > k);
			k := Count(NS);
			addtosystemjournal('куплено ' + inttostr(k) + ' для ' + inttostr(i) + '-го дида');
		until k >= 1000;
		while (Count(NS) > 0) do
		begin
			tmpser := findtype(NS,backpack);
			if tmpser <> 0 then
			begin
				if targetpresent then CancelTarget;
				tmptime := Now;
				UOSay('.tradedeed');
				WaitForTarget(5000);
				If TargetPresent then TargetToObject(tmpser);
				k := 0;
				repeat
					wait(100);
					k := k + 1;
				until (InJournalBetweenTimes('Вы создали торговый документ', tmptime, Now)<>-1) or (k > 300);
			end;
		end;
	end;
	AutoBuy(NS,$0000,0);
End.