SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
Nope

Were you Referred to SRL?
N/A


What is your general programming knowledge?
CSS and a bit of java mostly from website design due to my major. This is the first type of programming that has anything to do with gaming.


Are you a member of any other communities?
Joined sythe not too long ago.


Tell us about yourself…

From: TheAnubis
I'm a D1 athlete at the University of Minnesota majoring in graphic design. My sport restricts my hobby time but I do what I can to keep playing and scripting. This new scripting thing seemed like a lot of fun and I wanted the challenge of trying to become a member :) I'm looking for any possible input/criticism/"this script is horrible" that you guys can offer me ;)

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

program CatherbyFisher;

//Requirements: 76 Fishing, barb-tail harpoon equipt or harpoon in tool belt
//Start avatar at fishing spots in Catherby and watch it go
//Currently set to fish sharks only

{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}

var SW, TU, SH, TSH, TTU, TSW, TTL, L, XP, TP: integer;

 const
 SERVER  = 0;     // Enter "0" to pick a random server.
 MEMBERS = True; // True if members, False if f2p
 NumbOfPlayers= 1;     //How many players are you using
 StartPlayer=   0;     //Player to start auoting with! (0 means first chararacter)
 Pin = ''; // Your bank pin goes here (Leave blank if you don't have one)
 SRLStats_Username = ''; //Leave blank if you wish
 SRLStats_Password = ''; //Same as above
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; // Username?
  Players[0].Pass := ''; // Password?
  Players[0].Nick := '';  // 3 letters of your username (not the first letter)
  Players[0].Active := True;
   Players[0].Integers[0] := 527; //Price of SwordFish (Update based on GE)
    Players[0].Integers[1] := 220; //Price of Tuna              ""
    Players[0].Integers[2] := 1593; //Price of Shark             ""
    Players[0].Integers[3] := 18000;//Time after a fish is caught to allow for more fish to be caught
end;
procedure CheckCheck;
begin
 if not LoggedIn then Exit;
 FindNormalRandoms;
end;
Procedure AntiBanStuff;
begin
  if not LoggedIn then Exit;
  case Random(100) of
    0: begin
         RandomMovement;
         SetAngle(SRL_ANGLE_HIGH);
       end;
    1: PickUpMouse;
    2: HoverSkill('Fishing', False);
    3: SleepAndMoveMouse(5000 + Random(500));
    4: RandomMovement;
    5: PickUpMouse;
    6: BoredHuman;
    7: RandomRClick;
    8: ExamineInv;
    9:begin
            MakeCompass( RandomRange( -360, 360));
            Wait(200 + random(75));
          end;
    10: Wait( Random( 4500));
    11..15: CheckCheck;
  end;
end;
Function GetBackFishing: boolean;
Var
myPath:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['7_7']);
  myPath := [Point(3072, 2894), Point(3072, 2901),
  Point(3073, 2903), Point(3078, 2906),
  Point(3086, 2905), Point(3093, 2904),
  Point(3098, 2907), Point(3102, 2907),
  Point(3109, 2907), Point(3123, 2907),
  Point(3130, 2907), Point(3136, 2907),
  Point(3144, 2907), Point(3156, 2910),
  Point(3173, 2913), Point(3185, 2912),
  Point(3197, 2918), Point(3200, 2923)];
  if SPS_WalkPath(myPath) then
   begin
    FFlag(0);
    Wait(500 + random(200));
    SetAngle(0);
    CheckCheck;
    Result := True;
    Exit;
  end else
      WriteLn('You suck at walking, get off RS');
      Logout;
