Try a ChooseOption('bas');
SCAR Code:
program New;
{.include SRL/SRL.scar}
procedure WalkToTree ;
var
x, y, bas : Integer;
begin
bas := BitmapFromString2(False, 'a094E778DAE593D10EC2200C45' +
'7FA99442F19130F8FF4F12EC126B8039897B30BE9C25DDB86 7850' +
'20070B31540AEC2B9D448B9D253ACC440CF7AF1AD8EED731F DAC3' +
'B3A9E4D8126C2E8D11BDE78C79C0C4C9C6010BE711D94D886 D956' +
'6CD91FC9E7F65B48C098A36D266C9246D94CA154649D64679 2B3C' +
'652CC1581850194D426768D6A3769DF19E370A25538C7D77D F32F' +
'63BBCEFB33A475D1F78978CB3B37BE33A361EDE023D33B2C3 FB7C' +
'625DBB737A775E67F5B37BF748D6C67E7AAF30CEF8BBC641B E0B6' +
'4B70167FFA3A668AD9735A3315020DD010D6');
if(FindBitmap(x, y, bas))then
begin
Mouse(x, y, 1, 1, False)
ChooseOption('bas');
end;
end;
begin
SetupSRL;
MakeCompass('N');
WalkToTree;
end.
I put it to right click then choose 'bas'
Use the three letters after the word your trying to click on
exp with Shop put hop
Tree put ree
Also, Try reading the SCAR Standards it'll organize you much more. 
Edit: also made only one line for var, not two.