{$DEFINE PRSC}

{$I MSSL\MSSL.scar}

const
  COMBAT_STYLE = PRSC_COMBAT_STYLE_STRENGTH;
  USERNAME = 'dgfg';
  PASSWORD = 'dfgdfgf';
  LOW_HP = 10;

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
end;

procedure PickFeathers;
var
  TPA: TPointArray;
  ATPA: T2DPointArray;
  p: TPoint;
begin
  repeat
    if not PRSC_LoggedIn then
      Break
    else
      if FindColorsSpiralEx(RandomRange(136, 377) , RandomRange(90, 214), TPA, [5921370, 8816262, 12105912], 0, 34, PRSC_APPLET_WIDTH, PRSC_APPLET_HEIGHT) then
      begin
        ATPA := SplitTPA(TPA, 8);
        SetLength(TPA, 0);
        SortATPABySize(ATPA);
        p := MSSL_BoxCenter(TPABounds(ATPA[0]));
        ClickMouse(p.X, p.Y, mbRight);
        Wait(100);
        if not PRSC_ChooseOptionUse('Take Feather') then
        begin
          MoveMouse(10, 160);
          MoveMouse(500, 160);
        end else
          Wait(2000);
        SetLength(ATPA, 0);
      end;
    Wait(10);
    if GetKeyState(VK_F12) then
      TerminateScript;
  until GetKeyState(VK_F12);
end;

procedure Fight;
var
  fp, cs, hp, x, y, tm: Integer;
begin
  hp := -1;
  if FindColorsSpiral(RandomRange(136, 377) , RandomRange(90, 214), x, y, [4934475, 14342875, 2499366], 0, 0, PRSC_APPLET_WIDTH, PRSC_APPLET_HEIGHT) then
  begin
    ClickMouse(x, y, mbRight);
    Wait(40);
    if PRSC_ChooseOptionUse('Attack Cow (level-8)') then
    begin
      tm := GetSystemTime;
      repeat
        Wait(10);
      until (PRSC_InFight or ((GetSystemTime - tm) >= 1200));
      if PRSC_InFight then
      repeat
        if not PRSC_LoggedIn then
          Exit;
        if PRSC_GetCombatStyle(cs) then
          if (cs <> COMBAT_STYLE) then
            PRSC_SetCombatStyle(COMBAT_STYLE);
        if PRSC_OpenGameTab(PRSC_GAMETAB_STATS) then
        begin
          hp := StrToIntDef(GetTextAtEx(343, 115, 0, MSSL_MM.st[PRSC_MMS].font[PRSC_MainFont].obj, False, False, 0, 0, 65535, 2, True, tr_AllChars), -1);
          if (hp > -1) then
            if (hp <= LOW_HP) then
              if PRSC_OpenGameTab(PRSC_GAMETAB_MAP) then
              begin
                Wait(50);
                tm := GetSystemTime;
                repeat
                  ClickMouse(431, 112, mbLeft);
                  Wait(100);
                  if GetKeyState(VK_F12) then
                    TerminateScript;
                until (((GetSystemTime - tm) > 20000) or not PRSC_InFight);
              end;
        end;
        if GetKeyState(VK_F12) then
          TerminateScript;
      until not PRSC_InFight;
      if ((hp > -1) and (hp < LOW_HP)) then
        PickFeathers
      else
        if PRSC_GetFatigue(fp) then
          if (fp = 100) then
            PickFeathers;
    end else
      if PRSC_ChooseOptionInUse(x, y) then
        PRSC_Click(x, y, 0, 0, mbRight);
  end;
end;

begin
  MSSL_Setup;
  PRSC_Client.Activate;
  Wait(1500);
  repeat
    MoveMouse(300, 10);
    if not PRSC_LoggedIn then
      PRSC_LogIn(USERNAME, PASSWORD)
    else
      if not PRSC_InFight then
        Fight;
  until GetKeyState(VK_F12);
end.