PDA

View Full Version : Procedure Almost Search;



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.

Naum
12-06-2007, 08:50 PM
Common someone reply how i need to improve it :p

bullzeye95
12-06-2007, 09:53 PM
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
12-07-2007, 12:41 AM
Pretty good, now what happens if there is already something written in the search box? J/w

Naum
12-07-2007, 05:44 PM
Yea didn't think about that...