Janilabo | RS07 Capture Main Screen [SCAR Divi]

{$DEFINE RS07}
{$I MSSL\MSSL.scar}

const
  LOGIN = ''; // You can leave these empty if you dont wish to use login (if you login yourself)
  PASSWORD = '';
  QUICK_LOGIN = False; // Use quick login (enters username and password really quick at login details)
  REFRESH = False; // Logout AND refresh (F5) the browser after taking the screenshot?
  NAME = ''; // Name of the path where the screenshots will be saved to in script's path?
  COMPASS = -1; // Compass angle (0.0 - 360.0)? Keep as -1 (or below), if you dont want the script to change it.
  CAMERA_HIGH = False; // Set camera to highest angle before capturing?

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
end;

var
  b: Boolean;

begin
  RS07_QuickLogin := QUICK_LOGIN;
  MSSL_Setup;
  b := (RS07_LoggedIn or ((LOGIN = '') or (PASSWORD = '') and RS07_LoggedIn) or RS07_LogIn(LOGIN, PASSWORD));
  if b then
  begin
    if CAMERA_HIGH then
      RS07_SetCameraAngleH;
    if MSSL_InRangeE(COMPASS, 0.0, 360.0) then
      RS07_SetCompass(COMPASS);
    case MSSL_SaveScreenshotEx((ScriptPath + NAME + '\bitmap'), RS07_GameActionBx.X1, RS07_GameActionBx.Y1, RS07_GameActionBx.X2, RS07_GameActionBx.Y2, False) of
      True:
      begin
        Status(MSSL_TheTime + ': We got it, yeah!');
        if REFRESH then
        begin
          RS07_Logout;
          ClickMouse((RS07_APPLET_AREA_XS + 10), (RS07_APPLET_AREA_YE + 5), mbLeft);
          Wait(25);
          PressVKey(VK_F5);
        end;
      end;
      False: Status(MSSL_TheTime + ': Failed to capture the bitmap. :(');
    end;
  end else
    Status(MSSL_TheTime + ': Failed to capture the bitmap. :(');
end.