program SharkFisher;

{$i RSCS/RSCS.simba}

var
  certersbmp, fishspotbmp, harpoonbmp, talktobmp, mX, mY, tm, tm2: Integer;
  tempX, tempY:Integer;
  pp:TPoint;

procedure LoadingBitmaps;
begin
  certersbmp := BitmapFromString(33, 44, 'meJzt1s0JgDAMBtDgyYPDOIZjeH' +
  'D/FWqxWISSEvOHlpRc/Z5JRQLbDBq1X0clKgh6TucI86f1qOVAtCU' +
  'k+uFygpL/ZaI8ZUfQwyvBaEFIpAQq88GInF/KjnDoQvFDciDyuE0J' +
  'uC/1110Mc91BBBFEW8P8BtkblOl684pgb4CUibFfnt6LFoEpWuHYx' +
  'NTzfYgnZJdfCLtwa0I8nOUEHP/GNQ==');

  fishspotbmp := BitmapFromString(15, 20, 'meJyrc1Coozv6/5+BeJUQRLbJTA' +
  'YpxDsMqHhEof///xOvEgKoYjK1Eg/+hIGceIhJSMSbTF0EADF8/wQ=');

  harpoonbmp := BitmapFromString(47, 11, 'meJzNkMEKACAIQ/v/n150E8spZu' +
  'ROMdx6DFgaPYSWMIoKQkcnHiRtKm71x2l5MzcjcT7FfpyGiZjHg18' +
  'wrtkThqxXZcq/3GUsSG5a75zuGwr1AmYChNZJ0w==');

  talktobmp := BitmapFromString(38, 9, 'meJytkMEOACAIQvv/n7ZDm2uGYJa' +
  '3lHyCWayRlE+5zMVSUNdI8dW20Nn7kAiXw49BeT6JNWk2O6l+KgSR' +
  '6HpEaY1AG0Q44qnCNL4TYTiPqcLLJTGzvzoT0o/ATg==');

  FastReplaceColor(certersbmp, 16777215, 0);
  FastReplaceColor(certersbmp, 16711422, 0);
  FastReplaceColor(certersbmp, 255, 0);
  FastReplaceColor(certersbmp, 65535, 0);

  FastReplaceColor(fishspotbmp, 16777215, 0);
  FastReplaceColor(fishspotbmp, 16711422, 0);
  FastReplaceColor(fishspotbmp, 255, 0);
  FastReplaceColor(fishspotbmp, 65535, 0);
end;

procedure WalkFishSpot;
begin
  if not InvSpotSearch(545, 30) then
  begin
    tm2 := GetSystemTime;
    repeat
      if OpenGameTab(4) then
        if FindDeformedBitmapToleranceIn(fishspotbmp, X, Y, 357, 85, 505, 183, 2, 0, True, accuracy) then
        begin
          MoveMouse(X + (15/2), Y + (20/2));
          Wait(100 + Random (50));
          ClickMouse(X + (15/2), Y + (20/2), Mouse_Left);
          Writeln('Walking to fishing spot..');
          tm2 := GetSystemTime;
          repeat
            Wait(50);
          until (FindColor(tempX, tempY, 16578808, 190, 200, 281, 281) or ((GetSystemTime - tm) >= 8000));
        end;
    until (FindColor(tempX, tempY, 16578808, 190, 200, 281, 281) or ((GetSystemTime - tm2) >= 20000));
  end;
end;

procedure IsSleepAdjusted(fat:Integer);
begin
  if (StrToIntDef(ExtractFromStr(RSCE_FatigueReader, Numbers),0)) > fat then
  begin
    Writeln('A mod has adjusted your fatigue.');
    Writeln('Stopping the script..');
    if FileExists(AppPath + 'Includes\RSCS\misc\siren.wav') then
    begin
      PlaySound(AppPath + 'Includes\RSCS\misc\siren.wav');
      Wait(10);
    end;
    TerminateScript;
  end;
