Try this:
SCAR Code:
program New;
{.include SRL/SRL.Scar}
var
RedDot: Integer;
procedure DeclareDTM;
begin
RedDot := DTMFromString('78DA639CC6C4C010C380023E426946183D15A' +
'8261655CD4D7435D331CD3987A48609A6261A55CD4B34350048F1' +
'075F'); //Thanks for the DTM Boreas ;)
end;
procedure DotClicker;
begin
if(FindDTM(RedDot, x, y, MMX1, MMY1, MMX2, MMY2))then
begin
repeat
Mouse(x, y, 0, 0, True);
Flag;
repeat
Mouse(257, 184, 0, 0, False);
ChooseOption(x, y, 'Take');
until(Not(ChooseOption(x, y, 'Take')));
until(Not(FindDTM(RedDot, x, y, MMX1, MMY1, MMX2, MMY2)));
end;
begin
SetupSRL;
DeclareDTM;
DotClicker;
end.
It's not flawless, but that's not my fault.