end;
Procedure MyValuesMan(colors: TIntegerArray; var HueMods, SatMods: Extended; var color, Tolerance: Integer);
  Var
    h, s, t: Extended;
    I,II : integer;
    HSLColor : Array[1..3] of Extended;
    HSL : Array[0..1] of Array[1..3] of Extended;
  begin;
    For I:= 1 to 3 do
    begin;
      HSL[0][i] := 255;
    end;

    For I:= 0 to High(Colors) do
    begin;
      ColortoHSL(Colors[i],HSLColor[1],HSLColor[2],HSLColor[3]);
      For II:= 1 to 3 do
      begin;
        HSL[0][II] := MinE(HSLColor[II],HSL[0][II]);
        HSL[1][II] := MaxE(HSLColor[II],HSL[1][II]);
      end;
    end;

    H := (HSL[1][1] - HSL[0][1]);
    S := (HSL[1][2] - HSL[0][2]);
    T := (HSL[1][3] - HSL[0][3]);

    try
      HueMods := (H/T);
      SatMods := (S/T);
      Tolerance := Round(t);
    except
      HueMods := 0;
      SatMods := 0;
      Tolerance := Round(0.0);
    end;

    Color := HSLToColor((HSL[1][1] + HSL[0][1]) div 2,(HSL[1][2] + HSL[0][2]) div 2,(HSL[1][3] + HSL[0][3]) div 2);
  end;
function FishFinder(Var X,Y: Integer): Boolean;
  var
    B: TBox;
    TPA: TPointArray;
    Hmod,Smod: Extended;
    L,i,Tol,CTS,Col: Integer;
    ATPA: T2DPointArray;
  begin
    Result := False;

    MyValuesMan([11445405, 11642527, 11708064, 11970978, 12169386, 12433588], Hmod, Smod, Col, Tol);
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(Hmod, SMod);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, Col, MSX1, MSY1, MSX2, MSY2, Tol);
    ColorToleranceSpeed(CTS);
    if (Length(TPA) < 1) then
      Exit;
    ATPA := TPAToATPAEx(TPA, 40, 40);
    SortATPAFrom(ATPA, Point(MSCX,MSCY));
    L := High(ATPA);
    SetArrayLength(ATPA, L+1);
    for i := 0 to L do
    begin
      if (GetArrayLength(ATPA[i]) > 5) then
      begin
        B := GetTPABounds(ATPA[i]);

        MiddleTPAEx(ATPA[i], X, Y);
        MMouse(X, Y, 15, 15);
        if WaitUpTextMulti(['Net', 'et'], 555) then
        begin
          Result := True;
          GetMousePos(X, Y);
          Exit;
          writeln('Found them fishies');
        end else
          Result := False;
          GetBackFishing
      end;
    end;
  end;
Function FishLikeABaws: boolean;
var px, xx, timer:integer;
begin
  CheckCheck;
  MarkTime(timer);
  px := InvCount;
  WriteLn('Enjoying Fishing...');
repeat
  Wait(200+ random(50));
  xx := InvCount;
  if not (xx = px) then
  begin
    MarkTime(Timer);
    px := xx;
  end;
    if (TimefromMark(Timer) > Players[CurrentPlayer].integers[3]) and (px = xx) then
  begin
    Exit;
  end;
    until(InvCount = 28);
    Result := True;
end;
Function GetThemFishes: boolean;
var
x, y:Integer;
begin
  CheckCheck;
  FFlag(0);
  If FishFinder(x, y) then
  begin
    Mouse(x, y, 0, 0, false);
    WaitOption('Harpoon', 600);
    if not DidRedClick then
        Exit;
    WriteLn('We gonna catch the big one');
    RunEnergy(50);
    if FishLikeABaws then;
      begin
        AntiBanStuff;
        FindNormalRandoms;
        writeln('Looking for fish');
      end;
    end;
 end;
function CountTheFish: boolean;
var
SwordFishDTM, TunaDTM, SharkDTM: integer;
 begin
 SwordFishDTM := DTMFromString('mFQEAAHicnckxCoAwEETRSSQiQtBzpxIEQbRQBAuvGAs/JIWWceHt7LBe0malA9fLiR0LJoxYMefucJvEctdo4NFnHSJ/kRWGEFIp0LJLmR8+8wAIHQ3o');
 TunaDTM := DTMFromString('m1gAAAHic42JgYKhjYmCoBOJ6IO4E4m4o3QrEtUBcAsSlQGwMxPpArA7EGlC2CRBbALEtFIPUTOnrBZrKRAQmDjASiREAAO+pCPU=');
 SharkDTM := DTMFromString('mrAAAAHic42BgYKhjYmAoA+IiIC4F4iYg7gHiTiCuAeJnjAwM34H4DRA/BOK7QPwSiL8A8QcgbqiqAprChAfjB4wEMAwAAIh8DO0=');

  begin
    SW := CountItems('dtm', SwordFishDTM, [0]);
    TU := CountItems('dtm', TunaDTM, [0]);
    SH := CountItems('dtm', SharkDTM, [0]);
    TSW := TSW + SW;
    TTU := TTU + TU;
    TSH := TSH + SH;
    TTL := TTL + SW + TU + SH;
    FreeDTM(SwordFishDTM);
    FreeDTM(TunaDTM);
    FreeDTM(SharkDTM);
    Result := True;
  end;
 end;
 Procedure ProggyStyle;
