Page 1 of 3 123 LastLast
Results 1 to 25 of 53

Thread: Farmer Thiever

  1. #1
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default Farmer Thiever

    WT- Fakawi presents:

    a simple Farmer Thiever.

    This script thieves the Farmer near the Chicken pen in Lumbridge.

    Place your player in the Farmer's house near the chicken pen. Fill your inventory with Lobster (Except for one spot for the potatoe seeds!). The script will attempt to thieve the Farmer in his house.

    Requirements: Thieving Level-10.

    It is a very basic script with minimum failsafes and little checks. It will probably run for an hour or so and then you have run out of lobsters. I have used this script simply to get me to Thiev-40+.... in three runs of 1 hour. Don't leave this script unattended for too long because of doors that open/close!


    Enjoy!

    P.S.: I will revive once again my MFT and Safecracker and place them here shortly.





    <============== 0.11 Progress Report ===============>
    Worked for 44 Minutes and 39 Seconds
    Pockets Picked = 945
    Pockets Failed = 302
    <============== 0.17 Progress Report ===============>
    Name :
    Number : 0
    Active : True


    <============== 0.11 Progress Report ===============>
    Worked for 1 Hours, 22 Minutes and 24 Seconds
    Pockets Picked = 1779
    Pockets Failed = 551
    <============== 0.17 Progress Report ===============>
    Name :
    Number : 0
    Active : False
    **********************************************


    <============== 0.11 Progress Report ===============>
    Worked for 1 Hours, 8 Minutes and 4 Seconds
    Pockets Picked = 1398
    Pockets Failed = 473
    <============== 0.17 Progress Report ===============>
    Name :
    Number : 0
    Active : False

    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    oooo! MFT and SafeCracker! Along with this!
    I see a lot of people getting lots of thieving levels in the neat future, thanks FAK.

  3. #3
    Join Date
    Oct 2006
    Posts
    174
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    holy shit finally MFT!!

    Can't wait thnx for the post!!

  4. #4
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Please don't release them to public...you're just asking for goldfarming. :/

  5. #5
    Join Date
    Oct 2006
    Posts
    174
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mormonman View Post
    Please don't release them to public...you're just asking for goldfarming. :/
    I am working on my srl membership this holiday since i will have plenty of time

    but i don't think a master farmer that will make you gain like 200-300k per hour would make chinese gold famer come here

  6. #6
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Quote Originally Posted by bambino View Post
    I am working on my srl membership this holiday since i will have plenty of time

    but i don't think a master farmer that will make you gain like 200-300k per hour would make chinese gold famer come here
    Ya it would. When all you need is membership + a low thieving level that can be obtained in a matter of hours.

  7. #7
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Can't really gold farm on normal farmer, will make like 50k/hr at most unless you get really lucky


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  8. #8
    Join Date
    Dec 2011
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    This is a really nice script, thanks man!
    It works best in this corner.

  9. #9
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Quote Originally Posted by Harry View Post
    Can't really gold farm on normal farmer, will make like 50k/hr at most unless you get really lucky
    I'm talking about master farmers and safe cracking.

  10. #10
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    Ooh! Great ideas in the script, will be adding the stunned feature to my own
    (Never really came to mind, because I am 99 thieving and never get stunned :P)


    When you die, does it walk back? Thats the problem I have with mine >.<




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  11. #11
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Nope. I dont like dieing. Just have your inv filled with lobsters. it will continue to thiev until out of lobbys. Then it will log you out. As I said: this little script is a preludium for the MFT, not ment to work for hours on a row. It is simply for low level thievs to get to 37+
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  12. #12
    Join Date
    Dec 2011
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do u run it..?

  13. #13
    Join Date
    Dec 2011
    Posts
    106
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Expendus View Post
    how do u run it..?
    open the script and press the run button?

  14. #14
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    The eating didn't work, and it was a bit slow on pickpocketing.

    I modified it so it can eat whatever food you have, and it's a bit faster at pickpocketing aswell.

    Code:
    //----------------------------------------------------------------------------//
    // --
    // --                             Thiever 0.1
    // --
    // --                             by WT-Fakawi
    // --
    // --
    // --                                0.11
    // --
    // --
    // --                         --- colors only ---
    // --
    // --
    // --
    // --   This script thieves the farmer at Lumbridge, near the chicken pen.
    // --              Use it for low level thieving (until 37)
    // --
    // --      Place your players in the Farmer house with plenty lobsters
    //---
    // --
    //----------------------------------------------------------------------------//
    // --
    // --                 !!!! FOR THE SRL COMMUNITY ONLY !!!!!
    // --               !!!! DO NOT DISTRIBUTE THIS SCRIPT !!!!!
    // --                    !!!! FOR PRIVATE USE ONLY !!!!
    // --
    // --        You are free to copy/paste/modify this script or parts
    // --     of this script as long as you credit me and the SRL-community.
    // --
    //----------------------------------------------------------------------------//
    program Farmer_Thiever;
    
    {$i SRL/SRL/misc/SMART.scar}
    {$i srl/srl.scar}
    {$i srl/srl/misc/stats.simba}
    {$i srl/srl/skill/magic.scar}
    
    var                                                                             // Color and counters
       LobMask, PocketsPicked, PocketsFailed: Integer;
    
    
    
    const
      SMART_world    = 3;
      SRLStatsName   = '';                                                          // Your SRL Stats name
      SRLStatsPW     = '';                                                          // Your SRL Stats password
      PlayerTime     = 360;                                                         // PlayerTime in minutes, maxed to 6 hours.
      WTLampSkill    = 'dungeoneering';                                             // Lamp skill.
      FawkiDebug     = False;                                                       // set to true for extensive debug.
      FawkiProcDebug = False;
      VersionNumber  = 0.11;
    
    Procedure ProgressReport; Forward;
    
    //----------------------------------------------------------------------------//
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name      := '';
      Players[0].Pass      := '';
      Players[0].Nick      := '';
      Players[0].Pin       := '';
      Players[0].Active    := true;
    
    end;
    
    procedure loadbm;
    begin
    LobMask := BitmapFromString(33, 31, 'meJzVlEsOwCAIBbn/pdudMWAej5' +
            '+JLppUZIYWokjP+rbVhNR88DqhmLAcgc9ZAKrFYnvdOF0WwjPdGo5' +
            'Rkq9yeRTDB2XvH1Xhu2fAMTe92Pdp/hMKZnorNYARUjWMKlwIiK79' +
            '4jwrlMWG7hwc3f+J4q8nbn2iGCCt8FUKyU8oovyoYppvLUOKY1bLL' +
            'CW8dxSNfDHdYS7AnCVB/gHu+XiW');
    
    end;
    //----------------------------------------------------------------------------//
    
    procedure SetupScript;
    begin
     if SMART_world <> 0 then
        SMART_Server  := SMART_world;
      SMART_members := true;
      SMART_signed  := true;
    
      SetUpSRL;
      DeclarePlayers;
      SetupSRLAutoResponder;
      SymbolAccuracy := 0.75;
      LampSkill := WTLampSkill;
      Loadbm;
      ClearDebug;
      Writeln('Welcome to Farmer Thiever ' + FloatToStr(VersionNumber));
    end;
    
    //----------------------------------------------------------------------------//
    
    function WTFindObjTPAEx(var X, Y: Integer; Color, Tol, CTS, ObjWidth, ObjHeight,  // by Wizzup? Edited by WT-Fakawi.
                          minCount: Integer; x1,y1,x2,y2:Integer; UpText: TStringArray): Boolean;
    var
      I, tCTS: Integer;
      myPoint: TPoint;
      Points: TPointArray;
      aPoints: T2DPointArray;
    begin
      Result := False;
      if not LoggedIn then exit;
      tCTS := GetColorToleranceSpeed;
      CTS := Integer(CTS * 9 mod 3 <> 0);
      ColorToleranceSpeed(CTS);
      FindColorsSpiralTolerance(X, Y, Points, Color, x1,y1,x2,y2, Tol);
      if Length(Points) = 0 then
      begin
        ColorToleranceSpeed(tCTS);
        Exit;
      end;
      ColorToleranceSpeed(1);
      aPoints := TPAtoATPAEx(Points, ObjWidth, ObjHeight);
      SetLength(Points, 0);
      for I := 0 to High(aPoints) do
      begin
        if Length(aPoints[i]) < minCount then
          Continue;
        myPoint := MiddleTPA(aPoints[i]);
        MMouse(myPoint.X, myPoint.Y, 0, 0);
        if WaitUpTextMulti(UpText, 300) then
        begin
          GetMousePos(X, Y);
          Result := True;
          ColorToleranceSpeed(tCTS);
          Exit;
        end;
      end;
      ColorToleranceSpeed(tCTS);
    end;
    
    
    procedure WTFixChat;                                                            // Scrolls the chat down so we can do GetBlackChat
    var
      ScrollX, ScrollY, x, y: Integer;
    begin
      ScrollX := 499 + Random(8);
      ScrollY := 445 + Random(8);
      if FindColorTolerance(x, y, 2041131, 504, 441, 504, 441,10) then
      begin
        MMouse(ScrollX, ScrollY, 0, 0);
        HoldMouse(ScrollX, ScrollY, MouseAction(True));
        while FindColorTolerance(x, y, 2041131, 504, 441, 504, 441,10)  do
          Wait(10 + random(15));
    	Wait(50+random(50));
        ReleaseMouse(ScrollX, ScrollY, MouseAction(true));
        Wait(100+random(50));
      end;
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure FTWait(myLen:Integer);                                                // Pumping heart of script.
    var mywait, Tab: Integer;                                                       // Performs findnormalrandoms, callibrate, respond
    begin
    //     Respond;
      If not Loggedin then Exit;
      WTFixChat;
      for Tab := 21 to 37 do
      begin
        if ((Tab = 29) or (Tab = 27)) then Continue;
        if not TabExists(Tab) then
        Begin
          Writeln('TAB ' + IntToStr(Tab) + ' NOT VISIBLE. TROUBLE!');
          if not LoggedIn then Exit;
          if Not FindNormalRandoms then
          begin
            LogOut;
            LeaveLobby;
            ProgressReport;
          end;
        End;
      End;
      for mywait := 1 to myLen do
       begin
        Wait(50 + Random(50));
        if IsFKeyDown(1) then progressreport;
        if ( pos('maze',GetBlackChatMessage) <> 0 ) then
          begin
            Players[CurrentPlayer].loc := 'WT MAZE';
            LogOut;
            ProgressReport;
            LeaveLobby;
          end;
        if FindNormalRandoms then                                                    // If random is solved...
        Begin
        end
       end;
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure GetPlayerStats;                                                       // stats time.
    begin
      GetAllLevels;
      Writeln('Thieving  = ' + IntToStr(Players[CurrentPlayer].Level[Skill_Thieving]));
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure ProgressReport;                                                       // progressreport. If F1 is pushed runtime, a full report is printed in the debug!
      var
        Active: string;
      var
        i: Integer;
      begin
        if not FawkiDebug then ClearDebug;
        SRLRandomsReport;
        SendSRLReport;
        Players[CurrentPlayer].Integers[1] := GetSystemTime;
        writeln('**********************************************');
        WriteLn(' ');
        WriteLn('<==============  ' + FloatToStr(VersionNumber) + ' Progress Report ===============>');
        writeln('Worked for '+ TimeRunning);
        Writeln('Pockets Picked  = ' + IntToStr(PocketsPicked));
        Writeln('Pockets Failed  = ' + IntToStr(PocketsFailed));
        WriteLn('<==============  ' + FloatToStr(VersionNumber) + ' Progress Report ===============>');
        writeln('Name         : '+ Players[CurrentPlayer].Name);
        writeln('Number       : '+ inttostr(CurrentPlayer));
        if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
        writeln('Active       : '+ Active);
        writeln('**********************************************');
    
      for i := 0 to HowManyPlayers-1 do
      begin
        if Players[i].Active=True then Active:='T' else Active:='F';
        writeln( (inttostr(i))+' : '+Players[i].name + ' = '+Active
        +'. '
        +'TH '+inttostr(Players[i].level[Skill_Thieving])+'. '
        +'W : '+IntToStr((Players[i].Integers[2] + ( Players[i].Integers[1] - Players[i].Integers[0])) / 60000 )+' min. '
        +'L: '+Players[i].loc
        +' R: '+Players[i].Rand);
      end;
    end;
    
    //----------------------------------------------------------------------------//
    
    function EatLob: Boolean;
    var
      lx,ly: Integer;
    begin
     if FindBitmapMaskTolerance(LobMask, lx, ly, MIx1, MIy1, MIx2, MIy2, 10, 10) then
     begin
      if FawkiDebug then writeln('Lobster Found');
      MMouse(lx,ly,16,16);
      GetMousePos(lx,ly);
      Mouse(lx,ly,0,0, True);
      FTwait(4);
      Result := True;
     end
     else
        begin
      if FawkiDebug then writeln('No Lobsters Found. Logging Out');
         Logout;
         LeaveLobby;
         Result := False;;
        end;
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure HpCheck; //Thanks Narcle, used your script to learn how to do this
    var
      a, t, b, x, y:Integer;
    begin
      if (HPPercent < 50) and LoggedIn then
      begin
        if not InvEmpty then
          for a := 0 to 2 do
            for b := 1 to 28 do
            if ExistsItem(b) then
            begin
              MMouseItem(b);
              GetMousePos(x, y);
              if WaitUptext('Eat', 400) then
              begin
                Mouse(x,y,0,0,false);
                if WaitOption('Eat', 400) then
                begin
                  t := GetSystemTime;
                  while ExistsItem(b) and ((GetSystemTime-t) < 2000) do
                    wait(20);
                  if (HPPercent > 70) then
                    Exit;
                end;
              end;
            end;
            if (not LoggedIn) or (HPPercent > 50) then
              Exit;
          end;
        end;
    
    //----------------------------------------------------------------------------//
    
    
    Function Pick:Boolean;
    var
    x, y, tol: integer;
    
    begin
        for Tol := 10 to 30 do
        begin
          if WTFindObjTPAEx(x, y, 8952566, Tol, 0, 4, 4, 8, MSX1,MSy1, MSX2,MSY2, ['arm']) then
          begin
            if fawkidebug then writeln('tol = ' + IntToStr(tol));
            GetMousePos(x,y);
            Mouse(x, y, 0, 0, False);
            if ChooseOption('Pick') then
            begin
              FFlag(0);
              FTWait(1);
              Inc(PocketsPicked);
              Result := True;
              Exit;
            end;
          end;
        end;
     end;
    
    //----------------------------------------------------------------------------//
    
    var
    WTx, WTy: Integer;
    
    begin
      SetupScript;
      LoginPlayer;
      GetAllLevels;
      Repeat
        Pick;
        if pos( 'stunned', GetblackChatMessage) <> 0 then
        begin
          if fawkidebug then writeln('stunned');
          Inc(PocketsFailed);
          FTWait(25);
        end;
        if FindSymbol(WTx, WTy, 'churn') then
        begin
          if fawkidebug then writeln('found dairy');                                // Not used, for later callib purposes.
        end;
    
        if FawkiDebug then Writeln('Pockets Picked = ' + IntToStr(PocketsPicked) + '. Pockets Failed = ' + IntToStr(PocketsFailed));
    
        HpCheck;
        ProgressReport;
    
        If not LoggedIn then Begin LeaveLobby; Break; End;
      until False;
    end.
    Last edited by shadowmarkus; 01-02-2012 at 11:02 AM.

  15. #15
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    I deleted "some sensitive" data. Please don't post your un/pw's!!!

    shadowmarkus: Better change them now.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  16. #16
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When will this get updated or is it like this because christmas look ?

  17. #17
    Join Date
    Dec 2011
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    I deleted "some sensitive" data. Please don't post your un/pw's!!!

    shadowmarkus: Better change them now.
    You are too late. I already changed them

    I emailed him the passwords.

    Other than that, his edition works better (sorry WT Wakafi, you lost ).

    WT Wakafi, have you tried your Master Farmer currently? It is not reliable anymore. It may have been before the Draynor square makeover for the holidays. It logs out after 10 to 30 minutes. I was using it with SMART. Please update the public one as well. Thank you very much.
    Last edited by hhhzzzarn; 01-01-2012 at 06:59 PM.

  18. #18
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Thanks alot both of you! I didn't lose anything, and I was quick with password recovery as well.

  19. #19
    Join Date
    Dec 2011
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Seems Interesting, will post a prog after I try it.
    EDIT: <============== 0.11 Progress Report ===============>
    Worked for 43 Minutes and 58 Seconds
    Pockets Picked = 382
    Pockets Failed = 117
    <============== 0.11 Progress Report ===============>
    Name :
    Number : 0
    Active : True
    **********************************************
    Last edited by EuphoriaRush; 01-01-2012 at 10:49 PM.

  20. #20
    Join Date
    Dec 2011
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    Status: /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    Status: |     SRL Randoms Report       |
    Status: |       [url]www.villavu.com[/url]        |
    Status: |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    Status: \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
    **********************************************
     
    <==============  0.11 Progress Report ===============>
    Worked for 1 Hours, 14 Minutes and 15 Seconds
    Pockets Picked  = 1278
    Pockets Failed  = 515
    <==============  0.11 Progress Report ===============>
    Name         :
    Number       : 0
    Active       : True
    **********************************************
    Last edited by Junji; 01-02-2012 at 11:26 PM.

  21. #21
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by shadowmarkus View Post
    Thanks alot both of you! I didn't lose anything, and I was quick with password recovery as well.
    Logical for me, but you must really thank hhhzzzarn, who safeguarded your account. Anyway.....grrrr, pay attention, please?
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  22. #22
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    Logical for me, but you must really thank hhhzzzarn, who safeguarded your account. Anyway.....grrrr, pay attention, please?
    Yeah, I'm sorry. Was my first actual code upload, and I was not thinking straight.

    Even after being logged out of runescape, and not being able to log in, I still just thought I had gotten hacked, didn't even once think about the code uploaded.. XD

  23. #23
    Join Date
    Nov 2011
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great little script. Got me 28-53 thieving without any effort. Thanks !

  24. #24
    Join Date
    Dec 2011
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Can someone please fix this? All it does is right click the lobbies in my invo

  25. #25
    Join Date
    Feb 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'srl/srl.scar' used from ''

    error i get when i just click play :/ help plz?

Page 1 of 3 123 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
  •