SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
N/A


What is your general programming knowledge?
Simba


Are you a member of any other communities?
RiD ( http://www.robotzindisguise.com/forum/member.php?55950-Epica )


Tell us about yourself…

From: blink
my online user is Blink or Epic on all rs forums I use.

My interests include learning new things and pushing myself to the limit,
I thrive for perfection.

I am 21 from Canada, a current law student.

I enjoy this forum as its members are nice and very helpful.

I look forward to working alongside all other members :)

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

program Jailbreak;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$loadlib sps}
{$i ObjectDTM\ObjDTMInclude.simba}
//------------------------------------------------------------------------------//


 Var
  XPGain, LoadsDone, TimeGone, Logs: Integer;
  XPPerHour, LoadsPerHour, LogsPerHour, CurrentXP, OriginalXP: Integer;

  procedure Proggy;

begin

     ClearDebug;
      TimeGone := (GetTimeRunning/1000);
       CurrentXP := GetXPBar(1);
          XPGain := (CurrentXP - OriginalXP);
            XPPerhour :=(3600*(XPGain))/((TimeGone));
             LoadsPerhour :=(3600*(LoadsDone))/((TimeGone));
               LogsPerHour := (3600*(Logs))/((TimeGone));

  begin

       Writeln ('============================Jail Break V3.1=============================')
        Writeln ('========================== Created by blink =============================')

    Writeln('*/////////We have done: ' + IntToStr(LoadsDone) + ' Loads / Thats ' + IntToStr(LoadsPerHour) + ' loads per hour');
    Writeln('*/////////We have gained: ' + IntToStr(XPGain) + ' xp / Thats ' + IntToStr(XPPerHour) + ' xp per hour');
    Writeln('*/////////We have crafted ' + IntToStr(Logs) + ' Logs / Thats ' + IntToStr(LogsPerHour) + ' Logs Per Hour');

      end;

            end;

//------------------------------------------------------------------------------//


Procedure DeclarePlayers;

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

    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Pin  := '';
    Players[0].BoxRewards := ['Xp', 'oins'];
    Players[0].Member := False;
    Players[0].Active:=True;
end;

//================================================================================//

const

 Version     = '3.1';

  breakTime= 0;
    breakLength= 0;
     totalTimeOnPlayer= 9999;

 //===============================================================================//

procedure WalkToTree;
begin

WriteLn('Going to Jail.');
  ObjDTM_Walk('132:68:4:1:7:114:68:1:7:113:78:1:7:149:75:1:7:134:55:5:77:87:70:57:140:47:157:84:126:95', 0, 100, 80, True);
  Wait(500);

  ObjDTM_Walk('108:76:3:1:7:93:79:1:7:109:90:1:7:113:59:7:72:54:72:102:133:97:136:47:106:39:85:41:69:53', 0, 100, 80, True);
  Wait(500);

WriteLn('On Location.');


end;

//=================================================================================//

procedure AntiBan;

begin

  if(not(LoggedIn))then
    Exit;

     FindNormalRandoms;
     MakeCompass('S');
     Wait(40+random(133));

    case Random(999) of

    1: HoverSkill('Woodcutting', false);

    2: ExamineInv;

    3: MakeCompass('N');

    4: PickUpMouse;

    5:SetAngle(SRL_ANGLE_HIGH);

    6:SetAngle(SRL_ANGLE_LOW);


    end;
end;

//=================================================================================//

procedure ChopTree;

var

  x, y: Integer;

begin

  FindNormalRandoms
  MakeCompass('N');
  SetAngle(SRL_ANGLE_LOW);
  WriteLn('lets start choppin.');

  repeat
    repeat
      if FindObj(x, y, 'hop',1517609, 33) then

      begin
        Mouse(x, y, 0, 0, true);
        ChooseOption('hop');
          MakeCompass('E');
          Wait(5100+ random(1010));
            MakeCompass('W');
            MakeCompass('E');
              Wait(4007+ random(1003));
              SetAngle(SRL_ANGLE_LOW);
                 MakeCompass('N');
                 Wait(3200+ random(2150));
      end;

      until not IsUpText('ak') or (InvFull);
  until(InvFull);

end;

//=================================================================================//


procedure WalkToBank;

begin

WriteLn('Inv full, getting out of jail.');
  ObjDTM_Walk('49:74:4:1:7:31:48:1:7:31:82:1:7:31:71:1:7:52:59:4:22:42:67:37:111:89:10:90', 0, 100, 80, True);
  Wait(500);

  ObjDTM_Walk('44:90:4:10:7:24:79:10:7:24:83:10:7:23:95:10:7:24:91:5:19:65:14:109:70:102:90:72:63:47', 0, 100, 80, True);
WriteLn('at bank.');

end;

//=================================================================================//


procedure Banking;

begin

  if(InvFull) then
  begin

  SetAngle(SRL_ANGLE_HIGH);
                 MakeCompass('N');
    repeat
      OpenBankFast('db');
        if(PinScreen)then
        InPin(Players[CurrentPlayer].Pin );

        if(BankScreen) then
        begin
          DepositAll;
          CloseBank;
        end;

    until(InvEmpty);

  Logs := InvCount
 Inc(LoadsDone)

  end;
end;


//=================================================================================//

