Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

BlankScrolls (Tinkering)

Only working scripts
Post Reply
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

BlankScrolls (Tinkering)

Post by 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.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Post Reply