this is what i changed: first dont use movemousesmooth and clickmouse. use mouse instead. it moves and then clicks so its better and it isnt detectable.
SCAR Code:
program FindDTM;
{.include SRL/SRL.scar}
Var
DanceDTM:integer;
DancingDTM:integer;
Procedure LoadDTM;
begin
DanceDTM := DTMFromString('78DA633CC5C4C0F08891011998C9738169982' +
'8E361A09ADBA86A60B2703507806AAE125073920835E7816AEE10' +
'507316A8E619013567806ADE135073900835C7806A9EE0570300D' +
'32D0F85');
DancingDTM := DTMFromString('78DA637462626028636440066B56B18169982' +
'8A327504D16AA1A982C5C8D23504D3A0135264035B904D49803D5' +
'3412506304543381801A7B22CC01B9B993801A57A09A2944A8A92' +
'3A0C607A8261FBF1A00B6FD09AD');
end;
Procedure FindIt;
begin
if(FindDTM(DanceDTM,x,y, 5, 5, 765, 500)) then
Mouse( x, y, 4, 4, true);
if(FindDTM(DancingDTM,x,y, 5, 5, 765, 500)) then
Mouse( x, y, 4, 4, true);
end;
begin
setupsrl;
LoadDTM;
FindIt;
end.
thats what i changed and it compiles. ask if you need more info.