Results 1 to 18 of 18

Thread: Honey Comber by Blazingrobin

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

    Default Honey Comber by Blazingrobin

    This is my very first script. Hope everyone enjoys it, and yes there are anti-leeches in here.

    Starting the script:
    -begin the script at Seers bank(or Camelot whichever you call it)
    -have 2 insect repellent (1 in first slot of inv and 1 in its own empty tab)
    -hit run

    Known Bugs:
    -wont enter pin
    -longish wait to open bank
    -Stands near Hive


    Simba Code:
    program HoneyComberVersion1; //by blazingrobin
    {$DEFINE SMART}
    {$DEFINE CRASHSMART}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    {$include sps/sps.simba}

     var
     x, y, Hive, HoneyComb, InsectRepel: integer;
     honeywalk:TPointArray;
     bankwalk:TPointArray;

     Procedure SetDTM;       //declaring dtms
    begin
    Hive := DTMFromString('mbgUAAHic7dBZTgJBEAbg4gTeyVuqUaOCgKLs+74Jsu/DKDuKxPUK/lUUCfHVV0i+NNNd9VfPHBLR3ELUgxUsYQJtMGAKr/ChZjCEDnRhBAv41n5+HijOrEETGlBXvNfSfkN7OPcF1juzPjV3+7zSuifNN3Q1d+7B+VUYWzbvxXf/0Zytms429V1NvaMT3+ISLsADUQjDNVjBDvfghxAEwUubPqty6Zlfa/nsHM7gCm7ArTUpyEMBSn/wXgYSWuvQ/FM4UsdworlRreXMNOQgpnO3/FqX0nMfxHUW3yOie+lwiCrZLIXdbvlfLxRo0utRNZ+jTCRCEa+HAq5bOee6zmOZzFaLupWKnCcCfrqz2aSXe/i8+VCUnH6tKrh+1O3Q3DAkez2Z0Nt4RAtzKM/bvFIqJfM4L+bzyepxOshtt8s+zysmE3IPNmw2ZC1n0pSLRelruaD32ZQK8Tglg0Hp4X5eOYP7p4O+zHxut2lQr8v9eO8A32KPyLIn/v/7BUjrAus=');
    HoneyComb := DTMFromString('mvQEAAHicE2VgYHBmYWBwAmJbILYCYnsWiJgXEHsCsSMQ2wGxG1SNG1QOxneE6ncHYgcgtgRiOUYGBgkglgFiJShWhtKyQCwIxJJALA7EqkgYJCcPxGpALArEilAzQHLl8SYM+xdkMUyvC2aY0xwGxvNawhlW9MYyFMcYMdSnmTO0ZlkxFEYbMnTkWjNUJ5uB6WXdMWA1E6sCGVb1xYHx/LYIhtI4YwZ+oP+pjRlpgLECAImtJco=');
    InsectRepel := DTMFromString('mVAEAAHicE2BgYBBnYWCQYoHQEkAsDcRyQCwDFRMGYhEoloTKw/SA1MszAsWAWBKIBYFYAohlgVgJiFWBWBmI5YBYCioGUi8DlRMB4ie3bjG45doyOKZaMAT4+DCYhegzLJk7l+HEgf0MD69fZ7BLNGNwzrRisE82Z3h08wbDtbNnGZ7euQ2Wiw4PZ+AH+oESzEghRgcAfYUfPA==');
    end;

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

      Players[0].Name := ''; //Username
      Players[0].Pass := ''; //Password
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].Pin :='';   //if no bank pin leave empty
    end;

    procedure Rest;
    var
      S: String;
    begin
      if not (LoggedIn) then
      Exit;
      if (GetMMLevels('Run', S) <= 25) then
      RestUntil(RandomRange(75,100))


    procedure GoToHoney;          //walking to honey
    begin
        SPS_Setup(RUNESCAPE_SURFACE, ['6_6','6_7','7_7']);//SPS Areas
        honeywalk := [Point(2740, 2695), Point(2739, 2708), Point(2739, 2720),
                      Point(2738, 2744), Point(2738, 2761), Point(2741, 2779),
                      Point(2744, 2794), Point(2747, 2806), Point(2749, 2820),
                      Point(2752, 2832), Point(2757, 2847), Point(2764, 2854),
                      Point(2769, 2864), Point(2771, 2871), Point(2780, 2881),
                      Point(2789, 2880), Point(2801, 2879), Point(2812, 2878),
                      Point(2823, 2877), Point(2834, 2875), Point(2843, 2873),
                      Point(2852, 2873), Point(2868, 2876)];
        SPS_WalkPath(honeywalk);
    end;

    procedure Banking;
    begin
      if bankscreen then
      begin
        wait(1500 + random(50))
        if (FindDTM(HoneyComb, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 1, 1, False);
          ChooseOption('All');
        end;
        begin
        if (InvCount) >2 = True then
          Begin
            CloseBank;
            GoToHoney;
          end;
        end;
    CloseBank;
    end;

    procedure FindBanker;
    var
      bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair: Integer;
    begin
    if SPS_WalkPath(bankwalk) then
        Wait(100 + Random(50));
     If FindNormalRandoms then
      Begin
        Logout;
        TerminateScript;
      End;
      Speed := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);
      ColFace := 7513036;
      ColGrey := 4995649;
      ColBlue := 4336690;
      ColHair := 2506053;
      if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
        ['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
      begin
        Mouse(bx, by, 0, 0, False);
        if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
        begin
          if (Length(Players) > 0) then
            if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
              InPin(Players[CurrentPlayer].Pin);
              begin
               wait(1500 + random(50))
                if (FindDTM(HoneyComb, x, y, MIX1, MIY1, MIX2, MIY2)) then
                 Mouse(x, y, 1, 1, False);
                  ChooseOption('All');
              end;
                begin
                  if (InvCount) >2 = True then
                  Begin
                  CloseBank;
                  GoToHoney;
                  end;
                 end;
              CloseBank;
        end;
      end;
      ColorToleranceSpeed(Speed);
    end;

    procedure GoToBank;  //banking walk
    begin
        SPS_Setup(RUNESCAPE_SURFACE, ['7_7','6_7','6_6']);//SPS Areas
        bankwalk := [Point(2867, 2879), Point(2848, 2876), Point(2833, 2873),
                   Point(2822, 2873), Point(2810, 2873), Point(2798, 2873),
                   Point(2788, 2878), Point(2775, 2879), Point(2765, 2875),
                   Point(2760, 2866), Point(2756, 2854), Point(2754, 2841),
                   Point(2751, 2832), Point(2747, 2821), Point(2742, 2810),
                   Point(2740, 2798), Point(2740, 2788), Point(2740, 2773),
                   Point(2739, 2757), Point(2738, 2748), Point(2739, 2736),
                   Point(2738, 2722), Point(2738, 2706), Point(2738, 2693),
                   Point(2735, 2679)];
         SPS_WalkPath(bankwalk)
         if (InvFull) then
          begin
              FindBanker;
          end;
         if (InvEmpty) then
         begin
            GoToHoney;
         end;
    end;

    procedure GetHoney; //getting honey from hive
    begin
        if (InvEmpty) then
          GoToHoney;
            begin
              if (InvFull) then
              GoToBank;

          if (FindDtm(Hive, x, y, MSX1, MSY1, MSX2, MSY2)) then
              begin
                Mouse(x, y, 5, 5, False);
                ChooseOption('oney');
              repeat
              GetHoney;
              Until(InvCount=27);
                begin
                  Exit;
                end;
              end;
            end;
    end;

    procedure FreDTM;
    begin
      FreeDTM(Hive);
      FreeDTM(HoneyComb);
      FreeDTM(InsectRepel);
    end;

    begin
      Smart_Signed := TRUE;
      Smart_Members := True;
      Smart_SuperDetail := FALSE;
      Smart_Server := 60;
      ClearDebug;
      SetUpSrl;
      SetDTM;
      MouseSpeed := 10;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
    repeat
      SetAngle(SRL_ANGLE_HIGH);
      GoToHoney;
      GetHoney;
      GoToBank;
      FindBanker;
      Banking;
      wait(1000 +random(50));
      MakeCompass ('N');
      Rest;
    until (LoggedIn) = False
    end

    Version 1: Full release to public
    Last edited by blazingrobin; 03-12-2012 at 06:00 PM.

  2. #2
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Sits at bank or at bee hive area?
    Current Project: Retired

  3. #3
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    At bank in catherby. And I also haven't added in the gate that needs to be opened sometimes dont know how i would go about that.
    Last edited by blazingrobin; 03-02-2012 at 09:47 AM.

  4. #4
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Also if anyone can tell me whats is forcing my script to close smart everytime it runs that would save alot of time

  5. #5
    Join Date
    Nov 2011
    Location
    United states
    Posts
    516
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    How to open the gate is fairly easy just do the walk to somewhere round the gate. Then use a find function to find the game with isuptext open and not isuptext close. Looks link this could be a good script but you still have a long way to go.

  6. #6
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Until(InvFull);
    Infinite loop. Bad! Fix that and your standards.

    Also define SMART's world if you don't want it to reload SMART every time you run the script.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  7. #7
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Harry View Post
    Infinite loop. Bad! Fix that and your standards.

    Also define SMART's world if you don't want it to reload SMART every time you run the script.
    ok so i updated it so it doesnt close smart everytime, and fixed most of the standards i believe.
    Last edited by blazingrobin; 03-03-2012 at 01:46 AM.

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

    Default

    I actually requested this like 3 weeks ago, thank you!

  9. #9
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by I am Karma View Post
    I actually requested this like 3 weeks ago, thank you!
    Ur welcome lol. When it is fixed I'll probably apply for members with it then post it to collecting script forum.

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

    Default

    Quote Originally Posted by getdropped69 View Post
    How to open the gate is fairly easy just do the walk to somewhere round the gate. Then use a find function to find the game with isuptext open and not isuptext close. Looks link this could be a good script but you still have a long way to go.
    Yea hopefully it will work the way that I hoped. I got around 14k every 1.5 mins so it's around 450k+ an hour potential script.

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

    Default

    so got my collecting working now just need to get walking and banking done. I havent updated the script yet because i pretty much went and took it apart and started from the beginning. i'll repost it up here when i get a little more done with it.

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

    Default

    The Script is almost done just have one compiling error that i cannot figure out for the life of me. Other than that the script is fairly flawless.

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

    Default

    Needs a lot of work
    Script logic is flawed
    Nice start tho good work

  14. #14
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by leetsxc View Post
    Needs a lot of work
    Script logic is flawed
    Nice start tho good work
    .......I'm aware it still needs work hence why it won't compile completely. And why I've never said its complete yet. And by fairly flawless I mean the parts that I've tested run deciently so far and that's more than what I've been getting from
    it.

  15. #15
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated the script finally, but for some reason the script wont repeat. it just runs the procedures then stops. Also, yes i am aware there is sometimes a error that it will not find the bank, but so far it does a complete trip and does bank it 90% of the time.

  16. #16
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I finally got the script fully running except for the pin support, I need to play with that for a bit but here is a fully release of the script with anti-leeches included. Let me know what you guys think so far and yea i know i need to clean it up a bit.

  17. #17
    Join Date
    Feb 2012
    Posts
    438
    Mentioned
    1 Post(s)
    Quoted
    16 Post(s)

    Default

    Looks like a great first script Bank pin shouldn't be hard, just add in during the bank function that if the PinScreen is up then InPin and have a Pin constant up top. Hope that makes sense, my english terminology is horrible, much better at actually scripting than talking about it XD
    Anubis
    Ski-U-Mah

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

    Default

    Quote Originally Posted by TheAnubis View Post
    Looks like a great first script Bank pin shouldn't be hard, just add in during the bank function that if the PinScreen is up then InPin and have a Pin constant up top. Hope that makes sense, my english terminology is horrible, much better at actually scripting than talking about it XD
    Anubis
    Yea I got what you were saying. I probably will update it after I am finished with my current project which probably will be released soon.
    My Complete 1-99 Fletching Script: Arrow Killer With any long bow support
    Scripts in Progress:?????

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
  •