Try changing the MouseSpeed:
SCAR Code:
program New;
{.include SRL/SRL.Scar}
var
iron, x, y :integer;
begin
Wait (3000)
iron := DTMFromString('78DA6314626060E0614001C17EBE0CFF813 42' +
'310FF0702467E208383010D302291405A0C48B0619A83A246 1148' +
'70113047164808A2AAC8484C40550392974055A3A3A981AA0 6E41' +
'661FC760100B8C8097B');
if (FindDTM(iron,x, y,557, 213, 602, 252)) then
begin
MouseSpeed:= X; //Change this to whatever speed you like. Faster = Higher
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, true);
writeln('Congratz! You have just found your first DTM!')
end;
end.
To make it look a bit neater, use procedures, and capitalise the commands.
SCAR Code:
program New;
{.include SRL/SRL.Scar}
const
Tries = 10; //Times to try to find the DTM - makes it more reliable
var
Iron, X, Y, Trys : Integer;
procedure LoadDTM;
begin
Wait (3000)
Iron := DTMFromString('78DA6314626060E0614001C17EBE0CFF813 42' +
'310FF0702467E208383010D302291405A0C48B0619A83A246 1148' +
'70113047164808A2AAC8484C40550392974055A3A3A981AA0 6E41' +
'661FC760100B8C8097B');
end;
procedure FindIt;
begin
Inc(Trys);
if (FindDTM(iron,x, y,557, 213, 602, 252)) then
begin
MouseSpeed:= X; //Change this to whatever speed you like. Faster = Higher
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, True);
WriteLn('Congratz! You have just found your first DTM!')
end;
end;
begin
LoadDTM;
repeat
FindIt;
until(Trys = Tries);
end.
As you can see, I added some bits so that it tries to find the DTM "Tries" amount of times before giving up, making it a bit more reliable. I could show you how to improve it even more, but I don't have time right now.
Hope I helped,
Richard