SRL Archive - SRL Snippets

function MouseChoose(var x,y,rx1,ry1:Integer; Z:String):Boolean;
begin
  Mouse(x,y,rx1,ry1,False);
  Result := ChooseOption(Z);
end;  

function MouseChooseEx(var x,y,rx1,ry1,WaitTime:Integer; Z:String):Boolean;
begin
  Mouse(x,y,rx1,ry1,False);
  Result := WaitOption(Z, WaitTime);
end;  

It's so much more easier than typing it out >.>

Support - though typing it out isn't that hard :p

I know, i'm lazy though >=o

Moved to snippets. This is something that should be left up to the scripter.

How about using 'WaitOptionMultiEx' instead also making your 'Z' parameter a TStringArray?

I like the idea :D