SRL Archive - SRL Archives

function ChooseOption(txt: string): Boolean;
var
   B: TBox;
   TPA: TPointArray;
   X, Y, I, C: Integer;
   P: TPoint;

begin
  Result := False;
  GetClientDimensions(B.X2, B.Y2);
  B.X1 := 0;
  B.Y1 := 0;
  FindColorsTolerance(TPA, 4674653, B.X1, B.Y1, B.X2, B.Y2, 0);
  If Length(TPA) < 10 Then
    Exit;
  B.X2 := 0;
  B.Y2 := 0;
  
  P := TPA[0];
  For I := 0 To High(TPA) - 1 Do
    If TPA[I].X = TPA[I+1].X - 1 Then
    Begin
      If C > 5 Then
      Begin
        B.X1 := P.X;
        B.Y1 := P.Y;
        Break;
      End Else
        C := C + 1;
    End
    Else
    Begin
      P := TPA[I + 1];
      C := 0;
    End;
  If I = Length(TPA) Then
  Begin
    WriteLn('Choose Option Menu Getting Failed');
    Exit;
  End;
  InvertTPA(TPA);
  C := 0;
  P := TPA[0];
  For I := 0 To High(TPA) - 1 Do
    If TPA[I].X = TPA[I+1].X + 1 Then
    Begin
      If C > 5 Then
      Begin
        B.X2 := P.X;
        B.Y2 := P.Y;
        Break;
      End Else
        C := C + 1;
    End Else
    Begin
      P := TPA[I + 1];
      C := 0;
    End;
  If I = Length(TPA) Then
  Begin
    WriteLn('Choose Option Menu Getting Failed');
    Exit;
  End;
  If FindText(X, Y, txt, upchars, B.X1, B.Y1, B.X2, B.Y2) Then
  Begin
    Result := True;
    Mouse(B.X1 + 5, y + 1, B.X2 - B.X1 - 5, 13, True);
  End
  Else
  begin
    MMouse(B.X1 - 50, B.Y1 - 50, 40, B.Y2 - B.Y1);
    Wait(200 + Random(100));
  end;
end;

:)

The bug:

[banana]Color Picked: 4674653 at (0, 338)
Color Picked: 4674653 at (518, 338)[/banana]

Those pixels are at first clBlack (0), but change after a few minutes of playing to the ChooseOption color.

Time running: 31 Minutes and 23 Seconds

Seems to be working fine :)

Everyone, redownload the one I just posted. I made a very small mistake, but it is quite important. ;)
IF the first doesn't work, try this one:

function ChooseOption(txt: string): Boolean;
var
   B: TBox;
   TPA: TPointArray;
   X, Y, I, C: Integer;
   P: TPoint;

begin
  Result := False;
  GetClientDimensions(B.X2, B.Y2);
  B.X1 := 0;
  B.Y1 := 0;
  FindColorsTolerance(TPA, 4674653, B.X1, B.Y1, B.X2, B.Y2, 0);
  If Length(TPA) < 10 Then
    Exit;
  B.X2 := 0;
  B.Y2 := 0;
  
  P := TPA[1];
  For I := 0 To High(TPA) - 1 Do
    If TPA[I].X = TPA[I+1].X - 1 Then
    Begin
      If C > 5 Then
      Begin
        B.X1 := P.X;
        B.Y1 := P.Y;
        Break;
      End Else
        C := C + 1;
    End
    Else
    Begin
      P := TPA[I + 1];
      C := 0;
    End;
  If I = Length(TPA) Then
  Begin
    WriteLn('Choose Option Menu Getting Failed');
    Exit;
  End;
  InvertTPA(TPA);
  C := 0;
  P := TPA[1];
  For I := 0 To High(TPA) - 1 Do
    If TPA[I].X = TPA[I+1].X + 1 Then
    Begin
      If C > 5 Then
      Begin
        B.X2 := P.X;
        B.Y2 := P.Y;
        Break;
      End Else
        C := C + 1;
    End Else
    Begin
      P := TPA[I + 1];
      C := 0;
    End;
  If I = Length(TPA) Then
  Begin
    WriteLn('Choose Option Menu Getting Failed');
    Exit;
  End;
  If FindText(X, Y, txt, upchars, B.X1, B.Y1, B.X2, B.Y2) Then
  Begin
    Result := True;
    Mouse(B.X1 + 5, y + 1, B.X2 - B.X1 - 5, 13, True);
  End
  Else
  begin
    MMouse(B.X1 - 50, B.Y1 - 50, 40, B.Y2 - B.Y1);
    Wait(200 + Random(100));
  end;
end;

Good job wizzup? :D!
The old one was quite annoying while banking:p

PvH

Thank you Wizzup this should help a lot just need smart now. =]

Has a date been set for next rev release?

I believe the set date for a new release is usually "As soon as its fixed and tested"

Is there a reason this is only in members?

Because we are waaaay cooler than Jr Members ;)