Results 1 to 12 of 12

Thread: [SRL] DoomRiders Bow Stringer

  1. #1
    Join Date
    Jun 2007
    Location
    in a house, i think :P
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [SRL] DoomRiders Bow Stringer

    [SRL] DoomRider's Bow Stringer

    This is my first script and it's only a BETA, bud it work's fine
    This script will not get u banned, because it's straight from srl

    I studied scar and SRL for quite a while and I decided to make an bow stringer.

    Download the file and follow the instructions
    If u have any suggestions or comment, please post here

    Version 1.01 and 1.02 are made with SRL 3.6 and scar 2.03, so if u run it with different versions it may not work!

    I hope u like it




    V1.03 I've fixed some stuff and make the code something easyer for me. Lots of ty goes to Pentti. He also recommanded me to build in a multiplayer function. It will be in the next version

    V1.10
    I've finished the multiplayer function and with ty to Pentti I've fixed the SearchText function. It will works now with the new runescape update. Also one important thing. VERSION 1.10 IS FOR SCAR DIVI (SCAR 2.06) AND SRL 2.08 ONLY. U can try it with different versions bud I doubt if it works. Calculating the experience works now great.

    I've not tested it Yet, bud it should work. Can u guys test it? It would be really great.

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I'll have a look through it now...

    Seems good but I standardised it for you...something important in scripting. It makes it look much neater:

    SCAR Code:
    {
                             By DoomRider

           ******      ******      ******      ******      ******
           ******      ******      ******      ******      ******
           ******      ******      ******      ******      ******
           ******************************************************
          ********************************************************
         **********************************************************
        ************************************************************
       *************  DoomRider's Bows Stringer *********************
      ************************you must do thes************************
     *************************its not for sell*************************
     ********* 1- set-up on line 33-37.                       **********
     ********* 2- amout to do on line 20                      **********
     ********* 3- but the screen resolutin to 1024,768.       **********
     ********* 4- bows (u) somewhere in upperscreen of  bank  **********
     ********* 5- bs somewhere in upperscreen of the bank     **********
     *******************************************************************
     *******************************************************************
     *******************************************************************
     *************** Script runs great in draynour bank ****************
     *******************************************************************
     *******************************************************************

    Features:
     - More antiban
     - Chatback
     - Better random detection methods
     - Fix bugs
     - And much more!

    If u have any suggestions or comment please contact me at:
    ElectricDoomRider(at)gmail(dot)com
    U can add me on msn or email me

      }

    program DoomRidersBowStringer;
    {.include SRL/SRL.scar}

    ////////////////////////////////////////////

    const
      RunAwayDir = 'N';
      BowsToString = 2000;
      Player0 = 0;

    var
      UseAntiBan, DebugMode: Boolean;
      AntiBanAmount: integer;
      ChatString: string;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

                //***player setup***

      Players[0].Name := 'bramiesaus2'; // your user name
      Players[0].Pass := 'kolere'; //your password
      Players[0].Nick := 'amie'; // your nick name
      Players[0].String1 := '0912'; //pin
      Players[0].Active := True;
      UseAntiBan := True; // U wanted to use the antiban? (under construction, so its not in use yet)
      AntiBanAmount := 3; // Anti-ban rate (under construction, so its not in use yet)
      DebugMode := False; //debug mode on or off (true - false)
    end;

    var
      bowallreadystringed, bowdtm, frotdtm, fullbowdtm: integer;


    procedure LoadDtms;
    begin
      bowdtm := DTMFromString('78DA63946260601063400109219C0C46409A1' +
        '188FF0301A31C90218BAAA6AF5608AE0604188581042FAA9ACC18' +
        '4E881C140300F28D079B');

      frotdtm := DTMFromString('78DA63AC676460E0056224D05C11C92009A44' +
        '1A2FF8180B100C8E246555398EE0B5703028C8D4096086E73C06A' +
        'AA812C31FC6A00F4CF0BBF');
      fullbowdtm := DTMFromString('78DA63146260601060400133DB84182481342' +
        '310FF0702466E208313554D660C275C0D08304A01093954357DB5' +
        '42A86AD8810417AA9A9AE26254357C404208B71A66102D0A24A4F' +
        '0AB01003EAA0CB5');
    end;

    procedure RunAway;
    begin
      RunAwayDirection(RunAwayDir);
      Wait(12000 + random(2000));
      RunBack;
    end;


    procedure Report;
    begin
      ClearDebug;
      SRLRandomsReport;
      WriteLn('/\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\  ')
        WriteLn('\/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/  ')
        WriteLn('   DoomRiders Bow Stringer     ')
        WriteLn('                                            ')
        WriteLn('  Running Time: ' + (TimeRunning) + '')
        WriteLn('  bow stringed: ' + IntToStr(bowallreadystringed) + '')
        WriteLn('  XP Gained: ' + IntToStr(bowallreadystringed * 75) + '')
        WriteLn('/\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\  ')
        WriteLn('\/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/  ')
    end;


    procedure StopWholeScript;
    begin
      Report;
      if (DebugMode = True) then WriteLn('Script stopped, propably because u logged out!');
      Logout;
      TerminateScript;
      Exit;
    end;


    procedure MouseAntiBan;
    begin
      if not (LoggedIn) then StopWholeScript;
      case Random(6) of
        0: IdleTime(1000 + Random(350), 500, 1.0);
        1: IdleTime(1000 + Random(350), 1000, 1.0);
        2: IdleTime(1000 + Random(350), 750, 0.5);
        3: SleepAndMoveMouse(2500 + Random(2500));
        4: SleepAndMoveMouse(1500 + Random(1500));
        5: SleepAndMoveMouse(500 + Random(500));
      end
    end;

    //------------------------------------------------------------------------\\
    {                  MyAntiBan - Anti-Ban procedure by Yakman.              ||
    \\------------------------------------------------------------------------//}


    procedure MyAntiBan; //From Yakman
    var
      DItem, DBanMe, AntiBanRatio: Integer;
    begin
      if not (LoggedIn) then StopWholeScript;

      AntiBanRatio := 25 + (25 * AntiBanAmount);
      DBanMe := Random(AntiBanRatio);
      case DBanMe of
        0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        1: RandomRClickEvery(2 + Random(13));
        2: HoverSkill('mining', False);
        3: HoverSkill('smithing', False);
        4: RotateEvery(20 + random(10));
        5: LeaveScreenEvery(5 + random(5));
        6: HoverEvery(15 + random(5), 'random');
        7: HoverEvery(15 + random(5), players[currentplayer].skill);
        8: MouseAntiBan;
        9: begin
            DItem := 1 + random(14);
            if (ExistsItem(DItem)) then
              DragItem(DItem, 15 + random(10));
          end
          10: begin
            GameTab(1 + random(12));
            wait(1500 + random(500));
            GameTab(4);
          end;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 12 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Logout;
                Exit;
              end;
            end;
          9: begin
              if (DetectFrogCave) then SolveFrogSwamp;
            end;
          10: begin
              if (FindFight) then
              begin
                RunAwayDirection('W');
                Wait(10000 + Random(2000));
                RunBack;
              end;
            end;
          11: begin
              FindLamp('Prayer');
            end;
          12: begin
              if findname or findtalk then
              begin
                FindNormalRandoms;
              end
            end;
        end;
        Wait(1);
      end;
    end;

    procedure Antirandoms2;
    begin
      Findname;
      Findnormalrandoms;
      FindTalk;
      DwarfItem;
    end;

    procedure Randoms;
    begin
      FindFastRandoms;
      FindTalk;
      wait(10)
        FindNormalRandoms;
      if (FindFight) then
        RunAway;
    end;

    procedure Bank;
    var
      x, y, fs, fs2: Integer;
    begin
      if not (LoggedIn) then StopWholeScript;
      repeat
        randoms;
        Flag;
        if (FindObj(x, y, 'booth', 607324, 10)) then
          Mouse(x, y, 4, 4, False)
        else
          if (FindObj3(x, y, 'booth', 7243412, 10)) then
            Mouse(x, y, 4, 4, False)
          else
            if (FindObj3(x, y, 'booth', 6324369, 10)) then
              Mouse(x, y, 4, 4, False);
        Wait(250 + random(20));
        if (ClickOption('quickly', 1)) then
        begin
          Flag;
          repeat
            Wait(100 + random(20));
            fs := fs + 1;
          until (BankScreen) or (PinScreen) or (fs >= 50);
          if (PinScreen) then InPin(Players[CurrentPlayer].String1);
        end;
        fs2 := fs2 + 1;
      until (BankScreen) or (PinScreen) or (fs2 > 5);
      if (pinscreen) then InPin(Players[CurrentPlayer].String1);
    end;

    {
    function ClickBar:Boolean;
    var WhereX,WhereY:integer;
    begin
    if FindBitmapMaskTolerance(BarMask, WhereX, WhereY, MIX1, MIY1 ,MIX2, MIY2, 10, 10) then
      begin
      Mouse(WhereX + 8,WhereY+8, 8, 8, True);
      end;
      FTWait(2);
      If FindColor(WhereX,WhereY, 16777215, MIX1, MIY1, MIX2, MIY2) then Result:=True;
    end;
           }


    procedure TakeBows1;
    var
      Number: integer;
    begin

      if (DebugMode = True) then WriteLn('Searching for bow dtm');
      if not (FindDTM(bowdtm, x, y, 22, 49, 495, 324)) then
      begin
        if (DebugMode = True) then WriteLn('bow dtm NOT found');
        Exit;
      end;

      if FindDTM(bowdtm, x, y, 22, 49, 495, 324) then
      begin
        Mouse(x, y, 5, 5, false)
          if (DebugMode = True) then WriteLn('bow dtm found');
        Wait(100 + Random(200))
          ClickOption('X', 1);
        Wait(800 + Random(200))
          Number := 14;
        TypeSend(IntToStr(Number));
        Wait(200 + Random(250));
        TypeSend(Chr(13));
        Wait(200 + Random(250));
      end;
    end;

    procedure TakeBows2;
    begin
      if (DebugMode = True) then WriteLn('Searching for bow dtm');
      wait(500 + random(100));
      if not (FindDTM(bowdtm, x, y, 22, 49, 495, 324)) then Exit;
      if FindDTM(bowdtm, x, y, 22, 49, 495, 324) then
      begin
        Mouse(x, y, 3, 3, false)
          if (DebugMode = True) then WriteLn('bow dtm found');
      end;
      Wait(200 + Random(200))
        ClickOption('All', 1);
      Wait(800 + Random(200))
      Wait(500 + Random(250));
    end;



    procedure TakeStrings1;
    begin
      if (DebugMode = True) then WriteLn('Searching for string dtm');
      wait(500 + random(100));
      if not (FindDTM(frotdtm, x, y, 22, 49, 495, 324)) then Exit;
      if FindDTM(frotdtm, x, y, 22, 49, 495, 324) then
      begin
        Mouse(x, y, 3, 3, false)
          if (DebugMode = True) then WriteLn('string dtm found');
      end;
      Wait(200 + Random(200))
        ClickOption('All', 1);
      Wait(800 + Random(200))
      Wait(500 + Random(250));
    end;

    procedure TakeStrings2;
    var
      Number: integer;
    begin
      if (DebugMode = True) then WriteLn('Searching for string dtm');
      wait(500 + random(100));

      if not (FindDTM(frotdtm, x, y, 22, 49, 495, 324)) then
      begin
        if (DebugMode = True) then WriteLn('bow dtm NOT found');
        Exit;
      end;
      if FindDTM(frotdtm, x, y, 22, 49, 495, 324) then
      begin
        Mouse(x, y, 3, 3, false)
          if (DebugMode = True) then WriteLn('string dtm found');
        Wait(100 + Random(200))
          ClickOption('X', 1);
        Wait(800 + Random(200))
          Number := 14;
        TypeSend(IntToStr(Number));
        Wait(200 + Random(250));
        TypeSend(Chr(13));
        Wait(200 + Random(250));
      end;

    end;

    procedure DoShit1;
    begin
      if (DebugMode = True) then WriteLn('DoShit Random 1');
      TakeStrings2;
      TakeBows2;
    end;

    procedure DoShit2;
    begin
      if (DebugMode = True) then WriteLn('DoShit Random 1');
      TakeBows1;
      TakeStrings1;
    end;

    procedure DoShit3;
    begin
      if (DebugMode = True) then WriteLn('DoShit Random 1');
      TakeBows1;
      TakeStrings2;
    end;

    procedure TakeBowsAndStrings;
    var rndnumber: integer;
    begin
      FixBank;
      rndnumber := Random(3) + 1;
      if (DebugMode = True) then WriteLn('The random Number was: ' + IntToStr(rndnumber) + '');
      case rndnumber of
        1: DoShit1;
        2: DoShit2;
        3: DoShit3;
      end;
      CloseBank;
      bowallreadystringed := bowallreadystringed + 14;
           //Randoms;
    end;

    procedure MakeBowsReady;
    begin
       //Randoms;
      if (DebugMode = True) then WriteLn('Making the bows Ready')
        wait(100 + random(150));
      UseItem((random(14) + 1));
      wait(300 + random(150));
      UseItem((random(14) + 15));
           //wait(100+random(131));
    end;

    procedure MakeBowsFull;
    var FTM: integer;
    begin
      if not (LoggedIn) then StopWholeScript;
      if (DebugMode = True) then WriteLn('Stringing the bows...');
      Randoms;
      MakeBowsReady;
      wait(100 + RANDOM(300));
      MMouse(253, 414, 5, 5);
      wait(100 + RANDOM(100));
      Mouse(253, 414, 5, 5, false);
      wait(200 + random(500));
      ClickOption('All', 3);
      MMouse(random(628), random(334), 4, 4);

      MarkTime(FTM);
      repeat
          //wait(500+random(1000));
          //MMouse(628, 334, 10, 10);
          //wait(500+random(1000));
          //MyAntiBan;  //find dtm van volledige afgebouwde boog op
          //inv spot 14
         // GameTab(4);
      until (TimeFromMark(FTM) > 12000) or (FindDTM(fullbowdtm, x, y, 609, 318, 647, 356))
    end;

    procedure DeposititAll;
    begin
      if (DebugMode = True) then WriteLn('Deposit whole inventory in bank...');
      if not (LoggedIn) then StopWholeScript;
      wait(100 + random(200));
      DepositAll;
      wait(200 + random(120));
          //CloseBank;
    end;

    procedure BeginIntro;
    begin
      Wait(1000);
      WriteLn('   ')
        WriteLn('   ')
      Wait(500);
      WriteLn('/\*************************\/*************************/\')
        Wait(500);
      WriteLn('\/*************************/\*************************\/')
        Wait(500);
      WriteLn('DoomRiderS Bow Stringer')
        Wait(500);
      WriteLn('!!! Straight from srl !!!')
        Wait(500);
      WriteLn('   ')
        Wait(500);
      WriteLn('U got any comment, suggestions or u found a bug ')
        Wait(500);
      WriteLn('please report it!')
        Wait(500);
      WriteLn('   ')
        Wait(500);
      WriteLn('E-Mail: ElectricDoomRider(at)gmail(dot)com')
        Wait(500);
      WriteLn('   ')
        Wait(500);
      WriteLn('Have Fun')
        Wait(500);
      WriteLn('\/*************************/\*************************\/')
        Wait(500);
      WriteLn('/\*************************\/*************************/\')
        Wait(500);
      WriteLn('   ')
        WriteLn('   ')
        WriteLn('   ')
        Wait(3500);
    end;

    begin
      setupSRL;
      BeginIntro;
      declareplayers;
      CurrentPlayer := Player0;
      activateclient;
      loginplayer;
      LoadDtms;
      repeat
        if not (LoggedIn) then StopWholeScript;
        if not (Bankscreen) then
        begin
          Bank;
          DeposititAll;
        end;
      //ChatString := GetNewChatMsg;
    // WriteLn('Last Chat: ' + (ChatString) + '');
        TakeBowsAndStrings;
        MakeBowsFull;
        wait(1500 + random(20));
        Bank;
        wait(1000 + random(20));
        DeposititAll;
        wait(1000 + random(20));
        report;
      until (bowallreadystringed >= BowsToString);
      if (bowallreadystringed >= BowsToString) then
      begin
        StopWholeScript;
      end;
    end.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    May 2007
    Location
    http://www.srl-forums.com
    Posts
    265
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im getting a randomclick error?

  4. #4
    Join Date
    Jun 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    begin
    StopWholeScript;


    it just makes me lol

  5. #5
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Bit suspicious though. He's barely been here and has a script...
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  6. #6
    Join Date
    Jun 2007
    Location
    in a house, i think :P
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no no im here for a while, bud i brought this script out with a better name
    my other acc got not such a wonderfull name u see

    ty already SantaClause

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

    Default

    im getting a random click error ??

    Failed when compiling
    Line 152: [Error] (14562:5): Unknown identifier 'RandomRClickEvery' in script C:\Documents and Settings\Owner\Local Settings\Temporary Internet Files\Content.IE5\UVSZRGDG\DoomRider%27s%20Bow%20S trainger%201[1].01.scar

  8. #8
    Join Date
    Jun 2007
    Location
    in a house, i think :P
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    u got srl 3.6 and scar 2.03?

  9. #9
    Join Date
    Jul 2007
    Location
    Vancouver, B.C
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It seems to Fuck up my runescape window everytime I start it. So I thought that maybe it was just getting started. After 5 minutes it was still the big gray box.


    Hint: Line 101. Answer, Respond:

    Answer isn't suppose to be there?

  10. #10
    Join Date
    Jul 2007
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Administrator's Warning:
    Read Before posting again!!
    http://www.srl-forums.com/forum/show...37&postcount=1

    its a good script i love it it worked for 2 and a half hours great work

    l0l it works good i got like 20k in like 1 hr l0l

    it mad script i use it heaps now

    nice script works heaps good

    good try but it pretty useless soz

    it worked pretty good for me

    it works pretty good keep it up

    good script keep up the good work

    yeh same as mine jus stood ther and logd out in like 2 secs

    it must b a bug

    good job

    oh soz i forgot my progie it was workd for 10 mins and did 3 loads

    it got me good cash l0l

    sounds good ill test after i eat dinner

  11. #11
    Join Date
    Mar 2007
    Location
    Netherlands
    Posts
    206
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I start it, it compiles, it says found compass and does nothing.

  12. #12
    Join Date
    Jun 2007
    Location
    In my computer room
    Posts
    148
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It Is Very Good Code. Will Work Well When SRL is updated.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. stringer
    By daddyproboot in forum First Scripts
    Replies: 2
    Last Post: 12-27-2007, 12:08 AM
  2. bow stringer
    By s1cky in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 10-10-2007, 11:29 AM
  3. Bow stringer.
    By sjoewaps in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 09-06-2007, 07:34 PM
  4. I need a bow stringer!
    By death_wach66 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 07-12-2007, 09:16 AM
  5. a bow stringer
    By crazy_dawg8809 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 05-04-2007, 05:54 AM

Posting Permissions

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