JAD
2009-08-15 02:03:30
{*******************************************************************************
Procedure ChooseOptionNumber(option: Integer): Boolean;
by: JAD
Description: Chooses option based off of coordinates for less lag.
Option 1 = upper most option, option 2 = one below that, and so on.
*******************************************************************************}
function ChooseOptionNumber(option: Integer): Boolean;
var
x,y,mx,my, i, t: Integer;
begin
if(not(LoggedIn))then
Exit;
GetMousePos(x,y);
my := yy + 25 + random(7); //28 = perfect center
mx := xx + random(37);
if(not(option = 1))then
for i := 2 to option do
my := my + 15;
MMouse(mx,my,0,0);
MarkTime(t);
repeat
wait(50+random(40));
if(FindColor(mx,my,6121839,mx-25,my,mx+25,my+2))then
begin
Result := true;
GetMousePos(mx,my);
Mouse(mx,my,0,0,true);
wait(40+random(60));
Exit;
end;
until(TimeFromMark(t) > 1500+random(900));
Result := false;
end;
ChooseOption causes me a good amount of lag on more occasions than one. This just does it by which ever option number for minimal lag and maximum speed.