Can you guys replace your ChooseOptionMultiEx with this version? It debugs the options. Then we can see what Simba's seeing as opposed to what's actually there.
function ChooseOptionMultiEx(Texts: TStringArray; TextType: String; Action: fnct_ActionOptions): Boolean;
var
B: TBox;
i, H, ii, L: Integer;
T: TPoint;
Options: array of TOptions;
begin
Result := False;
Options := GetChooseOptions(TextType);
if (Length(Options) < 1) then
Exit;
H := High(Options);
for i := 0 to h do
writeln(options[i].str);
L := High(Texts);
for i := 0 To L do
begin
for ii := 0 to H do
If Pos(Texts[i], Options[ii].Str) > 0 Then
begin
Result := True;
B := Options[ii].Bounds;
GetMousePos(T.x, T.y);
case Action of
ClickLeft: if PointInBox(T, B) then
ClickMouse2(true)
else
MouseBoxEx(B.x1 + 5, B.Y1, B.x2 - 5, B.Y1 + 5,5, 1);
Move: if not PointInBox(T, B) then
MouseBoxEx(B.x1 + 5, B.Y1, B.x2 - 5, B.Y1 + 5,5, 3);
Nothing: begin end;
else
srl_warn('ChooseOptionMultiEx', 'ClickRight not a valid click for RS menus!', warn_AllVersions);
end;
Exit;
end;
end;
B := IntToBox(Options[0].Bounds.X1, Options[0].Bounds.Y1,
Options[H].Bounds.X2, Options[H].Bounds.Y2);//to mmouse away
if Action <> Nothing then
begin
MMouse(Max(B.X1 - 50, 0), Max(B.Y1 - 50, 0), 40, B.Y2 - B.Y1);
Wait(200 + Random(100));
end;
end;