SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
PascalScript (winch i learned here)


Are you a member of any other communities?
Nope


Tell us about yourself…

From: ogustuce
I am 19 years old, i go to college. I like video games, bicycle, basket ball and rap music.

I don't think i should write this here, but theres no other place. The script i show you is not entirely my own. The original is Evlin's astralallday script. I modified her/his script alot and kept only the SPS part because it worked well and i didn't feel i should change it. I added Food support, Pouch support, Antiban, RepairPouch, Changed lunar teleport, changed bank, changed altar.

I'm showing
ogyAstral (my script)
AstralAllDay (evlin's)
so you can see the big difference between the 2 scripts

p.s: honestly, i dont think i will be accepted for this but i'm trying my luck =)

Best regards,
Ogustuce

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

Evlin's AstralAllDay
[simba]
program Astral;

{$DEFINE CRASHSMART}
{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}

var
 ToAltar: TPointArray;



procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // just leave it as is.
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;


function UseBankNPC: Boolean; //A
var
  bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
  If FindNormalRandoms then
  Begin
    Logout;
    TerminateScript;
  End else
  Result := (LoggedIn) and (BankScreen or PinScreen);
  if (Result) then exit;
  Speed := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  ColFace := 4495017;
  ColGrey := 6057592;
  ColBlue := 3559520;
  ColHair := 9081497;
  if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
    ['Bank booth'], 2, 4)) then
  begin
    Mouse(bx, by, 0, 0, False);
    if (WaitOptionMulti(['Bank'], 750)) then
    begin
      t := (GetSystemTime + 5000);
      repeat
        if (BankScreen) or (PinScreen) then
        begin
          Result := true;
          Break;
        end;
        Wait(50);
      until(GetSystemTime > t);
      if (Length(Players) > 0) then
        if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
          InPin(Players[CurrentPlayer].Pin);
      Result := (BankScreen) or (PinScreen);
    end;
  end;
  ColorToleranceSpeed(Speed);
end;



procedure Bank;
begin
  begin
    repeat
    UseBankNPC;
    until BankScreen;
  end;

  begin
        if Withdraw(1, 0, 27) then
          if BankScreen then
            CloseBank;
    Wait(1000 + Random(350))
  end;
end;



Procedure WalkingToAltar;
Begin
  if (LoggedIn) then
  begin
    SPS_Setup(RUNESCAPE_SURFACE,['0_2','1_2']);
    ToAltar := [Point(291, 975), Point(291, 1006), Point(291, 1038),
    Point(294, 1063), Point(301, 1079), Point(317, 1095), Point(327, 1100),
    Point(341, 1112), Point(351, 1125), Point(370, 1132),
    Point(383, 1149), Point(379, 1167), Point(381, 1190), Point(406, 1176),
    Point(428, 1172), Point(440, 1174), Point(460, 1176)];
      SPS_WalkPath(ToAltar);
      Wait(RandomRange(300, 400));
  end;
End;


procedure WalkingToBank;
Begin
  begin
    SPS_Setup(RUNESCAPE_SURFACE,['0_2']);
    ToAltar :=  ([Point(205, 974), Point(209, 973), Point(216, 972),
     Point(222, 971), Point(229, 970), Point(234, 969), Point(237, 963),
     Point(238, 958)]);
      SPS_WalkPath(ToAltar);
      Wait(RandomRange(300, 400));
  end;
End;


Procedure Craft;
var
x, y: integer;
begin
  if FindObjCustom(X, Y, ['Altar'], [8354429], 10) then
  begin
    ClickMouse2(true);
  end;
  if not FindObjCustom(X, Y, ['Altar'], [8354429], 10) then
   begin
     craft;
   end;
end;


procedure TellyHome;
var
 x, y, LunarHome: integer;
begin
 LunarHome := DTMFromString('mbQAAAHicY2VgYOBggABeIBYAYmYgZgdibiDmA2IWqPy+I58Y2ubcQMFuDJiAEQsGAwBv+wr5');
  begin
    repeat
    if GameTab(tab_Magic) then
      if FindDTM(LunarHome, X, Y, MIX1, MIY1, MIX2, MIY2) then
        Mouse(x, y, 5, 5, false);
    until ChooseOption('Cast');
  end;
end;







begin
  Smart_Server := 15;
  Smart_Signed := True;
  Smart_Members := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LogInPlayer;
  repeat
  Bank;
  WalkingToAltar;
  Wait(3000);
  Craft;
  Wait(1000+random(250));
  TellyHome;
  Wait(4000);
  WalkingToBank;
  until (false)
