program RS07_FightCaveFighter;

const
  USERNAME = '';
  PASSWORD = '';

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

var
  actionMark: Integer;

procedure EnterCave;
var
  X, Y: Integer;
  cs: MSSL_TColorSettings;
begin
  if ((GetSystemTime - actionMark) > 2500) then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.28, 0.17);
    if FindColorTol(X, Y, 10921906, RS07_GameActionBx.X1, RS07_GameActionBx.Y1, RS07_GameActionBx.X2, RS07_GameActionBx.Y2, 5) then
    begin
      RS07_ClickMouse(X, Y, mbLeft);
      actionMark := GetSystemTime;
    end;
    MSSL_SetColorSettings(cs);
  end;
end;

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
  FreeOSI;
end;

begin
  SetUpOSI;
  MSSL_Setup;
  if RS07_LoggedIn then
    RS07_SetScreenBrightness(RS07_SCREEN_BRIGHTNESS_VERY_BRIGHT);
  repeat
    RS07_AutoRetaliate;
    case RS07_LoggedIn of
      False:
      if RS07_LogIn(username, password) then
      begin
        RS07_SetScreenBrightness(RS07_SCREEN_BRIGHTNESS_VERY_BRIGHT);
        RS07_SetCompassDir('S');
        actionMark := (GetSystemTime - GetSystemTime);
      end;
      True: EnterCave;
    end;
    MSSL_Wait(0);
  until False;
end.