SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
naumanakhlaq - SRL Member Application Form
naumanakhlaq

What is the meaning to life?
To script to your hearts content :P

Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
No Just scar. A little Bit of HTML.

Other Communitys
Moparisthebest, Sythe, Loads of others

How Long have You Played Runescape
2 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well I have applied before.And i posted a rubbish script just for the sake of getting accepted. I have started again releasing new scripts learning from others. Looking through the srl includes reading manuals and tuts.
I have been scripting for about 6 months now. I guess i'm quite good now as i have just started loving it. My scripts are mostly built i have piners, Bankers, AntiBan, Loops and other basic things.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{.Script Info:
# ScriptName  = Auto Edgy Yewz
# Author      = ->[Nauman]<-
# Description = Chops yewz then banks then in Edgeville bank
# Version     = 0.1
#Instructions = 1.Start in edgeville bank
                2.Only axes you can use are Rune and addy. Dont wield
                3.Specify client window
                4.logged in or logged out
                5.Post Proggies
                6.Enjoy!!!


}
{               /-------------\                  /---------
               /               \                /          \
              /                \               /            \
              |        |       |              |       |      |
              |        |       |              |       |      |
              |        |       |              |       |      |
              |________|       |              |______ |      |
                       /       /                   /       /
                      /       /                   /       /
                     /       /                   /       /    SCRIPT
                    /       /    UPER           /       /_____
                   /       /                  |/      |/      |
                  /       /                   |       |       |
                 /       /                    |       |       |
                /       /                     |       |       |
               /       /________              \                /
              |       |        |               \              /
              |       |        |                \------------/
              |       |        |
              |       |        |
               \               /
                \             /
                 \           /
                  \---------/ }



program AutoYewz;
{.include srl/srl.scar}

var
x,y,Rune,Addy,Loads,LoadsB,LogsChopped,DeathsAvoided:integer;
position:string;


procedure loadvars;
 begin

Rune := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
      '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
      'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03'); //rune
Addy := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
      '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
      '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8'); //addy

end;

const
Direction='W'; // direction to run if in case of fight
Mask='Norton-Anti-Virus'; //what you want scar to desguise it's self as?
LoadsD=23;//how many loads
VersionNumber='0.1';//leave it alone!

Procedure DeclarePlayers;
 Begin
   Disguise(Mask);
   getapplication.MINIMIZE;

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


  Players[0].Name        :='';//Your Username.
  Players[0].Pass        :='';  // Your Password.
  Players[0].Nick        :='';   // 3-4 letters from your name.
  Players[0].Active      := True; //True = Use player, False = Don't use.
  Players[0].pin         :=0000; //pin in here if you dont have dont touch!

   writeln(inttostr(HowManyPlayers)+' Players');
end;

procedure sig;
begin;
 cleardebug;
 writeln('  ########          #########          Super        ')
 wait(750)
 writeln(' #                  #                  Script       ')
 writeln(' #                  #                                ')
 wait(750)
 writeln(' # # # # #            # # # #         B               ')
 wait(750)
 writeln('          #                  #        Y               ')
 wait(750)
 writeln('          #                  #        ->[Nauman]<-   ')
 wait(750)
 writeln('##### ###            ########                        ')
 wait(1000)
end;
Function FindFastRandoms: Boolean; //By Wt-Fakawi
var
  i: Integer;
begin
  for i:=1 to 11 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
     9: begin
           if FindFight then
           begin
             RunTo(Direction,False);
             Wait(5000 +random(3000));
             Runback;
             DeathsAvoided:=DeathsAvoided+1;
           end;
         end;
    10: If FindTalk Then
         Result := True;

    11: If ClickToContinue Then
          Result := True;
    end;

  end;
end;


Procedure AntiBannage;
    begin
   Case Random (30) of
     0:Typesend('....')
     5:AlmostLogout;
     9:HoverSkill ('woodcutting',false);
     19:BoredHuman;
     25:RandomMovement;
     30:RandomRClick;

 end;
end;


Procedure WaitWhileCutting;
  begin
    repeat
   FindFastRandoms;
   AntiBannage
  until(not isuptext('Chop'))
 end;
 
