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

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

holy shit finally MFT!!

Can't wait thnx for the post!!

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

Quote:

---

Originally Posted by mormonman

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

Quote:

---

Originally Posted by bambino

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.

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

This is a really nice script, thanks man!
It works best in this corner.
http://i1203.photobucket.com/albums/...merThiever.png

Quote:

---

Originally Posted by Harry

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

---

I'm talking about master farmers and safe cracking.

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 >.<

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+

how do u run it..?

Quote:

---

Originally Posted by Expendus

how do u run it..?

---

open the script and press the run button? :duh:

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.

---

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

shadowmarkus: Better change them now.

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

Quote:

---

Originally Posted by WT-Fakawi

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.

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

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
**********************************************

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
**********************************************

Quote:

---

Originally Posted by shadowmarkus

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?

Quote:

---

Originally Posted by WT-Fakawi

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

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

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

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

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

Quote:

---

Originally Posted by rico121

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

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

---

I am getting this too and on the MFT

Anyone help please?

Quote:

---

Originally Posted by The Ghola

I am getting this too and on the MFT

Anyone help please?

---

change.scar to .simba

Changed it from scar to simba, but it keeps saying

Exception in Script: Unable to find file 'srl/srl/misc/stats.simba' used from ''

i need some help plz

Quote:

---

Originally Posted by Derekkkz

Changed it from scar to simba, but it keeps saying

Exception in Script: Unable to find file 'srl/srl/misc/stats.simba' used from ''

i need some help plz

---

Same someone help? PLEASE

Quote:

---

Originally Posted by Kavalier

Same someone help? PLEASE

---

Just erase that line >_>

Quote:

---

Originally Posted by xloagzx

Just erase that line >_>

---

I tried that and get

[Error] (151:50): Invalid number of parameters at line 150
Compiling failed.

I just need a reliable theiver...for a few days...hell if there was a noob friendly guide to making scripts would have made all of my own.
I've been searching for hours for a reliable theiving script so i can get 53 theif on my pure.
Everyone say use the search button...ive been using it for hours with no results...everything try fails...

well they updated the stats procedures IIRC. so that function on line 150 has a different amount of parameters that need to be filled. either get rid of all the stats function, or change them so they are up to date

edit: its just an issue with holdmouse/release mouse. just update them to the srl5 equivilants

Kavalier: I repaired it for you. Version 0.12 is now up and is SRL 5 compatible. I didnt check it, since I am not behind rs atm, but let me know if this works, k?

Quote:

---

Originally Posted by WT-Fakawi

Kavalier: I repaired it for you. Version 0.12 is now up and is SRL 5 compatible. I didnt check it, since I am not behind rs atm, but let me know if this works, k?

---

Thanks for caring.
As for your master gardener script, im gonna run it later.
If i recall correct(master gardener script), it logs you out for no reason after you level up. Doesn't say anything except for progress.
I'll tell you wat it says when i level up+logs out.

Thanks script is working fine no problems with it, botted 10-40 thieving today with it.

Quote:

---

<============== 0.12 Progress Report ===============>
Worked for 2 Hours, 26 Minutes and 51 Seconds
Pockets Picked = 2633
Pockets Failed = 1057
<============== 0.12 Progress Report ===============>

---

Name :
Number : 0
Active : True
**********************************************
0 : = T. TH 27. W : 1572 min. L: R:
Successfully executed.
The following bitmaps were not freed: [3]

Quote:

---

<============== 0.12 Progress Report ===============>
Worked for 54 Minutes and 20 Seconds
Pockets Picked = 955
Pockets Failed = 270
<============== 0.12 Progress Report ===============>

---

Name :
Number : 0
Active : True
**********************************************
0 : = T. TH 22. W : 1412 min. L: R:
Successfully executed.
The following bitmaps were not freed: [3]


It keeps getting stuck in the back room and the farmer resets into main room. Add a door open option? otherwise this has been running amazing! Thank you very much just thought you might like a better progress report.!

http://img27.imageshack.us/img27/9426/fixda.png

Quote:

---

Originally Posted by Kcrossfire

Name :
Number : 0
Active : True
**********************************************
0 : = T. TH 27. W : 1572 min. L: R:
Successfully executed.
The following bitmaps were not freed: [3]








Name :
Number : 0
Active : True
**********************************************
0 : = T. TH 22. W : 1412 min. L: R:
Successfully executed.
The following bitmaps were not freed: [3]


It keeps getting stuck in the back room and the farmer resets into main room. Add a door open option? otherwise this has been running amazing! Thank you very much just thought you might like a better progress report.!

http://img27.imageshack.us/img27/9426/fixda.png

---

The farmer resets if it's been lured into a corner for too long.
Just set it up so you start the bot in the main room with the other doors closed

Quote:

---

Originally Posted by ashihtaka

The farmer resets if it's been lured into a corner for too long.
Just set it up so you start the bot in the main room with the other doors closed

---

noooo shit did you not look at the picture i uploaded god your stupid....

Quote:

---

Originally Posted by Kcrossfire

noooo shit did you not look at the picture i uploaded god your stupid....

---

No he isnt stupid, he has just understood you incorrectly. Dooropening can be implemented, but it is not easy. I need a trigger. does it say "You can't reach that" in the chat?

here is this amazing proggy !! thanks for the script love it.

|====================================|
| ~ SRL ~ |
| Randoms Report |
|────────────────────────────────────|
| |
| |
|────────────────────────────────────|
|====================================|
**********************************************

<============== 0.12 Progress Report ===============>
Worked for 5 Hours, 53 Minutes and 42 Seconds
Pockets Picked = 6637
Pockets Failed = 1933
<============== 0.12 Progress Report ===============>