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.