function RSCE_ChooseOptionItems: TStrArray;
var
  a: TBox;
  b, e: TSCARBitmap;
  c: TSCARClient;
  i: Integer;
  p: TPointArray;
begin
  b := CreateBitmapFromText('Choose option', MSSL_MM.st[RSCE_MMS].font[RSCE_MainFont].obj, 16776960);
  try
    a := RSCE_Client.ImageArea;
    b.TranspColor := 0;
    if FindBitmap(x, y, b, a.X1, a.Y1, a.X2, a.Y2) then
    begin
      SetLength(Result, 25);
      if FindColorsEx(TPA, [RSCE_TEXT_PLAYER, RSCE_TEXT_NPC, RSCE_TEXT_ITEM, RSCE_TEXT_OBJECT, RSCE_TEXT_LEVEL_ULTRAHIGH, RSCE_TEXT_LEVEL_VERYHIGH, RSCE_TEXT_LEVEL_HIGH, RSCE_TEXT_LEVEL_PRETTYHIGH, RSCE_TEXT_LEVEL_MEDIUM, RSCE_TEXT_LEVEL_PRETTYLOW, RSCE_TEXT_LEVEL_LOW, RSCE_TEXT_LEVEL_VERYLOW, RSCE_TEXT_LEVEL_ULTRALOW], x, (y + 15), a.X2, a.Y2) then
      begin
        e := MSSL_CaptureEmptyClient;
        try
          c := SetClient(TSCARBitmapClient.Create(e));
          try
            MSSL_SetPixels(e, TPA, clWhite);
            for i := 0 to 24 do
            begin
              Result[i] := Trim(MSSL_GetTextAt(x, (y + ((i + 1) * 15)), 0, MSSL_MM.st[RSCE_MMS].font[RSCE_MainFont].obj, 0, 0, clWhite, 40, True, tr_AllChars));
              if (Length(Result[i]) < 8) then
                Break;
              RSCE_FixText(Result[i], tm2_GameText);
            end;
            SetLength(Result, i);
          finally
            SetClient(c).Free;
          end;
        finally
          e.Free;
          SetLength(TPA, 0);
        end;
      end;
    end;
  finally
    b.Free;
  end;
end;