SCAR Code:
program Test;
{.include SRL/SRL.scar}
var
TreePart: Integer;
Procedure DTM;
Begin
TreePart := DTMFromString('78DA63AC64626058CCC8800C5AD36CC1344C9' +
'4B102A8661AAA9AB2687354352073D6A1AAA98AB54055530354B3' +
'96809A724C731A92AC50D59401D5CC4155D39DE380A20600F2A50' +
'D71');
if FindDtm(TreePart, x, y, MSX1, MSY1, MSX2, MSY2) Then //Changed 0's, now will search MainScreen For DTM
Begin
Mouse(x, y, 5, 5, True);
Sleep(150+Random(150));
End //- Added An End
End;
Begin
SetupSRL;
ActivateClient;
Repeat
DTM;
Until(False); //- Needed An Until
End.
Fixed