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
        Wait(400);
      if FindDeformedBitmapToleranceIn(fishspotbmp, X, Y, 357, 85, 505, 183, 2, 0, True, accuracy) then
        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));
    until (FindColor(tempX, tempY, 16578808, 190, 200, 281, 281) or ((GetSystemTime - tm2) >= 20000));
  end;
end;

procedure Fishing;
begin
  tm := GetSystemTime;
  repeat
    SleepCheck(80);
    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
          MoveMouse(X + Random(10), Y + Random(3));
        ClickMouse(X + Random(10), Y + Random(3), Mouse_Left);
        Wait(200 + Random(50));
        Writeln('Fishing..');
      end;
    end;
  until InvSpotSearch(545, 30) or ((GetSystemTime - tm) >= 60000) ;
end;

procedure Certing;
begin
  repeat
    LoginCheck;
    if InvSpotSearch(545, 30) then
      if OpenGameTab(4) then
        Wait(400);
    Writeln('Walking to certers..');
    if FindDeformedBitmapToleranceIn(certersbmp, X, Y, 420, 78, 492, 135, 5, 0, True, accuracy) then
      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
      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
        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
        ChooseChoice(2);
      Wait(600);
      tm2 := GetSystemTime;
      repeat
        Wait(10);
      until (ChoiceIsOpen or ((GetSystemTime - tm2) >= 4000));
      ChooseChoice(4);
      Wait(600);
      tm2 := GetSystemTime;
      repeat
        Wait(10);
      until (ChoiceIsOpen or ((GetSystemTime - tm2) >= 4000));
      ChooseChoice(5);
      Wait(500);
    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;
  until(IsKeyDown(113));
  UnSetupRSCS;
end.