SRL Archive - First Scripts

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

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

Sits at bank or at bee hive area?

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.

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

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. ;)

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.

From: Harry
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.

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

From: I am Karma
I actually requested this like 3 weeks ago, thank you! :D

Ur welcome lol. When it is fixed I'll probably apply for members with it then post it to collecting script forum.

From: getdropped69
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.

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.

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.

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

From: leetsxc
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.

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.

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.

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

From: TheAnubis
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. :stirthepot: