Naum
12-06-2007, 05:33 PM
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 :p
This is my first procedure;
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.
This is my first procedure;
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.