Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 59

Thread: R4 ManThief

  1. #26
    Join Date
    Dec 2011
    Posts
    95
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good script nice antibans, but it uses them wayyyyy too frequently IMO.

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

    Default

    Quote Originally Posted by kyocera View Post
    good script nice antibans, but it uses them wayyyyy too frequently IMO.
    You think? Hmm, food for thought! maybe I will decrease them a bit




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

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

    Default

    New update is out, can't say I really tested it well (F2p + all the accounts I used to "die" have now become level 20+ in prior testings )




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

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

    Default

    R4 is there any way to change the code for Monkey knife fighters?

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

    Default

    I need to find out what a Monkey Knife Fighter is first :P
    Ill look it up, and tell you!

    E: Yes it is possible but it would require a massive rewrite for certain sections.
    Basically first off change the colors, then have it cosh and spam click pickpocket (if I understood correctly) Then break out of prison if caught (This would prob be the hardest part as you would need to time this against the monkey guards) then collect more bananas for health? repeat o.o

    Its basically a whole new script :P, I am pretty confident it is out of my level for now try the script requests section! One of the more advanced scripters might be able to do it.
    Last edited by [XoL]; 12-28-2011 at 06:32 PM.




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

  6. #31
    Join Date
    Dec 2011
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh. WHat if you could write it in a more simple way. Like Can u make it just mass click them for thieve xp. Like I don't mind at all baby sitting the bot all the way to 99 and I'm easily willing to get it out of prison and feed it when it needs. I just can't stand the constant clicking. Is there anyways u can make it simple like that? I would GREATLY appreciate it.

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

    Default

    In that case just change the uptext of my script to "ighter" and the colors to the colors of the monkey guy :P

    it will spam click away!




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

  8. #33
    Join Date
    Dec 2011
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have no idea how to do that. Anychance u can spare like 5ish minutes. Btw I think u need to like knock them out, then pickpocket like 3 times.

  9. #34
    Join Date
    Nov 2011
    Location
    behind you
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    a monkey fighter would be epic!

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

    Default

    Is "R4_ManThief3.simba" the latest code, because it attacks the women or man in that room instead of trying to pickpocket them. I tried "R4_ManThief2.simba" and it worked correctly. At that point I switched to tea stall script till level 38. Thank you for your contribution.

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

    Default

    Oh my bad! sorry, need to change that.

    I am without a members account so the only way I could test was by attacking :P, thanks for the tip will fix!

    E: Fixed standards, now its time to make a script worthy of posting for my Application.. Hmm!
    Last edited by [XoL]; 12-31-2011 at 04:56 PM.




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

  12. #37
    Join Date
    Jan 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL/SRL/Misc/stats.simba' used from ''

    Just started using this bot. Please let me know what I'm doing wrong..

  13. #38
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by ninja1901 View Post
    Exception in Script: Unable to find file 'SRL/SRL/Misc/stats.simba' used from ''

    Just started using this bot. Please let me know what I'm doing wrong..
    Search the forums on HOW TO SETUP SIMBA. It's not a bot.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  14. #39
    Join Date
    Jan 2012
    Location
    Finland
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, is it working with the recent SRL update? By the looks of it, your include has ../stats.simba file included witch is no-longer needed. I commented the line out and now I get:

    [Error] (63:5): Unknown identifier 'ClearRSCanvas' at line 62
    Compiling failed.
    Bot hard or get banned trying.

  15. #40
    Join Date
    Nov 2011
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    me too.can i help me

  16. #41
    Join Date
    Jan 2012
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    10 Post(s)

    Default

    what does this mean?

    Exception in Script: Unable to find file 'SRL/SRL/Misc/stats.simba' used from ''

  17. #42
    Join Date
    Jan 2012
    Location
    Australia :)
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by humeruzz View Post
    what does this mean?

    Exception in Script: Unable to find file 'SRL/SRL/Misc/stats.simba' used from ''
    just remove that part. You won't be needing it.

  18. #43
    Join Date
    Jan 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script fucks up...

    Exception in Script: Unable to find file 'SRL/SRL/Misc/stats.simba' used from ''

  19. #44
    Join Date
    Feb 2012
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (62:5): Unknown identifier 'ClearRSCanvas' at line 61
    Compiling failed.

  20. #45
    Join Date
    Dec 2011
    Location
    The Netherlands
    Posts
    1,631
    Mentioned
    47 Post(s)
    Quoted
    254 Post(s)

    Default

    Quote Originally Posted by FairyHD View Post
    This script fucks up...

    Exception in Script: Unable to find file 'SRL/SRL/Misc/stats.simba' used from ''
    I have edited it slightly and it works now. It will eat if HP % is <30. It will eat lobsters and is build for 10 hp so a lobster heals me to full hp at all times. So this will not work efficiently if you are >10 hp.

    Simba Code:
    program R4_ManThief;
    {$DEFINE SMART}
    {$i SRL/SRL/misc/smart.simba}
    {$i SRL/SRL.simba}
    {$i sps/sps.simba}
    {$I SRL/SRL/misc/paintsmart.simba}
    //{$i VVForm.simba}

     {Welcome to R4nd0m's Man Thief, this script steals from men/women giving
     you coins and XP!.
     Features:
     Death Walk
     Anti-Ban/Anti-Random
     Eating (30%-) Any food (Just keep in inventory)
     SRL Stats
     An Interesting Paint/Painted Mouse
     Human like Mouse moments (Thanks Flight)
     Progress Reports}


    Var
    man, Location, TimeLast, x, y :Integer;
    Lumbridge, Stairs: TPoint;
    WalkHome: TPointArray;
    CStatus: String;

    Const
    Version = 3;   //Please do not change.

    //SRL info HERE!
      SRLStats_Username = '';
      SRLStats_Password = '';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // This is the player to start with
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := ''; // 3-4 lowercase letters from username;
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;

    Procedure CheckStats;
      begin
        if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
        begin
                SetupSRLStats(201,'Anonymous','anon1337');
                Exit;
              end;
          end;

      procedure ClearSmartCanvas;
      {$IFDEF SMART}
        var
          drawing : TBitmap;
       begin
        drawing := TBitmap.Create;
        drawing.canvas.handle := SmartGetDebugDC;
       try
          FreeBitmap(drawing);
        except
       end;
      {$ELSE}
      begin
      {$ENDIF}
      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], SmallChars, H);
          for B := 0 to High(TTP) do
          begin
            Numb := ((I + 1) * 13);
            FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
            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 Painting;
        begin
          PrintOnSmart(['R4_ManThief','-----------', 'Status:', CStatus],
          Point(40, 50),60928);
        end;

    procedure ProgressReport;
      begin
      ClearDebug;
        WriteLn('[R4nd0m] ManThief');
        WriteLn('===================================================');
        WriteLn('===================================================');
        WriteLn('Running for: ' + TimeRunning);
        WriteLn('Times PickPocketed: ' + IntToStr(man));
        Writeln('XP gained:'+ IntToStr(man*8));
        WriteLn('===================================================');
        WriteLn('===================================================');
      end;

    //By Benland100, modified to paint mouse movements
      procedure WindMouse2(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
      var
        veloX, veloY, windX, windY, veloMag, dist, randomDist, lastDist, step: extended;
        lastX, lastY: integer;
        sqrt2, sqrt3, sqrt5: extended;
      begin
        sqrt2:= sqrt(2);
        sqrt3:= sqrt(3);
        sqrt5:= sqrt(5);
        while hypot(xs - xe, ys - ye) > 1 do
        begin
          dist:= hypot(xs - xe, ys - ye);
          wind:= minE(wind, dist);
          if dist >= targetArea then
          begin
            windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
            windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          end else
          begin
            windX:= windX / sqrt2;
            windY:= windY / sqrt2;
            if (maxStep < 3) then
            begin
              maxStep:= random(3) + 3.0;
            end else
              begin
                maxStep:= maxStep / sqrt5;
              end;
          end;
          veloX:= veloX + windX;
          veloY:= veloY + windY;
          veloX:= veloX + gravity * (xe - xs) / dist;
          veloY:= veloY + gravity * (ye - ys) / dist;
          if hypot(veloX, veloY) > maxStep then
          begin
            randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
            veloMag:= sqrt(veloX * veloX + veloY * veloY);
            veloX:= (veloX / veloMag) * randomDist;
            veloY:= (veloY / veloMag) * randomDist;
          end;
          lastX:= Round(xs);
          lastY:= Round(ys);
          xs:= xs + veloX;
          ys:= ys + veloY;
          if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
            MoveMouse(Round(xs), Round(ys));
          step:= hypot(xs - lastX, ys - lastY);
          wait(round((maxWait - minWait) * (step / maxStep) + minWait));
          lastdist:= dist;
          SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
        end;
        if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
          MoveMouse(Round(xe), Round(ye));

      end;

    {*******************************************************************************
    Procedure HumanMMouse(eX, eY: Integer);
    By: Flight
    Description: Human-like miss-and-correct mouse movement
    *******************************************************************************}

      Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := MouseSpeed;
        GetMousePos(X, Y);
        Dist := Distance(X, Y, eX, eY);
        MP := Round(Dist/150);
        if MP < 0 then
          MP := 1;

        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        X2 := RandomRange(eX-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse2(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
        GetMousePos(X, Y);
        MMouse(eX, eY, ranX, ranY);
        MouseSpeed := A;
        ClearSmartCanvas;
      end;

    procedure Antiban;
      begin
        CStatus := 'AntiBan working'
        Painting;
          case Random(60) of
            20: HoverSkill('Thieving', False);
            30: PickUpMouse;
            40: RandomMovement;
            50: BoredHuman;
            59: ExamineInv;
          end;
          Writeln('Antiban in action!');
      end;

    procedure AntiRandom;
      begin
        CStatus := 'Checking for randoms'
        Painting;
        FindNormalRandoms;
        LampSkill := 'thieving';
        LevelUp;
        Writeln('Checking for randoms');
      end;

    procedure HpCheck; //Thanks Narcle, used your script to learn how to do this
    var
      a, t, b, x, y:Integer;
    begin
      CStatus := 'Checking Health/Eating'
      Painting;
      if (HPPercent < 30) then
       begin
            for a := 0 to 2 do
            for b := 1 to 28 do
            if ExistsItem(b) then
            begin
              MMouseItem(b);
              GetMousePos(x, y);
              Mouse(x, y, 0, 0, false);
              ChooseOption('Eat');
              Wait(RandomRange(323, 1278));
                    if (HPPercent > 70) then
                    Exit;
                end;
              end;

            if (not LoggedIn) or (HPPercent > 50) then
              Exit;
      end;


    Procedure Climb;
      begin
        Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['tairs'], [4083549, 4215135, 4017499], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('limb');
      end;

      Procedure Door;
      begin
        WriteLn('Upstairs!');
          Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['oor'], [3555142, 3291713, 3686729], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('pen');
      end;

    Procedure WalkToHouse;
      begin
        CStatus := 'Walking...'
        Painting;
        Antirandom;
        HumanMMouse(X, Y, 5, 5);
        WalkHome := [Point(4725, 3785), Point(4755, 3740),
        Point(4705, 3710), Point(4645, 3675)];

        If(SPS_WalkPath(WalkHome)) then
        WriteLn('At Stairs');
        Climb;
        Door;
      end;

    function Steal(): Boolean;
      begin
        repeat
          Antiban;
          HpCheck;
          Antirandom;
          CStatus := 'Stealing'
          Painting;
          Wait(RandomRange(200, 700));
          FindObjCustom(x, y, ['man'], [532535, 400175, 399144, 466225], 10);
          Mouse(x, y, 5, 5, false);
          ChooseOption('ocket');
        until false;
      end;

       //reminder: Switch to TPA or DMT (Need to figure this out...)
    function FindMan(): Boolean;
      begin
        repeat
          HpCheck;
          Steal;
          HpCheck;
          ProgressReport;
          HumanMMouse(X, Y, 5, 5);
          {if(StrInArr('our gravestone', ChatBoxTextArray(clMessage)))
        then
        begin
          HumanMMouse(X, Y, 5, 5);
            WalkToHouse;
        end;}


        {(Use for Master Farmers/Ham members)
        if InvFull then
        begin
          HumanMMouse(X, Y, 5, 5);
          Wait(RandomRange(100, 200));
          DropAll;
          Writeln('Dropping inventory')
        end;}


        until false;
      end;

    begin
      CStatus := 'Logging in...'
      Lumbridge := Point(4720, 3785)
      SPS_Areas := ['11_9'];
      SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);

      Smart_Server := 77;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;

      ClearDebug;
      ClearSmartCanvas;
      Painting;
      DeclarePlayers;
      CheckStats;
      LoginPlayer;
      Findman;
      HpCheck;
      ProgressReport;
    end.

    I don't think everything works correctly. But if you start it upstairs it will work. Better then nothing I guess, got me 1-20 so far. Enjoy.

  21. #46
    Join Date
    Mar 2012
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL/SRL/Misc/stats.simba' used from ''

    What do I have to do with this^?

    Thanks for reading

  22. #47
    Join Date
    Mar 2012
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RuneScapeJJ View Post
    I have edited it slightly and it works now. It will eat if HP % is <30. It will eat lobsters and is build for 10 hp so a lobster heals me to full hp at all times. So this will not work efficiently if you are >10 hp.

    Simba Code:
    program R4_ManThief;
    {$DEFINE SMART}
    {$i SRL/SRL/misc/smart.simba}
    {$i SRL/SRL.simba}
    {$i sps/sps.simba}
    {$I SRL/SRL/misc/paintsmart.simba}
    //{$i VVForm.simba}

     {Welcome to R4nd0m's Man Thief, this script steals from men/women giving
     you coins and XP!.
     Features:
     Death Walk
     Anti-Ban/Anti-Random
     Eating (30%-) Any food (Just keep in inventory)
     SRL Stats
     An Interesting Paint/Painted Mouse
     Human like Mouse moments (Thanks Flight)
     Progress Reports}


    Var
    man, Location, TimeLast, x, y :Integer;
    Lumbridge, Stairs: TPoint;
    WalkHome: TPointArray;
    CStatus: String;

    Const
    Version = 3;   //Please do not change.

    //SRL info HERE!
      SRLStats_Username = '';
      SRLStats_Password = '';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // This is the player to start with
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := ''; // 3-4 lowercase letters from username;
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;

    Procedure CheckStats;
      begin
        if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
        begin
                SetupSRLStats(201,'Anonymous','anon1337');
                Exit;
              end;
          end;

      procedure ClearSmartCanvas;
      {$IFDEF SMART}
        var
          drawing : TBitmap;
       begin
        drawing := TBitmap.Create;
        drawing.canvas.handle := SmartGetDebugDC;
       try
          FreeBitmap(drawing);
        except
       end;
      {$ELSE}
      begin
      {$ENDIF}
      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], SmallChars, H);
          for B := 0 to High(TTP) do
          begin
            Numb := ((I + 1) * 13);
            FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
            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 Painting;
        begin
          PrintOnSmart(['R4_ManThief','-----------', 'Status:', CStatus],
          Point(40, 50),60928);
        end;

    procedure ProgressReport;
      begin
      ClearDebug;
        WriteLn('[R4nd0m] ManThief');
        WriteLn('===================================================');
        WriteLn('===================================================');
        WriteLn('Running for: ' + TimeRunning);
        WriteLn('Times PickPocketed: ' + IntToStr(man));
        Writeln('XP gained:'+ IntToStr(man*8));
        WriteLn('===================================================');
        WriteLn('===================================================');
      end;

    //By Benland100, modified to paint mouse movements
      procedure WindMouse2(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
      var
        veloX, veloY, windX, windY, veloMag, dist, randomDist, lastDist, step: extended;
        lastX, lastY: integer;
        sqrt2, sqrt3, sqrt5: extended;
      begin
        sqrt2:= sqrt(2);
        sqrt3:= sqrt(3);
        sqrt5:= sqrt(5);
        while hypot(xs - xe, ys - ye) > 1 do
        begin
          dist:= hypot(xs - xe, ys - ye);
          wind:= minE(wind, dist);
          if dist >= targetArea then
          begin
            windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
            windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          end else
          begin
            windX:= windX / sqrt2;
            windY:= windY / sqrt2;
            if (maxStep < 3) then
            begin
              maxStep:= random(3) + 3.0;
            end else
              begin
                maxStep:= maxStep / sqrt5;
              end;
          end;
          veloX:= veloX + windX;
          veloY:= veloY + windY;
          veloX:= veloX + gravity * (xe - xs) / dist;
          veloY:= veloY + gravity * (ye - ys) / dist;
          if hypot(veloX, veloY) > maxStep then
          begin
            randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
            veloMag:= sqrt(veloX * veloX + veloY * veloY);
            veloX:= (veloX / veloMag) * randomDist;
            veloY:= (veloY / veloMag) * randomDist;
          end;
          lastX:= Round(xs);
          lastY:= Round(ys);
          xs:= xs + veloX;
          ys:= ys + veloY;
          if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
            MoveMouse(Round(xs), Round(ys));
          step:= hypot(xs - lastX, ys - lastY);
          wait(round((maxWait - minWait) * (step / maxStep) + minWait));
          lastdist:= dist;
          SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
        end;
        if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
          MoveMouse(Round(xe), Round(ye));

      end;

    {*******************************************************************************
    Procedure HumanMMouse(eX, eY: Integer);
    By: Flight
    Description: Human-like miss-and-correct mouse movement
    *******************************************************************************}

      Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := MouseSpeed;
        GetMousePos(X, Y);
        Dist := Distance(X, Y, eX, eY);
        MP := Round(Dist/150);
        if MP < 0 then
          MP := 1;

        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        X2 := RandomRange(eX-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse2(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
        GetMousePos(X, Y);
        MMouse(eX, eY, ranX, ranY);
        MouseSpeed := A;
        ClearSmartCanvas;
      end;

    procedure Antiban;
      begin
        CStatus := 'AntiBan working'
        Painting;
          case Random(60) of
            20: HoverSkill('Thieving', False);
            30: PickUpMouse;
            40: RandomMovement;
            50: BoredHuman;
            59: ExamineInv;
          end;
          Writeln('Antiban in action!');
      end;

    procedure AntiRandom;
      begin
        CStatus := 'Checking for randoms'
        Painting;
        FindNormalRandoms;
        LampSkill := 'thieving';
        LevelUp;
        Writeln('Checking for randoms');
      end;

    procedure HpCheck; //Thanks Narcle, used your script to learn how to do this
    var
      a, t, b, x, y:Integer;
    begin
      CStatus := 'Checking Health/Eating'
      Painting;
      if (HPPercent < 30) then
       begin
            for a := 0 to 2 do
            for b := 1 to 28 do
            if ExistsItem(b) then
            begin
              MMouseItem(b);
              GetMousePos(x, y);
              Mouse(x, y, 0, 0, false);
              ChooseOption('Eat');
              Wait(RandomRange(323, 1278));
                    if (HPPercent > 70) then
                    Exit;
                end;
              end;

            if (not LoggedIn) or (HPPercent > 50) then
              Exit;
      end;


    Procedure Climb;
      begin
        Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['tairs'], [4083549, 4215135, 4017499], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('limb');
      end;

      Procedure Door;
      begin
        WriteLn('Upstairs!');
          Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['oor'], [3555142, 3291713, 3686729], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('pen');
      end;

    Procedure WalkToHouse;
      begin
        CStatus := 'Walking...'
        Painting;
        Antirandom;
        HumanMMouse(X, Y, 5, 5);
        WalkHome := [Point(4725, 3785), Point(4755, 3740),
        Point(4705, 3710), Point(4645, 3675)];

        If(SPS_WalkPath(WalkHome)) then
        WriteLn('At Stairs');
        Climb;
        Door;
      end;

    function Steal(): Boolean;
      begin
        repeat
          Antiban;
          HpCheck;
          Antirandom;
          CStatus := 'Stealing'
          Painting;
          Wait(RandomRange(200, 700));
          FindObjCustom(x, y, ['man'], [532535, 400175, 399144, 466225], 10);
          Mouse(x, y, 5, 5, false);
          ChooseOption('ocket');
        until false;
      end;

       //reminder: Switch to TPA or DMT (Need to figure this out...)
    function FindMan(): Boolean;
      begin
        repeat
          HpCheck;
          Steal;
          HpCheck;
          ProgressReport;
          HumanMMouse(X, Y, 5, 5);
          {if(StrInArr('our gravestone', ChatBoxTextArray(clMessage)))
        then
        begin
          HumanMMouse(X, Y, 5, 5);
            WalkToHouse;
        end;}


        {(Use for Master Farmers/Ham members)
        if InvFull then
        begin
          HumanMMouse(X, Y, 5, 5);
          Wait(RandomRange(100, 200));
          DropAll;
          Writeln('Dropping inventory')
        end;}


        until false;
      end;

    begin
      CStatus := 'Logging in...'
      Lumbridge := Point(4720, 3785)
      SPS_Areas := ['11_9'];
      SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);

      Smart_Server := 77;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;

      ClearDebug;
      ClearSmartCanvas;
      Painting;
      DeclarePlayers;
      CheckStats;
      LoginPlayer;
      Findman;
      HpCheck;
      ProgressReport;
    end.

    I don't think everything works correctly. But if you start it upstairs it will work. Better then nothing I guess, got me 1-20 so far. Enjoy.
    This worked for me thanks m8! I got it already from 2-24. But I took 20 tuna's in my inventory and after it is out of food it is looking for more food because i got 2 strange rocks in my inventory. Can you or someone else make a fix?

    Thanks

  23. #48
    Join Date
    Mar 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RuneScapeJJ View Post
    I have edited it slightly and it works now. It will eat if HP % is <30. It will eat lobsters and is build for 10 hp so a lobster heals me to full hp at all times. So this will not work efficiently if you are >10 hp.

    Simba Code:
    program R4_ManThief;
    {$DEFINE SMART}
    {$i SRL/SRL/misc/smart.simba}
    {$i SRL/SRL.simba}
    {$i sps/sps.simba}
    {$I SRL/SRL/misc/paintsmart.simba}
    //{$i VVForm.simba}

     {Welcome to R4nd0m's Man Thief, this script steals from men/women giving
     you coins and XP!.
     Features:
     Death Walk
     Anti-Ban/Anti-Random
     Eating (30%-) Any food (Just keep in inventory)
     SRL Stats
     An Interesting Paint/Painted Mouse
     Human like Mouse moments (Thanks Flight)
     Progress Reports}


    Var
    man, Location, TimeLast, x, y :Integer;
    Lumbridge, Stairs: TPoint;
    WalkHome: TPointArray;
    CStatus: String;

    Const
    Version = 3;   //Please do not change.

    //SRL info HERE!
      SRLStats_Username = '';
      SRLStats_Password = '';

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // This is the player to start with
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := ''; // 3-4 lowercase letters from username;
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;

    Procedure CheckStats;
      begin
        if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
        begin
                SetupSRLStats(201,'Anonymous','anon1337');
                Exit;
              end;
          end;

      procedure ClearSmartCanvas;
      {$IFDEF SMART}
        var
          drawing : TBitmap;
       begin
        drawing := TBitmap.Create;
        drawing.canvas.handle := SmartGetDebugDC;
       try
          FreeBitmap(drawing);
        except
       end;
      {$ELSE}
      begin
      {$ENDIF}
      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], SmallChars, H);
          for B := 0 to High(TTP) do
          begin
            Numb := ((I + 1) * 13);
            FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
            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 Painting;
        begin
          PrintOnSmart(['R4_ManThief','-----------', 'Status:', CStatus],
          Point(40, 50),60928);
        end;

    procedure ProgressReport;
      begin
      ClearDebug;
        WriteLn('[R4nd0m] ManThief');
        WriteLn('===================================================');
        WriteLn('===================================================');
        WriteLn('Running for: ' + TimeRunning);
        WriteLn('Times PickPocketed: ' + IntToStr(man));
        Writeln('XP gained:'+ IntToStr(man*8));
        WriteLn('===================================================');
        WriteLn('===================================================');
      end;

    //By Benland100, modified to paint mouse movements
      procedure WindMouse2(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
      var
        veloX, veloY, windX, windY, veloMag, dist, randomDist, lastDist, step: extended;
        lastX, lastY: integer;
        sqrt2, sqrt3, sqrt5: extended;
      begin
        sqrt2:= sqrt(2);
        sqrt3:= sqrt(3);
        sqrt5:= sqrt(5);
        while hypot(xs - xe, ys - ye) > 1 do
        begin
          dist:= hypot(xs - xe, ys - ye);
          wind:= minE(wind, dist);
          if dist >= targetArea then
          begin
            windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
            windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          end else
          begin
            windX:= windX / sqrt2;
            windY:= windY / sqrt2;
            if (maxStep < 3) then
            begin
              maxStep:= random(3) + 3.0;
            end else
              begin
                maxStep:= maxStep / sqrt5;
              end;
          end;
          veloX:= veloX + windX;
          veloY:= veloY + windY;
          veloX:= veloX + gravity * (xe - xs) / dist;
          veloY:= veloY + gravity * (ye - ys) / dist;
          if hypot(veloX, veloY) > maxStep then
          begin
            randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
            veloMag:= sqrt(veloX * veloX + veloY * veloY);
            veloX:= (veloX / veloMag) * randomDist;
            veloY:= (veloY / veloMag) * randomDist;
          end;
          lastX:= Round(xs);
          lastY:= Round(ys);
          xs:= xs + veloX;
          ys:= ys + veloY;
          if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
            MoveMouse(Round(xs), Round(ys));
          step:= hypot(xs - lastX, ys - lastY);
          wait(round((maxWait - minWait) * (step / maxStep) + minWait));
          lastdist:= dist;
          SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
        end;
        if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
          MoveMouse(Round(xe), Round(ye));

      end;

    {*******************************************************************************
    Procedure HumanMMouse(eX, eY: Integer);
    By: Flight
    Description: Human-like miss-and-correct mouse movement
    *******************************************************************************}

      Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := MouseSpeed;
        GetMousePos(X, Y);
        Dist := Distance(X, Y, eX, eY);
        MP := Round(Dist/150);
        if MP < 0 then
          MP := 1;

        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        X2 := RandomRange(eX-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse2(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
        GetMousePos(X, Y);
        MMouse(eX, eY, ranX, ranY);
        MouseSpeed := A;
        ClearSmartCanvas;
      end;

    procedure Antiban;
      begin
        CStatus := 'AntiBan working'
        Painting;
          case Random(60) of
            20: HoverSkill('Thieving', False);
            30: PickUpMouse;
            40: RandomMovement;
            50: BoredHuman;
            59: ExamineInv;
          end;
          Writeln('Antiban in action!');
      end;

    procedure AntiRandom;
      begin
        CStatus := 'Checking for randoms'
        Painting;
        FindNormalRandoms;
        LampSkill := 'thieving';
        LevelUp;
        Writeln('Checking for randoms');
      end;

    procedure HpCheck; //Thanks Narcle, used your script to learn how to do this
    var
      a, t, b, x, y:Integer;
    begin
      CStatus := 'Checking Health/Eating'
      Painting;
      if (HPPercent < 30) then
       begin
            for a := 0 to 2 do
            for b := 1 to 28 do
            if ExistsItem(b) then
            begin
              MMouseItem(b);
              GetMousePos(x, y);
              Mouse(x, y, 0, 0, false);
              ChooseOption('Eat');
              Wait(RandomRange(323, 1278));
                    if (HPPercent > 70) then
                    Exit;
                end;
              end;

            if (not LoggedIn) or (HPPercent > 50) then
              Exit;
      end;


    Procedure Climb;
      begin
        Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['tairs'], [4083549, 4215135, 4017499], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('limb');
      end;

      Procedure Door;
      begin
        WriteLn('Upstairs!');
          Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['oor'], [3555142, 3291713, 3686729], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('pen');
      end;

    Procedure WalkToHouse;
      begin
        CStatus := 'Walking...'
        Painting;
        Antirandom;
        HumanMMouse(X, Y, 5, 5);
        WalkHome := [Point(4725, 3785), Point(4755, 3740),
        Point(4705, 3710), Point(4645, 3675)];

        If(SPS_WalkPath(WalkHome)) then
        WriteLn('At Stairs');
        Climb;
        Door;
      end;

    function Steal(): Boolean;
      begin
        repeat
          Antiban;
          HpCheck;
          Antirandom;
          CStatus := 'Stealing'
          Painting;
          Wait(RandomRange(200, 700));
          FindObjCustom(x, y, ['man'], [532535, 400175, 399144, 466225], 10);
          Mouse(x, y, 5, 5, false);
          ChooseOption('ocket');
        until false;
      end;

       //reminder: Switch to TPA or DMT (Need to figure this out...)
    function FindMan(): Boolean;
      begin
        repeat
          HpCheck;
          Steal;
          HpCheck;
          ProgressReport;
          HumanMMouse(X, Y, 5, 5);
          {if(StrInArr('our gravestone', ChatBoxTextArray(clMessage)))
        then
        begin
          HumanMMouse(X, Y, 5, 5);
            WalkToHouse;
        end;}


        {(Use for Master Farmers/Ham members)
        if InvFull then
        begin
          HumanMMouse(X, Y, 5, 5);
          Wait(RandomRange(100, 200));
          DropAll;
          Writeln('Dropping inventory')
        end;}


        until false;
      end;

    begin
      CStatus := 'Logging in...'
      Lumbridge := Point(4720, 3785)
      SPS_Areas := ['11_9'];
      SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);

      Smart_Server := 77;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;

      ClearDebug;
      ClearSmartCanvas;
      Painting;
      DeclarePlayers;
      CheckStats;
      LoginPlayer;
      Findman;
      HpCheck;
      ProgressReport;
    end.

    I don't think everything works correctly. But if you start it upstairs it will work. Better then nothing I guess, got me 1-20 so far. Enjoy.
    shot brah

  24. #49
    Join Date
    Mar 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Little updates here or there...

    Here's a few edits I made to this script to make it a little nicer. Two things mainly: only report about an antiban action if it's actually doing one (less debug clutter), and proggy/stats on the screen to show approx. XP/hr, etc. :-)

    Code:
    program R4_ManThief;
    {$DEFINE SMART}
    {$i SRL/SRL/misc/smart.simba}
    {$i SRL/SRL.simba}
    {$i sps/sps.simba}
    {$I SRL/SRL/misc/paintsmart.simba}
    //{$i VVForm.simba}
    
     {Welcome to R4nd0m's Man Thief, this script steals from men/women giving
     you coins and XP!.
     Features:
     Death Walk
     Anti-Ban/Anti-Random
     Eating (30%-) Any food (Just keep in inventory)
     SRL Stats
     An Interesting Paint/Painted Mouse
     Human like Mouse moments (Thanks Flight)
     Progress Reports}
    
    Var
    man, Location, TimeLast, x, y :Integer;
    Lumbridge, Stairs: TPoint;
    WalkHome: TPointArray;
    CStatus: String;
    XPperHour:Integer;
    
    Const
    Version = 3;   //Please do not change.
    
    //SRL info HERE!
      SRLStats_Username = '';
      SRLStats_Password = '';
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // This is the player to start with
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := ''; // 3-4 lowercase letters from username;
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;
    
    Procedure CheckStats;
      begin
        if ((SRLStats_Username = '') And (SRLStats_Password = '')) then
        begin
                SetupSRLStats(201,'Anonymous','anon1337');
                Exit;
              end;
          end;
    
      procedure ClearSmartCanvas;
      {$IFDEF SMART}
        var
          drawing : TBitmap;
       begin
        drawing := TBitmap.Create;
        drawing.canvas.handle := SmartGetDebugDC;
       try
          FreeBitmap(drawing);
        except
       end;
      {$ELSE}
      begin
      {$ENDIF}
      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], SmallChars, H);
          for B := 0 to High(TTP) do
          begin
            Numb := ((I + 1) * 13);
            FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
            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 Painting;
        begin
         if ((GetTimeRunning/1000) > 0) then
            XPperHour := round((((man*8.0*1000.0) / (GetTimeRunning))) * 3600.0) //XP Per hour
         else
            XPperHour := -1;
    
          PrintOnSmart(['R4_ManThief','-----------', 'Status:', CStatus,'Running for: ' + TimeRunning,'Times PickPocketed: ' + IntToStr(man),'XP gained:'+ IntToStr(man*8),'XP/hr:'+IntToStr(XPperHour)],
          Point(40, 50),60928);
        end;
    
    procedure ProgressReport;
      begin
      ClearDebug;
        WriteLn('[R4nd0m] ManThief');
        WriteLn('===================================================');
        WriteLn('===================================================');
        WriteLn('Running for: ' + TimeRunning);
        WriteLn('Times PickPocketed: ' + IntToStr(man));
        Writeln('XP gained:'+ IntToStr(man*8));
        WriteLn('===================================================');
        WriteLn('===================================================');
      end;
    
    //By Benland100, modified to paint mouse movements
      procedure WindMouse2(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
      var
        veloX, veloY, windX, windY, veloMag, dist, randomDist, lastDist, step: extended;
        lastX, lastY: integer;
        sqrt2, sqrt3, sqrt5: extended;
      begin
        sqrt2:= sqrt(2);
        sqrt3:= sqrt(3);
        sqrt5:= sqrt(5);
        while hypot(xs - xe, ys - ye) > 1 do
        begin
          dist:= hypot(xs - xe, ys - ye);
          wind:= minE(wind, dist);
          if dist >= targetArea then
          begin
            windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
            windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          end else
          begin
            windX:= windX / sqrt2;
            windY:= windY / sqrt2;
            if (maxStep < 3) then
            begin
              maxStep:= random(3) + 3.0;
            end else
              begin
                maxStep:= maxStep / sqrt5;
              end;
          end;
          veloX:= veloX + windX;
          veloY:= veloY + windY;
          veloX:= veloX + gravity * (xe - xs) / dist;
          veloY:= veloY + gravity * (ye - ys) / dist;
          if hypot(veloX, veloY) > maxStep then
          begin
            randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
            veloMag:= sqrt(veloX * veloX + veloY * veloY);
            veloX:= (veloX / veloMag) * randomDist;
            veloY:= (veloY / veloMag) * randomDist;
          end;
          lastX:= Round(xs);
          lastY:= Round(ys);
          xs:= xs + veloX;
          ys:= ys + veloY;
          if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
            MoveMouse(Round(xs), Round(ys));
          step:= hypot(xs - lastX, ys - lastY);
          wait(round((maxWait - minWait) * (step / maxStep) + minWait));
          lastdist:= dist;
          SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
        end;
        if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
          MoveMouse(Round(xe), Round(ye));
    
      end;
    
    {*******************************************************************************
    Procedure HumanMMouse(eX, eY: Integer);
    By: Flight
    Description: Human-like miss-and-correct mouse movement
    *******************************************************************************}
      Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := MouseSpeed;
        GetMousePos(X, Y);
        Dist := Distance(X, Y, eX, eY);
        MP := Round(Dist/150);
        if MP < 0 then
          MP := 1;
    
        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        X2 := RandomRange(eX-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse2(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
        GetMousePos(X, Y);
        MMouse(eX, eY, ranX, ranY);
        MouseSpeed := A;
        ClearSmartCanvas;
      end;
    
    procedure Antiban;
      begin
        CStatus := 'AntiBan working'
        Painting;
          case Random(60) of
            20: begin Writeln('Antiban in action!'); HoverSkill('Thieving', False);  end;
            30: begin Writeln('Antiban in action!'); PickUpMouse;  end;
            40: begin Writeln('Antiban in action!'); RandomMovement;  end;
            50: begin Writeln('Antiban in action!'); BoredHuman; end;
            59: begin Writeln('Antiban in action!'); ExamineInv; end;
          end;
    
      end;
    
    procedure AntiRandom;
      begin
        CStatus := 'Checking for randoms'
        Painting;
        FindNormalRandoms;
        LampSkill := 'prayer';
        LevelUp;
        Writeln('Checking for randoms');
      end;
    
    procedure HpCheck; //Thanks Narcle, used your script to learn how to do this
    var
      a, b, x, y:Integer;
    begin
      CStatus := 'Checking Health/Eating'
      Painting;
      if (HPPercent < 30) then
       begin
            for a := 0 to 2 do
            for b := 1 to 28 do
            if ExistsItem(b) then
            begin
              MMouseItem(b);
              GetMousePos(x, y);
              Mouse(x, y, 0, 0, false);
              ChooseOption('Eat');
              Wait(RandomRange(323, 1278));
                    if (HPPercent > 70) then
                    Exit;
                end;
              end;
    
            if (not LoggedIn) or (HPPercent > 50) then
              Exit;
      end;
    
    
    Procedure Climb;
      begin
        Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['tairs'], [4083549, 4215135, 4017499], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('limb');
      end;
    
      Procedure Door;
      begin
        WriteLn('Upstairs!');
          Wait(RandomRange(200, 700));
            FindObjCustom(x, y, ['oor'], [3555142, 3291713, 3686729], 10);
          Mouse(x, y, 5, 5, false);
        ChooseOption('pen');
      end;
    
    Procedure WalkToHouse;
      begin
        CStatus := 'Walking...'
        Painting;
        Antirandom;
        HumanMMouse(X, Y, 5, 5);
        WalkHome := [Point(4725, 3785), Point(4755, 3740),
        Point(4705, 3710), Point(4645, 3675)];
    
        If(SPS_WalkPath(WalkHome)) then
        WriteLn('At Stairs');
        Climb;
        Door;
      end;
    
    function Steal(): Boolean;
      begin
        repeat
          Antiban;
          HpCheck;
          Antirandom;
          CStatus := 'Stealing'
          Painting;
          Wait(RandomRange(200, 700));
          FindObjCustom(x, y, ['man'], [532535, 400175, 399144, 466225], 10);
          Mouse(x, y, 5, 5, false);
          ChooseOption('ocket');
          if(StrInArr('coins have', ChatBoxTextArray(clMessage))) then
            man:=man+1;
        until false;
      end;
    
       //reminder: Switch to TPA or DMT (Need to figure this out...)
    function FindMan(): Boolean;
      begin
        repeat
          HpCheck;
          Steal;
          HpCheck;
          ProgressReport;
          HumanMMouse(X, Y, 5, 5);
          {if(StrInArr('our gravestone', ChatBoxTextArray(clMessage)))
        then
        begin
          HumanMMouse(X, Y, 5, 5);
            WalkToHouse;
        end;}
    
        {(Use for Master Farmers/Ham members)
        if InvFull then
        begin
          HumanMMouse(X, Y, 5, 5);
          Wait(RandomRange(100, 200));
          DropAll;
          Writeln('Dropping inventory')
        end;}
    
        until false;
      end;
    
    begin
      man:=0;
      CStatus := 'Logging in...'
      Lumbridge := Point(4720, 3785)
      SPS_Areas := ['11_9'];
      SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
    
      Smart_Server := 77;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
    
      ClearDebug;
      ClearSmartCanvas;
      Painting;
      DeclarePlayers;
      CheckStats;
      LoginPlayer;
      Findman;
      HpCheck;
      ProgressReport;
    end.

  25. #50
    Join Date
    Mar 2012
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    great thanks need 25 thiev on my pure but im to lazy

Page 2 of 3 FirstFirst 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
  •