Procedure WalktoYewz;
    Begin;
     If(not(LoggedIn))then LoginPlayer;
      HighestAngle;
       Makecompass('N')
      SetRun(True)
        Gametab(4);
        mouse(647, 137,0+Random(1),1-Random(1),true)
       if(flagpresent)then
       Flag;
       if findsymbol(x,y,'dungeon') then
         mouse(x,y,0+Random(1*3),4-Random(2*2),true)
          if(flagpresent)then
       Flag;
   if findsymbol(x,y,'Tree') then
      begin;
   mouse(x+10,y-3,3,3,true)
   wait(8000+Random(2000))
  end;
end;



Procedure ChopDown;
  begin;
      if not(loggedin) then Exit;
      SetRun(false);
       gametab(4);
      HighestAngle;
     repeat
      if FindObj(x,y,'Yew',1855816,5) then
        FindFastRandoms;
           mouse(x,y,0+Random(1),3+Random(2),true);
        WaitWhileCutting;
        until(invfull)
   logschopped:=logschopped+27;
end;


procedure Bank;
 begin;
   if not(loggedin) then Exit;
    if(invcount=28) then
  If findsymbol(x,y,'dungeon')then
   Makecompass('N');
    Mouse(x,y,0+Random(3),1-Random(1),true);
 if (FlagPresent) then Flag;
   SetRun(True);
   Mouse(656, 40,1+Random(2),0+Random(1),true);
 if findsymbol(x,y,'Bank')then
  Mouse(x,y,0+Random(3),1-Random(1),true);
   OpenBankFast('eb')
     if(PinScreen) then
       InPin(IntToStr(Players[CurrentPlayer].Pin));
    if (bankScreen) then
   Deposit(2,28,2)
  wait(300+Random(200))
 CloseBank
   LoadsB:=LoadsB+1;
end;

procedure Proggie;
var
  PActive: string;
begin
   cleardebug;
  SRLRandomsReport;
  If Players[CurrentPlayer].Active then PActive:='True' else PActive:='False';
  Writeln('//=============== Auto Yewz ================\\');
  Writeln('\\======== -'+VersionNumber+'- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for '+ TimeRunning);
  Writeln('|      Chopped '+ IntToStr(LogsChopped)+(' logs.'));
  Writeln('|      Banked '+ IntToStr(LoadsB)+(' times.'));
  writeln('|      DeathsAvoided '+IntToStr(Deathsavoided)+(' times.'));
  Writeln('\==========================================/');
end;

begin
  SetupSRL
    Sig;
  LoadVars;
    DeclarePlayers;
      proggie;
    repeat
    walktoyewz;
  chopdown;
   proggie;
 Bank;
proggie;
 until(LoadsD=Loads)
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Not worthy of member by my opinion ill say why :D :

1:

Procedure WaitWhileCutting;
  begin
    repeat
   FindFastRandoms;
   FindNormalRandoms;
    AntiBannage
  until(not isuptext('Chop'))
 end;

The find normal randoms isnt really needed as find fast randoms already does that

2:

mouse(647, 137,0+Random(1),1-Random(1),true)

Mouse is used to walk.. never good

3 :

 if FindObj(x,y,'Yew',1855816,5) then
        FindFastRandoms;
           mouse(x,y,0+Random(1),3+Random(2),true);
        WaitWhileCutting;
        if (not findobj(x,y,'Yew',1855816,5)) then
       wait(3000+Random(8000))
      AntiBannage;
     until(invfull)
   logschopped:=logschopped+27;
end;

