Results 1 to 18 of 18

Thread: Mehrunes Harper

  1. #1
    Join Date
    Dec 2015
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Mehrunes Harper

    Hello everyone, I am Mehrunes.

    I am new to the script writing scene, I have been using simba for a while and writing my own little scripts as I go, learning how it all works.

    I have decided to upload a script to get some feedback and let people share in my work as I have used a few scripts myself.

    This script is fairly basic, you start at the northmost harp in the ithell district, and it will play the harp for approximately the duration you have input into line 119 of the script. I have added an antiban to it based on antibans in other scripts I have used, with my own little addition (It may be something commonly done however I have not come across it), and all values involved in the script are randomised in some way.

    I have just gotten 95 crafting (from 76) with the script and have been getting approximately 50k crafting xp/hr (60k with the voice of seren), 650 harmonic dust/hr (780 with voice of seren) and approximately 9k construction xp/hr from tuning the harp. With the current price difference between crystal seeds and one handed crystal weapons (trading easily at 100k-150k difference) this script makes approximately 200k/hr as it only takes 375 dust to turn a crystal seed into a weapon.

    I added Clarity's fix to smart not loading after nxt update so that the script loads a smart client, thanks for making a fix and I hope it was alright for me to include it.

    I look forward to some feedback and hope you enjoy my first script.
    Attached Files Attached Files
    Last edited by Mehrunes; 04-23-2016 at 12:31 PM.

  2. #2
    Join Date
    Mar 2016
    Posts
    48
    Mentioned
    2 Post(s)
    Quoted
    32 Post(s)

    Default

    I would just like to say well done for your first script and thanks. I tried this for a few hours seems to work well

  3. #3
    Join Date
    Dec 2015
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, once I have time I am planning on working out how to add in log-in functionality to it and perhaps a break system, however I just hit 98 and am unsure if I will continue working on this one (since it works fine) once I hit 99.

  4. #4
    Join Date
    Apr 2015
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Can't wait to try out the script, almost done with agility
    I'd love to help out any way I can!

  5. #5
    Join Date
    Jan 2015
    Posts
    25
    Mentioned
    2 Post(s)
    Quoted
    12 Post(s)

    Default

    thx, will try.

  6. #6
    Join Date
    Jun 2016
    Posts
    17
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    tried...

    I get this error

    | Mehrunes Harper |
    | Running For: 48 Seconds |
    | Exp Earned: 0 Exp/Hour: 0 |
    | Dust Gained: 0 Dust/Hour: 0 |
    -- ERROR: TRSChatBox.getXP(): Failed to find text to read
    -- Succesfully freed SMART[3056]
    -- Freeing gametabs bitmaps...
    Successfully executed.


    fixed the chatbox thing by moving the xp bar but still I don't get xp and script stops after a minute or so even though I put 120 as time
    Last edited by jethro; 06-09-2016 at 12:41 PM.

  7. #7
    Join Date
    May 2015
    Location
    4f6e2074686520696e7465726e6574
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    9 Post(s)

    Default

    | Mehrunes Harper |
    | Running For: 14 Hours, 5 Minutes and 9 Seconds |
    | Exp Earned: 968,016 Exp/Hour: 68,722 |
    | Dust Gained: 9,486 Dust/Hour: 673 |

    | Mehrunes Harper |
    | Running For: 11 Hours, 32 Minutes and 42 Seconds |
    | Exp Earned: 780,592 Exp/Hour: 67,612 |
    | Dust Gained: 8,249 Dust/Hour: 715 |

    | Mehrunes Harper |
    | Running For: 7 Hours, 20 Minutes and 42 Seconds |
    | Exp Earned: 508,722 Exp/Hour: 69,260 |
    | Dust Gained: 5,107 Dust/Hour: 695 |

    | Mehrunes Harper |
    | Running For: 5 Hours, 14 Minutes and 50 Seconds |
    | Exp Earned: 359,824 Exp/Hour: 68,573 |
    | Dust Gained: 3,727 Dust/Hour: 710 |

    | Mehrunes Harper |
    | Running For: 10 Hours, 40 Minutes and 34 Seconds |
    | Exp Earned: 693,934 Exp/Hour: 64,998 |
    | Dust Gained: 7,401 Dust/Hour: 693 |

    | Mehrunes Harper |
    | Running For: 2 Hours, 48 Minutes and 52 Seconds |
    | Exp Earned: 587,626 Exp/Hour: 208,772 |
    | Dust Gained: 0 Dust/Hour: 0 |

    | Mehrunes Harper |
    | Running For: 7 Hours, 47 Minutes and 21 Seconds |
    | Exp Earned: 916,516 Exp/Hour: 117,665 |
    | Dust Gained: 0 Dust/Hour: 0 |

    | Mehrunes Harper |
    | Running For: 9 Hours, 41 Minutes and 25 Seconds |
    | Exp Earned: 1,038,158 Exp/Hour: 107,134 |
    | Dust Gained: 0 Dust/Hour: 0 |

    | Mehrunes Harper |
    | Running For: 6 Hours, 22 Minutes and 37 Seconds |
    | Exp Earned: 439,397 Exp/Hour: 68,902 |
    | Dust Gained: 0 Dust/Hour: 0 |
    Last edited by Garden of Sinners; 06-22-2016 at 10:06 PM.

  8. #8
    Join Date
    Mar 2016
    Posts
    48
    Mentioned
    2 Post(s)
    Quoted
    32 Post(s)

    Default

    Used this to get 10k dust for some crystal stuff and it works great a brilliant script.
    Here is a small proggy of mine, I set the bot time to 200 minutes so thats the longest one I have.
    | Mehrunes Harper |
    | Running For: 3 Hours, 17 Minutes and 59 Seconds |
    | Exp Earned: 234,176 Exp/Hour: 70,965 |
    | Dust Gained: 2,363 Dust/Hour: 716 |

  9. #9
    Join Date
    May 2015
    Location
    4f6e2074686520696e7465726e6574
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    9 Post(s)

    Default

    Missing a 10 hour log but ah well.

    | Mehrunes Harper |
    | Running For: 1 Hour, 46 Minutes and 39 Seconds |
    | Exp Earned: 513,756 Exp/Hour: 288,991 |
    | Dust Gained: 1,235 Dust/Hour: 695 |

    | Mehrunes Harper |
    | Running For: 2 Hours, 8 Minutes and 32 Seconds |
    | Exp Earned: 536,656 Exp/Hour: 250,503 |
    | Dust Gained: 1,485 Dust/Hour: 693 |

    | Mehrunes Harper |
    | Running For: 2 Hours, 56 Minutes and 7 Seconds |
    | Exp Earned: 588,496 Exp/Hour: 200,480 |
    | Dust Gained: 2,053 Dust/Hour: 699 |


    | Mehrunes Harper |
    | Running For: 3 Hours, 30 Minutes and 17 Seconds |
    | Exp Earned: 599,876 Exp/Hour: 171,154 |
    | Dust Gained: -10,160 Dust/Hour: -2,899 |

    | Mehrunes Harper |
    | Running For: 5 Hours, 40 Minutes and 48 Seconds |
    | Exp Earned: 397,786 Exp/Hour: 70,031 |
    | Dust Gained: 4,258 Dust/Hour: 750 |

    | Mehrunes Harper |
    | Running For: 12 Hours, 50 Minutes and 37 Seconds |
    | Exp Earned: 895,971 Exp/Hour: 69,759 |
    | Dust Gained: 9,478 Dust/Hour: 738 |

  10. #10
    Join Date
    Jun 2016
    Posts
    17
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    strange for me this script works only for 1 minute and stops

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

    Default

    Hope you don't mind done a fair bit off editing on your script, it worked great but for me I just made it more life like and ran it for 29 hours straight with the ability to relog every 6 hours so it can carry on added a breaking option with minibreaks so it lets the harp go to 100% for a few minutes to make it seem more life like for afking.

  12. #12
    Join Date
    Jun 2016
    Posts
    17
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by dread4 View Post
    Hope you don't mind done a fair bit off editing on your script, it worked great but for me I just made it more life like and ran it for 29 hours straight with the ability to relog every 6 hours so it can carry on added a breaking option with minibreaks so it lets the harp go to 100% for a few minutes to make it seem more life like for afking.
    can I try yours please ?

  13. #13
    Join Date
    Jul 2015
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    21 Post(s)

    Default

    -- ERROR: TRSChatBox.getXP(): Failed to find text to read
    nvm im guessing thats just the exp

    edit: when i start the script it doesn't click on the harp but slightly over it (on my player) and when it does work it only works for around a minute then terminates
    LV 99 skills so far

    - Fletching 99/99- Divination 99/99
    Defense 99/99 Range 99/99

  14. #14
    Join Date
    Jun 2016
    Posts
    17
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by wingerfinger View Post
    -- ERROR: TRSChatBox.getXP(): Failed to find text to read
    nvm im guessing thats just the exp

    edit: when i start the script it doesn't click on the harp but slightly over it(on my player) and when it does work, it only works for around a minute then terminates
    thought I was the only one having this problem that script stops after a minute hope it gets fixed

  15. #15
    Join Date
    Sep 2015
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Looks like a lot of programs wont work correctly without a fix to the XP bar, now hat the xp xar is not movable over the chatbox anymore

  16. #16
    Join Date
    May 2015
    Location
    4f6e2074686520696e7465726e6574
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by jethro View Post
    thought I was the only one having this problem that script stops after a minute hope it gets fixed
    Quote Originally Posted by wingerfinger View Post
    -- ERROR: TRSChatBox.getXP(): Failed to find text to read
    nvm im guessing thats just the exp

    edit: when i start the script it doesn't click on the harp but slightly over it (on my player) and when it does work it only works for around a minute then terminates
    You guys could always just comment out the progress report and let it run. That's a temporary fix that I used to go from 93-99 you won't get a log from it but at least it'll work.

  17. #17
    Join Date
    Jun 2016
    Posts
    17
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by Garden of Sinners View Post
    You guys could always just comment out the progress report and let it run. That's a temporary fix that I used to go from 93-99 you won't get a log from it but at least it'll work.
    how to do this ?

  18. #18
    Join Date
    May 2015
    Location
    4f6e2074686520696e7465726e6574
    Posts
    49
    Mentioned
    2 Post(s)
    Quoted
    9 Post(s)

    Default

    Simba Code:
    program MehrunesHarper;
    {$DEFINE SMART}
    {$i srl-6/srl.simba}
    Var
    StartExp, NowExp, HourExp, ProgCount, Dust, HourDust, StartDust, Repeats, PlayTime, CamSpin, CheckExp, Mistakes: Integer;

    //Start standing at the northmost harp, fill in line 119, hit run.

    function tIntegerArray.contains(funcID: int32): boolean;
    var
      funcIndex: int32;
    begin
      for funcIndex to high(self) do
        if self[funcIndex] = funcID then
        begin
          result := true;
          break;
        end;
      exit(result);
    end;

    function smartGetParameters(out params: tStringArray): boolean; override;
    var
      funcAttempts, funcIndex, funcRandom, funcResultIndex: int32;
      funcExcludeList: tIntegerArray = [13, 47, 55, 75, 90, 93, 94, 95, 101, 102, 107, 109, 110, 111, 112, 113, 118, 121, 122, 125, 126, 127, 128, 129, 130, 131, 132, 133];
      funcPage: string;
      funcPageExplode: tStringArray;
    begin
      for 0 to 10 do
      begin
        while true do
          if not funcExcludeList.contains(funcRandom := random(1, 150)) then
            break;
        funcPage := getPage('http://world' + toStr(funcRandom) + '.runescape.com/jav_config_beta.ws');
        if pos('404 - Page not found', funcPage) = 0 then
        begin
          setLength(params, length(funcPageExplode := explode(#10, funcPage)));
          for funcIndex to high(funcPageExplode) do
            if execRegExpr('^(codebase|param)=(.+)', funcPageExplode[funcIndex]) then
            begin
              params[funcResultIndex] := replaceRegExpr('^(codebase|param)=(.+)', funcPageExplode[funcIndex], '$2', true);
              funcResultIndex += 1;
            end;
          break;
        end;
      end;
      setLength(params, funcResultIndex);
      exit(true);
    end;

    procedure playHarp();
    var
      HarpBox: TBox;
    begin
      HarpBox:= IntToBox(277,213,297,229);
      MouseBox(HarpBox, Mouse_Left);
    end;
    procedure antiban();
    begin
        case (random(180) + 1) of
          0..5:
            pickUpMouse();
          6..28:
            sleepAndMoveMouse(randomRange(1000,3000));
          29..51:
            smallRandomMouse();
          52..97:
            mouseOffClient(OFF_CLIENT_RANDOM);
          96..110:
            begin
              MainScreen.SetAngle(MS_ANGLE_LOW);
              Wait(randomRange(100,7500));
              MainScreen.SetAngle(MS_ANGLE_HIGH);
            end;
          111..115:
            begin
              hoverSkill(SKILL_CRAFTING);
              sleepAndMoveMouse(random(460, 1230));
              TabBackpack.Open;
            end;
          126..160:
            Wait(randomRange(3000,13000));
          161..181:
            begin
              repeat
                CamSpin:= random(20);
                MiniMap.SetAngle(randomRange(1, 359));
                Wait(randomRange(50,7450));
              until CamSpin > 15;
              minimap.clickCompass;
              Wait(randomRange(500,1500));
              MainScreen.SetAngle(MS_ANGLE_HIGH);
            end;
        end;
    end;
    {*procedure proggy;
    begin
      ClearDebug;
      NowExp := (ChatBox.GetXPBar - StartExp);
      HourExp := Round(NowExp * (3600.0 / (GetTimeRunning / 1000.0)));
      Dust := (getItemAmount(tabBackpack.getSlotBox(1)) - StartDust);
      HourDust := Round(Dust * (3600.0 / (GetTimeRunning / 1000.0)));
      writeln(PadR('|', 22) + PadR('Mehrunes Harper', 38) + '|');
      writeln(PadR('| Running For: ' + TimeRunning, 60) + '|');
      writeln(PadR('| Exp Earned: ' + GroupDigits(NowExp, ','), 40) + padR('Exp/Hour: ' + GroupDigits(HourExp, ','), 20) + '|');
      writeln(PadR('| Dust Gained: ' + GroupDigits(Dust, ','), 40) + padR('Dust/Hour: ' + GroupDigits(HourDust, ','), 20) + '|');
    end;  *}

    procedure SetUp();
    begin
      setupSRL;
      smartPlugins := ['OpenGL32.dll','d3d9.dll'];
      minimap.clickCompass;
      MainScreen.SetAngle(MS_ANGLE_HIGH);
      StartExp := ChatBox.GetXPBar;
      StartDust := getItemAmount(tabBackpack.getSlotBox(1))
    end;
    begin
        SetUp();
        PlayTime := 6000; //In mins, will randomise
      repeat
        playHarp();
        Repeats:= (Repeats + 1);
        //proggy();
        case (random(10) + 1) of
        1..5:
          begin
          antiban();
          Wait(randomRange(9867,44577));
          end;
        6..8:
          begin
          Wait(randomRange(19867,34577));
          antiban();
          end;
        9..11:
          begin
          Wait(randomRange(2806,10805));
          antiban();
          Wait(randomRange(3305,10306));
          end;
        end;
        CheckExp:= (ChatBox.GetXPBar - StartExp);
        if CheckExp = NowExp
        then Mistakes:= Mistakes + 1;
        if CheckExp > NowExp
        then Mistakes:= 0;
        if Mistakes = 3
        then TerminateScript;
      until Repeats > ((PlayTime * 2) + random(15));
    end.

    Quote Originally Posted by jethro View Post
    how to do this ?
    Last edited by Garden of Sinners; 07-21-2016 at 10:48 PM.

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
  •