noooooo!
ok tutorial time:
in the first line of the script, under Program New; insert
now the new function for moving mouse is;
SCAR Code:
MMouse(x, y, random x offset, random y offset);
eg. MMouse(x, y, 6, 6); (edit: woops)
you also need to do this at the bottom of the script
hope it helped 
pm me if you need help on this script btw
Edit: Once you and SetupSRL, you will be able to use TypeSend(string) to enter a value and press Enter
EDIT EDIT: I was bored, so i whipped this together for you... enjoy!
SCAR Code:
program ShopOpener;
{.include SRL/SRL.scar}
var
SKColors : array of integer;
procedure ShopKeeperColors;
begin
SKColors := [3957890, 8225414, 3161415]; //these are the shop assistant colors
end;
procedure OpenShop;
var
x, y, t : integer;
begin
if(FindObjCustom(x, y, ['eeper', 'ssistant'], SKColors, 10))then //this finds the shop keeper/assistant
begin
Mouse(x, y, 6, 6, False); //this right clicks it
Wait(300 + Random(700)); //this waits for the menu
ChooseOption('rade'); //this selects "trade"
MarkTime(t); //this sets a time mark
repeat
Wait(100);
until (ShopScreen) or (TimeFromMark(t) > 6000); // this waits until either a) shop is open, b) took longer than 6.5 seconds
end else
Writeln('Could not find shop assistant');
end;
begin
SetupSRL;
ActivateClient;
ClearDebug;
ShopKeeperColors;//defines the colors for scar
OpenShop; //attempts to open shop
end.
Finds and opens shop. Takes a while because the color of the shop, but it will do the trick