SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Sorry I dont :{

Other Communitys
rsunlocked.net

How Long have You Played Runescape
3 and onr half year

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

Wish I was affiliated (<– you miss spelled it on the question) with jagex. Always wanted to be on the inside of them. Just so I could have the knowledge that I cheat on runescape and I work for them. Well what should I say about myself… Well I am dedicated, hard working, and wont give up (<– theres that rowing coming out in me). I have made one scar script and plan on keeping it going, even though I feel the whole point and reason of making it has gone. Since the GE came out normal logs have dropped from about 80-90 each to below 50 (36 if i remember right). But I feel so proud of making my first script and plan on improving it with other options. Back to me. I have an army of little slaves 18 strong. They will be made into mains and sold for real cash, that real cash will be put back into make the next ones have member skills, and some of the cash will be put back here into the community.

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

{ Aran Armath's Normal Log Banker Version 0.3

What to do!!!

1) Declare Players
2) Start all Players in Draynor Bank
3) Have axe weilded
4) Dont Leech!!!}

program New;
{.include SRL/SRL.scar}

var
  tx, ty, X, y, Loadz, LevelsGained, NextLevel, ActivePlayers, LoadsTillLog, XPNextLevel, Total, NormalLog, i, TotalLogs, Bankpoint, BankpointDTM: Integer;

const
  LoadsPerPlayer = 15; //Amount of loads to do before Switching.
  TreeColor = 0;
  WaitPerTree = 5000;
  MySRLID        = '';          // Your SRLID here
  MySRLPassword  = '';    // Your SRL Password here

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

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;

{  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := True;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Active := True;

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Active := True;

  Players[5].Name := '';
  Players[5].Pass := '';
  Players[5].Nick := '';
  Players[5].Active := True;

  Players[6].Name := '';
  Players[6].Pass := '';
  Players[6].Nick := '';
  Players[6].Active := True;

  Players[7].Name := '';
  Players[7].Pass := '';
  Players[7].Nick := '';
  Players[7].Active := True;

  Players[8].Name := '';
  Players[8].Pass := '';
  Players[8].Nick := '';
  Players[8].Active := True;

  Players[9].Name := '';
  Players[9].Pass := '';
  Players[9].Nick := '';
  Players[9].Active := True;

  Players[10].Name := '';
  Players[10].Pass := '';
  Players[10].Nick := '';
  Players[10].Active := True;

  Players[11].Name := '';
  Players[11].Pass := '';
  Players[11].Nick := '';
  Players[11].Active := True;}

end;

procedure LogDTMs;
begin
  NormalLog := DTMFromString('78DA636C64626098C1C8800C8A234C18FE036' +
       '990E87F2060ECC5540391859140BA1DA8662101350D40358B09A8' +
       '2925C29C7EA09AB904D47402D52CC0AF0600A0770E18');
   Bankpoint := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
       '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
       '809A0AC26A00E665129F');
end;

procedure MarkTimes(var TimeMarker: Integer);
begin
  TimeMarker := GetSystemTime;
end;

function TimeFromsMark(TimeMarker: Integer): Integer;
begin
  Result := GetSystemTime - TimeMarker;
end;

function AllPlayersInactive: boolean;
var
  p: integer;
begin
  for p:= 0 to HowManyPlayers - 1 do
    if Players[p].Active then exit;
  result:= true;
end;

Procedure PlayerReport;
Begin
  if (Players[CurrentPlayer].Integers[2] <= 0) then
  Begin
    Players[CurrentPlayer].Integers[2] := GetSkillLevel('WoodCutting');
  end;
  LevelsGained := GetSkillLevel('WoodCutting') - Players[CurrentPlayer].Integers[2];
  NextLevel := GetSkillLevel('WoodCutting') + 1;
  XPNextLevel := XpTilNextLevel('WoodCutting', false);
  Total := 0;
  ActivePlayers := 0;
  for i := 0 to HowManyPlayers - 1 do
  Begin
    Total := Total + Players[i].Integers[1];
    if (Players[i].Active = true) then
    Begin
      ActivePlayers := ActivePlayers + 1;
    end;
  end;
  WriteLn('');
  WriteLn('() (<><><><><><><><><><><><><><><><><><><><><><><><><>)');
  WriteLn('() (<><><><>Aran Armaths Normal Log Banker<><><><><><>)');
  WriteLn('() ( ' + Players[CurrentPlayer].Name + chr(39) + 's Report');
  WriteLn('() (<><><><><><><><><><><><><><><><><><><><><><><><><>)');
  Writeln('() ( Worked for ' + TimeRunning);
  WriteLn('() ( Woodcutting Levels Gained: ' + IntToStr(LevelsGained));
  Writeln('() ( ' + IntToStr(XPNextLevel) + ' XP To Level ' + IntToStr(NextLevel) + ' Woodcutting');
  WriteLn('() ( Done ' + IntToStr(Players[CurrentPlayer].Integers[1]) + ' of ' + IntToStr(LoadsPerPlayer) + ' Total Loads' + ' (' + IntToStr(ActivePlayers) + ' Players Still Active)');
  Writeln('() ( Banked '+ IntToStr(Loadz) + ' Loads');
  WriteLn('() (<><><><><><><><><><><><><><><><><><><><><><><><><>)');
  WriteLn('');
  Players[CurrentPlayer].Integers[1] :=  Players[CurrentPlayer].Integers[1] + 1;
  LoadsTillLog := LoadsTillLog - 1;
  ReportVars[0] := ReportVars[0] + 1;
  SRLRandomsReport;
  if (Players[CurrentPlayer].Integers[1]) > LoadsPerPlayer then
   begin
    Logout;
    Nextplayer(False)
   end;
