SRL Archive - OSR Help

Using findDtm is it possible to have multiple DTM strings for different items or colors without having to make a new procedure?

Place them in an array and loop through them.

function blabla:Boolean;
var
  i,x,y:Integer
  dtms:Array of Integer;
begin
  setLength(dtms,3);
  dtms[0] := DTMFromString('blablabla');
  dtms[1] := DTMFromString('blablabla');
  dtms[2] := DTMFromString('blablabla');

  for i := 0 to 2 do
  begin
    Result := FindDTM(dtms[i],x,y,100,100,200,200);
    if Result then
      Exit;
  end;
end; 

Thank you but after doing this how do i use the function with this procedure

procedure FrogFinder;
var
x, y, Frog: Integer;
begin//Begins program.
Frog := DTMFromString('mQwAAAHicY2aAAGYgZoTSrFAx12IVBvtMRQbTCGkGNiAfhhmRMBAAAFSaAnI=');
//With the above, we Defined our DTM with the code the DTM Editor gave us.
if FindDTM(Frog, x, y, MSX1, MSY1, MSX2, MSY2) then
//FindDTM(DTMname, x, y, xs, ys, xe, ys):Boolean;
begin
Mouse(x, y, 4, 4, False);
ChooseOption('ake');
Wait(3000+random(250));
Writeln('We have picked up a toad!');

FreeDTM(Frog);
end;
end;