SRL Archive - Archive

How Long have You Played Runescape?
4 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
not referred


What is your general programming knowledge?
Mostly PHP, Javascript, Python, Matlab, C++


Are you a member of any other communities?
Quite a few, though they aren't usually Runescape related. Slashdot, Reddit, GameFAQs, various sports forums.


Tell us about yourself…

From: Mannsderek
I'm 19 years old, studying engineering in college. My interests are primarily: programming, science and sports. In the programming world I do a lot of web development along with database optimization / maintenance but rarely code things like bots. Only few cases I've done that, I've used C++ to do memory hacks.

Please show us one (or multiple) of your scripts.

I don't have permissions to attach a file, so I hope the indentation works fine here. This is a script I made and am using to create pouches at Piscatoris using Spirit Kyatt teleport. It also requires summoning.Simba from [url]http://villavu.com/forum/showthread.php?t=68265[/url]. A blue minimap marker should be placed at the trapdoor.

Works great, although the minimap must be set to North and the viewing angle must be the highest. Has no break management or "antiban", but contains certain failsafes. (it will keep attempting to find the banker until BankScreen is open for instance)

Good script to start with. Improvements would be to support multiple angles and minimap directions and more detection instead of Waits() between each step.


program Pouchmaker;
  {$DEFINE SRL5}
  {$DEFINE SMART}
  {$i SRL\SRL.simba}
  {$i SRL/SRL/skill/summoning.simba}

  var
    x, y: Integer;
    randomPouch : TIntegerArray;

procedure SmartSet;
  begin
    Smart_Server := 84;
    Smart_Members := True;
    Smart_Signed := True;
    Smart_SuperDetail := False;
  end;

// This procedure was taken from Flight from his Nature runecrafter
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
  var
    randSpeed: extended;
    X,Y,X2,Y2,A,Dist,MP: integer;
  begin
    A := MouseSpeed;
    GetMousePos(X, Y);
    Dist := Distance(X, Y, eX, eY);
    MP := Round(Dist/150);
    if MP < 0 then
      MP := 1;

    randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
    X2 := RandomRange(eX-(A*MP), eX+(A*MP));
    Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
    WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
    GetMousePos(X, Y);
    MMouse(eX, eY, ranX, ranY);
    MouseSpeed := A;
  end;

Procedure DaemonheimTeleport;
  begin
    GameTab(26);
    Wait(1000 + random(500));
    MouseEquippedItem('ring', 0);
    Wait(300 + random(50));
    WaitOption('aemonheim', 1000);
  end;

Procedure DaemonheimBanking;
  begin
    HumanMMouse(630, 40, 5, 5);
    ClickMouse2(True);

    while not(FindSymbol(x, y, 'bank')) do
      sleep(100);

      begin
        Mouse(x+15, y+10, 2, 2, true);
        Wait(5000 + random(300));

        while not(BankScreen) do
          begin
            If FindObjCustom(x, y, ['anker'], [10117444, 6723765], 25) Then
            ClickMouse2(False);
            WaitOption('ank F', 1000);
            Wait(1000 + random(300));
          end;

        Wait(3000 + random(200));
        randomPouch := [4, 5, 6];
        MouseItem(randomPouch[Random(High(randomPouch))], 0);
        WaitOption('eposit-All', 1000);
        Wait(2000 + random(200));
        WithdrawEx(0, 0, 0, ['ithdraw']);
        Wait(1000 + random(200));
        CloseBank;

      end;
  end;

Procedure KyattTeleport;
  begin
    InteractFamiliar('')
    Wait(2000 + random(500));
    FindNPCChatText('lepo', ClickLeft);
  end;

Procedure EnterTrapdoor;

  begin

  // clicks blue marker next to trapdoor
  while not FindColorTolerance(x, y, 13570055, 559, 13, 690, 160, 15) do
    sleep(100);
    Mouse(x, y+10, 2, 2, true);

    Wait(7000 + random(500));

  while (FindSymbol(x, y, 'mine')) do
    begin
      If FindObjCustom(x, y, ['rapdoor'], [855566, 3097171, 6591921], 25) then
        begin

          if (GetUpText = 'Open Trapdoor / 2 more options') then
            begin
             Mouse(x, y, 2, 2, true);

             Wait(3000 + random(500));

             If FindObjCustom(x, y, ['limb-down'], [855566, 1514793], 15) then
                Mouse(x, y, 2, 2, true);
            end else if FindObjCustom(x, y, ['limb-down'], [855566, 1514793], 15) then
              Mouse(x, y, 2, 2, true);

        end;

      Wait(4000 + random(500));

    end;
  end;

Procedure MakePouch;
  begin
   if FindSymbol(x, y, 'summoning obelisk') then
    HumanMMouse(628, 98, 5, 5);
    ClickMouse2(True);
    Wait(1000 + random(100));

    If FindObjCustom(x, y, ['nfuse'], [1133942, 2515685, 6856380, 3424846], 25) then
      Mouse(x, y, 2, 2, true);


    Wait(2000 + random(500));

    HumanMMouse(64, 83, 8, 8);
    ClickMouse2(False);
    WaitOption('nfuse-All', 1000);

  end;

begin

  SmartSet;
  SetupSRL;
  Writeln('Script started');
  ActivateClient;

  repeat

    DaemonheimTeleport;
    Wait(10000 + random(200));
    DaemonheimBanking;
    Wait(1000 + random(200));

    KyattTeleport;
    Wait(8000 + random(1000));
    EnterTrapdoor;
    Wait(3000 + random(500));
    MakePouch;

    Wait(1000 + random(200));

  until x < -100

end.

Your headed toward the right direction, although the script is quite simple, and get active mate you barely have 10 posts.

Sorry, No.
Good Luck.

No BMPs, no DTMs, no TPAs, no other advanced colour finding.

The walking function is simply clicking a fixed coordination on the screen, will easily fail. Infinite loop if you fail to open bank. Infinite loop if you cannot find the bank symbol.
Your

if (GetUpText = 'Open Trapdoor / 2 more options')

will probably fail easily.

Too simple and many flaws. Definite no. Try to improve and include what I've mentioned and you'll have a much bigger chance of getting in. :)

I think it's very fair that I'm not accepted. When I first applied I thought membership was just something basic, but then I realized that I underestimated it.

I will keep learning more about SRL functions and script more, and perhaps apply for membership in the not too soon future. Will take time to learn, since stuff like DTMs or even botting in general aren't really conventional things in programming.

From: Mannsderek
I think it's very fair that I'm not accepted. When I first applied I thought membership was just something basic, but then I realized that I underestimated it.

I will keep learning more about SRL functions and script more, and perhaps apply for membership in the not too soon future. Will take time to learn, since stuff like DTMs or even botting in general aren't really conventional things in programming.

That's a great attitude to have for this, and I'm glad that you're keeping a positive outlook on learning more. Although I still vote no, I hope you stay around and apply in the future when you have learnt more as we always need more people with good attitudes. :)

I suggest you read into failsafes for your scripts, too.
By the way, for your

 until x < -100

at the end if you're looking for a infinite loop just use

until false;

Also, try to not use global variables as much as possible (sorry for not doing a thorough analysis of the script, just tired and merely skimmed it.)

No from me, sorry. Let's close this?:p

The poll has closed and you didn't quite make it this time. Please take the suggestions made here and read some more in the tutorial section and improve your script. You may reapply in 4 weeks time.


Cheers
Hobbit