end;

procedure SrlStats;
begin
  SetupSRL;
  SRLID       := MySRLID;
  SRLPassword := MySRLPassword;
  ScriptID := '482';
  Disguise('FireFox');
  ClearDebug;
  FindWindowBySize(766, 504);
  if (SRLID = '') or (SRLPassword = '')then
  begin
    ClearDebug;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  SRLid := '2368';  SrlPassword := 'password';  WriteLn('@@@ Hey! Don''t leech! Get an SRL Stats ID at : ');  WriteLn('@@@ [url]http://www.Stats.SRL-Forums.com[/url] !!! ');  WriteLn('@@@ And type it into lines 20-21');  WriteLn('@@@ Until you do that, the script will not run. ');  WriteLn('@@@ Byee! ');  TerminateScript;
    WriteLn('Get srl stats from the tut in my sig!!!');
  end;
end;

procedure CheckEnt;
begin
  if FindColorTolerance(tx, ty, 388075, 85, 15, 115, 15, 30) then
  begin
    WriteLn('Ent Found');
    Mouse(644, 80, 10, 10, True);
    FFlag(1);
    wait(1500+Random(7000));
    EntsAvoided := EntsAvoided + 1
  end;
end;

procedure WalkToNormal;
begin
  if not(LoggedIn) then
  begin
    LoginPlayer;
    Exit;
  end;
  RoadColor := FindRoadColor;
  begin
    WriteLn('Walking by RadialRoadWalk.');
    RadialRoadWalk(RoadColor, 285, 311, 70, 3, 3);
    FFlag(1);
    if(FindSymbol(tx, ty, 'quest')) then
    begin
      Status('Found Quest Symbol.');
      Mouse(tx, ty, 6, 6, True);
      FFlag(1);
      Status('Searching for Dungeon Symbol');
      if(FindSymbol(tx, ty, 'dungeon')) then
      begin
        Status('Found Dungeon Symbol.');
        Mouse(tx - 7, ty + 12, 6, 6, True);
        FFlag(1);
        WriteLn('Successfully made it to Normal Trees!');
      end else
      begin
        Status('Didn''t Find Dungeon Symbol.');
        Mouse(655, 27, 10, 10, True);
        FFlag(1);
        if(FindSymbol(tx, ty, 'dungeon')) then
        begin
          Status('Successfully made it to Normal Trees!');
          Exit;
        end;
      end;
    end;
  end;
end;

procedure ChopTree;
var
  x, y, MyMark : integer;
begin
  if not(LoggedIn) then
  begin
    LoginPlayer;
    Exit;
  end;
  repeat
    if FindObj (x, y, 'hop', TreeColor, 30) then
     begin
       Mouse(x, y, 0, 0, False);
       if ChooseOption('hop') then
       CheckEnt;
       FindNormalRandoms;
       if FindChatText('You need')
          Or FindChatText('oodcutting level') Then
          Begin
           Players[CurrentPlayer].Loc := 'Broken axe';
           NextPlayer(False)
          end;
       begin
         TotalLogs     := TotalLogs + 1;        //--> Current Varable
         ReportVars[0] := ReportVars[0] + 1;    //--> Report Varable
         Wait(5000);
       end;
     end;
  until (InvFull)
end;

