Page 1 of 7 123 ... LastLast
Results 1 to 25 of 166

Thread: Trolling Cowhides.

  1. #1
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default Trolling Cowhides.

    Hello, guys. Today, I am releasing my new script. Trolling Cowhides.

    I think you guys will enjoy it, I have seen it work.. but i haven't done extensive testing.. I'm releasing to public, but with a catch.. It has an Anti-Leech. People who have scripting ability will be able to use it, and not ruin the Economy of Runescape. I will not tell you how to do the anti-leech. Learn to code in Pascal, .



    * I will Be updating this often, and will take suggestions.


    ** I will be releasing more scripts as time passes, and will need banners.


    *** I am willing to teach you how to code, if you want to learn. I don't mind spreading the love.


    **** Updated! Shouldn't just stand there anymore, or log you out. Also! Easier Anti-Leach! (Tired of getting PM's on "Did i do it right?" or "Can you tell me how to do this?")




    Script: (Copy-paste)
    Simba Code:
    program Trolls_Cowhide_Collecter;
    {$DEFINE SMART}
    {$IFDEF SMART}
    {$i SRL/SRL/Misc/Smart.simba}
     {$ENDIF}
    {$i SRL/SRL.simba}
    {$i SPS/SPS.simba}

    const
     SRLStats_Username  = '';    //SRL Stats User
     SRLStats_Pass      = '';    //SRL Stats Pass
     BreakEvery         = '60';  //Break Every Log, Or Never.
     BreakFor           = '7';   //Break For How long, Now?
     Version            = '5.3'; // Don't Touch.
     NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
     StartPlayer        = 0;     //Start Which Player?

    var
     X, Y, CowsKilled, DoorDTM : integer;
     StartingXP: integer;
      Drops: Array of String;
     Path_ToBank : TPointArray;
      aFound: Extended;
     Path_ToCows : TPointArray;


     procedure DeclarePlayers;
     var
      i: Integer;
     begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
      begin
       Players[0].Name   := '';       // Your Username.
       Players[0].Pass   := '';       // Your Password.
       Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
       Players[0].Active := True;     // Are you using this player?
       Players[0].Member := True;     // Are you a member?
      end;
     end;

    Procedure ProgressReport;
     var Exp: integer;
    begin
     ClearDebug;
     Exp := (GetXPBarTotal - StartingXP);
     writeLn('//=====================================\\');
     writeLn('||=======Trolls Cowhide Collecter======||');
     writeLn('||=======Time Running: ' + TimeRunning);
     writeLn('||=======Cows: ' + IntToStr(CowsKilled));
     writeLn('||=======Exp: ' + IntToStr(EXP));
     writeLn('\\=====================================//');
    end;

    procedure SetupChar;
    begin
     SetupSRL();
     SetAngle(0);
     ClickNorth(0);
    end;

    procedure Startup;
    begin
     Smart_Server := 97;
     Smart_Members := False;
     Smart_Signed := False;
     Smart_SuperDetail := False;
     SetupSRL;
     DeclarePlayers;
     LogInPlayer;
     MouseSpeed := 21;
     wait(100+random(100));
     ProgressReport;
     Path_ToBank := [Point(4866, 3590), Point(4853, 3593), Point(4839, 3596), Point(4828, 3610), Point(4804, 3616), Point(4790, 3616), Point(4773, 3616), Point(4728, 3618), Point(4704, 3609), Point(4695, 3582), Point(4691, 3555), Point(4691, 3555), Point(4655, 3545), Point(4628, 3543), Point(4593, 3531), Point(4567, 3517), Point(4589, 3478), Point(4583, 3437), Point(4556, 3417), Point(4541, 3400), Point(4547, 3390), Point(4556, 3383)];
     Path_ToCows := [Point(4555, 3383), Point(4542, 3388), Point(4541, 3398), Point(4548, 3411), Point(4578, 3430), Point(4589, 3447), Point(4595, 3467), Point(4593, 3484), Point(4596, 3525), Point(4628, 3544), Point(4681, 3548), Point(4699, 3596), Point(4743, 3619), Point(4793, 3618), Point(4839, 3597), Point(4845, 3594), Point(4848, 3594), Point(4860, 3571)];
    end;

    procedure StatsGuise(Stats:String);
    begin
     Status(stats);
     Disguise(stats);
    end;

    procedure AntiBan;
    begin
     case Random(250) of
      0: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Mining', false) GameTab(28); end;
      1: begin StatsGuise('AntiBan') SleepAndMoveMouse (9000+random(600)); end;
      2: begin StatsGuise('AntiBan') GameTab(tab_inv) ExamineInv; GameTab(28); end;
      3: begin StatsGuise('AntiBan') RandomAngle(1); end;
      4: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Attack', false) GameTab(28); end;
      5: begin StatsGuise('AntiBan') SleepAndMoveMouse (4000+random(250)); end;
      6: begin StatsGuise('AntiBan') RandomAngle(2); end;
     end;
    end;

    Function FindObjOnScreen(Color,Tolerance:Integer;MC2:Variant;Hmod,Smod:Extended): Boolean;
    var
     X,Y:Integer;
     CTS,I,T: Integer;
     TPA: TPointArray;
    begin
     repeat
     Result := False;
     CTS := GetColorToleranceSpeed;

     ColorToleranceSpeed(2);

     SetColorSpeed2Modifiers(Hmod,Smod);

     FindColorsSpiralTolerance(MSCX, MSCY, TPA,(Color), MSX1, MSY1, MSX2, MSY2, Tolerance);
     ColorToleranceSpeed(CTS);
     if (Length(TPA) < 1) then
      Exit;
      MMouse(TPA[0].X, TPA[0].Y, 5, 5);
      if WaitUpText('Take', 400) then
      begin
       GetMousePos(X, Y);
       ClickMouse2(False);
       ChooseOptionMulti(Drops);
       Result := True;
       Exit;
      end;
      Until(Result)
     end;

    procedure KillCow;
    var
     X, Y, PlusOne: Integer;
    begin
     if FindObjCustom(x, y, ['ttack', 'ow'], [3029313, 7507881, 6185837, 2638919], 7) Then
     begin
      StatsGuise('Cow! Attacking...')
      GetMousePos(X, Y);
      case Random(2) of
       0: Mouse(X, Y, 5, 5, True);
       1: begin
        Mouse(X, Y, 5, 5, False);
        WaitOption('ttack', 250);
       end;
      end;
       Flag;
      repeat
       PlusOne := InvCount + 1;
       AntiBan;
       wait(100);
       FindObjOnScreen(8290940,1,False,1.73,0.01);
       wait(2000);
       if InvCount=PlusOne then
       WriteLn ('Killed the Cow.');
       until (InvCount=PlusOne);
      end;
     end;

     procedure LoadVars;
     begin
      Drops:=['ide'];
    end;


    function PickRunes:Boolean;
    var
     x, y: Integer;
    Begin
     x:=MSCX;
     y:=MSCY;
     begin
      if FindObjCustom(x, y, ['ake'], [], 5) then
      Mouse(x, y, 3, 3, False);
      WaitOptionMulti(['ake', 'owhide'], 50);
      wait(500+Random(300));
      Writeln('There''s another cowhide!');
     end;
    end;

    procedure Banking;
    var Path_ToBank : TPointArray;
    begin
     Writeln('Walking to the bank');
     if SPS_WalkPath(Path_ToBank) then
     begin
      writeln('We are at the bank!');
     end;
     begin
     DoorDTM := DTMFromString('mAAEAAHic42FgYPjNyMBwC4ilmRgYZIH4LpD9GojZgOw/jBD8EYglgfw7QLodqKcRiHuAuA6JboCyQXQ3ELcxQNTa29ky+DmZMNia6TOEelgyGOmoMYR7WYPFrEx04bSPixWYZgfqIQUzkoiRAQADKhbv');
     if FindDTMRotated(DoorDTM, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
     begin
      MMouse(X, Y, 2, 2);
      ClickMouse2(True);
      Wait(2000+random(200));
      if not FindDTM(DoorDTM, x, y, 0, 0, 700, 500) then
      begin
       Wait(1000+Random(500));
      end;
     end;
    end;
    end;

    procedure ToCows;
    var
     Path_ToCows : TPointArray;
    begin
     WriteLn('Walking Back to the Cows');
     if SPS_WalkPath(Path_ToCows) then
     begin
      WriteLn('We Are at the Cows');
     end;
    end;

    procedure FreeDTMs;
    begin
     FreeDTM(DoorDTM);
    end;

    begin
     Startup;
     SPS_Areas := ['12_8','12_9','11_9','11_8'];
     SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
     SetupChar;
     LoadVars;
     StatsGuise('Herro!');
     AntiBan;
     ProgressReport;
     Banking;
     repeat
      repeat
       KillCow;
       Wait(500);
       FindObjOnScreen(8290940,1,False,1.73,0.01);
      Until InvFull;
     Banking;
     ToCows;
     until(Not LoggedIn);
     ProgressReport;
    end.
    Last edited by Vinyl Scratch; 04-08-2012 at 01:49 AM.

  2. #2
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Nice release. Good idea with the anti leech. Pretty easy but hey well done.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  3. #3
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default

    Yeah, I thought it would be, but the Leechers wont figure it out.

  4. #4
    Join Date
    Feb 2012
    Posts
    554
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you my friend for making this script, and i will send some more requests and ideas your way
    We are VillaVu a community, We are Simba.
    Hear us Roarrrrrrrrrrrrrrr!!!!!!!!
    ~Life is what you decide to make it, nothing is pre-ordained other than the steps you choose to make~
    ~Karma is Fierce, do the wrong thing and she will get you~!d

  5. #5
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

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

    Default

    Quote Originally Posted by xXTrollXx View Post
    Keep 'em comin' , Bro!
    of course i will
    We are VillaVu a community, We are Simba.
    Hear us Roarrrrrrrrrrrrrrr!!!!!!!!
    ~Life is what you decide to make it, nothing is pre-ordained other than the steps you choose to make~
    ~Karma is Fierce, do the wrong thing and she will get you~!d

  7. #7
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Still an easy anti-leech. Btw nice script
    Goals:
    Understanding TPAs
    Making Proggy for fighting
    Getting on SRL members
    Get 500 posts

  8. #8
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default

    It's supposed to be easy, makes the leechers look stupid.

  9. #9
    Join Date
    Dec 2011
    Posts
    1,162
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol sick you released it troll, I'll chek it out when I et home!

  10. #10
    Join Date
    Feb 2012
    Location
    Discord
    Posts
    3,114
    Mentioned
    37 Post(s)
    Quoted
    538 Post(s)

    Default

    nice script lolled at the anti leech when i saw it

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

    Default

    LoadVars;
    [Error] (77:11): Unknown identifier 'LoadVars' at line 76
    Compiling failed.

  12. #12
    Join Date
    Nov 2011
    Location
    Merica
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    And we have a winner!! ^^ Ding Ding Ding!

  13. #13
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

  14. #14
    Join Date
    Dec 2011
    Posts
    1,162
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol troll, easiest antileech in the world!

  15. #15
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Hahahahaha actually made me lol over the guy posting with unknown identifier error. Nice job again
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  16. #16
    Join Date
    Feb 2012
    Location
    West Virginia
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by xXTrollXx View Post
    Hello, guys. Today, I am releasing my new script. Trolling Cowhides.

    I think you guys will enjoy it, I have seen it work.. but i haven't done extensive testing.. I'm releasing to public, but with a catch.. It has an Anti-Leech. People who have scripting ability will be able to use it, and not ruin the Economy of Runescape. I will not tell you how to do the anti-leech. Learn to
    Not trying to troll or go off topic, but whose to say that the people who know how to script wont ruin the rs economy just as easily as bunch of people who dont?

  17. #17
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    They might you just never know. You have to earn the right to do so however by figuring out how to fix the script. We will know if this is the case in the near future now wont we.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

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

    Default

    haha i dont wanna be known as a "leacher" because i really do want to know how to script. i am absolutly clueless.. how do i fix this??

  19. #19
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by Only1 View Post
    haha i dont wanna be known as a "leacher" because i really do want to know how to script. i am absolutly clueless.. how do i fix this??
    Just delete the lines with errors
    There's a X somewhere at simba when you hover it it says "Close", hit that and you're finished.
    Hi

  20. #20
    Join Date
    Feb 2012
    Posts
    554
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Tickyy View Post
    There's a X somewhere at simba when you hover it it says "Close", hit that and you're finished.
    HAhahaHa agreed, I'm going to give you some more ideas soon troll, read my pm
    Last edited by one1988; 02-16-2012 at 04:49 PM.
    We are VillaVu a community, We are Simba.
    Hear us Roarrrrrrrrrrrrrrr!!!!!!!!
    ~Life is what you decide to make it, nothing is pre-ordained other than the steps you choose to make~
    ~Karma is Fierce, do the wrong thing and she will get you~!d

  21. #21
    Join Date
    Dec 2009
    Posts
    98
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script great anti-leech

  22. #22
    Join Date
    Nov 2011
    Posts
    232
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Lol'd @Antileech, was expecting something a little harder.

  23. #23
    Join Date
    Jan 2012
    Posts
    81
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Antileech took >5 seconds. But, ig a nooblet couldnt do it.

  24. #24
    Join Date
    Jan 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice anti-leech ^ A noob couldn't do it though

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

    Default

    dude i recommend to move this script ? coz they are already thousand of bots on cows on f2p :/.

    but good script i been testing it, it seems to work fine.

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