Code: Select all
...
const
ttools = $1EB8;
var
TimeStart : TDateTime;
k : integer;
...
Begin
addtosystemjournal('Craft Pickaxe');
k :=0
timestart :=now;
cancelmenu;
automenu('Tinkering' , 'Tools');
automenu('Tools' , 'shovel')
useobject(findtype(ttools,Backpack));
repeat
wait(1000);
k:=k+1;
checksave;
until (injournalbetweentimes('You put|failed', TimeStart, Now)<>-1)or(k>4)
end.