This should work you needed a timer! :P
Simba Code:
program DTMTTEST;
{$i srl/srl.scar}
Var
CoalBag, X, Y: Integer;
begin
SetupSrl;
CoalBag := DTMFromString('maQEAAHicrcxPCkBgEIfh4QZOg2RBUuIATuIyDsbCQhSiiBN4v5qd5edXzzR/ajwRSV2RBJEK4SNArLccBSpV6mz2GTb+dBgwY8WBCzceZfoTOxZMGNGjbWqqa8k+zg8+eQGPxRWP');
If FindDTM(CoalBag, X, Y, MBX1, MBY1, MBX2, MBY2) then
begin
WriteLn('We Found it');
MMouse(x, y, 7, 7);
Wait(50);
If IsUpText('oal') then
Mouse(x, y, 0, 0, True);
End;
FreeDTM(CoalBag);
end.
Spent my 10k Tokens on your Coal Bag to help you 
6k Left though xd
You can also use this
Simba Code:
program DTMTTEST;
{$i srl/srl.scar}
Var
CoalBag, X, Y: Integer;
begin
SetupSrl;
CoalBag := DTMFromString('maQEAAHicrcxPCkBgEIfh4QZOg2RBUuIATuIyDsbCQhSiiBN4v5qd5edXzzR/ajwRSV2RBJEK4SNArLccBSpV6mz2GTb+dBgwY8WBCzceZfoTOxZMGNGjbWqqa8k+zg8+eQGPxRWP');
If FindDTM(CoalBag, X, Y, MBX1, MBY1, MBX2, MBY2) then
begin
WriteLn('We Found it');
MMouse(x, y, 7, 7);
WaitUptext('oal', 200); //Not really safe now but you'll have to make it safer yourself, now it waits 200 Milliseconds for the text once it moved the mouse.
Mouse(x, y, 0, 0, True);
End;
FreeDTM(CoalBag);
end.