begins and ends are vital here… otherwise it does everything you dont want it too :(

Sorry, no from me :/

Hold on, *opens SRLTool*

Sorry, better luck next time

• DTMs / DDTMs
• MultiPlayer
• Standards! Without them no one reads script
• Decent complex working script.
• FailSafes

srl tool noob :p

*holds vote*

n3ss3s, isn't that what you always post? :P
About what needs to be used before they're good enough with SRL? Or is that someone else?

Masterkill, I love your signature :D "You can't kill us!"

IMO, the script is a bit simple. I'll maybe take a closer look at it another day.

-Knives

sorry but i have to say no now 2, just keep it up and come back with a 'even more good' script in a month

Gl!

@King: thanks for loving my siggy, it took me a hell of a lot time to make it :p

Standards aren't good. There's no RadialWalk. No from me, sorry.

[Offtopic] We're starting to make it really hard to get into members :) [/Offtopic]

 if FindObj(x,y,'Yew',1855816,5) then
        FindFastRandoms;
           mouse(x,y,0+Random(1),3+Random(2),true);
        WaitWhileCutting;
        if (not findobj(x,y,'Yew',1855816,5)) then
       wait(3000+Random(8000))
      AntiBannage;
     until(invfull)
   logschopped:=logschopped+27;
end;

begins and ends are vital here… otherwise it does everything you dont want it too :(

Yep it's the only thing i dont like, also findnormalrandoms isn't good to put in loop it makes lagg, some olders computers screen will freeze for like 1 sec(my comp didnt made it,logged out because findnormalrandds was in loop) ,use it only once after you click on tree, i'm holding my vote…i you fix i vote yes

i think co-ord clicking is bad idea put radialwalk is not needed aswell…it's way too short distance… radialwalk is kinda for longer distances


edit:failsafes? you should make it better or you have to wait next time

Ok thanks guyz. I used the cords beacuse i knew that runescape would be updated. If i used radial walk then it would muck up.Also Beginings and end's what do you mean like if find (so and so) then
begin; ?


btw negall took it out. Found out what you meant about it.

->{Nauman}<-

n3ss3s, isn't that what you always post? :P

Yes it is, SRLTool is a script of mine that creates the requirement list in a randomized order.

Also option for flaming someone and summoning the great ban shampoo.

{.Script Info:
# ScriptName  = SRLTool
# Author      = n3ss3s
# Description = I have obviously too much time OR SRL has too much leechers xD
# Version     = Infinite
# Date        = 23 of September 2007
# Comments    = "This should do"
/Script Info}
program SRLTool;
var
  Reqz: TStringArray;

procedure LoadRequirements;
begin
  SetArrayLength(Reqz, 7);
  Reqz[0] := '[*]DTMs / DDTMs';
  Reqz[1] := '[*]RadialWalk / DDTM Walking';
  Reqz[2] := '[*]MultiPlayer';
  Reqz[3] := '[*]FailSafes';
  Reqz[4] := '[*]Break out of potential endless loops';
  Reqz[5] := '[*]Standards! Without them no one reads script';
  Reqz[6] := '[*]Decent complex working script.';
end;

procedure Ban(BanD: Boolean; WhichBan: Integer);
begin
  if(BanD)then
  begin
    case WhichBan of
      0: Writeln('BUSTED! Ban shampoo!');
      1: Writeln('Please, copy a working script which fills the requirements!');
      2: Writeln('Sorry, copy a better script next time');
      3: Writeln('Burn in hell pl0x?');
      4: Writeln('You copyed the script I made today?!');
    end;
  end;
end;

procedure PrintRequirements;
var
  I, C, I2: Integer;
var
  Printd: array[0..6] of Boolean;
begin
  LoadRequirements;
  repeat
    if(not(Printd[i]))then
    begin
      Writeln(Reqz[i]);
      Printd[i] := True;
    end;
    I := Random(7);
    I2 := I2 + 1;
  until(I2 = 7);
end;

procedure KThxBaiiNoob(NoobLevel: Integer);
begin
  case NoobLevel of
    1: begin
         // noob of the level 1
         Writeln('Sorry, better luck next time');
       end;
    2: begin
         // :O "2" we are witnessing history
         Writeln('Geez you are wasting the time of both of us! No script, auto-deny');
       end;
    3: begin
         // :O :O :O *Funeral church bells ringin* the level 3 noob. "How to use searx"
         Writeln('omfg I made a fucking tutorial for search button, go home!');
       end;
  end;
  if(NoobLevel = 0)then
  begin
    Writeln('Good try, better luck next time');
  end;
  Writeln('[LIST]');
  PrintRequirements;
  Writeln('[/LIST]');
  // Ye ye go home nub..
end;

begin
  KThxBaiiNoob(1);
end.

Nice so i guess someone can close this thread. Because i'm going to have to return in another 1 month.

->{Nauman}<-

Good job naumanakhlaq.
Thanks for listening to the feedback and kindly accepting it all.
Be sure to consider all the feedback given and wait that one month and you will be a much greater chance of being accepted next time.
Good Luck!