That wont work. If your looking for a bitmap of a tree it will be hard to find seeing as it is 3d and you would have to be in eexactly 1 position. try searching for a few different of the trees colors and then move your mouse over them the check if in the top left corner it says "Cut Tree" (whatever its meant to say) if not look for the color again in a different place. and by the way you need to a have a semicolon at the end of most lines. and you cant have the variables x and y. they are globals of SRL. just change them to something else like a and b or xx and yy. So here is your script free of errors:
SCAR Code:
program new;
{.include srl/srl.scar}
var // means that these are variables
xx,yy,Bitmap:integer; // xx,yy and ie are integers
procedure DeclareBMPS;
begin
Bitmap := BitmapFromString2(False, 'aA1AB578DAED98D9728' +
'42010457F89A6179C4706F5FF3F292C260341465C92B22AE1 E1D6' +
'148A1EDBEEDB384A29D0A2FC988292D35EF939059D862F150 8F33' +
'20425FD9A611BE7C97AD50385197641E770350907153B137E CF0F' +
'AF46BB97F21C740A4759BD66640C33C662F82DCF78DF70FDF FF19' +
'706BCD59BD26AEB6B6944A51D001A545E1D323069B430DC8D 7985' +
'D3128225C1198645AF2787339A78589178CE44DBD22BC997F BA62' +
'82D9AE29662584732452F9224DA1EBD941C04D8A21162870F 798A' +
'46C74416C6427BD8EA55D5DA9C5C2B18E14CB582013138E7C A862' +
'6ADBAF85BB40DCDC9D3BBFB11F2167FADF9F92DADC84F7BE3 0AB9' +
'4CC23836F97B386B4DD912ABE374B4F7901FD32CC78A3C899 57EA' +
'82B15AB6AF266E6ECE5CCDCBBF0ABA8FECC87768438A7BDDF 063F' +
'141D21EA41E6AA726BDA42F3FBE6DEFEBD37ADBC057E3221A 54CA' +
'8BB43912D0D6FCCDDBE8BAA76FBBA5E1ACF9EF32FBE1DC913 9B18' +
'51585C39675E895B076D977376E4584E6E4446C23CAA2BE4B 11FF' +
'1C882BCD1C17BA2DAE39F3DE4957BD4E4C573A5A7D8D96B76 7B7E' +
'4FB6449E823CE54616EDDDDE7E5187DA208F116E91B71CE62 0F9A' +
'51D2A55684DBEECB5AE8A79B797166E9FED4B1BDEFEB9338C F14F' +
'BA549961856A473F3D567D514F7CE53557EDEE4A8DFD6407E 1C5D' +
'F62AD98AF44BEDA75DFE01B19DE67CB6D3837F8F308DFFE3F 87F7' +
'15F1ABE303122');
end;
procedure ClickBMPS;
begin
// I changed the functions you used into better ones. But I left them commented incase
// you still wanted them.
// wait(300 + random(100));
// movemousesmooth(xx, yy);
// wait(200 + random(100));
// clickmouse(xx, yy, true);
Mouse(xx, yy, 10, 10, true); // It moves waits clicks etc. all in one.
end;
Procedure FindBMPS;
begin
if(FindBitmap(Bitmap,x,y))then
ClickBMPS;
end;
begin
repeat
wait(4000 + random(1000));
DeclareBMPS;
FindBMPS;
until(false)
end.
It may not work but that is impressive for a first script 
Good luck!