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

Thread: GOOGLE's DesertHornCrusher 100-400k|H

  1. #1
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default GOOGLE's DesertHornCrusher 100-400k|H

    GOOGLE'S DesertGoatHornCrusher



    Last edited by Google; 05-20-2012 at 06:54 PM.

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

    Thumbs up

    Thanks Google....and I love how you have the instructions inside your script... very helpful when you need to run a particular script that you have perhaps not run in quite a while....

  3. #3
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by krasniy View Post
    Thanks Google....and I love how you have the instructions inside your script... very helpful when you need to run a particular script that you have perhaps not run in quite a while....
    No problem man, happy botting.

  4. #4
    Join Date
    Mar 2012
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I dunno why it seems like unstable , it will automatically stopped sometimes.

  5. #5
    Join Date
    Jul 2008
    Location
    NSW, Australia
    Posts
    881
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Nice google I actually Implemented this as an option into my crusher but didn't release it because I didn't want to effect the price anymore,
    You really should put your Dragon Scale Crusher and Other's you have released into one script.

    Here it is, look through and you'll see how to do it:
    Simba Code:
    program LeetzCrusher;
    {$DEFINE SMART}
    {$i SRL/srl.simba}
    {$i SRL/srl/misc/paintsmart.simba}
    const
    //////////////////////////////////////////IMPORTANT!!IMPORTANT!!IMPORTANT!!IMORTANT\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
     //Welcome to LeetzBarCrusher version 1.3 by Leetsxc, Please review the STEPS below and complete which are required before starting the script.\\
                         //            \\                                         //               \\
                        //////////////////////////////Start of $etup////////////////////////////////////
      SERVER            = 15;         // Enter "0" to pick a random server.      STEP 1           //
      MEMBERS           = False;     //False if F2P  True for P2P              STEP 2            //
      NumbOfPlayers     = 1;        //Dont touch  Unless you wanna use multi player setup       //
      StartPlayer       = 0;       //Dont touch                                                //
                                  /////BREAKING SETUP\\\\\                                    //
      UseBreaks         = True;  //Do you want to take breaks?              STEP 3            \\
      SwitchWorld       = True; //Do you want to switch worlds after the break?   STEP 4       \\
      BreakIn           = 290; //How many minutes until you take a break?            STEP 5     \\
      BreakInRandom     = 10; //How many minutes should the "BreakIn" time be varied by?  STEP 6 \\
      BreakFor          = 7; //How many minutes will you break for?                        STEP 7 \\
      BreakForRandom    = 7;//How many minutes should the "BreakFor" time be varied by?   STEP 8  //\
                           ///END OF BREAKING SETUP\\\                                           //\/\
                          //                                                                    //\/\/\
                         ////LeetzCrusher Setup\\\\                                             /\/\/\/\
      Item               = 'Chocolate';  // Goat Horn or Chocolate                             //      \\
      Location           = 'VBANKWESTEASTSIDE'; //  STEP 9                                            //\       \\                                    //
                       //  'VBANKWESTEASTSIDE'= Varrock Bank West East side of the bank       \\/       //                                   //         SETUP
                      //   'VBANKWESTWESTSIDE'= Varrock Bank West West side of the bank        \\      //                                   //////////////////////////////////////
                     //     'Soul Wars'= New Location :) Soul Wars                              \\    //
      Profit             = 86; //Calculate your profit per bar through G.E and change it STEP 10 \\  //                                     \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
      Howmany            = 39000; //Type how many Cast's/Monster's if auto cast  you would like to do before the script will END   STEP 11   \\
                  ///End of LeetzCrusher Setup\\\                                                                                             \\
    var
      x1,y1,x2,y2,StartTime,AntiBans,Dust,Itemz,BankBooth,Crushes,x,y,breaktimer,BreaksTaken: integer;
      Text:string;
    procedure DeclarePlayers;
    var
      i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
      begin
        Players[i].BoxRewards := ['amp'];
        Players[i].LampSkill := 13;
      end;
      With Players[0] do
      begin
        Name := ''; //Username. STEP 12
        Pass := ''; //Password.  STEP 13
        Active := True;
      end;
        { With Players[1] do //For more players uncomment the {'s at top left and bottem right
      begin
        Name := ''; //Username.
        Pass := ''; //Password.
        Active := True;
      end;   }

    end;
                        ////////////////////////////// End of Setup////////////////////////////////////

      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 Proggy;
    var
    Crushrate,Sec:integer;
    begin
     Sec:=(1+((Getsystemtime-StartTime)/1000));
     Crushrate:=(3600*(Crushes))/(Sec);
     PrintOnSmart(['**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**',
     '           $$$$$$$$$LeetzCrusher v1.3$$$$$$$$$$',
     '                     Time Running: ' + TimeRunning,
     '                               Profit Gained: ' + IntToStr(Crushes*Profit) + ' GP',
     '                               Profit Per Hour: ' + IntToStr(Crushrate*Profit) + ' GP',
     '                               Chocolate Bars Crushed: ' + IntToStr(Crushes),
     '                               Crushes Per Hour: ' + IntToStr(Crushrate),
     '                               Anti-Bans Performed: ' + IntToStr(AntiBans),
     '**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**'], Point(104, 201), 14884053);
      Writeln('**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**');
      Writeln('   $$$$$$$$$LeetzCrusher v1.3$$$$$$$$$$');
      Writeln('      Time Running: ' + TimeRunning);
      Writeln('      Profit Gained: ' + IntToStr(Crushes*Profit) + ' GP');
      Writeln('      Profit Per Hour: ' + IntToStr(Crushrate*Profit) + ' GP');
      Writeln('      Chocolate Bars Crushed: ' + IntToStr(Crushes));
      Writeln('      Crushes Per Hour: ' + IntToStr(Crushrate));
      Writeln('      Anti-Bans Performed: ' + IntToStr(AntiBans));
      Writeln('**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**');
    end;

    procedure AntiBan;
    begin
      if(not(LoggedIn))then
        exit;
      FindNormalRandoms;
      Findnoninventoryrandoms;
        Case Random (2500) of
        0..18: Begin SleepAndMoveMouse(5000 + Random(750)); AntiBans:=AntiBans+1; End;
        19..24: Begin GameTab(tab_Inv) ExamineInv; GameTab(tab_Inv); SleepAndMoveMouse(2500 + Random(553));  AntiBans:=AntiBans+1; End;
        25..42: Begin RandomAngle(1); AntiBans:=AntiBans+1; End;
        55..60: Begin PickUpMouse; AntiBans:=AntiBans+1; End;
        61..120: Begin RandomMovement; AntiBans:=AntiBans+1; End;
        121..160: Begin BoredHuman; AntiBans:=AntiBans+1; End;
        161..182: begin if(gametab(tab_inv))then Begin ExamineInv; AntiBans:=AntiBans+1; End; end;
        End;
    end;

    function FindDustLastSlot: Boolean;
    begin
    Result:= Finddtm(Dust,x,y,686,432,733,464);
    end;

    function FindItemz: Boolean;
    begin
    Result:= Finddtm(Itemz,x,y,559,209,735,466);
    end;


    procedure CrushProcess;
    var
    Continuez:boolean;
    begin
    sleep(randomrange(50,200));
    if(WaitFunc(@FindItemz, 50, 3000))then
     begin
     Mouseitem(Randomrange(1,28),0);
     WaitOptionMulti(['rind','owder'], 3000);
     if(WaitFindColor(x,y,2070783,221, 436,299, 452,4,3000))then
      begin
       Case Random (9) of
       0..2: begin  //30%
             mouse(x,y,15,2,false);
             if(Waitoption('All',2000))then
               Continuez:=true;
             end;
       3..9: begin  //70%
             mmouse(x,y,15,15);
             if(WaitUpText('ake',2000))then
               begin
               getmousepos(x,y);
               mouse(x,y,0,0,true);
               Continuez:=true;
               end;
             end;
       End;
       if(Continuez=true)then
       begin
       Antiban;
       if(WaitFunc(@FindDustLastSlot, 50, 40000))then Crushes:=Crushes+28;
       end;
      end;
     end;
    end;

    function CheckBankUp: Boolean;
    begin
    Result:= WaitFindColor(x,y,4106994,195,26,321,43,5,3000);
    end;

    procedure DTMZ;
    begin
      Case Location of
      'VBANKWESTEASTSIDE': BankBooth:= DTMFromString('mQwAAAHicY2YAAkYgAuL/QGYlEHcCcT4Qt9SkMhQnGTNE+qgziAL5HEAsCFEOx0AAAPFJBeE=');
      'VBANKWESTWESTSIDE': BankBooth:= DTMFromString('mQwAAAHicY2YAAkYgAuL/QGYlEHcCcT4Qt9SkMhQnGTNE+qgziAL5HEAsCFEOx0AAAPFJBeE=');
      'Soul Wars': BankBooth := DTMFromString('mQwAAAHicY2ZgYLgNxLeg9EIgngrEG4A4PzmUYcvaNQwrFy1k4ADyuaCYEQkDAQCfPAm5');
      End;
    Case Item of
    'Chocolate': begin
                   Dust:= DTMFromString('mbQAAAHicY2VgYMhiYmBIAuJCJgg7B4ifM0DwMyB+A8SPgDjUUBpIMqFgfgZMwIgFgwEAV7cHYg==');
                   Itemz:= DTMFromString('mbQAAAHicY2VgYMhhYmAoBOJUIE4H4jIgfgQUvwPEr4D4PhA/AWIfHQkgyYSC+RkwASMWDAYAUOoHRg==');
                 end;
    'Goat Horn': begin
                   Dust:= DTMFromString('mlwAAAHicY2dgYMhkYmBIBuJEIM4C4mIgzgXiCiB+DpR/A8TPgPgtA4R/F4gfAnFqUjiQZMKKWXHKMDAw4sFQAAClYAqS');
                   Itemz:= DTMFromString('mwQAAAHic42RgYMhgYmDIAuIyIC4C4lwgLgTiTCBOgOKHQHW3gPgmEN8F4mdA/B6IXwHxIyB+AcTpKZFAkgkvZiWogoGBkQgMBwBy/g0p');
                 end;
    END;
    end;

    procedure FREEDTMZ;
    begin
    FreeDtm(Bankbooth);
    FreeDtm(Dust);
    FreeDTM(Itemz);
    end;

    procedure CrushSetup;
    begin
      Case Location of
      'VBANKWESTEASTSIDE': begin
                           Text:='ooth';
                           MakeCompass('E');
                           x1:=222;
                           y2:=81;
                           x2:=299;
                           y2:=189;
                           SetAngle(0);
                           end;
      'VBANKWESTWESTSIDE': begin
                           Text:='ooth';
                           MakeCompass('W');
                           x1:=222;
                           y2:=81;
                           x2:=299;
                           y2:=189;
                           SetAngle(0);
                           end;
      'Soul Wars': begin
                   Text:='hest';
                   MakeCompass('E');
                   x1:=177;
                   y2:=126;
                   x2:=258;
                   y2:=208;
                   SetAngle(0);
                   end;
      End;
    end;

    procedure WithdrawProcess;
    begin
    if(CheckBankUp)then
      begin
      if(Finddtm(Dust,x,y,559,209,735,466))then
      begin
      mouse(x,y,5,5,false);
      Waitoption('All',2000);
      end;
      mouse(439,185,10,10,false);
      if(WaitOption('All',1000))then mouse(483,29,5,5,true);
      end;
    end;

    procedure BankProcess;
    var
    found:boolean;
    aFound: Extended;
    begin
    Crushsetup;
    if(finddtmrotated(BankBooth,x,y,x1,y1,x2,y2,-Pi, Pi, Pi/30, aFound))then found:=true;
    if(found=true)then
       begin
       mmouse(x,y,7,7);
       if(WaitUpText(Text,1000))then
         begin
         getmousepos(x,y);
         mouse(x,y,0,0,true);
         end;
       end;
    end;

    procedure TakeBreaks;
    begin
      if not LoggedIn then
        Exit;
      begin
      if (GetSystemTime > BreakTimer) then
        begin
        WriteLn('Taking a break.');
        Logout;
        Wait(BreakFor * 60000 + Random(BreakForRandom * 60000));
        WriteLn('Logging back in.');
         Case (SwitchWorld) of
         True: if LoginPlayerToLob then
                  ChangeWorld(RandomWorld(True, False));
         False: LoginPlayer;
          end;
         Wait(2000);
         BreaksTaken:=BreaksTaken+1;
         BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
         end;
      end;
    end;

    begin
      Smart_server := SERVER;
      Smart_Signed := TRUE;
      Smart_Members := MEMBERS;
      Smart_SuperDetail := FALSE;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      smart_clearcanvas;
      DTMZ;
      CrushSetup;
      Addonterminate('FREEDTMZ');
      proggy;
      mousespeed:=25;
      Wait(2000);
      BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
      StartTime:=GetSystemTime;
       repeat
       CrushProcess;
       Proggy;
       if(Crushes+1>Howmany)then
       begin
       terminatescript();
       end;
       AntiBan;
       BankProcess;
       WithdrawProcess;
       if (UseBreaks) then
          TakeBreaks;
        until (not Loggedin);
    end.

  6. #6
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by suffrage View Post
    I dunno why it seems like unstable , it will automatically stopped sometimes.
    Whats it saying in the debug box is it terminating the script completely, or is the script just sitting there and pausing because one of the antibans is to sleep and move the mouse for 5 seconds so that could be what the stopping is.

    To change this go to this line
    Simba Code:
    0..18:  Begin SleepAndMoveMouse(5000 + Random(750)); End;
    // 5000 is in millaseconds so its set to 5 seconds, change it to 1000
    // if you want to speed up that antiban, which will just sleep and move
    // the mouse for a quick second then bank.

    Quote Originally Posted by leetsxc View Post
    Nice google I actually Implemented this as an option into my crusher but didn't release it because I didn't want to effect the price anymore,
    You really should put your Dragon Scale Crusher and Other's you have released into one script.

    Thanks for the idea I will take a look at it.
    Last edited by Google; 04-11-2012 at 04:47 PM.

  7. #7
    Join Date
    Mar 2012
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Wink

    Quote Originally Posted by GOOGLE View Post
    Whats it saying in the debug box is it terminating the script completely, or is the script just sitting there and pausing because one of the antibans is to sleep and move the mouse for 5 seconds so that could be what the stopping is.

    To change this go to this line
    Simba Code:
    0..18:  Begin SleepAndMoveMouse(5000 + Random(750)); End;
    // 5000 is in millaseconds so its set to 5 seconds, change it to 1000
    // if you want to speed up that antiban, which will just sleep and move
    // the mouse for a quick second then bank.




    Thanks for the idea I will take a look at it.
    it is working well now.


  8. #8
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by suffrage View Post
    it is working well now.

    Glad its working for you now

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

    Default

    Seems to get messed up when the camera is put at the angle its set to, works best for me when its set north but i dont know how to change it to do that in the script. :P

    EDIT: Dont worry i fixed it myself
    Last edited by hodsi1; 05-09-2012 at 05:52 PM.

  10. #10
    Join Date
    May 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script, has been working perfectly so far, Thank you I also like the little elephant behind the instructions

  11. #11
    Join Date
    May 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script, has been working perfectly so far, Thank you

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

    Default

    Worked fine for me.. Did about 20k of them.. had 10k dust in bank and fell asleep. woke up and they dropped like 200gp -.-

  13. #13
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Adobe View Post
    Worked fine for me.. Did about 20k of them.. had 10k dust in bank and fell asleep. woke up and they dropped like 200gp -.-
    Thats unfortunate

  14. #14
    Join Date
    May 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dunno why so underrated, but I'll give you lots of love for this one!
    Cheers!

  15. #15
    Join Date
    May 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it loggs out my accounts after about 10-20 min of botting when breaks are on "false"

  16. #16
    Join Date
    May 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    correction* i have horns in 1st slot and some times it finds the horns and othe times it sayd wrong uptext and cant ifnd the horns and just logs out

  17. #17
    Join Date
    May 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i moved the coordinate for the horns in bank to 48,106,9,9 and it seems to run flawless now but it might mess up in a few hours.

  18. #18
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by spac3monk View Post
    it loggs out my accounts after about 10-20 min of botting when breaks are on "false"
    Ill fix it tomorrow the its just not finding the DTM.

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

    Default

    Yeah just a little error that needs fixing is all, good work though!

  20. #20
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Jordan155 View Post
    Yeah just a little error that needs fixing is all, good work though!
    Updated.

  21. #21
    Join Date
    May 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    runs ok for a couple of minutes then Says it cant find the horns.. while i putted them in a tab at first bankslot..
    PLEASE HELP

  22. #22
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by michelser View Post
    runs ok for a couple of minutes then Says it cant find the horns.. while i putted them in a tab at first bankslot..
    PLEASE HELP
    Download V2 and read the directions up at the top.

  23. #23
    Join Date
    Jul 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how much Gp/Hour is this at the moment? and do the horns buy fast? and how fast does the dust sell?

    sorry for the many questions :d just curious if it's still worth it

  24. #24
    Join Date
    Jan 2012
    Posts
    713
    Mentioned
    3 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by outbuster View Post
    how much Gp/Hour is this at the moment? and do the horns buy fast? and how fast does the dust sell?

    sorry for the many questions :d just curious if it's still worth it
    They buy fast and sell slow, its good money still if your patient.

  25. #25
    Join Date
    May 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i needed that, thanks

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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