Stealth Client Forum

Code: Select all

procedure wa;
var SuccessA,FailureA: string;
begin
      SuccessA:= '1';
     FailureA:= '444 444';
     WaitJournalLine(Now,SuccessA+'|'+FailureA,30000);     
end;
procedure loott;
begin
FindType($1BDD, BackPack);
if FindItem < 1 then
	begin
FindType($1BDD, ground);
	Grab(FindItem,100);
	wait(1000);
		FindType($0E34 ,BackPack);
	DropHere(FindItem); 
	end;

end;
procedure craftff;

			begin
		CancelMenu;

    				 AutoMenu('Carpentry','Miscellaneous');

    		 		AutoMenu('Miscellaneous','Paper'); 

			FindType($1030 ,BackPack); 
			UseObject(FindItem);
			end;


begin
while not dead do
begin
loott();
wait(200);
Craftff();
wa();
end;
end.