SRL Archive - Research & Development Lounge

Procedure Almost Search;


Naum

2007-12-06 12:33:52

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.

Naum

2007-12-06 15:50:16

Common someone reply how i need to improve it :p

bullzeye95

2007-12-06 16:53:36

I'm almost positive that Jagex can't see where your mouse is and what it's doing outside of the applet, so this is pretty much the same to them as moving the mouse out of the screen.

Lalaji

2007-12-06 19:41:59

Pretty good, now what happens if there is already something written in the search box? J/w

Naum

2007-12-07 12:44:53

Yea didn't think about that…