Bad Boy JH
2010-11-13 00:30:43
This would have good anti-ban potential, its a small modification to the R_ChooseOptionMulti, which simply hovers over the option, but doesn't click…
function R_HoverOptionMulti(Options : TStringArray) : Boolean;
var
i, i2, xOff, yOff, t: Integer;
P : TPoint;
MenuOptions: TStringArray;
begin
Result := False;
if not IsMenuOpen then
begin
MarkTime(t);
while(TimeFromMark(t) < 1000)do ;
if not IsMenuOpen then Exit;
end;
P := Point(SmartGetFieldInt(0, hook_static_MenuX) + 4, SmartGetFieldInt(0, hook_static_MenuY) + 4);
//Writeln('MenuX: '+ToStr(SmartGetFieldInt(0, hook_static_MenuX)));
//Writeln('MenuY: '+ToStr(SmartGetFieldInt(0, hook_static_MenuY)));
MenuOptions := GetMenuText;
for i := 0 to High(MenuOptions) do
begin
for i2 := 0 to High(Options) do
begin
if(Pos(Lowercase(Options[i2]), Lowercase(MenuOptions[i])) <> 0)then
begin
xOff := RandomRange(4, 4 + Random(Length(MenuOptions[i]) * 4 - 4));
yOff := 21 + (16 * i) + RandomRange(2, 10);
MMouse(P.x + xOff, P.y + yOff, 0, 0);
Wait(RandomRange(80, 100));
Result := True;
Exit;
end;
end;
end;