This is my first Procedure called almost search. It will type in something in the search bar on top of the rs screen. and almost search 
This is my first procedure;
SCAR Code:
procedure Search;
Var f,e,x,y : integer;
begin
mouse(645, -15, 1, 1, true)
wait(800 + Random(200))
begin
case Random(7) of
1: SendText('Macro?')
2: SendText('Mining')
7: SendKeys ('-')
end;
MMouse(727, -9, 1, 1)
e := 5 + Random(6); //Of Almost Logout credits to Yakman :)
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(727 + Random(10), -9 + Random(10), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
end;
end;
Post feedback.