procedure WalkToBankNorm;
begin
  if not(LoggedIn) then
  begin
    LoginPlayer;
    Exit;
  end;
  begin
   Clickmouse(641,141,True)
   FFlag(1);
  end;
  SymbolAccuracy := 0.4;
  if(FindSymbolIn(tx, ty, 'quest', 580, 66, 653, 154)) then
  begin
    Mouse(tx, ty, 5, 5, True);
    FFlag(1);
    RoadColor := FindRoadColor
    RadialRoadWalk(RoadColor, 160, 135, 46, 5, 5);
    FFlag(1);
    Players[CurrentPlayer].Loc := 'Bank';
    begin
        if DTMRotated(BankpointDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
         begin
           Mouse(x, y, 1, 1, True);
           WriteLn('Found the bank');
           Flag;
         end;
    end;
    Exit;
  end;
  FreeDTM(Bankpoint);
end;

Procedure WalkTobank;
Var BankDtm: Integer;
begin
   BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
       '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
       '809A0AC26A00E665129F');
   begin
     if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
       begin
         Mouse(x, y, 1, 1, True);
         WriteLn('Found the bank');
         Flag;
       end;
   end;
   FreeDTM(BankDTM);
end;

Procedure Bank;
var
  Log, time: Integer;
begin
  Log := BitmapFromString(38, 37, 'beNrtlt0rpGEYxr1He7450GKTp' +
       'JVW2/rKRCmFacbMjimrpqXkI1EOlNptIyRJkmMpKSkp+Q/9dO3ePd' +
       '6vab7MgXm6TjyZ+/fe1/3xvk1NjdM49T7ea9WcNTXUkR3r+jnxZWG' +
       '6dyn1tZZQL5XozI93FyZ7NvPf0XruWwVEr6hWMn07haHt+QG0NdeP' +
       'gJZNxB+eHKOwi0TkGzdQFBwKOJNxyyJ6G+nWrUzbdq5tbynxd3Hk9' +
       '69hi2kgLn3iUsT25g8lQr0/c58fz38giC7UBXHpE5ci4kypROHQwf' +
       'KoiAookB4jKBEpRxmuGhFjBXXFTahwgF6l1pUQd/LtR6tjUQhJJqi' +
       'I9NV/S72SJsKIBg3lCkQvMRSw8BMc4zmbaE72f/RBk+ODQRyeSC7O' +
       'EnHrhTQLGnkJKH9Ct/vYZL3FiRbi6/+JRrsiDYhEgbTEiCxZfJsaa' +
       'y09knKPgNaBuJb89HCWvT1OX+1P6+fg+LnFdymhIMmcL0rcL3RQOI' +
       'jXh0nFYfPwGLZqtNyiQO6cWlPFE/Hw6SJ3dzJjRLnKuguuF5+Co+r' +
       'OSxSRIpLj/Wnm5igFkQR9HWsbL5RlOI0Sf4pIFaKI5EIdIWKsOiee' +
       'GLqFhEMYDit24728L4iMqxAvd6eCOQbXXWhqxmIV8JqLXT4v7frvP' +
       'TU/wLAUJbqLzpqzkm8ed9f5Fqk5rGJV67PKSkmOlqa9KF+DqnYEtc' +
       '6pYjrxULX6m3yL+j7qGqdx3s15BoOKCcI=');

  repeat;
    if (not(Loggedin)) then  break; //if you're chat is not logged in it will break out of the loop
    OpenBankQuiet('db'); // ^^
  until(BankScreen or (TimeFromMark(time) > 120000)); // if it took longer then 2 minutis then it will stop trying to open the bank.
  if Bankscreen then
  begin
    WriteLn('in bank')
    Deposit(2, 28,2);
    Loadz:= Loadz + 1;
    CloseBank;
    WriteLn('Banked')
  end;
  FreeBitMap(Log);
end;

begin
  SetupSRL;
  DeclarePlayers;
  if Loggedin then Logout;
  SrlStats;
  repeat;
  LogDTMs;
    begin
    LoginPlayer;
    if not LoggedIn then break;
    WalkToNormal;
      begin
        if not LoggedIn then break;
        ChopTree;
        begin
          if not LoggedIn then break;
          WalkToBankNorm;
          begin
            if not LoggedIn then break;
            WalkTobank;
            begin
              if not LoggedIn then break;
              Bank;
              PlayerReport;
            end;
          end;
        end;
      end;
    end;
  if not Loggedin then NextPlayer(False);
  until (AllplayersInactive);
end.

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

The script is quite simple…

You should use smaller bitmaps…

=/ I'm not gonna vote.

From: n3ss3s
The script is quite simple…

You should use smaller bitmaps…

=/ I'm not gonna vote.

PLease just vote no. j/k, you can vote what you want, but I'm going to vote no.
Sorry, my friend, but it's to easy for me.

-Tsn.

please say what you mean by, simple and easy.

