Another script I whipped up real quick, lock picking trainer.
NOTE: This does not yet have an option to refill picks as I am buying them when I need them. However it will not run when you are out of picks.
Program Lockpicking;
const
key = //ID of the key to relock the chest
chest = //ID of the lockable chest to pick
pick = $14FC;
var
ctime : TDateTime;
procedure lock;
begin
ClearJournal;
UseObject(key);
WaitTargetObject(chest);
WaitJournalLine(Now,'You lock it',1000);
Wait(1000);
end;
begin
While not Dead do
begin
While GetQuantity(FindTypeEx(pick,$FFFF,Backpack,false)) > 0 do
begin
UseType(pick,$FFFF);
WaitForTarget(1000);
if TargetPresent then
begin
ClearJournal;
TargetToObject(chest);
wait(500);
end;
WaitJournalLine(Now,'The lock quickly yields to your skill|You are unable to pick the lock',3000);
wait(500);
if (InJournalBetweenTimes('This does not appear to be locked|The lock quickly yields to your skill', ctime, Now)<>-1) then
begin
lock;
end;
end;
end;
end.