end.

My OgyAstral

program OgyAstral;

{$DEFINE CRASHSMART}
{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i SPS\SPS.simba}

var
ToAltar: TPointArray;
x,y:integer;



procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // just leave it as is.
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;

Procedure ClickBank;

Var
x,y,BankBooth: integer;
aFound:extended;
begin
GameTab(25);
 BankBooth := DTMFromString('mlwAAAHicY2cAAkYGBgEgfgdkvmeAsEFif4FUHRCXAnEZELcBcTsQdwNxERBP6WtnCHNVY4jx0mSI8tBgiHBXZyjNjmJIDbVgMALK8+PAjHgwFAAARJwOAQ==');
 if FindDTMRotated(BankBooth, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
            begin
            Mouse(x, y, 5, 5, True);
              repeat
              wait(10);
              until bankscreen
             wait(250+random(150));
            end;
      FreeDtm(BankBooth);
end;


procedure RepairPouch;
var
x,y,NPCspell,Darkmage,cont:integer;
 begin

begin
Writeln('Repairing Pouches');
   ClickBank;
  end;
  begin
  Withdraw(2,0,1)
  wait(300+random(250));
    Withdraw(3,0,1);
    wait(200+random(150));
    withdraw(3,0,1);
    CloseBank;
    end;
     begin
     NPCspell := DTMFromString('m1gAAAHic42JgYNjOxMCwC4g3A/E6KN4IxLuBeA8Q7wfifUD8BKj2HhQ/AuKnQPwCiN9AaRD/ARC/fv2KQWHpFQxcf+gTGMP4ckC1/ERgRiIxAgAA5VgjMA==');
    repeat
    if GameTab(tab_Magic) then
      if FindDTM(NPCspell, X, Y, MIX1, MIY1, MIX2, MIY2) then
        Mouse(x, y, 5, 5, false);
    until ChooseOption('Cast');
    wait(500+random(350));
  end;
  FreeDTM( NPCspell);
  wait(1000+random(200));
   mouse(486,250,1,1,true);
     wait(400+random(250));

DarkMage:= DTMFromString('mvQEAAHictcyxCoJQFMbx4wOoUy/S20WTTyDR5dJgELQJohjVXcKIxmgSJ9vdnHT2H5yx0Q78OB8HzrcQkYMnUqHAEQ43pMhgkWCr2WCDHWK9J/qX6nb0XnBCqb45V0+88EaNDzr0GDDiigYtHgh8fxb3fSRnsxJn17KkN5yZ9wc/ZwJbGifX');
if findDTM (DarkMage, X, Y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, True);
wait(7000+random(500));
FreeDTM(DarkMage);

begin
repeat
inc(Cont);
 ClickContinue(false, true);
 until (FindNPCChatText('2', clickleft) or (Cont = 10));
 end;
 begin
 wait(1000+random(250));
 mouse(265,465,1,1,true);
 GameTab(25);
 end;

  end;




procedure eat;
var
i:integer ;

  begin
  writeln('eating')
  begin
    ClickBank;
    Waitfunc( @bankscreen ,10 ,6000 );
  end;

  begin
    Withdraw(0, 0, 5);
    CloseBank;
   repeat
  for i := 5 to 9 do
    begin
      InvMouse(I, 3);
      if IsUpText('obster') then
      begin
        ClickMouse2(True);
        Wait(RandomRange(500, 1000));
    end;
   end;
    until (HPPercent > 95);
   end;
  end;



procedure Bank;
var
Gpouch,Lpouch,Mpouch,Spouch: integer;
aFound:extended;
    begin
  begin
  Writeln('banking')
    repeat
    ClickBank;
    until BankScreen;
  end;
        if Withdraw(1, 0, 22) then
          if BankScreen then
           writeln('filling pouches');
           wait(250+random(250));

          Gpouch := DTMFromString('mAAEAAHiclcsxDkBAFIThZ2uJuyChoNjYUImoHEDBrQmFUCEO4C+20Mm+5JvJFM8XEa1EKuSo0doukSFFjAgJDn5mTFix48Jj3TixYUHXFGKMlnHoWepXSAYOPEffewG1PBH/');
            if FindDTMRotated(Gpouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
            begin
            Mouse(x, y, 5, 5, False);
            ChooseOption('ill');
             wait(200+random(250));
            end;
            FreeDtm(Gpouch);

             Lpouch := DTMFromString('m6wAAAHic42ZgYJjGxMAwE4gnA/E8IF4IpWcBcT8Qd0FxHxC/Aqp/CMQPgPgJA4T/AYg/QvE7IH4BxI+B2NPZgsHFxZEhKSEWyGPCi42AJD+RmJEEjAQAqdcUHw==');
              if FindDTMRotated(Lpouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
              begin
               Mouse(x, y, 5, 5, False);
               ChooseOption('ill');
               wait(200+random(250));
              end;
              FreeDtm(Lpouch);

              if Withdraw(1, 0, 22) then

             Mpouch := DTMFromString('mwQAAAHic42RgYMhhYmAoAOJMIC4G4lIgLgLidCBOhuIXQHUPgPg+ED9mgPA/QPFbIH4GxD6uVgy2NlYMSQmxQB4TVmwEJPkJYEYiMBwAAFcAD2k=');
              if FindDTMRotated(Mpouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
              begin
              Mouse(x, y, 5, 5, False);
             ChooseOption('ill');
               wait(200+random(250));
              end;
              FreeDtm(Mpouch);

             Spouch:= DTMFromString('mfgEAAHicE2JgYDjAxMBwCIj3A/ExID4BxCeB+DgQHwHiPUC8A4i3AfEuKP8AVA6mfjsQvwCa9RCKHwHxUyB+CcRvgfg9FIPYz6FqbkDxTSC+A8T3gfguEPu4WjEE+PsypCQnAHlMZGMjIMlPBcxIJYwJAMwLIf0=');
              if FindDTMRotated(Spouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
              begin
              Mouse(x, y, 5, 5, False);
              ChooseOption('ill');
               wait(200+random(250));
              end;
              FreeDtm(Spouch);
                Wait(RandomRange(1000, 2000));

                if Withdraw(1, 0, 22) then
                  if BankScreen then
                  CloseBank;

    Wait(1000 + Random(350))
  end;





Procedure WalkingToAltar;
Begin
Writeln('walkingToAltar');
  if (LoggedIn) then
  begin
    SPS_Setup(RUNESCAPE_SURFACE,['0_2','1_2']);
    ToAltar := [Point(291, 975), Point(291, 1006), Point(291, 1038),
    Point(294, 1063), Point(301, 1079), Point(317, 1095), Point(327, 1100),
    Point(341, 1112), Point(351, 1125), Point(370, 1132),
    Point(383, 1149), Point(379, 1167), Point(381, 1190), Point(406, 1176),
    Point(428, 1172), Point(440, 1174), Point(460, 1176)];
      SPS_WalkPath(ToAltar);
      Wait(RandomRange(300, 400));
  end;
End;


procedure WalkingToBank;
Begin
Writeln('GoingToBank');
  begin
    SPS_Setup(RUNESCAPE_SURFACE,['0_2']);
    ToAltar :=  ([Point(205, 974), Point(209, 973), Point(216, 972),
     Point(222, 971), Point(229, 970), Point(234, 969), Point(237, 963),
     Point(238, 958)]);
      SPS_WalkPath(ToAltar);
      Wait(RandomRange(300, 400));
  end;
End;



Procedure Craft1;
var
x, y,Altar: integer;
aFound:extended;
begin
  Writeln('Crafting 1');
  Altar := DTMFromString('mbQAAAHicY2VgYDBkZGBwAWIxIJYHYn8gfgwUvwrEN4GYG8jnAOKenlaG4uI8hsbGaoa2tgaG2tpyBhGgPD8aZsSCwQAA5HwLag==');
  if FindDTMRotated(Altar, x, y, MsX1, MsY1, MsX2, MsY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 5, 5, True);
    Wait(RandomRange(2000,3000));
  end;
  FreeDTM(altar);
end;

procedure EmptyPouch;
var
x,y,Gpouch,Lpouch,Mpouch,Spouch:integer;
afound:extended;
begin
writeln('emptying Pouches')
            Gpouch := DTMFromString('mAAEAAHiclcsxDkBAFIThZ2uJuyChoNjYUImoHEDBrQmFUCEO4C+20Mm+5JvJFM8XEa1EKuSo0doukSFFjAgJDn5mTFix48Jj3TixYUHXFGKMlnHoWepXSAYOPEffewG1PBH/');
            if FindDTMRotated(Gpouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
            begin
            Mouse(x, y, 5, 5, True);
            wait(200+random(250));
            end;
            FreeDtm(Gpouch);

             Lpouch := DTMFromString('m6wAAAHic42ZgYJjGxMAwE4gnA/E8IF4IpWcBcT8Qd0FxHxC/Aqp/CMQPgPgJA4T/AYg/QvE7IH4BxI+B2NPZgsHFxZEhKSEWyGPCi42AJD+RmJEEjAQAqdcUHw==');
              if FindDTMRotated(Lpouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
              begin
              Mouse(x, y, 5, 5, True);
               wait(200+random(250));
              end;
              FreeDtm(Lpouch);
                wait(200+random(250));
              Begin
              Craft1;
              end;


                Mpouch := DTMFromString('mwQAAAHic42RgYMhhYmAoAOJMIC4G4lIgLgLidCBOhuIXQHUPgPg+ED9mgPA/QPFbIH4GxD6uVgy2NlYMSQmxQB4TVmwEJPkJYEYiMBwAAFcAD2k=');
                if FindDTMRotated(Mpouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
                begin
                Mouse(x, y, 5, 5, True);
                 wait(200+random(250));
                end;
                FreeDtm(Mpouch);


              Spouch:= DTMFromString('mfgEAAHicE2JgYDjAxMBwCIj3A/ExID4BxCeB+DgQHwHiPUC8A4i3AfEuKP8AVA6mfjsQvwCa9RCKHwHxUyB+CcRvgfg9FIPYz6FqbkDxTSC+A8T3gfguEPu4WjEE+PsypCQnAHlMZGMjIMlPBcxIJYwJAMwLIf0=');
              if FindDTMRotated(Spouch, x, y, MIX1, MIY1, MIX2, MIY2, -Pi/4, Pi/4, Pi/60, aFound) then
              begin
              Mouse(x, y, 5, 5, True);
               wait(200+random(250));
              end;
              FreeDtm(Spouch);
                Wait(RandomRange(1000, 2000));
 end;

 Procedure Craft2;
var
x, y,Altar: integer;
aFound:extended;
begin
   Writeln('Crafting 2nd Time')
  Altar := DTMFromString('mbQAAAHicY2VgYDBkZGBwAWIxIJYHYn8gfgwUvwrEN4GYG8jnAOKenlaG4uI8hsbGaoa2tgaG2tpyBhGgPD8aZsSCwQAA5HwLag==');
  if FindDTMRotated(Altar, x, y, MsX1, MsY1, MsX2, MsY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 5, 5, True);
    Wait(RandomRange(500,1000));
  end;
  FreeDTM(altar);
end;

procedure TellyLunar;
var
 x, y, LunarTele: integer;
begin
Writeln('Teleport');
 LunarTele := DTMFromString('mwQAAAHic42RgYJjOxMAwF4inAHEfFIPYs4F4IRQzMTIw/ASq/QHE/4CYFcjnhmIQGyR25NgJIMmIFxsBSX4CGL8JEAwHACFyDJI=');
  begin
    repeat
    if GameTab(tab_Magic) then
      if FindDTM(LunarTele, X, Y, MIX1, MIY1, MIX2, MIY2) then
        Mouse(x, y, 5, 5, false);
    until ChooseOption('Cast');
  end;
  FreeDTM( LunarTele);
end;

 procedure AntiBan;
begin
  writeln('Pick random');
  case random(13) of



      0 : begin
          writeln('Random movement selected');
          RandomMovement;
          end;
        1 : begin
            writeln('Hover skill RC');
            HoverSkill(skill_Runecrafting,false);
            GameTab(25);
            end;
          2 : begin
              writeln('Game Tab stats selected');
              GameTab(23);
              gametab(25);
              end;
            3 : begin
                writeln('Random wait1 selected');
                Wait(randomrange(1000,2000));
                end;
              4 : begin
                  writeln('Equip Tab selected');
                  GameTab(26);
                  Wait(RandomRange(1000,2000));
                  gametab(25);
                  end;
                5 : begin
                    writeln('Prayer Tab selected');
                    GameTab(27);
                    Wait(RandomRange(500,1500));
                    gametab(25);
                    end;
                  6 : begin
                      writeln('Friend List Tab selected');
                      GameTab(30);
                      Wait(RandomRange(2000,3000));
                      gametab(25);
                       end;
                    7 : begin
                        writeln('ClanChat Tab selected');
                        GameTab(32);
                        Wait(RandomRange(1000,3000));
                        gametab(25);
                         end;
                      8 : begin
                          writeln('Hover skill SLAY');
                          HoverSkill(skill_Slayer,false);
                          GameTab(25);
                          end;
                        9 : begin
                            writeln('Hover skill Summoning');
                            HoverSkill(skill_Summoning,false);
                            GameTab(25);
                            end;
                         10 : begin
                              writeln('Hover skill Farm');
                              HoverSkill(skill_Farming,false);
                              GameTab(25);
                              end;
                           11 : begin
                                writeln('Hover skill Hunt');
                                HoverSkill(skill_Hunter,false);
                                GameTab(25);
                                end;
                               12 : begin
                                    writeln('Random wait2 selected');
                                    Wait(randomrange(500,3000));
                                    end;
     end;
     end;

procedure MaybeAntiBan;
begin
  writeln('Pick random');
  case random(2) of

   0 : begin
       Writeln('No antiBan this run');

       end;
     1 : begin
         Writeln('antiBan this run');
         AntiBan;
         end;
       2 : begin
           Writeln('No antiBan this run');

           end;
end;
end;

begin
  Smart_Server := 15;
  Smart_Signed := True;
  Smart_Members := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LogInPlayer;
  repeat
  if FindBlackChatMessage('decayed') then
  begin
  RepairPouch;
  end;
  Bank;
  WalkingToAltar;
  MaybeAntiBan;
  Wait(3000);
  Craft1;
  EmptyPouch;
  Craft2;
  Wait(1000+random(250));
  TellyLunar;
  Wait(4000);
  WalkingToBank;
  if (hppercent < 50) then
  begin
  eat;
  end;
  until (false)
end.

You're kidding..
Right?

E*, nvm soz, I thought you were applying with Evlins…

So why is Evlin's script in your application?….

From: PatDuffy
So why is Evlin's script in your application?….

From: ogustuce
so you can see the big difference between the 2 scripts

I voted No because:
• Poor standards
• Poor activity/longevity
• Tons of infinite loops
• Few failsafes
• Antiban can be shortened a lot by using "Random" instead of going through every skill.
• procedure MaybeAntiBan can be removed by changing procedure Antiban into this:

procedure AntiBan;
begin
  writeln('Pick random');
  case random(39) of

It isn't really anything specific in my opinion, just all of the little things added up. Don't let this discourage you though, I see tons of potential. It looks like you put in a lot of effort; If you wrote that all by yourself only being here for ~1 month, then that's truly great.

From: PatDuffy
So why is Evlin's script in your application?….

because my script was made from it. Good to know that u didn't recognize her script from mine =) means maybe i modified it more than i thought


like i said: only thing i kept 'intact' from her original script is the SPS walking

From: Nebula
I voted No because:
• Poor standards
• Poor activity/longevity
• Tons of infinite loops
• Few failsafes
• Antiban can be shortened a lot by using "Random" instead of going through every skill.
• procedure MaybeAntiBan can be removed by changing procedure Antiban into this:

procedure AntiBan;
begin
  writeln('Pick random');
  case random(39) of

It isn't really anything specific in my opinion, just all of the little things added up. Don't let this discourage you though, I see tons of potential. It looks like you put in a lot of effort; If you wrote that all by yourself only being here for ~1 month, then that's truly great.

thanks for telling how to improve it, i mean better way of writing. its very instructive. I like to learn and i learn fast =)

From: ogustuce

like i said: only thing i kept 'intact' from her original script is the SPS walking

And the Teleport procedure.

From: Nebula
And the Teleport procedure.

'intact' means i changed nothing. i changed the original homeTele for the Telegroup. But its true that i didn't change much

Actually, I stopped reading both scripts when I saw the original one with the header "evlin's whateverer". The script must be 100% your own, not a modified version of someone else's

no from me.

p.s: honestly, i dont think i will be accepted for this but i'm trying my luck =)

i just wanted to see what ppl think about what ive done. i couldnt post this to public or leechers wouldve just taken the script i made. Also, ppl would've hate me for giving to public a mostly flawless script that could've crash astrals price.


and i have my clear answer: Noob but have potential =)

Do or do not. There is no try, especially in members application.

If you don't feel like releasing the astral script to the public, it's fine. Actually you can apply with a private script. I and many members have no problems with that. But you also need to fulfill the activity requirements and show us you're an asset to the community.

Sorry, but I voted no because of this - "p.s: honestly, i dont think i will be accepted for this but i'm trying my luck =)" No one should be trying their luck here. You should at least feel prepared if you apply for members.

Yeah what these other guys have said, also, you only use SPS for walking with no failsafes (what if SPS fails? Your loop doesn't account for it)

Good try though!

wow, this ain't closed yet?! just close it lol. this is done

You may try again in two weeks :)