BlankScrolls (Tinkering)

[Vizit0r]

1) изначально сделано для шарда NDW
2) делает по 30 штук
3) жрет не чаще одного раза в 10 минут

Code: Select all

program BlankScrolls;
var     i : Integer;
	stime : TDateTime;
	time : Cardinal;


{$Include 'all.inc'}

Begin  // Main program start!!!
time :=Timer;
FindDistance := 0;
while true do
begin
//0E34
	Stack($14EB,$FFFF);
	wait(500);
	if Timer > Time + 10*60*1000 then
	begin
	Hungry(1,$FFFFFFFF);
	time :=Timer;
	end;
	wait(500);
	for i:=1 to 5 do
	begin
		if TargetPresent then CancelTarget;
		stime := Now;
		WaitTargetGround($1BDD);
//3636
		WaitGump('3636');
		CheckSave; 
		CheckTargetError(5,2);
		UseObject(FindType($1EB9,ground));
			repeat 
				CheckSave; 
				InJournalBetweenTimes('create|make|destroy|already', stime, Now); 
				wait(100); 
			until (LineCount >= 30) or (Now > stime + (4.9/1440));
	end;
end;

End.