begin
  XP:= (XP +(SW * 100) + (TU * 80) + (SH * 110));
  TP:= (TP +(Players[CurrentPlayer].integers[0] * TU) + (Players[CurrentPlayer].integers[1] * SW) + (Players[CurrentPlayer].integers[2] * SH));
  WriteLn('++++=====ANOTHER LOAD COMPLETE!====++++');
  WriteLn('Progress');
  WriteLn('Time Running: ' + TimeRunning);
  WriteLn('Fish Caught: ' + IntToStr(TTL));
  WriteLn('Total XP Gained: ' + IntToStr(XP));
  WriteLn('Profit: ' + IntToStr(TP));
  WriteLn('=====Thanks for using CatherbyFisher by TheAnubis=====');
end;
function GoToBank: boolean;
Var
myPath:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['7_7']);
  myPath := [Point(3216, 2928), Point(3206, 2915),
  Point(3196, 2912), Point(3182, 2908),
  Point(3166, 2908), Point(3154, 2908),
  Point(3141, 2908), Point(3128, 2904),
  Point(3117, 2907), Point(3101, 2907),
  Point(3092, 2907), Point(3080, 2906),
  Point(3073, 2903), Point(3073, 2896)];
  if SPS_WalkPath(myPath) then
  begin
    FFlag(0);
    Wait(500 + random(200));
    SetAngle(0);
    CheckCheck;
    Result := True;
    Exit;
  end else
      WriteLn('You suck at walking, get off RS');
      Logout;
end;
Function GetInTheBank: boolean;
begin
  if (InvEmpty) then
  begin
    Result := True;
    Exit;
  end;

  QuickDeposit(SRL_DEPOSIT_ALL);
  Result := WaitFunc(@InvEmpty, 50, 3000);
end;
function BankDatFish: boolean;
var
  NPCBox :TBox;
  Colors, NPCArray :TPointArray;
  ATPA: T2DPointArray;
  MSNPC, NPCPoint :TPoint;
  CTS, C, II, I :Integer;
begin
  Result := False;
  Result := (BankScreen) or (PinScreen);
  If Result then
    Exit;
  NPCArray := GetMinimapDots('NPC');
  If Length(NPCArray) < 1 then
    Exit;
  SortTPAFrom(NPCArray, Point(MMCX, MMCY));
  for I := 0 to High(NPCArray) do
  begin
    NPCPoint := MMToMS(NPCArray[I])
    If NPCPoint = Point(-1, -1) then
      Continue;
    with NPCPoint do
      NPCBox := IntToBox(Max(X - 40, MSX1), Max(Y - 40, MSY1), Min(X + 40, MSX2), Min(Y + 40, MSY2));
    If PixelShift(NPCBox, 200) > 500 then
      Continue;

    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.13, 1.52);
    FindColorsTolerance(Colors, 6067652, NPCBox.X1, NPCBox.Y1, NPCBox.X2, NPCBox.Y2, 13);
    SetColorSpeed2Modifiers(0.2, 0.2);
    ColorToleranceSpeed(CTS);
    ATPA := TPAToATPAEx(Colors, 15, 20);
    SortATPASize(ATPA, True);

    for II := 0 to High(ATPA) do
    begin
      MSNPC := MiddleTPA(ATPA[II]);
      MMouse(MSNPC.X, MSNPC.Y, 3, 3);
      If WaitUpTextMulti(['ooth', 'anker'], 200) then
      begin
        ClickMouse2(False);
        If WaitOptionMulti(['Bank B', 'nk B'], 600) then
          MarkTime(c);
        Repeat
          Wait(RandomRange(50, 100));
        Until (BankScreen) or (PinScreen) or (TimeFromMark(C) > 4500);
        if (Players[CurrentPlayer].Pin <> '') then
          InPin(Players[CurrentPlayer].Pin);
        Result := (BankScreen) or (PinScreen);
        If PinScreen then
            InPin (Pin);
        If BankScreen then
            GetInTheBank
      end;
    end;
  end;
