Page 1 of 2 12 LastLast
Results 1 to 25 of 33

Thread: Reliable monk fisher?

  1. #1
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Reliable monk fisher?

    Reliable monk fisher that can be left for a few hours with no problem?

  2. #2
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    What's the problems with the current ones?

  3. #3
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nebular one struggles with the banker quite badly at times aswell

  4. #4
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by pker x414 View Post
    nebular one struggles with the banker quite badly at times aswell
    Then post on the thread and maybe he will fix it, if not post the code here and we will come up with some better stuff

  5. #5
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    program NebulaMonkFisher;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}

    ///////////////////////////// Instructions: ////////////////////////////////////
    ///////////////////// Start in the Piscatoris Bank /////////////////////////////
    ////////////////// Have a small net in your Toolbelt ///////////////////////////
    /////////// Enter how many Loads of monkfish you want to fish //////////////////
    ///////////////////Enter what world you want to fish in ////////////////////////
    //////////////////// Enter your username + password ////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    Var
      f, k, g, count:integer; // Failsafes
      x, y, MonkfishFished, XpGained, monkfish: integer; //other
      MiddleWalk, spot1, spot2, spot3, EastWalk, WestWalk:TPointArray;
      items: TIntegerArray;
      aFound: extended;
      PBox: TBox;

    const
      Loads = 100;  // Amount of loads to do
      World = 91;   // What world you want to be in

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;            // Don't touch this
      NumberOfPlayers(HowManyPlayers);// Don't touch this
      CurrentPlayer := 0;             // Don't touch this
      Players[0].Name := '';  // Username
      Players[0].Pass := '';  // Password
      Players[0].Active := True;      // Don't touch this
      Players[0].Pin := '   ';        // Bank Pin, Leave blank if you don't have one
    end;

    {---------------------Don't touch anything past this line---------------------}

    Procedure Antiban;
    begin
      Wait(RandomRange(400,600));
      Case random(75) of
        1: Mouse(531, 62, 11, 11, true);
        2: begin
            HoverSkill('Fishing', false);
            Wait(RandomRange(2000, 3000));
            Gametab(Tab_Inv);
          end;
        3: begin
            Gametab(Tab_Stats);
            Wait(randomrange(750, 2400));
            Gametab(Tab_Inv);
           end;
        4: begin
            Gametab(Tab_Friends);
            Wait(randomrange(750, 2400));
            Gametab(Tab_Inv);
           end;
        5: MakeCompass(RandomRange(0,20));
        6: MouseBox(0, 0, 753, 492, 2);
        7: MakeCompass(RandomRange(340, 360));
        8: SetAngle(RandomRange(0,30));
        10: MouseBox(5, 482, 454, 500, 1);
        11: PickUpMouse;
        12: PickUpMouse;
        13: MouseBox(0, 0, 753, 492, 2);
        14: MMouse(333, 225, 300, 215);
        15: MMouse(333, 225, 300, 215);
        16: MMouse(333, 225, 300, 215);
        17: SetAngle(RandomRange(0,30));
        18: MakeCompass(RandomRange(0,20));
        19: MakeCompass(RandomRange(340, 360));
        20: MakeCompass('N');
        21: MakeCompass('N');
        22: MouseSpeed := RandomRange(15,20);
        23: MouseSpeed := RandomRange(15,20);
      end;
    end;

    Procedure LoadDTMS;
    begin
      monkfish := DTMFromString('mggAAAHicY2NgYBBmZmCQB2JJIOYDYi4gVgficEYGBj8gjgVifyCOguJsD2ugLiYMzM+AHTDiwBAAAFOTA7s=');
    end;

    Procedure Beginning;
    begin
      MakeCompass('N');
      SetAngle(0);
      Writeln('done with beginning');
      GameTab(Tab_Inv);
    end;

    Procedure WalkBankFromMiddle;
    begin
      MiddleWalk  := [Point(1185, 1858), Point(1180, 1870), Point(1176, 1883), Point(1158, 1882)];
      SPS_WalkPath(MiddleWalk);
    end;

    Procedure WalkFishingSpot1;
    begin
      spot1 := [Point(1180, 1835)];
      SPS_WalkPath(spot1);
    end;

    Procedure WalkFishingSpot2;
    begin
      spot2 := [Point(1220, 1838)];
      SPS_WalkPath(spot2);
    end;

    Procedure WalkFishingSpot3;
    begin
      spot3 := [Point(1145, 1841)];
      SPS_WalkPath(spot3);
    end;

    Procedure WalkBankFromEast;
    begin
      EastWalk  := [Point(1242, 1844), Point(1229, 1852), Point(1216, 1860), Point(1204, 1866), Point(1188, 1873), Point(1178, 1883), Point(1156, 1885)];
      SPS_WalkPath(EastWalk);
    end;

    Procedure WalkBankFromWest;
    begin
      WestWalk  := [Point(1096, 1842), Point(1110, 1846), Point(1125, 1849), Point(1142, 1851), Point(1158, 1853), Point(1174, 1857), Point(1176, 1885), Point(1158, 1883)];
      SPS_WalkPath(WestWalk);
    end;

    Function StartFishing: Boolean;
    begin
      if not findnormalrandoms then
      begin
          count := 1
          f := 0
          repeat
            inc(count);
            x := MSCX;
            y := MSCY;
            Writeln('Searching');
            Wait(randomrange(300,500));
            If (FindObjTPA(x, y, 11379098, 10, 1, 20, 20, 2,['Harpoon'])) then
            begin
              writeln('Found possible spot');
              Mouse(x, y, 4, 4, False);
              If (WaitOption('Net', 3000)) then
              begin
                writeln('found spot');
                result := true
                Break;
              end;
            end;
          until((Count>4) or (true));
        If (count>4) then
        begin
          result := false
        end;
        end else
        begin
          Writeln('found random');
          Logout;
          TerminateScript;
        end;
    end;

    Procedure WhileFishing;
    begin
      if not findnormalrandoms then
      begin
        wait(randomrange(2000,2500));
        repeat
          PBox := IntToBox(245, 130, 285, 195);
          repeat
            if (AveragePixelShift(PBox, 1, 2500)>=4) then
              AntiBan;
          until ((AveragePixelShift(PBox, 1, 2500)<3) or (InvFull));
            Writeln('pixelshift A done');
          if (InvFull) then
          begin
            writeln('Inv is full');
            break;
          end else
          begin
            if (AveragePixelShift(PBox, 250, 2500)<550) then
            begin
              Writeln('PixelShift B done');
              wait(randomrange(10,150));
              if not startfishing then
              break;
            end;
          end;
        until(InvFull);
      end else
      begin
        writeln('found random event');
        Logout;
        TerminateScript;
      end;
    end;

    Procedure WalkToBank;
    var
      P : TPoint;
    Begin
      SPS_GetMyPos;
      Writeln(ToStr(SPS_GetMyPos));
      P := SPS_GetMyPos;
      if (P.x>1200) then
      begin
        writeln('Walking East Path');
        WalkBankFromEast;
      end else
      if (P.x<1166) then
      begin
        writeln('Walking Wast Path');
        WalkBankFromWest;
      end else
      begin
        writeln('Walking Middle Path');
        WalkBankFromMiddle;
      end;
    end;

    Procedure Banking;
    begin
      if not findnormalrandoms then
      begin
        MouseSpeed := RandomRange(100,110);
        writeln('done walking to bank2;')
        Writeln('Banking');
        f := 0;
        Wait(randomrange(400,800));
        repeat
          Wait(randomrange(250, 600));
          Inc(f);
          x := MSCX;
          y := MSCY;
          if (FindObjTPA(x, y, 2846095, 15, 1, 4, 5, 4, ['Talk'])) then
          begin
            Mouse(x, y, 0, 0, false);
            if (WaitOption('Bank Ar', 600)) then
            begin
              g := 0
              repeat
                Inc(g);
                Wait(RandomRange(45, 55))
              until((BankScreen) or (g>60) or (PinScreen));
              If PinScreen then
                InPin(Players[CurrentPlayer].Pin);
            end;
          end else
          begin
            MakeCompass(RandomRange(90,270));
          end;
        until((BankScreen) or (f>5));
        if (f>4) then
        begin
          writeln('couldnt find the banker');
          Logout;
          TerminateScript;
        end else
        begin
          DepositAll;
          Wait(randomRange(400, 800));
          IncEx(MonkfishFished, 27);
          IncEx(XpGained, 3240);
          CloseBank;
        end;
      end;
    end;

    Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
    var
      mx, my, Pic, I, B, H, TPH, Numb: Integer;
      TTP: TPointArray;
      Canvas: TCanvas;
    begin
      SmartSetDebug(True);
      GetClientDimensions(mx, my);
      Pic := BitmapFromString(mx, my, '');
      TPH := High(TP);
      for I := 0 to TPH do
      begin
        TTP := LoadTextTPA(TP[i], UpChars, H);
        for B := 0 to High(TTP) do
        begin
          Numb := ((I + 1) * 13);
          FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,131072);
          FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
        end;
      end;
      Canvas := TCANVAS.Create;
      Canvas.Handle := SmartGetDebugDC;
      DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
      FreeBitmap(Pic);
    end;

    Procedure MakeProggy;
    Var
      SmartLines: TStringArray;
      Clock: TIntegerArray;
      XPPH, FishPerHour : integer;
    begin
      ClearDebug;
      Clock := [0,0,0];
      XPPH := Round((XpGained * 3600) / (GetTimeRunning / 1000));
      FishPerHour := Round((MonkfishFished * 3600) / (GetTimeRunning / 1000));
      ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
      SetArrayLength(SmartLines, 5);
      SmartLines[0]:= 'Time Ran:' + tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]) ;
      SmartLines[1]:= 'Exp Gained:' + IntToStr(XpGained);
      SmartLines[2]:= 'Exp Per hour:' + IntToStr(XPPH);
      SmartLines[3]:= 'Monkfish Fished:' + IntToStr(MonkfishFished);
      SmartLines[4]:= 'monkfish per hour:' + IntToStr(FishPerHour);

      PrintOnSmart(SmartLines,Point(10,254),clWhite);

    end;

    Procedure FreeDTMMs;
    begin
      FreeDTM(monkfish);
    end;

    begin
      MouseSpeed := RandomRange(15,20);
      smart_server := World;
      smart_members := false;
      smart_signed := true;
      smart_superDetail := false;
      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Beginning;
      writeln('Starting');
      MakeProggy;
      SPS_Setup(RUNESCAPE_SURFACE,['2_4']);
      repeat
        repeat
          repeat
          SPS_GetMyPos;
          if (invfull) then
            break
          else
          if not Startfishing then
            begin
              MouseSpeed := RandomRange(15,20);
              WalkFishingSpot1;
              wait(RandomRange(600,1200));
              if not Startfishing then
              begin
                MouseSpeed := RandomRange(15,20);
                WalkFishingSpot2;
                wait(RandomRange(600,1200));
                if not Startfishing then
                begin
                  MouseSpeed := RandomRange(15,20);
                  WalkFishingSpot1;
                  wait(RandomRange(600,1200));
                  if not Startfishing then
                  begin
                    MouseSpeed := RandomRange(15,20);
                    WalkFishingSpot3;
                    wait(RandomRange(600,1200));
                    if not Startfishing then
                    begin
                    end;
                  end;
                end;
              end;
            end;
          until(true);
          WhileFishing;
        until(InvFull);
        if (InvFull) then
        begin
          Wait(Randomrange(1300,4000));
          WalkToBank;
          LoadDTMS;
          Banking;
          MakeProggy;
          inc(k);
          Writeln('Done!');
          FreeDTMMs;
          MouseSpeed := RandomRange(15,20);
        end;
      until(k=loads);
    end.
    Last edited by pker x414; 06-09-2012 at 11:24 PM.

  6. #6
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Please edit that post and put it in [SIMBA][/ SIMBA] tags

  7. #7
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sayyy whattt?
    quite new to this simba stuff

  8. #8
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Edit that code and put [SIMBA] at the start and [/SIMBA ] at the end (without the space)

  9. #9
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    there you go
    as i say sometimes it banks fine with no problems but other times its just logs me out

  10. #10
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by pker x414 View Post
    there you go
    as i say sometimes it banks fine with no problems but other times its just logs me out
    How far through the banking procedure does it get? which bank is this btw?

  11. #11
    Join Date
    Jun 2012
    Location
    ScapeRune
    Posts
    121
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I will make my own very first script on this very soon. Just getting quest requirments etc whats taking some time. Patience is key for now if you dont make one yourself

  12. #12
    Join Date
    Oct 2007
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    u lefted ur account there
    U Will Not Regret Trust Me
    http://freeminecraft.me/?ref=1102475

  13. #13
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    probaly explains why i cant login

  14. #14
    Join Date
    Oct 2007
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  15. #15
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lolums

  16. #16
    Join Date
    Oct 2007
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    pker x414 do u lose everything ??
    U Will Not Regret Trust Me
    http://freeminecraft.me/?ref=1102475

  17. #17
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dont know
    dont careeeeeee

  18. #18
    Join Date
    Mar 2012
    Location
    Australia
    Posts
    625
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Bad luck buddy, thats the only problem with simba scripts, if you forget to take pass and shit out, you're fucked. I have done it a couple of times but I have been quick enough to change, sorry for your loss but just get botting and make bank again
    Bored of playing rs, and bored of botting it, why am i here?

  19. #19
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I cant get account back atm haha

  20. #20
    Join Date
    Apr 2012
    Posts
    3,356
    Mentioned
    34 Post(s)
    Quoted
    218 Post(s)

    Default

    What did you lose?

  21. #21
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    only about 30m
    but i cant recover account for some reason
    http://dsl-187-172-235-227-dyn.prod-infinitum.com.mx/ ip...

  22. #22
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    If you do get the account back post the IP and we can get the guy banned, if the person who stole it sees this I suggest you PM the guy the new password and tell him you are very sorry if you don't want a ban

  23. #23
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    that was the ip above ^

  24. #24
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    http://www.ip-adress.com/ip_tracer/d...finitum.com.mx

    If we get a mod in here we can see if that IP belongs to somebody here, I think you have to post a screenshot as proof though

  25. #25
    Join Date
    Jun 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I will now im just trying to recover the account and ill post a screenshot
    I dont care about the stuff taken Its not my main account anyway just want it back so I can bot to 99 fishing haha

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •