obj

{$DEFINE RS07}
{$I MSSL\MSSL.scar}                     // NOTE: Used Draynor Bank booth colors as an example there.

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
end;

var
  x, y, t: Integer;

begin
  MSSL_Setup;
  t := GetSystemTime;
  //                 X  X     Object name    Uptext style   Color Settings() CTS S. HueM. SatM.   Color Tol Split      Area X1              Area Y1               Area X2               Area Y2
  if RS07_FindObject(x, y, 'Bank Bank booth', um_IsUpText, MSSL_ColorSettings(2, 0, 0.14, 0.46), 5796480, 6, 5, RS07_GameActionBx.X1, RS07_GameActionBx.Y1, RS07_GameActionBx.X2, RS07_GameActionBx.Y2) then
  begin
    WriteLn('Found object at ' + IntToStr(x) + ', ' + IntToStr(y) + ' coordinates! [' + IntToStr(GetSystemTime - t) + ' ms.]');
    RS07_ClickMouse(x, y, mbLeft);
  end;
end.