end;

procedure Fishing;
begin
  tm := GetSystemTime;
  repeat
    IsSleepAdjusted(90);
    SleepCheck(81,90);
    LoginCheck;
    MoveMouse(215 + Random(5), 121 + Random(20));
    Wait(100 + Random(15));
    if FindColor(X, Y, 16578808, 190, 200, 281, 281)  then
    begin
      MoveMouse(X, Y);
      Wait(100);
      if RSCE_UpText(WHITE) = 'net / 3 more options' then
      begin
        ClickMouse(Object_P.X, Object_P.Y, mouse_right);
        GetMousePos(mX, mY);
        Wait(150 + Random(15));
        if FindBitmapIn(harpoonbmp, X, Y, 0, mY, 500, 330) then
        begin
          MoveMouse(X + Random(10), Y + Random(3));
          ClickMouse(X + Random(10), Y + Random(3), Mouse_Left);
          Wait(200 + Random(50));
          Writeln('Fishing.. (Fatigue:' + RSCE_FatigueReader + ')');
        end;
      end;
    end;
  until InvSpotSearch(545, 30) or ((GetSystemTime - tm) >= 60000) ;
end;

procedure Certing;
begin
  repeat
    LoginCheck;
    if InvSpotSearch(545, 30) then
    begin
      if OpenGameTab(4) then
      begin
        Wait(400);
        Writeln('Walking to certers..');
        if FindDeformedBitmapToleranceIn(certersbmp, X, Y, 420, 78, 492, 135, 5, 0, True, accuracy) then
        begin
          MoveMouse(X + (33/2), Y + (44/2));
          Wait(400);
          ClickMouse(X + (33/2), Y + (44/2), Mouse_Left);
          tm := GetSystemTime;
          repeat
            Wait(50);
          until (SearchForNPC(pp, PADIK) or ((GetSystemTime - tm) >= 8000));
          if SearchForNPC(pp, PADIK) then
          begin
            MoveMouse(pp.X, pp.Y);
            Wait(200);
            if (Pos('padik..', Lowercase(RSCE_UpText(YELLOW))) > 0) then
            begin
              ClickMouse(pp.X, pp.Y, Mouse_Right);
              GetMousePos(mX, mY);
              Wait(350 + Random(50));
              if FindBitmapIn(talktobmp, X, Y, 0, mY, 500, 330) then
              begin
                MoveMouse(X, Y);
                ClickMouse(X, Y, Mouse_Left);
                Writeln('Talking to Padik..');
                Wait(100 + Random(50));
                tm2 := GetSystemTime;
                repeat
                  Wait(10);
                until (ChoiceIsOpen or ((GetSystemTime - tm2) >= 8000));
                if ChoiceIsOpen then
                begin
                  ChooseChoice(2);
                  Wait(300);
                  tm2 := GetSystemTime;
                  repeat
                    Wait(10);
                  until (ChoiceIsOpen or ((GetSystemTime - tm2) >= 4000));
                  tm2 := GetSystemTime;
                  repeat
                    Wait(10);
                  until (ChoiceIsOpen or ((GetSystemTime - tm2) >= 4000));
                  ChooseChoice(4);
                  Wait(300);
                  repeat
                    Wait(10);
                  until (ChoiceIsOpen or ((GetSystemTime - tm2) >= 4000));
                  ChooseChoice(5);
                   Wait(300);
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  until not InvSpotSearch(545, 30);
end;

procedure FreeBitmaps;
begin
  FreeBitmap(certersbmp);
  FreeBitmap(fishspotbmp);
  FreeBitmap(harpoonbmp);
  FreeBitmap(talktobmp);
end;

begin
  SetupRSCS;
  repeat
    LoadingBitmaps;
    WalkFishSpot;
    Fishing;
    Certing;
    FreeBitmaps;
    ClearDebug;
  until(IsKeyDown(113));
  UnSetupRSCS;
end.