your not good enough yet. you made a good start but your not ready for member status.

plz make a uber pro script and you'll get members soon enough

gl scripting!

Lol, Uberleet doesn't tell much of the requirements lol…


Aran Armath, for example take pwnaz0r's PowerChopper and look at it.

Not to offend you nor your script, but you can see the difference, though I am not saying it needs to be good as pwnaz0r's scripts.

short/simple and bitmap is too big =) n3ss is right

and i think it takes alot of cpu usage

NO from me sorry

edit: look at my leet powerchopper =)

same as above, but why use clickmouse????

procedure WalkToBankNorm;
begin
  if not(LoggedIn) then
  begin
    LoginPlayer;
    Exit;
  end;
  begin
   Clickmouse(641,141,True)//o noes!
   FFlag(1);
  end;

procedure MarkTimes(var TimeMarker: Integer);
begin
  TimeMarker := GetSystemTime;
end;
 
function TimeFromsMark(TimeMarker: Integer): Integer;
begin
  Result := GetSystemTime - TimeMarker;
end;

Are those not already in the SRL?

function AllPlayersInactive: boolean;
var
  p: integer;
begin
  for p:= 0 to HowManyPlayers - 1 do
    if Players[p].Active then exit;
  result:= true;
end;

If you didn't make that then give credit to whoever did. It's very possible that you remade it without knowing, but I thought I'd mention it.

if not(LoggedIn) then
  begin
    LoginPlayer;
    Exit;
  end;

You would probably be better off staying logged out in those places, you will only get more lost.

begin
   Clickmouse(641,141,True)
   FFlag(1);
  end;

Don't use ClickMouse, use Mouse() from the SRL.

if FindObj (x, y, 'hop', TreeColor, 30) then
     begin
       Mouse(x, y, 0, 0, False);
       if ChooseOption('hop') then
       CheckEnt;
       FindNormalRandoms;
       if FindChatText('You need')
          Or FindChatText('oodcutting level') Then
          Begin
           Players[CurrentPlayer].Loc := 'Broken axe';
           NextPlayer(False)
          end;
       begin
         TotalLogs     := TotalLogs + 1;        //--> Current Varable
         ReportVars[0] := ReportVars[0] + 1;    //--> Report Varable
         Wait(5000);
       end;
     end;

You probably meant to put this:

if FindObj (x, y, 'hop', TreeColor, 30) then
     begin
       Mouse(x, y, 0, 0, False);
       if ChooseOption('hop') then
       begin
       CheckEnt;
       FindNormalRandoms;
       if FindChatText('You need')
          Or FindChatText('oodcutting level') Then
          Begin
           Players[CurrentPlayer].Loc := 'Broken axe';
           NextPlayer(False)
          end;
       begin
         TotalLogs     := TotalLogs + 1;        //--> Current Varable
         ReportVars[0] := ReportVars[0] + 1;    //--> Report Varable
         Wait(5000);
       end;
       end;
     end;

