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.