Stealth Client Forum

Code: Select all

program Mine;
var x,y,i:integer;
var Time : TDateTime;


procedure Make;
Begin
wait(1000);
i:=200;
clearjournal;
goto try
end;

procedure Make2;
Begin
wait(100);
i:=200
clearjournal;
end;


begin
Time:= Now - (0.5 / 1440); 
while weight <= 400 do
begin
for x := -1 to 1 do
begin
for y := -1 to 1 do
	begin
try:
	useobject($40009d01);
	waitfortarget(5000);
	targettoxyz(str(getx(self)+x,str(gety(self)+y,str(getz(self));
	i:=0
	while i<100 do
	begin
	
if InJournalBetweenTimes('but fail',Time,Now) or InJournalBetweenTimes('You put',Time,Now) or InJournalBetweenTimes('You must wait to perform another action',Time,Now)>= 0 then make;



if InJournalBetweenTimes('nothing here',Time,Now) or InJournalBetweenTimes('Try mining',Time,Now) or InJournalBetweenTimes('location',Time,Now) or InJournalBetweenTimes('in rock',Time,Now) >= 0 then make2;


	i:=i+1
	end;
	end;
end;
end;
end.

Code: Select all

waitfortarget(5000); 
targettoxyz(str(getx(self)+x,str(gety(self)+y,str(getz