To find symbol use:
SCAR Code:
If FindSymbol(x, y, 'Store') Then Mouse(x, y, 2, 2, True);
Always close and;
SCAR Code:
program New;
{.include SRL/SRL.Scar}
Var
StoreIcon: integer;
x,y:integer;
Begin
SetUpSRL;
StoreIcon := BitmapFromString(16, 15, 'beNoVkklMU2EUhe/re+9' +
'/nUuLNEBQE4gQImjQhXEIYQigqKlAIS0QRhsIBSQKGhGIDKIylKFK' +
'BUqwaSEMpUBnSqEMbRMIihsTF24wrgxxoQlxh3/X95xzT+79xEKgA' +
'Eig2QQQwCBKgARsEHJByoPzkegSA+cYiEDAEyGGIoBiAbAQw+NjcV' +
'RkuIhPIoAtx6rXYtm0uB0z1r31fQaYSEF4GBvhYIYGgAiAMAAa2+2' +
'WsS231mfvVZcn15QkqhRJttmeoNfosRmxmCaABSSiokkQC9h8n8sc' +
'XJ9WKS42VV3oaErUdt0Ye53RUJnwtC7NadF5XasMxQPgkxSuD7iG3' +
'zmvVmY+r8ow9Cot2tKVMeXMoOxDj6zjUXZFYbrHYSWADyAlWcDnwr' +
'fDzQ2zvlGeZeisM3aWud7X+KYfOnRK46Bc11tcmndTq+l32vwsiJZ' +
'KAZHgs01+Xps9tJpaCzPWhpsWu+QHs7XBmaqFEVl1fsxYf8NHvdZh' +
'2+ZyYykh/P2n//Pb5He0fVrte6vKsnRXuwdU9j7F8oDcPKosv3/WN' +
'N7+5WB3Yc4BcOb7SdzJac7RcfbPozL/ilL3LNU1pF7urvVoWiZais' +
'2ax0VpiXpNd8Dnc9p3ACS/TpOOT699/XE1ELx1uFVZlyfWNd9zDT9' +
'Z7FWvj3e8qpPVK9Lmp4aW5kyeNR+FJNI4cG3n7eyqBAzkXIfRttye' +
'+tQXFSkTL+/3N6dp2u+oy1KUDy57HAaJhI3fSiGgaBDxIOCdbKzIl' +
'GfFl9xOUBUkq+TxlQWxd9OF+bkxpUVXDFNd+JIEETq+gIN4KESCbX' +
'5hWqudGtWYdCPD3a1m4zv74sTQm5YJbSfCyQSIw/AGIX4EARw+R0I' +
'ATRJoz79vXbJ5XRuBLb/basckSIU8nCbihCw0KQbg8PghJ80l8T6u' +
'iI1BAQKzxeARDRw2wUGYS4Co/96g714=');
if FindBitmapToleranceIn(StoreIcon,x,y,521,3,716,164,25) then
mouse(x,y,0,0,true);
end.
Your script chould seems like this. But use this:
SCAR Code:
program New;
{.include SRL/SRL.Scar}
Var
x,y: integer;
Begin
SetUpSRL;
If FindSymbol(x, y, 'Store') Then Mouse(x, y, 2, 2, True);
End.