begin

  SetUpSRL;
  ObjDTM_Setup;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  OriginalXP := GetXPBar(1);
  Proggy;


  repeat
    WalkToTree;
    ChopTree;
    AntiBan;
    WalkToBank;
    Banking;
    Proggy;

  until (not LoggedIn);
  WriteLn('until next time.');

end.

The standards are all over the place, and it seems like a simple script. I don't see any failsafes either, which are a big part of scripts. However, don't give up! You're on the right track! :)

Hey there, nice to see someone from RiD take an interest in our community.
There are a few things i'd like to point you on -

 if FindObj(x, y, 'hop',1517609, 33) then      begin        Mouse(x, y, 0, 0, true);        ChooseOption('hop');          MakeCompass('E');          Wait(5100+ random(1010));            MakeCompass('W');            MakeCompass('E');              Wait(4007+ random(1003));              SetAngle(SRL_ANGLE_LOW);                 MakeCompass('N');                 Wait(3200+ random(2150));      end;
   

First of all, standards!
Second, your use of 'MakeCompass'. Instead of calling it into set positions, why not have a case statement which allows you to have a random compass change?

 case random(5) of //this will choose a random number out of 5. Keep in mind, numbers start at 0.
   0: MakeCompass('W'); //if the number lands on 0, this'll activate.
   1: MakeCompass('E');
   2: MakeCompass('N');
   3: MakeCompass('S');
   4: MakeCompass(RandomRange(0,359));
 end; //ends the case statement

Next, i'd like to point out you calling SPS.
Although not an affecting factor, it slows down the script start, since you're not using it.

Also, instead of

SetAngle(SRL_ANGLE_HIGH);                 MakeCompass('N');

you could do -
ClickNorth(SRL_ANGLE_HIGH);

Which in reality does the same thing.

Your use of FindObj -
Although very versatile and useful for beginners, it's often frowned upon by members as it's the short way out.
You should try to learn about TPAs, or even DTMs!
They both are excellent alternatives to FindObj (Not that there's anything wrong with it ;))

Lastly, your activity.
SRL Member is more of a community rank, and you need to be active around the community =]

Although you'll be getting a lot of No votes, i'll vote Yes simply for the fact not to discourage you :)

Standards are off ( I know mine aren't exactly the best either) but those make it difficult to read. Script is very simple and lacking in areas. Sorry but no from me, good luck next time

Same as above, standards are off, and the random whitespace inside procedures. It leads me to believe you deleted parts, and never deleted those lines.

Not that big of a deal, but still nice to fix to make reading easier.

And your Antiban, 6 options out of 999 times? That seems like it will never happen.


Basic object finding, and on your progress report

  procedure Proggy;

begin

     ClearDebug;
      TimeGone := (GetTimeRunning/1000);
       CurrentXP := GetXPBar(1);
          XPGain := (CurrentXP - OriginalXP);
            XPPerhour :=(3600*(XPGain))/((TimeGone));
             LoadsPerhour :=(3600*(LoadsDone))/((TimeGone));
               LogsPerHour := (3600*(Logs))/((TimeGone));

  begin

       Writeln ('============================Jail Break V3.1=============================')
        Writeln ('========================== Created by blink =============================')

    Writeln('*/////////We have done: ' + IntToStr(LoadsDone) + ' Loads / Thats ' + IntToStr(LoadsPerHour) + ' loads per hour');
    Writeln('*/////////We have gained: ' + IntToStr(XPGain) + ' xp / Thats ' + IntToStr(XPPerHour) + ' xp per hour');
    Writeln('*/////////We have crafted ' + IntToStr(Logs) + ' Logs / Thats ' + IntToStr(LogsPerHour) + ' Logs Per Hour');

      end;

            end;

What's with the random Begin End? You only need one.

procedure WalkToBank;

begin

WriteLn('Inv full, getting out of jail.');
  ObjDTM_Walk('49:74:4:1:7:31:48:1:7:31:82:1:7:31:71:1:7:52:59:4:22:42:67:37:111:89:10:90', 0, 100, 80, True);
  Wait(500);

  ObjDTM_Walk('44:90:4:10:7:24:79:10:7:24:83:10:7:23:95:10:7:24:91:5:19:65:14:109:70:102:90:72:63:47', 0, 100, 80, True);
WriteLn('at bank.');

end;

Shouldn't it be

if ObjDTM_Find(coordsNstuff) then
begin
objDTM_walk(coordsNstuff)
writeln('We dunnit... walking to_________')
end;

I don't have a reference on me to confirm that, but I'm pretty sure thats right. If you want to learn ObjDTM a little better abu_jwka has a phenomenal tutorial on ODTM. Click this for it

Blink, first off, don't get discouraged!
I think some voted no because of your newer status here (post count of 30). Members status is more about community, and secondly about scripting. I think after more activity around the forums, you will apply again, and get in.
Last off, don't get discouraged!

Voted Yes purely because. i know this app won't pass however, you recieved a LOT of advice :) be a bit more active and improve your standards etc as everyone above says.

SRL status had requirements and i definetly think being active is a big role

Anyway voted yes because your in the same position i was a few months back and i feel you could come far :)

Thank you everyone for your feedback, I will work to improve my script!

Hi!

I'm sorry, but the community has spoken and it is is a no this time. Best of luck in the future, keep it up. :)