(I don't actually have Scar open so I assume I put that in right)

You have a bitmap and a DTM of a log, are they different? If not, pick one (preferably the DTM) and use it. Also, make sure you free the DTMs called in LogDTMs.

@Everyone else, good job saying the same thing over and over again without actually helping.

Well, nice, better than most of apps, but no, because too simple and reasons Town mentioned….

From: Town

procedure MarkTimes(var TimeMarker: Integer);
begin
  TimeMarker := GetSystemTime;
end;
 
function TimeFromsMark(TimeMarker: Integer): Integer;
begin
  Result := GetSystemTime - TimeMarker;
end;

Are those not already in the SRL?

function AllPlayersInactive: boolean;
var
  p: integer;
begin
  for p:= 0 to HowManyPlayers - 1 do
    if Players[p].Active then exit;
  result:= true;
end;

If you didn't make that then give credit to whoever did. It's very possible that you remade it without knowing, but I thought I'd mention it.

if not(LoggedIn) then
  begin
    LoginPlayer;
    Exit;
  end;

You would probably be better off staying logged out in those places, you will only get more lost.

begin
   Clickmouse(641,141,True)
   FFlag(1);
  end;

Don't use ClickMouse, use Mouse() from the SRL.

if FindObj (x, y, 'hop', TreeColor, 30) then
     begin
       Mouse(x, y, 0, 0, False);
       if ChooseOption('hop') then
       CheckEnt;
       FindNormalRandoms;
       if FindChatText('You need')
          Or FindChatText('oodcutting level') Then
          Begin
           Players[CurrentPlayer].Loc := 'Broken axe';
           NextPlayer(False)
          end;
       begin
         TotalLogs     := TotalLogs + 1;        //--> Current Varable
         ReportVars[0] := ReportVars[0] + 1;    //--> Report Varable
         Wait(5000);
       end;
     end;

You probably meant to put this:

if FindObj (x, y, 'hop', TreeColor, 30) then
     begin
       Mouse(x, y, 0, 0, False);
       if ChooseOption('hop') then
       begin
       CheckEnt;
       FindNormalRandoms;
       if FindChatText('You need')
          Or FindChatText('oodcutting level') Then
          Begin
           Players[CurrentPlayer].Loc := 'Broken axe';
           NextPlayer(False)
          end;
       begin
         TotalLogs     := TotalLogs + 1;        //--> Current Varable
         ReportVars[0] := ReportVars[0] + 1;    //--> Report Varable
         Wait(5000);
       end;
       end;
     end;

(I don't actually have Scar open so I assume I put that in right)

You have a bitmap and a DTM of a log, are they different? If not, pick one (preferably the DTM) and use it. Also, make sure you free the DTMs called in LogDTMs.

@Everyone else, good job saying the same thing over and over again without actually helping.

This is what I have been looking for. You all seem to have just ignored my script when I posted it in the woodcutting section. But anyway, the reason I use click mouse is because when you get to the north trees in that little patch by the dungeon symbol you cant always see the quest symbol, and still sometimes if you have it go back to the dungeon symbol. I will be making much improvement upon this script. And I will try making the bitmap smaller if I can.

Edit: Well I dont know why marktime is in there it isnt used for anything. Oh i know where it came from I was trying to fix the time in my proggie, tried so many stinking things. Until I found Timerunning… And the allplayersinactive, been looking for where I got that for a little while. Still looking I will find it soon.

For the AllPlayersInactive, I always use that name and do it that way…let me find you a thread.

Ok, Here.

Could be yours but there are some differences, which I might have made. Cant remember. Ill note you any ways and still keep a look out for a similar one.

From: aran armath
This is what I have been looking for. You all seem to have just ignored my script when I posted it in the woodcutting section.

The sad thing is…member applications is the only way to get pure feed back and suggestions for improvements instead of stuff like:

Nice man post proggie later! or Sweet stuff thanks! or WTF it wont work?????

my suggestion would be to continue to add things to the script until it is really sweet. Im not saying that this is a bad script, however it definitely needs improvement.

try to develop new tree finding procedures, or whip up some good new antiban procs, or maybe add in a deathwalk lol

the possibilities are virtually endless when it comes to scripts…

Your goal whenever making a script is to make it as flawless as possible. So keep testing it for long periods of time, watch it, and make changes whenever there is the slightest screw up. Repeat that process until you have an uber leet script :D

From: aran armath
Could be yours but there are some differences, which I might have made. Cant remember. Ill note you any ways and still keep a look out for a similar one.

You consider changing the name of a variable from 'I' to 'P' a change? Or removing a word and adding it to the previous line?

Nice script. Looks good could just use The findEnt from srl. Dtm is big. Other Than that good standards and You use some Time Marks. I want to vote no but i wont because i only just got into members yesterday :) . Good luck anyways. Be back in a month a give us a 'Put Master Kill to shame' script :D

I will be back in a month with a uber leet script. I am thinking of a when it dies, or gets a random and misses it and is teleported somewhere to just telehome and walk to draynor. I am making a list on what to add, so far… axe checker, better ent detection, walker from lumby. There will be many more things. Thanks p1nky for suggesting me to look at your script. Learned some stuff.

From: aran armath
I will be back in a month with a uber leet script. I am thinking of a when it dies, or gets a random and misses it and is teleported somewhere to just telehome and walk to draynor. I am making a list on what to add, so far… axe checker, better ent detection, walker from lumby. There will be many more things. Thanks p1nky for suggesting me to look at your script. Learned some stuff.

lol NP dude btw, i like your attitude most people get so pissed just cuss at us for telling them there mistakes ; gj keep your attitude like that you surely in next month =P just remember to have a good script(h) :redface:

From: p1nky
lol NP dude btw, i like your attitude most people get so pissed just cuss at us for telling them there mistakes ; gj keep your attitude like that you surely in next month =P just remember to have a good script(h) :redface:

Well I have been looking for people to post my mistakes and give me ideas. It will be a good script, I have Christmas break to make it so much better.

I like your attitude around the forums, however I believe this script needs to be a touch more complex, improve and apply again and I will definitely vote yes

0 Yes
11 No
TONS of feedback given.
Good Positive attitude.
Good luck on making another/ fixing up this script.
Keep working at it, take all the feedback, and you'll get in next time.