end;
Procedure Plan;
begin
  CheckCheck
repeat
  GetThemFishes
  Until (InvFull)
  begin
     GoToBank;
     CountTheFish;
     BankDatFish;
     GetInTheBank;
     ProggyStyle;
     GetBackFishing;
  end;
end;
begin
  ClearDebug;
  SetUpSrl;
  ActivateClient;
  DeclarePlayers;
  SetupSRLStats(543, SRLStats_Username, SRLStats_Password);
  LoginPlayer;
  SetAngle(0);
  SetRun(True);
  MouseSpeed := RandomRange(13, 19);
repeat
  Plan;
  until(false)
end.

Yes.

;) Sin is the best

No, it hasn't been two weeks since your last application, as Markus stated on your other one.

Oh I appologize, honestly the thread simply dissapeared and I wasn't quite sure what happened to it :o I assumed, seeing it had been open for two weeks, that the time it was open counted in the two week period.
My mistake although I do like how my percentage improved :)
Anubis

No from me, You are just to new to really be a part of the community.

I'm sorry to disagree, in my eyes time has very little to do with how useful you can be to a comunity, yes I am fairly new, just over a month, and my post count is a bit low, but all posts I have are useful responses and feedback as well as help to those they are directed at. They are very few "thanks for the script" or "good job" type responses that may have made me useless to the community. I have also kept this script regularly updated based on feedback and I feel it shows a good deal of programming knowledge you members look for (although by no means is it impressive ;P). But anyhow, as always I shall let the votes decide.
Cheers.
Anubis

From: TheAnubis
I'm sorry to disagree, in my eyes time has very little to do with how useful you can be to a comunity, yes I am fairly new, just over a month, and my post count is a bit low, but all posts I have are useful responses and feedback as well as help to those they are directed at. They are very few "thanks for the script" or "good job" type responses that may have made me useless to the community. I have also kept this script regularly updated based on feedback and I feel it shows a good deal of programming knowledge you members look for (although by no means is it impressive ;P). But anyhow, as always I shall let the votes decide.
Cheers.
Anubis

Well with 63 post shows that your not very active in the community, which is why he voted no and being you joined only last month.
I'll hold my vote.
Mat

I measure activity by quality of posts, not quanitity ;) Plus if we go by number, Mr. Jagex has less posts per month than me :) Anyways, thank you for the input, although I would much rather be judged on my scripting and not my post count.
Appreciate it,
ANubis

Being a Member is about being a part of the community, not if you write some epic script.

The script is only there to test your knowledge of the include.

Yes of course, I'm not saying it is the only factor. Just a bit flustering to have the only comments being that I'm too new ;) Understandable though as I know it can be a factor for some.
Anubis

No offense you from your post you seem that you think you get SRL purly based on the script alone ? Yes I agree posts arnt everything but only 60 odd?
Voted no as I feel your attitude is off as were says no due to low activity.
Next time most probaly be a yes if you get a higher activity in help section and feed back on others scripts, ( and lose the attitude me no like).
Mat

I tend to only vote yes if the applicant has 6+ months here, or an amazing script. no its a no this time. pm me if you need help on your next script

I voted no as well due to longevity of being here and your attitude as well.

I appologize, I'm not looking to flash an attitude around the forums, nor did I believe I was showing any, but after reading my posts I do see where it could have been interpretted as such. I appreciate the advice and information from all of you, it will surely help in the long run.
Cheers.
Anubis

Bump it :0 and check my graphix ;0

is it possible to close this thread? As I would prefer the time until next application to start sooner rather than later XD Thanks either way!
Anubis

Triple Posting Anubis. use the edit button next time.
Mat

Being unneccesarily blunt mat. Use some cordial conversation next time.
Anubis

What else am I meant to put? Yes I agree it should be closed but the Mods are most likely busy.

I saw and I closed Apply again in a month.